{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.RemoteBuildExecution.Types.Product where
import Network.Google.Prelude
import Network.Google.RemoteBuildExecution.Types.Sum
data BuildBazelRemoteExecutionV2Digest = BuildBazelRemoteExecutionV2Digest'
{ _bbrevdSizeBytes :: !(Maybe (Textual Int64))
, _bbrevdHash :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2Digest
:: BuildBazelRemoteExecutionV2Digest
buildBazelRemoteExecutionV2Digest =
BuildBazelRemoteExecutionV2Digest'
{ _bbrevdSizeBytes = Nothing
, _bbrevdHash = Nothing
}
bbrevdSizeBytes :: Lens' BuildBazelRemoteExecutionV2Digest (Maybe Int64)
bbrevdSizeBytes
= lens _bbrevdSizeBytes
(\ s a -> s{_bbrevdSizeBytes = a})
. mapping _Coerce
bbrevdHash :: Lens' BuildBazelRemoteExecutionV2Digest (Maybe Text)
bbrevdHash
= lens _bbrevdHash (\ s a -> s{_bbrevdHash = a})
instance FromJSON BuildBazelRemoteExecutionV2Digest
where
parseJSON
= withObject "BuildBazelRemoteExecutionV2Digest"
(\ o ->
BuildBazelRemoteExecutionV2Digest' <$>
(o .:? "sizeBytes") <*> (o .:? "hash"))
instance ToJSON BuildBazelRemoteExecutionV2Digest
where
toJSON BuildBazelRemoteExecutionV2Digest'{..}
= object
(catMaybes
[("sizeBytes" .=) <$> _bbrevdSizeBytes,
("hash" .=) <$> _bbrevdHash])
data GoogleRpcStatus = GoogleRpcStatus'
{ _grsDetails :: !(Maybe [GoogleRpcStatusDetailsItem])
, _grsCode :: !(Maybe (Textual Int32))
, _grsMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleRpcStatus
:: GoogleRpcStatus
googleRpcStatus =
GoogleRpcStatus'
{ _grsDetails = Nothing
, _grsCode = Nothing
, _grsMessage = Nothing
}
grsDetails :: Lens' GoogleRpcStatus [GoogleRpcStatusDetailsItem]
grsDetails
= lens _grsDetails (\ s a -> s{_grsDetails = a}) .
_Default
. _Coerce
grsCode :: Lens' GoogleRpcStatus (Maybe Int32)
grsCode
= lens _grsCode (\ s a -> s{_grsCode = a}) .
mapping _Coerce
grsMessage :: Lens' GoogleRpcStatus (Maybe Text)
grsMessage
= lens _grsMessage (\ s a -> s{_grsMessage = a})
instance FromJSON GoogleRpcStatus where
parseJSON
= withObject "GoogleRpcStatus"
(\ o ->
GoogleRpcStatus' <$>
(o .:? "details" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON GoogleRpcStatus where
toJSON GoogleRpcStatus'{..}
= object
(catMaybes
[("details" .=) <$> _grsDetails,
("code" .=) <$> _grsCode,
("message" .=) <$> _grsMessage])
newtype GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest = GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest'
{ _gdravgwprName :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest
googleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest'
{ _gdravgwprName = Nothing
}
gdravgwprName :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest (Maybe Text)
gdravgwprName
= lens _gdravgwprName
(\ s a -> s{_gdravgwprName = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest'
<$> (o .:? "name"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetWorkerPoolRequest'{..}
= object (catMaybes [("name" .=) <$> _gdravgwprName])
data GoogleDevtoolsRemoteexecutionV1testOutputDirectory = GoogleDevtoolsRemoteexecutionV1testOutputDirectory'
{ _gdrvodPath :: !(Maybe Text)
, _gdrvodDigest :: !(Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
, _gdrvodTreeDigest :: !(Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testOutputDirectory
:: GoogleDevtoolsRemoteexecutionV1testOutputDirectory
googleDevtoolsRemoteexecutionV1testOutputDirectory =
GoogleDevtoolsRemoteexecutionV1testOutputDirectory'
{ _gdrvodPath = Nothing
, _gdrvodDigest = Nothing
, _gdrvodTreeDigest = Nothing
}
gdrvodPath :: Lens' GoogleDevtoolsRemoteexecutionV1testOutputDirectory (Maybe Text)
gdrvodPath
= lens _gdrvodPath (\ s a -> s{_gdrvodPath = a})
gdrvodDigest :: Lens' GoogleDevtoolsRemoteexecutionV1testOutputDirectory (Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
gdrvodDigest
= lens _gdrvodDigest (\ s a -> s{_gdrvodDigest = a})
gdrvodTreeDigest :: Lens' GoogleDevtoolsRemoteexecutionV1testOutputDirectory (Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
gdrvodTreeDigest
= lens _gdrvodTreeDigest
(\ s a -> s{_gdrvodTreeDigest = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testOutputDirectory
where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testOutputDirectory"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testOutputDirectory'
<$>
(o .:? "path") <*> (o .:? "digest") <*>
(o .:? "treeDigest"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testOutputDirectory
where
toJSON
GoogleDevtoolsRemoteexecutionV1testOutputDirectory'{..}
= object
(catMaybes
[("path" .=) <$> _gdrvodPath,
("digest" .=) <$> _gdrvodDigest,
("treeDigest" .=) <$> _gdrvodTreeDigest])
data BuildBazelRemoteExecutionV2OutputSymlink = BuildBazelRemoteExecutionV2OutputSymlink'
{ _bbrevosPath :: !(Maybe Text)
, _bbrevosTarget :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2OutputSymlink
:: BuildBazelRemoteExecutionV2OutputSymlink
buildBazelRemoteExecutionV2OutputSymlink =
BuildBazelRemoteExecutionV2OutputSymlink'
{ _bbrevosPath = Nothing
, _bbrevosTarget = Nothing
}
bbrevosPath :: Lens' BuildBazelRemoteExecutionV2OutputSymlink (Maybe Text)
bbrevosPath
= lens _bbrevosPath (\ s a -> s{_bbrevosPath = a})
bbrevosTarget :: Lens' BuildBazelRemoteExecutionV2OutputSymlink (Maybe Text)
bbrevosTarget
= lens _bbrevosTarget
(\ s a -> s{_bbrevosTarget = a})
instance FromJSON
BuildBazelRemoteExecutionV2OutputSymlink where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2OutputSymlink"
(\ o ->
BuildBazelRemoteExecutionV2OutputSymlink' <$>
(o .:? "path") <*> (o .:? "target"))
instance ToJSON
BuildBazelRemoteExecutionV2OutputSymlink where
toJSON BuildBazelRemoteExecutionV2OutputSymlink'{..}
= object
(catMaybes
[("path" .=) <$> _bbrevosPath,
("target" .=) <$> _bbrevosTarget])
data GoogleDevtoolsRemoteexecutionV1testTree = GoogleDevtoolsRemoteexecutionV1testTree'
{ _gdrvtChildren :: !(Maybe [GoogleDevtoolsRemoteexecutionV1testDirectory])
, _gdrvtRoot :: !(Maybe GoogleDevtoolsRemoteexecutionV1testDirectory)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testTree
:: GoogleDevtoolsRemoteexecutionV1testTree
googleDevtoolsRemoteexecutionV1testTree =
GoogleDevtoolsRemoteexecutionV1testTree'
{ _gdrvtChildren = Nothing
, _gdrvtRoot = Nothing
}
gdrvtChildren :: Lens' GoogleDevtoolsRemoteexecutionV1testTree [GoogleDevtoolsRemoteexecutionV1testDirectory]
gdrvtChildren
= lens _gdrvtChildren
(\ s a -> s{_gdrvtChildren = a})
. _Default
. _Coerce
gdrvtRoot :: Lens' GoogleDevtoolsRemoteexecutionV1testTree (Maybe GoogleDevtoolsRemoteexecutionV1testDirectory)
gdrvtRoot
= lens _gdrvtRoot (\ s a -> s{_gdrvtRoot = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testTree where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testTree"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testTree' <$>
(o .:? "children" .!= mempty) <*> (o .:? "root"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testTree where
toJSON GoogleDevtoolsRemoteexecutionV1testTree'{..}
= object
(catMaybes
[("children" .=) <$> _gdrvtChildren,
("root" .=) <$> _gdrvtRoot])
data GoogleDevtoolsRemoteworkersV1test2FileMetadata = GoogleDevtoolsRemoteworkersV1test2FileMetadata'
{ _gdrvfmContents :: !(Maybe Bytes)
, _gdrvfmPath :: !(Maybe Text)
, _gdrvfmIsExecutable :: !(Maybe Bool)
, _gdrvfmDigest :: !(Maybe GoogleDevtoolsRemoteworkersV1test2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2FileMetadata
:: GoogleDevtoolsRemoteworkersV1test2FileMetadata
googleDevtoolsRemoteworkersV1test2FileMetadata =
GoogleDevtoolsRemoteworkersV1test2FileMetadata'
{ _gdrvfmContents = Nothing
, _gdrvfmPath = Nothing
, _gdrvfmIsExecutable = Nothing
, _gdrvfmDigest = Nothing
}
gdrvfmContents :: Lens' GoogleDevtoolsRemoteworkersV1test2FileMetadata (Maybe ByteString)
gdrvfmContents
= lens _gdrvfmContents
(\ s a -> s{_gdrvfmContents = a})
. mapping _Bytes
gdrvfmPath :: Lens' GoogleDevtoolsRemoteworkersV1test2FileMetadata (Maybe Text)
gdrvfmPath
= lens _gdrvfmPath (\ s a -> s{_gdrvfmPath = a})
gdrvfmIsExecutable :: Lens' GoogleDevtoolsRemoteworkersV1test2FileMetadata (Maybe Bool)
gdrvfmIsExecutable
= lens _gdrvfmIsExecutable
(\ s a -> s{_gdrvfmIsExecutable = a})
gdrvfmDigest :: Lens' GoogleDevtoolsRemoteworkersV1test2FileMetadata (Maybe GoogleDevtoolsRemoteworkersV1test2Digest)
gdrvfmDigest
= lens _gdrvfmDigest (\ s a -> s{_gdrvfmDigest = a})
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2FileMetadata where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2FileMetadata"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2FileMetadata' <$>
(o .:? "contents") <*> (o .:? "path") <*>
(o .:? "isExecutable")
<*> (o .:? "digest"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2FileMetadata where
toJSON
GoogleDevtoolsRemoteworkersV1test2FileMetadata'{..}
= object
(catMaybes
[("contents" .=) <$> _gdrvfmContents,
("path" .=) <$> _gdrvfmPath,
("isExecutable" .=) <$> _gdrvfmIsExecutable,
("digest" .=) <$> _gdrvfmDigest])
newtype GoogleLongrunningOperationMetadata = GoogleLongrunningOperationMetadata'
{ _glomAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
googleLongrunningOperationMetadata
:: HashMap Text JSONValue
-> GoogleLongrunningOperationMetadata
googleLongrunningOperationMetadata pGlomAddtional_ =
GoogleLongrunningOperationMetadata'
{ _glomAddtional = _Coerce # pGlomAddtional_
}
glomAddtional :: Lens' GoogleLongrunningOperationMetadata (HashMap Text JSONValue)
glomAddtional
= lens _glomAddtional
(\ s a -> s{_glomAddtional = a})
. _Coerce
instance FromJSON GoogleLongrunningOperationMetadata
where
parseJSON
= withObject "GoogleLongrunningOperationMetadata"
(\ o ->
GoogleLongrunningOperationMetadata' <$>
(parseJSONObject o))
instance ToJSON GoogleLongrunningOperationMetadata
where
toJSON = toJSON . _glomAddtional
data GoogleDevtoolsRemoteworkersV1test2Digest = GoogleDevtoolsRemoteworkersV1test2Digest'
{ _gdrvdSizeBytes :: !(Maybe (Textual Int64))
, _gdrvdHash :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2Digest
:: GoogleDevtoolsRemoteworkersV1test2Digest
googleDevtoolsRemoteworkersV1test2Digest =
GoogleDevtoolsRemoteworkersV1test2Digest'
{ _gdrvdSizeBytes = Nothing
, _gdrvdHash = Nothing
}
gdrvdSizeBytes :: Lens' GoogleDevtoolsRemoteworkersV1test2Digest (Maybe Int64)
gdrvdSizeBytes
= lens _gdrvdSizeBytes
(\ s a -> s{_gdrvdSizeBytes = a})
. mapping _Coerce
gdrvdHash :: Lens' GoogleDevtoolsRemoteworkersV1test2Digest (Maybe Text)
gdrvdHash
= lens _gdrvdHash (\ s a -> s{_gdrvdHash = a})
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2Digest where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2Digest"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2Digest' <$>
(o .:? "sizeBytes") <*> (o .:? "hash"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2Digest where
toJSON GoogleDevtoolsRemoteworkersV1test2Digest'{..}
= object
(catMaybes
[("sizeBytes" .=) <$> _gdrvdSizeBytes,
("hash" .=) <$> _gdrvdHash])
data BuildBazelRemoteExecutionV2ServerCapabilities = BuildBazelRemoteExecutionV2ServerCapabilities'
{ _bbrevscHighAPIVersion :: !(Maybe BuildBazelSemverSemVer)
, _bbrevscExecutionCapabilities :: !(Maybe BuildBazelRemoteExecutionV2ExecutionCapabilities)
, _bbrevscCacheCapabilities :: !(Maybe BuildBazelRemoteExecutionV2CacheCapabilities)
, _bbrevscDeprecatedAPIVersion :: !(Maybe BuildBazelSemverSemVer)
, _bbrevscLowAPIVersion :: !(Maybe BuildBazelSemverSemVer)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ServerCapabilities
:: BuildBazelRemoteExecutionV2ServerCapabilities
buildBazelRemoteExecutionV2ServerCapabilities =
BuildBazelRemoteExecutionV2ServerCapabilities'
{ _bbrevscHighAPIVersion = Nothing
, _bbrevscExecutionCapabilities = Nothing
, _bbrevscCacheCapabilities = Nothing
, _bbrevscDeprecatedAPIVersion = Nothing
, _bbrevscLowAPIVersion = Nothing
}
bbrevscHighAPIVersion :: Lens' BuildBazelRemoteExecutionV2ServerCapabilities (Maybe BuildBazelSemverSemVer)
bbrevscHighAPIVersion
= lens _bbrevscHighAPIVersion
(\ s a -> s{_bbrevscHighAPIVersion = a})
bbrevscExecutionCapabilities :: Lens' BuildBazelRemoteExecutionV2ServerCapabilities (Maybe BuildBazelRemoteExecutionV2ExecutionCapabilities)
bbrevscExecutionCapabilities
= lens _bbrevscExecutionCapabilities
(\ s a -> s{_bbrevscExecutionCapabilities = a})
bbrevscCacheCapabilities :: Lens' BuildBazelRemoteExecutionV2ServerCapabilities (Maybe BuildBazelRemoteExecutionV2CacheCapabilities)
bbrevscCacheCapabilities
= lens _bbrevscCacheCapabilities
(\ s a -> s{_bbrevscCacheCapabilities = a})
bbrevscDeprecatedAPIVersion :: Lens' BuildBazelRemoteExecutionV2ServerCapabilities (Maybe BuildBazelSemverSemVer)
bbrevscDeprecatedAPIVersion
= lens _bbrevscDeprecatedAPIVersion
(\ s a -> s{_bbrevscDeprecatedAPIVersion = a})
bbrevscLowAPIVersion :: Lens' BuildBazelRemoteExecutionV2ServerCapabilities (Maybe BuildBazelSemverSemVer)
bbrevscLowAPIVersion
= lens _bbrevscLowAPIVersion
(\ s a -> s{_bbrevscLowAPIVersion = a})
instance FromJSON
BuildBazelRemoteExecutionV2ServerCapabilities where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2ServerCapabilities"
(\ o ->
BuildBazelRemoteExecutionV2ServerCapabilities' <$>
(o .:? "highApiVersion") <*>
(o .:? "executionCapabilities")
<*> (o .:? "cacheCapabilities")
<*> (o .:? "deprecatedApiVersion")
<*> (o .:? "lowApiVersion"))
instance ToJSON
BuildBazelRemoteExecutionV2ServerCapabilities where
toJSON
BuildBazelRemoteExecutionV2ServerCapabilities'{..}
= object
(catMaybes
[("highApiVersion" .=) <$> _bbrevscHighAPIVersion,
("executionCapabilities" .=) <$>
_bbrevscExecutionCapabilities,
("cacheCapabilities" .=) <$>
_bbrevscCacheCapabilities,
("deprecatedApiVersion" .=) <$>
_bbrevscDeprecatedAPIVersion,
("lowApiVersion" .=) <$> _bbrevscLowAPIVersion])
data BuildBazelRemoteExecutionV2Action = BuildBazelRemoteExecutionV2Action'
{ _bbrevaDoNotCache :: !(Maybe Bool)
, _bbrevaCommandDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
, _bbrevaInputRootDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
, _bbrevaTimeout :: !(Maybe GDuration)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2Action
:: BuildBazelRemoteExecutionV2Action
buildBazelRemoteExecutionV2Action =
BuildBazelRemoteExecutionV2Action'
{ _bbrevaDoNotCache = Nothing
, _bbrevaCommandDigest = Nothing
, _bbrevaInputRootDigest = Nothing
, _bbrevaTimeout = Nothing
}
bbrevaDoNotCache :: Lens' BuildBazelRemoteExecutionV2Action (Maybe Bool)
bbrevaDoNotCache
= lens _bbrevaDoNotCache
(\ s a -> s{_bbrevaDoNotCache = a})
bbrevaCommandDigest :: Lens' BuildBazelRemoteExecutionV2Action (Maybe BuildBazelRemoteExecutionV2Digest)
bbrevaCommandDigest
= lens _bbrevaCommandDigest
(\ s a -> s{_bbrevaCommandDigest = a})
bbrevaInputRootDigest :: Lens' BuildBazelRemoteExecutionV2Action (Maybe BuildBazelRemoteExecutionV2Digest)
bbrevaInputRootDigest
= lens _bbrevaInputRootDigest
(\ s a -> s{_bbrevaInputRootDigest = a})
bbrevaTimeout :: Lens' BuildBazelRemoteExecutionV2Action (Maybe Scientific)
bbrevaTimeout
= lens _bbrevaTimeout
(\ s a -> s{_bbrevaTimeout = a})
. mapping _GDuration
instance FromJSON BuildBazelRemoteExecutionV2Action
where
parseJSON
= withObject "BuildBazelRemoteExecutionV2Action"
(\ o ->
BuildBazelRemoteExecutionV2Action' <$>
(o .:? "doNotCache") <*> (o .:? "commandDigest") <*>
(o .:? "inputRootDigest")
<*> (o .:? "timeout"))
instance ToJSON BuildBazelRemoteExecutionV2Action
where
toJSON BuildBazelRemoteExecutionV2Action'{..}
= object
(catMaybes
[("doNotCache" .=) <$> _bbrevaDoNotCache,
("commandDigest" .=) <$> _bbrevaCommandDigest,
("inputRootDigest" .=) <$> _bbrevaInputRootDigest,
("timeout" .=) <$> _bbrevaTimeout])
data BuildBazelRemoteExecutionV2OutputDirectory = BuildBazelRemoteExecutionV2OutputDirectory'
{ _bbrevodPath :: !(Maybe Text)
, _bbrevodTreeDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2OutputDirectory
:: BuildBazelRemoteExecutionV2OutputDirectory
buildBazelRemoteExecutionV2OutputDirectory =
BuildBazelRemoteExecutionV2OutputDirectory'
{ _bbrevodPath = Nothing
, _bbrevodTreeDigest = Nothing
}
bbrevodPath :: Lens' BuildBazelRemoteExecutionV2OutputDirectory (Maybe Text)
bbrevodPath
= lens _bbrevodPath (\ s a -> s{_bbrevodPath = a})
bbrevodTreeDigest :: Lens' BuildBazelRemoteExecutionV2OutputDirectory (Maybe BuildBazelRemoteExecutionV2Digest)
bbrevodTreeDigest
= lens _bbrevodTreeDigest
(\ s a -> s{_bbrevodTreeDigest = a})
instance FromJSON
BuildBazelRemoteExecutionV2OutputDirectory where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2OutputDirectory"
(\ o ->
BuildBazelRemoteExecutionV2OutputDirectory' <$>
(o .:? "path") <*> (o .:? "treeDigest"))
instance ToJSON
BuildBazelRemoteExecutionV2OutputDirectory where
toJSON
BuildBazelRemoteExecutionV2OutputDirectory'{..}
= object
(catMaybes
[("path" .=) <$> _bbrevodPath,
("treeDigest" .=) <$> _bbrevodTreeDigest])
data GoogleDevtoolsRemoteexecutionV1testDigest = GoogleDevtoolsRemoteexecutionV1testDigest'
{ _gSizeBytes :: !(Maybe (Textual Int64))
, _gHash :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testDigest
:: GoogleDevtoolsRemoteexecutionV1testDigest
googleDevtoolsRemoteexecutionV1testDigest =
GoogleDevtoolsRemoteexecutionV1testDigest'
{ _gSizeBytes = Nothing
, _gHash = Nothing
}
gSizeBytes :: Lens' GoogleDevtoolsRemoteexecutionV1testDigest (Maybe Int64)
gSizeBytes
= lens _gSizeBytes (\ s a -> s{_gSizeBytes = a}) .
mapping _Coerce
gHash :: Lens' GoogleDevtoolsRemoteexecutionV1testDigest (Maybe Text)
gHash = lens _gHash (\ s a -> s{_gHash = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testDigest where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testDigest"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testDigest' <$>
(o .:? "sizeBytes") <*> (o .:? "hash"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testDigest where
toJSON GoogleDevtoolsRemoteexecutionV1testDigest'{..}
= object
(catMaybes
[("sizeBytes" .=) <$> _gSizeBytes,
("hash" .=) <$> _gHash])
data BuildBazelRemoteExecutionV2Tree = BuildBazelRemoteExecutionV2Tree'
{ _bbrevtChildren :: !(Maybe [BuildBazelRemoteExecutionV2Directory])
, _bbrevtRoot :: !(Maybe BuildBazelRemoteExecutionV2Directory)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2Tree
:: BuildBazelRemoteExecutionV2Tree
buildBazelRemoteExecutionV2Tree =
BuildBazelRemoteExecutionV2Tree'
{ _bbrevtChildren = Nothing
, _bbrevtRoot = Nothing
}
bbrevtChildren :: Lens' BuildBazelRemoteExecutionV2Tree [BuildBazelRemoteExecutionV2Directory]
bbrevtChildren
= lens _bbrevtChildren
(\ s a -> s{_bbrevtChildren = a})
. _Default
. _Coerce
bbrevtRoot :: Lens' BuildBazelRemoteExecutionV2Tree (Maybe BuildBazelRemoteExecutionV2Directory)
bbrevtRoot
= lens _bbrevtRoot (\ s a -> s{_bbrevtRoot = a})
instance FromJSON BuildBazelRemoteExecutionV2Tree
where
parseJSON
= withObject "BuildBazelRemoteExecutionV2Tree"
(\ o ->
BuildBazelRemoteExecutionV2Tree' <$>
(o .:? "children" .!= mempty) <*> (o .:? "root"))
instance ToJSON BuildBazelRemoteExecutionV2Tree where
toJSON BuildBazelRemoteExecutionV2Tree'{..}
= object
(catMaybes
[("children" .=) <$> _bbrevtChildren,
("root" .=) <$> _bbrevtRoot])
data GoogleDevtoolsRemoteexecutionV1testActionResult = GoogleDevtoolsRemoteexecutionV1testActionResult'
{ _gdrvarOutputDirectories :: !(Maybe [GoogleDevtoolsRemoteexecutionV1testOutputDirectory])
, _gdrvarOutputFiles :: !(Maybe [GoogleDevtoolsRemoteexecutionV1testOutputFile])
, _gdrvarStderrRaw :: !(Maybe Bytes)
, _gdrvarExitCode :: !(Maybe (Textual Int32))
, _gdrvarStdoutDigest :: !(Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
, _gdrvarStderrDigest :: !(Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
, _gdrvarStdoutRaw :: !(Maybe Bytes)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testActionResult
:: GoogleDevtoolsRemoteexecutionV1testActionResult
googleDevtoolsRemoteexecutionV1testActionResult =
GoogleDevtoolsRemoteexecutionV1testActionResult'
{ _gdrvarOutputDirectories = Nothing
, _gdrvarOutputFiles = Nothing
, _gdrvarStderrRaw = Nothing
, _gdrvarExitCode = Nothing
, _gdrvarStdoutDigest = Nothing
, _gdrvarStderrDigest = Nothing
, _gdrvarStdoutRaw = Nothing
}
gdrvarOutputDirectories :: Lens' GoogleDevtoolsRemoteexecutionV1testActionResult [GoogleDevtoolsRemoteexecutionV1testOutputDirectory]
gdrvarOutputDirectories
= lens _gdrvarOutputDirectories
(\ s a -> s{_gdrvarOutputDirectories = a})
. _Default
. _Coerce
gdrvarOutputFiles :: Lens' GoogleDevtoolsRemoteexecutionV1testActionResult [GoogleDevtoolsRemoteexecutionV1testOutputFile]
gdrvarOutputFiles
= lens _gdrvarOutputFiles
(\ s a -> s{_gdrvarOutputFiles = a})
. _Default
. _Coerce
gdrvarStderrRaw :: Lens' GoogleDevtoolsRemoteexecutionV1testActionResult (Maybe ByteString)
gdrvarStderrRaw
= lens _gdrvarStderrRaw
(\ s a -> s{_gdrvarStderrRaw = a})
. mapping _Bytes
gdrvarExitCode :: Lens' GoogleDevtoolsRemoteexecutionV1testActionResult (Maybe Int32)
gdrvarExitCode
= lens _gdrvarExitCode
(\ s a -> s{_gdrvarExitCode = a})
. mapping _Coerce
gdrvarStdoutDigest :: Lens' GoogleDevtoolsRemoteexecutionV1testActionResult (Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
gdrvarStdoutDigest
= lens _gdrvarStdoutDigest
(\ s a -> s{_gdrvarStdoutDigest = a})
gdrvarStderrDigest :: Lens' GoogleDevtoolsRemoteexecutionV1testActionResult (Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
gdrvarStderrDigest
= lens _gdrvarStderrDigest
(\ s a -> s{_gdrvarStderrDigest = a})
gdrvarStdoutRaw :: Lens' GoogleDevtoolsRemoteexecutionV1testActionResult (Maybe ByteString)
gdrvarStdoutRaw
= lens _gdrvarStdoutRaw
(\ s a -> s{_gdrvarStdoutRaw = a})
. mapping _Bytes
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testActionResult where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testActionResult"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testActionResult' <$>
(o .:? "outputDirectories" .!= mempty) <*>
(o .:? "outputFiles" .!= mempty)
<*> (o .:? "stderrRaw")
<*> (o .:? "exitCode")
<*> (o .:? "stdoutDigest")
<*> (o .:? "stderrDigest")
<*> (o .:? "stdoutRaw"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testActionResult where
toJSON
GoogleDevtoolsRemoteexecutionV1testActionResult'{..}
= object
(catMaybes
[("outputDirectories" .=) <$>
_gdrvarOutputDirectories,
("outputFiles" .=) <$> _gdrvarOutputFiles,
("stderrRaw" .=) <$> _gdrvarStderrRaw,
("exitCode" .=) <$> _gdrvarExitCode,
("stdoutDigest" .=) <$> _gdrvarStdoutDigest,
("stderrDigest" .=) <$> _gdrvarStderrDigest,
("stdoutRaw" .=) <$> _gdrvarStdoutRaw])
data BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange = BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange'
{ _bbrevpcprMinPriority :: !(Maybe (Textual Int32))
, _bbrevpcprMaxPriority :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange
:: BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange
buildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange =
BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange'
{ _bbrevpcprMinPriority = Nothing
, _bbrevpcprMaxPriority = Nothing
}
bbrevpcprMinPriority :: Lens' BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange (Maybe Int32)
bbrevpcprMinPriority
= lens _bbrevpcprMinPriority
(\ s a -> s{_bbrevpcprMinPriority = a})
. mapping _Coerce
bbrevpcprMaxPriority :: Lens' BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange (Maybe Int32)
bbrevpcprMaxPriority
= lens _bbrevpcprMaxPriority
(\ s a -> s{_bbrevpcprMaxPriority = a})
. mapping _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange"
(\ o ->
BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange'
<$> (o .:? "minPriority") <*> (o .:? "maxPriority"))
instance ToJSON
BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange
where
toJSON
BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange'{..}
= object
(catMaybes
[("minPriority" .=) <$> _bbrevpcprMinPriority,
("maxPriority" .=) <$> _bbrevpcprMaxPriority])
data BuildBazelRemoteExecutionV2OutputFile = BuildBazelRemoteExecutionV2OutputFile'
{ _bbrevofPath :: !(Maybe Text)
, _bbrevofIsExecutable :: !(Maybe Bool)
, _bbrevofDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2OutputFile
:: BuildBazelRemoteExecutionV2OutputFile
buildBazelRemoteExecutionV2OutputFile =
BuildBazelRemoteExecutionV2OutputFile'
{ _bbrevofPath = Nothing
, _bbrevofIsExecutable = Nothing
, _bbrevofDigest = Nothing
}
bbrevofPath :: Lens' BuildBazelRemoteExecutionV2OutputFile (Maybe Text)
bbrevofPath
= lens _bbrevofPath (\ s a -> s{_bbrevofPath = a})
bbrevofIsExecutable :: Lens' BuildBazelRemoteExecutionV2OutputFile (Maybe Bool)
bbrevofIsExecutable
= lens _bbrevofIsExecutable
(\ s a -> s{_bbrevofIsExecutable = a})
bbrevofDigest :: Lens' BuildBazelRemoteExecutionV2OutputFile (Maybe BuildBazelRemoteExecutionV2Digest)
bbrevofDigest
= lens _bbrevofDigest
(\ s a -> s{_bbrevofDigest = a})
instance FromJSON
BuildBazelRemoteExecutionV2OutputFile where
parseJSON
= withObject "BuildBazelRemoteExecutionV2OutputFile"
(\ o ->
BuildBazelRemoteExecutionV2OutputFile' <$>
(o .:? "path") <*> (o .:? "isExecutable") <*>
(o .:? "digest"))
instance ToJSON BuildBazelRemoteExecutionV2OutputFile
where
toJSON BuildBazelRemoteExecutionV2OutputFile'{..}
= object
(catMaybes
[("path" .=) <$> _bbrevofPath,
("isExecutable" .=) <$> _bbrevofIsExecutable,
("digest" .=) <$> _bbrevofDigest])
data GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest = GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest'
{ _gdravcirParent :: !(Maybe Text)
, _gdravcirInstanceId :: !(Maybe Text)
, _gdravcirInstance :: !(Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest
googleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest'
{ _gdravcirParent = Nothing
, _gdravcirInstanceId = Nothing
, _gdravcirInstance = Nothing
}
gdravcirParent :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest (Maybe Text)
gdravcirParent
= lens _gdravcirParent
(\ s a -> s{_gdravcirParent = a})
gdravcirInstanceId :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest (Maybe Text)
gdravcirInstanceId
= lens _gdravcirInstanceId
(\ s a -> s{_gdravcirInstanceId = a})
gdravcirInstance :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest (Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance)
gdravcirInstance
= lens _gdravcirInstance
(\ s a -> s{_gdravcirInstance = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest'
<$>
(o .:? "parent") <*> (o .:? "instanceId") <*>
(o .:? "instance"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateInstanceRequest'{..}
= object
(catMaybes
[("parent" .=) <$> _gdravcirParent,
("instanceId" .=) <$> _gdravcirInstanceId,
("instance" .=) <$> _gdravcirInstance])
data BuildBazelRemoteExecutionV2Directory = BuildBazelRemoteExecutionV2Directory'
{ _bbrevdDirectories :: !(Maybe [BuildBazelRemoteExecutionV2DirectoryNode])
, _bbrevdSymlinks :: !(Maybe [BuildBazelRemoteExecutionV2SymlinkNode])
, _bbrevdFiles :: !(Maybe [BuildBazelRemoteExecutionV2FileNode])
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2Directory
:: BuildBazelRemoteExecutionV2Directory
buildBazelRemoteExecutionV2Directory =
BuildBazelRemoteExecutionV2Directory'
{ _bbrevdDirectories = Nothing
, _bbrevdSymlinks = Nothing
, _bbrevdFiles = Nothing
}
bbrevdDirectories :: Lens' BuildBazelRemoteExecutionV2Directory [BuildBazelRemoteExecutionV2DirectoryNode]
bbrevdDirectories
= lens _bbrevdDirectories
(\ s a -> s{_bbrevdDirectories = a})
. _Default
. _Coerce
bbrevdSymlinks :: Lens' BuildBazelRemoteExecutionV2Directory [BuildBazelRemoteExecutionV2SymlinkNode]
bbrevdSymlinks
= lens _bbrevdSymlinks
(\ s a -> s{_bbrevdSymlinks = a})
. _Default
. _Coerce
bbrevdFiles :: Lens' BuildBazelRemoteExecutionV2Directory [BuildBazelRemoteExecutionV2FileNode]
bbrevdFiles
= lens _bbrevdFiles (\ s a -> s{_bbrevdFiles = a}) .
_Default
. _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2Directory where
parseJSON
= withObject "BuildBazelRemoteExecutionV2Directory"
(\ o ->
BuildBazelRemoteExecutionV2Directory' <$>
(o .:? "directories" .!= mempty) <*>
(o .:? "symlinks" .!= mempty)
<*> (o .:? "files" .!= mempty))
instance ToJSON BuildBazelRemoteExecutionV2Directory
where
toJSON BuildBazelRemoteExecutionV2Directory'{..}
= object
(catMaybes
[("directories" .=) <$> _bbrevdDirectories,
("symlinks" .=) <$> _bbrevdSymlinks,
("files" .=) <$> _bbrevdFiles])
data BuildBazelRemoteExecutionV2DirectoryNode = BuildBazelRemoteExecutionV2DirectoryNode'
{ _bbrevdnName :: !(Maybe Text)
, _bbrevdnDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2DirectoryNode
:: BuildBazelRemoteExecutionV2DirectoryNode
buildBazelRemoteExecutionV2DirectoryNode =
BuildBazelRemoteExecutionV2DirectoryNode'
{ _bbrevdnName = Nothing
, _bbrevdnDigest = Nothing
}
bbrevdnName :: Lens' BuildBazelRemoteExecutionV2DirectoryNode (Maybe Text)
bbrevdnName
= lens _bbrevdnName (\ s a -> s{_bbrevdnName = a})
bbrevdnDigest :: Lens' BuildBazelRemoteExecutionV2DirectoryNode (Maybe BuildBazelRemoteExecutionV2Digest)
bbrevdnDigest
= lens _bbrevdnDigest
(\ s a -> s{_bbrevdnDigest = a})
instance FromJSON
BuildBazelRemoteExecutionV2DirectoryNode where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2DirectoryNode"
(\ o ->
BuildBazelRemoteExecutionV2DirectoryNode' <$>
(o .:? "name") <*> (o .:? "digest"))
instance ToJSON
BuildBazelRemoteExecutionV2DirectoryNode where
toJSON BuildBazelRemoteExecutionV2DirectoryNode'{..}
= object
(catMaybes
[("name" .=) <$> _bbrevdnName,
("digest" .=) <$> _bbrevdnDigest])
data GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts = GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts'
{ _gdrvcttIdle :: !(Maybe GDuration)
, _gdrvcttShutdown :: !(Maybe GDuration)
, _gdrvcttExecution :: !(Maybe GDuration)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2CommandTaskTimeouts
:: GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts
googleDevtoolsRemoteworkersV1test2CommandTaskTimeouts =
GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts'
{ _gdrvcttIdle = Nothing
, _gdrvcttShutdown = Nothing
, _gdrvcttExecution = Nothing
}
gdrvcttIdle :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts (Maybe Scientific)
gdrvcttIdle
= lens _gdrvcttIdle (\ s a -> s{_gdrvcttIdle = a}) .
mapping _GDuration
gdrvcttShutdown :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts (Maybe Scientific)
gdrvcttShutdown
= lens _gdrvcttShutdown
(\ s a -> s{_gdrvcttShutdown = a})
. mapping _GDuration
gdrvcttExecution :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts (Maybe Scientific)
gdrvcttExecution
= lens _gdrvcttExecution
(\ s a -> s{_gdrvcttExecution = a})
. mapping _GDuration
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts
where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts'
<$>
(o .:? "idle") <*> (o .:? "shutdown") <*>
(o .:? "execution"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts
where
toJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts'{..}
= object
(catMaybes
[("idle" .=) <$> _gdrvcttIdle,
("shutdown" .=) <$> _gdrvcttShutdown,
("execution" .=) <$> _gdrvcttExecution])
data GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance = GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance'
{ _gdraviState :: !(Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstanceState)
, _gdraviLocation :: !(Maybe Text)
, _gdraviName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaInstance
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance
googleDevtoolsRemotebuildexecutionAdminV1alphaInstance =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance'
{ _gdraviState = Nothing
, _gdraviLocation = Nothing
, _gdraviName = Nothing
}
gdraviState :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance (Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstanceState)
gdraviState
= lens _gdraviState (\ s a -> s{_gdraviState = a})
gdraviLocation :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance (Maybe Text)
gdraviLocation
= lens _gdraviLocation
(\ s a -> s{_gdraviLocation = a})
gdraviName :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance (Maybe Text)
gdraviName
= lens _gdraviName (\ s a -> s{_gdraviName = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance'
<$>
(o .:? "state") <*> (o .:? "location") <*>
(o .:? "name"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance'{..}
= object
(catMaybes
[("state" .=) <$> _gdraviState,
("location" .=) <$> _gdraviLocation,
("name" .=) <$> _gdraviName])
data GoogleDevtoolsRemoteexecutionV1testToolDetails = GoogleDevtoolsRemoteexecutionV1testToolDetails'
{ _gdrvtdToolName :: !(Maybe Text)
, _gdrvtdToolVersion :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testToolDetails
:: GoogleDevtoolsRemoteexecutionV1testToolDetails
googleDevtoolsRemoteexecutionV1testToolDetails =
GoogleDevtoolsRemoteexecutionV1testToolDetails'
{ _gdrvtdToolName = Nothing
, _gdrvtdToolVersion = Nothing
}
gdrvtdToolName :: Lens' GoogleDevtoolsRemoteexecutionV1testToolDetails (Maybe Text)
gdrvtdToolName
= lens _gdrvtdToolName
(\ s a -> s{_gdrvtdToolName = a})
gdrvtdToolVersion :: Lens' GoogleDevtoolsRemoteexecutionV1testToolDetails (Maybe Text)
gdrvtdToolVersion
= lens _gdrvtdToolVersion
(\ s a -> s{_gdrvtdToolVersion = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testToolDetails where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testToolDetails"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testToolDetails' <$>
(o .:? "toolName") <*> (o .:? "toolVersion"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testToolDetails where
toJSON
GoogleDevtoolsRemoteexecutionV1testToolDetails'{..}
= object
(catMaybes
[("toolName" .=) <$> _gdrvtdToolName,
("toolVersion" .=) <$> _gdrvtdToolVersion])
data BuildBazelRemoteExecutionV2ExecutionCapabilities = BuildBazelRemoteExecutionV2ExecutionCapabilities'
{ _bbrevecExecutionPriorityCapabilities :: !(Maybe BuildBazelRemoteExecutionV2PriorityCapabilities)
, _bbrevecExecEnabled :: !(Maybe Bool)
, _bbrevecDigestFunction :: !(Maybe BuildBazelRemoteExecutionV2ExecutionCapabilitiesDigestFunction)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ExecutionCapabilities
:: BuildBazelRemoteExecutionV2ExecutionCapabilities
buildBazelRemoteExecutionV2ExecutionCapabilities =
BuildBazelRemoteExecutionV2ExecutionCapabilities'
{ _bbrevecExecutionPriorityCapabilities = Nothing
, _bbrevecExecEnabled = Nothing
, _bbrevecDigestFunction = Nothing
}
bbrevecExecutionPriorityCapabilities :: Lens' BuildBazelRemoteExecutionV2ExecutionCapabilities (Maybe BuildBazelRemoteExecutionV2PriorityCapabilities)
bbrevecExecutionPriorityCapabilities
= lens _bbrevecExecutionPriorityCapabilities
(\ s a ->
s{_bbrevecExecutionPriorityCapabilities = a})
bbrevecExecEnabled :: Lens' BuildBazelRemoteExecutionV2ExecutionCapabilities (Maybe Bool)
bbrevecExecEnabled
= lens _bbrevecExecEnabled
(\ s a -> s{_bbrevecExecEnabled = a})
bbrevecDigestFunction :: Lens' BuildBazelRemoteExecutionV2ExecutionCapabilities (Maybe BuildBazelRemoteExecutionV2ExecutionCapabilitiesDigestFunction)
bbrevecDigestFunction
= lens _bbrevecDigestFunction
(\ s a -> s{_bbrevecDigestFunction = a})
instance FromJSON
BuildBazelRemoteExecutionV2ExecutionCapabilities
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2ExecutionCapabilities"
(\ o ->
BuildBazelRemoteExecutionV2ExecutionCapabilities' <$>
(o .:? "executionPriorityCapabilities") <*>
(o .:? "execEnabled")
<*> (o .:? "digestFunction"))
instance ToJSON
BuildBazelRemoteExecutionV2ExecutionCapabilities
where
toJSON
BuildBazelRemoteExecutionV2ExecutionCapabilities'{..}
= object
(catMaybes
[("executionPriorityCapabilities" .=) <$>
_bbrevecExecutionPriorityCapabilities,
("execEnabled" .=) <$> _bbrevecExecEnabled,
("digestFunction" .=) <$> _bbrevecDigestFunction])
data GoogleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest = GoogleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest'
{ _gdravuwprUpdateMask :: !(Maybe GFieldMask)
, _gdravuwprWorkerPool :: !(Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest
googleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest'
{ _gdravuwprUpdateMask = Nothing
, _gdravuwprWorkerPool = Nothing
}
gdravuwprUpdateMask :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest (Maybe GFieldMask)
gdravuwprUpdateMask
= lens _gdravuwprUpdateMask
(\ s a -> s{_gdravuwprUpdateMask = a})
gdravuwprWorkerPool :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest (Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool)
gdravuwprWorkerPool
= lens _gdravuwprWorkerPool
(\ s a -> s{_gdravuwprWorkerPool = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest'
<$> (o .:? "updateMask") <*> (o .:? "workerPool"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaUpdateWorkerPoolRequest'{..}
= object
(catMaybes
[("updateMask" .=) <$> _gdravuwprUpdateMask,
("workerPool" .=) <$> _gdravuwprWorkerPool])
newtype BuildBazelRemoteExecutionV2BatchReadBlobsRequest = BuildBazelRemoteExecutionV2BatchReadBlobsRequest'
{ _bbrevbrbrDigests :: Maybe [BuildBazelRemoteExecutionV2Digest]
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2BatchReadBlobsRequest
:: BuildBazelRemoteExecutionV2BatchReadBlobsRequest
buildBazelRemoteExecutionV2BatchReadBlobsRequest =
BuildBazelRemoteExecutionV2BatchReadBlobsRequest'
{ _bbrevbrbrDigests = Nothing
}
bbrevbrbrDigests :: Lens' BuildBazelRemoteExecutionV2BatchReadBlobsRequest [BuildBazelRemoteExecutionV2Digest]
bbrevbrbrDigests
= lens _bbrevbrbrDigests
(\ s a -> s{_bbrevbrbrDigests = a})
. _Default
. _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2BatchReadBlobsRequest
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2BatchReadBlobsRequest"
(\ o ->
BuildBazelRemoteExecutionV2BatchReadBlobsRequest' <$>
(o .:? "digests" .!= mempty))
instance ToJSON
BuildBazelRemoteExecutionV2BatchReadBlobsRequest
where
toJSON
BuildBazelRemoteExecutionV2BatchReadBlobsRequest'{..}
= object
(catMaybes [("digests" .=) <$> _bbrevbrbrDigests])
data GoogleDevtoolsRemoteexecutionV1testOutputFile = GoogleDevtoolsRemoteexecutionV1testOutputFile'
{ _gdrvofPath :: !(Maybe Text)
, _gdrvofContent :: !(Maybe Bytes)
, _gdrvofIsExecutable :: !(Maybe Bool)
, _gdrvofDigest :: !(Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testOutputFile
:: GoogleDevtoolsRemoteexecutionV1testOutputFile
googleDevtoolsRemoteexecutionV1testOutputFile =
GoogleDevtoolsRemoteexecutionV1testOutputFile'
{ _gdrvofPath = Nothing
, _gdrvofContent = Nothing
, _gdrvofIsExecutable = Nothing
, _gdrvofDigest = Nothing
}
gdrvofPath :: Lens' GoogleDevtoolsRemoteexecutionV1testOutputFile (Maybe Text)
gdrvofPath
= lens _gdrvofPath (\ s a -> s{_gdrvofPath = a})
gdrvofContent :: Lens' GoogleDevtoolsRemoteexecutionV1testOutputFile (Maybe ByteString)
gdrvofContent
= lens _gdrvofContent
(\ s a -> s{_gdrvofContent = a})
. mapping _Bytes
gdrvofIsExecutable :: Lens' GoogleDevtoolsRemoteexecutionV1testOutputFile (Maybe Bool)
gdrvofIsExecutable
= lens _gdrvofIsExecutable
(\ s a -> s{_gdrvofIsExecutable = a})
gdrvofDigest :: Lens' GoogleDevtoolsRemoteexecutionV1testOutputFile (Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
gdrvofDigest
= lens _gdrvofDigest (\ s a -> s{_gdrvofDigest = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testOutputFile where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testOutputFile"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testOutputFile' <$>
(o .:? "path") <*> (o .:? "content") <*>
(o .:? "isExecutable")
<*> (o .:? "digest"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testOutputFile where
toJSON
GoogleDevtoolsRemoteexecutionV1testOutputFile'{..}
= object
(catMaybes
[("path" .=) <$> _gdrvofPath,
("content" .=) <$> _gdrvofContent,
("isExecutable" .=) <$> _gdrvofIsExecutable,
("digest" .=) <$> _gdrvofDigest])
data GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool = GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool'
{ _gdravwpWorkerConfig :: !(Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig)
, _gdravwpState :: !(Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPoolState)
, _gdravwpWorkerCount :: !(Maybe (Textual Int64))
, _gdravwpName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool
googleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool'
{ _gdravwpWorkerConfig = Nothing
, _gdravwpState = Nothing
, _gdravwpWorkerCount = Nothing
, _gdravwpName = Nothing
}
gdravwpWorkerConfig :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool (Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig)
gdravwpWorkerConfig
= lens _gdravwpWorkerConfig
(\ s a -> s{_gdravwpWorkerConfig = a})
gdravwpState :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool (Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPoolState)
gdravwpState
= lens _gdravwpState (\ s a -> s{_gdravwpState = a})
gdravwpWorkerCount :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool (Maybe Int64)
gdravwpWorkerCount
= lens _gdravwpWorkerCount
(\ s a -> s{_gdravwpWorkerCount = a})
. mapping _Coerce
gdravwpName :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool (Maybe Text)
gdravwpName
= lens _gdravwpName (\ s a -> s{_gdravwpName = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool'
<$>
(o .:? "workerConfig") <*> (o .:? "state") <*>
(o .:? "workerCount")
<*> (o .:? "name"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool'{..}
= object
(catMaybes
[("workerConfig" .=) <$> _gdravwpWorkerConfig,
("state" .=) <$> _gdravwpState,
("workerCount" .=) <$> _gdravwpWorkerCount,
("name" .=) <$> _gdravwpName])
data BuildBazelRemoteExecutionV2SymlinkNode = BuildBazelRemoteExecutionV2SymlinkNode'
{ _bbrevsnName :: !(Maybe Text)
, _bbrevsnTarget :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2SymlinkNode
:: BuildBazelRemoteExecutionV2SymlinkNode
buildBazelRemoteExecutionV2SymlinkNode =
BuildBazelRemoteExecutionV2SymlinkNode'
{ _bbrevsnName = Nothing
, _bbrevsnTarget = Nothing
}
bbrevsnName :: Lens' BuildBazelRemoteExecutionV2SymlinkNode (Maybe Text)
bbrevsnName
= lens _bbrevsnName (\ s a -> s{_bbrevsnName = a})
bbrevsnTarget :: Lens' BuildBazelRemoteExecutionV2SymlinkNode (Maybe Text)
bbrevsnTarget
= lens _bbrevsnTarget
(\ s a -> s{_bbrevsnTarget = a})
instance FromJSON
BuildBazelRemoteExecutionV2SymlinkNode where
parseJSON
= withObject "BuildBazelRemoteExecutionV2SymlinkNode"
(\ o ->
BuildBazelRemoteExecutionV2SymlinkNode' <$>
(o .:? "name") <*> (o .:? "target"))
instance ToJSON
BuildBazelRemoteExecutionV2SymlinkNode where
toJSON BuildBazelRemoteExecutionV2SymlinkNode'{..}
= object
(catMaybes
[("name" .=) <$> _bbrevsnName,
("target" .=) <$> _bbrevsnTarget])
newtype GoogleRpcStatusDetailsItem = GoogleRpcStatusDetailsItem'
{ _grsdiAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
googleRpcStatusDetailsItem
:: HashMap Text JSONValue
-> GoogleRpcStatusDetailsItem
googleRpcStatusDetailsItem pGrsdiAddtional_ =
GoogleRpcStatusDetailsItem'
{ _grsdiAddtional = _Coerce # pGrsdiAddtional_
}
grsdiAddtional :: Lens' GoogleRpcStatusDetailsItem (HashMap Text JSONValue)
grsdiAddtional
= lens _grsdiAddtional
(\ s a -> s{_grsdiAddtional = a})
. _Coerce
instance FromJSON GoogleRpcStatusDetailsItem where
parseJSON
= withObject "GoogleRpcStatusDetailsItem"
(\ o ->
GoogleRpcStatusDetailsItem' <$> (parseJSONObject o))
instance ToJSON GoogleRpcStatusDetailsItem where
toJSON = toJSON . _grsdiAddtional
data GoogleDevtoolsRemoteexecutionV1testDirectoryNode = GoogleDevtoolsRemoteexecutionV1testDirectoryNode'
{ _gdrvdnName :: !(Maybe Text)
, _gdrvdnDigest :: !(Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testDirectoryNode
:: GoogleDevtoolsRemoteexecutionV1testDirectoryNode
googleDevtoolsRemoteexecutionV1testDirectoryNode =
GoogleDevtoolsRemoteexecutionV1testDirectoryNode'
{ _gdrvdnName = Nothing
, _gdrvdnDigest = Nothing
}
gdrvdnName :: Lens' GoogleDevtoolsRemoteexecutionV1testDirectoryNode (Maybe Text)
gdrvdnName
= lens _gdrvdnName (\ s a -> s{_gdrvdnName = a})
gdrvdnDigest :: Lens' GoogleDevtoolsRemoteexecutionV1testDirectoryNode (Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
gdrvdnDigest
= lens _gdrvdnDigest (\ s a -> s{_gdrvdnDigest = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testDirectoryNode
where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testDirectoryNode"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testDirectoryNode' <$>
(o .:? "name") <*> (o .:? "digest"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testDirectoryNode
where
toJSON
GoogleDevtoolsRemoteexecutionV1testDirectoryNode'{..}
= object
(catMaybes
[("name" .=) <$> _gdrvdnName,
("digest" .=) <$> _gdrvdnDigest])
data GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata = GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata'
{ _gdrvdmPath :: !(Maybe Text)
, _gdrvdmDigest :: !(Maybe GoogleDevtoolsRemoteworkersV1test2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2DirectoryMetadata
:: GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata
googleDevtoolsRemoteworkersV1test2DirectoryMetadata =
GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata'
{ _gdrvdmPath = Nothing
, _gdrvdmDigest = Nothing
}
gdrvdmPath :: Lens' GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata (Maybe Text)
gdrvdmPath
= lens _gdrvdmPath (\ s a -> s{_gdrvdmPath = a})
gdrvdmDigest :: Lens' GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata (Maybe GoogleDevtoolsRemoteworkersV1test2Digest)
gdrvdmDigest
= lens _gdrvdmDigest (\ s a -> s{_gdrvdmDigest = a})
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata
where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata'
<$> (o .:? "path") <*> (o .:? "digest"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata
where
toJSON
GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata'{..}
= object
(catMaybes
[("path" .=) <$> _gdrvdmPath,
("digest" .=) <$> _gdrvdmDigest])
data GoogleDevtoolsRemoteexecutionV1testDirectory = GoogleDevtoolsRemoteexecutionV1testDirectory'
{ _gdrvdDirectories :: !(Maybe [GoogleDevtoolsRemoteexecutionV1testDirectoryNode])
, _gdrvdFiles :: !(Maybe [GoogleDevtoolsRemoteexecutionV1testFileNode])
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testDirectory
:: GoogleDevtoolsRemoteexecutionV1testDirectory
googleDevtoolsRemoteexecutionV1testDirectory =
GoogleDevtoolsRemoteexecutionV1testDirectory'
{ _gdrvdDirectories = Nothing
, _gdrvdFiles = Nothing
}
gdrvdDirectories :: Lens' GoogleDevtoolsRemoteexecutionV1testDirectory [GoogleDevtoolsRemoteexecutionV1testDirectoryNode]
gdrvdDirectories
= lens _gdrvdDirectories
(\ s a -> s{_gdrvdDirectories = a})
. _Default
. _Coerce
gdrvdFiles :: Lens' GoogleDevtoolsRemoteexecutionV1testDirectory [GoogleDevtoolsRemoteexecutionV1testFileNode]
gdrvdFiles
= lens _gdrvdFiles (\ s a -> s{_gdrvdFiles = a}) .
_Default
. _Coerce
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testDirectory where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testDirectory"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testDirectory' <$>
(o .:? "directories" .!= mempty) <*>
(o .:? "files" .!= mempty))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testDirectory where
toJSON
GoogleDevtoolsRemoteexecutionV1testDirectory'{..}
= object
(catMaybes
[("directories" .=) <$> _gdrvdDirectories,
("files" .=) <$> _gdrvdFiles])
data BuildBazelRemoteExecutionV2ActionResult = BuildBazelRemoteExecutionV2ActionResult'
{ _bbrevarExecutionMetadata :: !(Maybe BuildBazelRemoteExecutionV2ExecutedActionMetadata)
, _bbrevarOutputDirectorySymlinks :: !(Maybe [BuildBazelRemoteExecutionV2OutputSymlink])
, _bbrevarOutputFileSymlinks :: !(Maybe [BuildBazelRemoteExecutionV2OutputSymlink])
, _bbrevarOutputDirectories :: !(Maybe [BuildBazelRemoteExecutionV2OutputDirectory])
, _bbrevarOutputFiles :: !(Maybe [BuildBazelRemoteExecutionV2OutputFile])
, _bbrevarStderrRaw :: !(Maybe Bytes)
, _bbrevarExitCode :: !(Maybe (Textual Int32))
, _bbrevarStdoutDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
, _bbrevarStderrDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
, _bbrevarStdoutRaw :: !(Maybe Bytes)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ActionResult
:: BuildBazelRemoteExecutionV2ActionResult
buildBazelRemoteExecutionV2ActionResult =
BuildBazelRemoteExecutionV2ActionResult'
{ _bbrevarExecutionMetadata = Nothing
, _bbrevarOutputDirectorySymlinks = Nothing
, _bbrevarOutputFileSymlinks = Nothing
, _bbrevarOutputDirectories = Nothing
, _bbrevarOutputFiles = Nothing
, _bbrevarStderrRaw = Nothing
, _bbrevarExitCode = Nothing
, _bbrevarStdoutDigest = Nothing
, _bbrevarStderrDigest = Nothing
, _bbrevarStdoutRaw = Nothing
}
bbrevarExecutionMetadata :: Lens' BuildBazelRemoteExecutionV2ActionResult (Maybe BuildBazelRemoteExecutionV2ExecutedActionMetadata)
bbrevarExecutionMetadata
= lens _bbrevarExecutionMetadata
(\ s a -> s{_bbrevarExecutionMetadata = a})
bbrevarOutputDirectorySymlinks :: Lens' BuildBazelRemoteExecutionV2ActionResult [BuildBazelRemoteExecutionV2OutputSymlink]
bbrevarOutputDirectorySymlinks
= lens _bbrevarOutputDirectorySymlinks
(\ s a -> s{_bbrevarOutputDirectorySymlinks = a})
. _Default
. _Coerce
bbrevarOutputFileSymlinks :: Lens' BuildBazelRemoteExecutionV2ActionResult [BuildBazelRemoteExecutionV2OutputSymlink]
bbrevarOutputFileSymlinks
= lens _bbrevarOutputFileSymlinks
(\ s a -> s{_bbrevarOutputFileSymlinks = a})
. _Default
. _Coerce
bbrevarOutputDirectories :: Lens' BuildBazelRemoteExecutionV2ActionResult [BuildBazelRemoteExecutionV2OutputDirectory]
bbrevarOutputDirectories
= lens _bbrevarOutputDirectories
(\ s a -> s{_bbrevarOutputDirectories = a})
. _Default
. _Coerce
bbrevarOutputFiles :: Lens' BuildBazelRemoteExecutionV2ActionResult [BuildBazelRemoteExecutionV2OutputFile]
bbrevarOutputFiles
= lens _bbrevarOutputFiles
(\ s a -> s{_bbrevarOutputFiles = a})
. _Default
. _Coerce
bbrevarStderrRaw :: Lens' BuildBazelRemoteExecutionV2ActionResult (Maybe ByteString)
bbrevarStderrRaw
= lens _bbrevarStderrRaw
(\ s a -> s{_bbrevarStderrRaw = a})
. mapping _Bytes
bbrevarExitCode :: Lens' BuildBazelRemoteExecutionV2ActionResult (Maybe Int32)
bbrevarExitCode
= lens _bbrevarExitCode
(\ s a -> s{_bbrevarExitCode = a})
. mapping _Coerce
bbrevarStdoutDigest :: Lens' BuildBazelRemoteExecutionV2ActionResult (Maybe BuildBazelRemoteExecutionV2Digest)
bbrevarStdoutDigest
= lens _bbrevarStdoutDigest
(\ s a -> s{_bbrevarStdoutDigest = a})
bbrevarStderrDigest :: Lens' BuildBazelRemoteExecutionV2ActionResult (Maybe BuildBazelRemoteExecutionV2Digest)
bbrevarStderrDigest
= lens _bbrevarStderrDigest
(\ s a -> s{_bbrevarStderrDigest = a})
bbrevarStdoutRaw :: Lens' BuildBazelRemoteExecutionV2ActionResult (Maybe ByteString)
bbrevarStdoutRaw
= lens _bbrevarStdoutRaw
(\ s a -> s{_bbrevarStdoutRaw = a})
. mapping _Bytes
instance FromJSON
BuildBazelRemoteExecutionV2ActionResult where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2ActionResult"
(\ o ->
BuildBazelRemoteExecutionV2ActionResult' <$>
(o .:? "executionMetadata") <*>
(o .:? "outputDirectorySymlinks" .!= mempty)
<*> (o .:? "outputFileSymlinks" .!= mempty)
<*> (o .:? "outputDirectories" .!= mempty)
<*> (o .:? "outputFiles" .!= mempty)
<*> (o .:? "stderrRaw")
<*> (o .:? "exitCode")
<*> (o .:? "stdoutDigest")
<*> (o .:? "stderrDigest")
<*> (o .:? "stdoutRaw"))
instance ToJSON
BuildBazelRemoteExecutionV2ActionResult where
toJSON BuildBazelRemoteExecutionV2ActionResult'{..}
= object
(catMaybes
[("executionMetadata" .=) <$>
_bbrevarExecutionMetadata,
("outputDirectorySymlinks" .=) <$>
_bbrevarOutputDirectorySymlinks,
("outputFileSymlinks" .=) <$>
_bbrevarOutputFileSymlinks,
("outputDirectories" .=) <$>
_bbrevarOutputDirectories,
("outputFiles" .=) <$> _bbrevarOutputFiles,
("stderrRaw" .=) <$> _bbrevarStderrRaw,
("exitCode" .=) <$> _bbrevarExitCode,
("stdoutDigest" .=) <$> _bbrevarStdoutDigest,
("stderrDigest" .=) <$> _bbrevarStderrDigest,
("stdoutRaw" .=) <$> _bbrevarStdoutRaw])
newtype GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest = GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest'
{ _gdravdwprName :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest
googleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest'
{ _gdravdwprName = Nothing
}
gdravdwprName :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest (Maybe Text)
gdravdwprName
= lens _gdravdwprName
(\ s a -> s{_gdravdwprName = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest'
<$> (o .:? "name"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteWorkerPoolRequest'{..}
= object (catMaybes [("name" .=) <$> _gdravdwprName])
data GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable = GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable'
{ _gdrvctievValue :: !(Maybe Text)
, _gdrvctievName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable
:: GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable
googleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable =
GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable'
{ _gdrvctievValue = Nothing
, _gdrvctievName = Nothing
}
gdrvctievValue :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable (Maybe Text)
gdrvctievValue
= lens _gdrvctievValue
(\ s a -> s{_gdrvctievValue = a})
gdrvctievName :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable (Maybe Text)
gdrvctievName
= lens _gdrvctievName
(\ s a -> s{_gdrvctievName = a})
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable
where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable'
<$> (o .:? "value") <*> (o .:? "name"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable
where
toJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable'{..}
= object
(catMaybes
[("value" .=) <$> _gdrvctievValue,
("name" .=) <$> _gdrvctievName])
data GoogleDevtoolsRemoteexecutionV1testExecuteResponse = GoogleDevtoolsRemoteexecutionV1testExecuteResponse'
{ _gdrverStatus :: !(Maybe GoogleRpcStatus)
, _gdrverServerLogs :: !(Maybe GoogleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs)
, _gdrverResult :: !(Maybe GoogleDevtoolsRemoteexecutionV1testActionResult)
, _gdrverCachedResult :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testExecuteResponse
:: GoogleDevtoolsRemoteexecutionV1testExecuteResponse
googleDevtoolsRemoteexecutionV1testExecuteResponse =
GoogleDevtoolsRemoteexecutionV1testExecuteResponse'
{ _gdrverStatus = Nothing
, _gdrverServerLogs = Nothing
, _gdrverResult = Nothing
, _gdrverCachedResult = Nothing
}
gdrverStatus :: Lens' GoogleDevtoolsRemoteexecutionV1testExecuteResponse (Maybe GoogleRpcStatus)
gdrverStatus
= lens _gdrverStatus (\ s a -> s{_gdrverStatus = a})
gdrverServerLogs :: Lens' GoogleDevtoolsRemoteexecutionV1testExecuteResponse (Maybe GoogleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs)
gdrverServerLogs
= lens _gdrverServerLogs
(\ s a -> s{_gdrverServerLogs = a})
gdrverResult :: Lens' GoogleDevtoolsRemoteexecutionV1testExecuteResponse (Maybe GoogleDevtoolsRemoteexecutionV1testActionResult)
gdrverResult
= lens _gdrverResult (\ s a -> s{_gdrverResult = a})
gdrverCachedResult :: Lens' GoogleDevtoolsRemoteexecutionV1testExecuteResponse (Maybe Bool)
gdrverCachedResult
= lens _gdrverCachedResult
(\ s a -> s{_gdrverCachedResult = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testExecuteResponse
where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testExecuteResponse"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testExecuteResponse'
<$>
(o .:? "status") <*> (o .:? "serverLogs") <*>
(o .:? "result")
<*> (o .:? "cachedResult"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testExecuteResponse
where
toJSON
GoogleDevtoolsRemoteexecutionV1testExecuteResponse'{..}
= object
(catMaybes
[("status" .=) <$> _gdrverStatus,
("serverLogs" .=) <$> _gdrverServerLogs,
("result" .=) <$> _gdrverResult,
("cachedResult" .=) <$> _gdrverCachedResult])
data BuildBazelSemverSemVer = BuildBazelSemverSemVer'
{ _bbssvMinor :: !(Maybe (Textual Int32))
, _bbssvMajor :: !(Maybe (Textual Int32))
, _bbssvPatch :: !(Maybe (Textual Int32))
, _bbssvPrerelease :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelSemverSemVer
:: BuildBazelSemverSemVer
buildBazelSemverSemVer =
BuildBazelSemverSemVer'
{ _bbssvMinor = Nothing
, _bbssvMajor = Nothing
, _bbssvPatch = Nothing
, _bbssvPrerelease = Nothing
}
bbssvMinor :: Lens' BuildBazelSemverSemVer (Maybe Int32)
bbssvMinor
= lens _bbssvMinor (\ s a -> s{_bbssvMinor = a}) .
mapping _Coerce
bbssvMajor :: Lens' BuildBazelSemverSemVer (Maybe Int32)
bbssvMajor
= lens _bbssvMajor (\ s a -> s{_bbssvMajor = a}) .
mapping _Coerce
bbssvPatch :: Lens' BuildBazelSemverSemVer (Maybe Int32)
bbssvPatch
= lens _bbssvPatch (\ s a -> s{_bbssvPatch = a}) .
mapping _Coerce
bbssvPrerelease :: Lens' BuildBazelSemverSemVer (Maybe Text)
bbssvPrerelease
= lens _bbssvPrerelease
(\ s a -> s{_bbssvPrerelease = a})
instance FromJSON BuildBazelSemverSemVer where
parseJSON
= withObject "BuildBazelSemverSemVer"
(\ o ->
BuildBazelSemverSemVer' <$>
(o .:? "minor") <*> (o .:? "major") <*>
(o .:? "patch")
<*> (o .:? "prerelease"))
instance ToJSON BuildBazelSemverSemVer where
toJSON BuildBazelSemverSemVer'{..}
= object
(catMaybes
[("minor" .=) <$> _bbssvMinor,
("major" .=) <$> _bbssvMajor,
("patch" .=) <$> _bbssvPatch,
("prerelease" .=) <$> _bbssvPrerelease])
data GoogleDevtoolsRemoteworkersV1test2CommandOverhead = GoogleDevtoolsRemoteworkersV1test2CommandOverhead'
{ _gdrvcoOverhead :: !(Maybe GDuration)
, _gdrvcoDuration :: !(Maybe GDuration)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2CommandOverhead
:: GoogleDevtoolsRemoteworkersV1test2CommandOverhead
googleDevtoolsRemoteworkersV1test2CommandOverhead =
GoogleDevtoolsRemoteworkersV1test2CommandOverhead'
{ _gdrvcoOverhead = Nothing
, _gdrvcoDuration = Nothing
}
gdrvcoOverhead :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandOverhead (Maybe Scientific)
gdrvcoOverhead
= lens _gdrvcoOverhead
(\ s a -> s{_gdrvcoOverhead = a})
. mapping _GDuration
gdrvcoDuration :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandOverhead (Maybe Scientific)
gdrvcoDuration
= lens _gdrvcoDuration
(\ s a -> s{_gdrvcoDuration = a})
. mapping _GDuration
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2CommandOverhead
where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2CommandOverhead"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2CommandOverhead'
<$> (o .:? "overhead") <*> (o .:? "duration"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2CommandOverhead
where
toJSON
GoogleDevtoolsRemoteworkersV1test2CommandOverhead'{..}
= object
(catMaybes
[("overhead" .=) <$> _gdrvcoOverhead,
("duration" .=) <$> _gdrvcoDuration])
data BuildBazelRemoteExecutionV2LogFile = BuildBazelRemoteExecutionV2LogFile'
{ _bbrevlfHumanReadable :: !(Maybe Bool)
, _bbrevlfDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2LogFile
:: BuildBazelRemoteExecutionV2LogFile
buildBazelRemoteExecutionV2LogFile =
BuildBazelRemoteExecutionV2LogFile'
{ _bbrevlfHumanReadable = Nothing
, _bbrevlfDigest = Nothing
}
bbrevlfHumanReadable :: Lens' BuildBazelRemoteExecutionV2LogFile (Maybe Bool)
bbrevlfHumanReadable
= lens _bbrevlfHumanReadable
(\ s a -> s{_bbrevlfHumanReadable = a})
bbrevlfDigest :: Lens' BuildBazelRemoteExecutionV2LogFile (Maybe BuildBazelRemoteExecutionV2Digest)
bbrevlfDigest
= lens _bbrevlfDigest
(\ s a -> s{_bbrevlfDigest = a})
instance FromJSON BuildBazelRemoteExecutionV2LogFile
where
parseJSON
= withObject "BuildBazelRemoteExecutionV2LogFile"
(\ o ->
BuildBazelRemoteExecutionV2LogFile' <$>
(o .:? "humanReadable") <*> (o .:? "digest"))
instance ToJSON BuildBazelRemoteExecutionV2LogFile
where
toJSON BuildBazelRemoteExecutionV2LogFile'{..}
= object
(catMaybes
[("humanReadable" .=) <$> _bbrevlfHumanReadable,
("digest" .=) <$> _bbrevlfDigest])
data GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest = GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest'
{ _gdravcwprParent :: !(Maybe Text)
, _gdravcwprPoolId :: !(Maybe Text)
, _gdravcwprWorkerPool :: !(Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest
googleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest'
{ _gdravcwprParent = Nothing
, _gdravcwprPoolId = Nothing
, _gdravcwprWorkerPool = Nothing
}
gdravcwprParent :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest (Maybe Text)
gdravcwprParent
= lens _gdravcwprParent
(\ s a -> s{_gdravcwprParent = a})
gdravcwprPoolId :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest (Maybe Text)
gdravcwprPoolId
= lens _gdravcwprPoolId
(\ s a -> s{_gdravcwprPoolId = a})
gdravcwprWorkerPool :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest (Maybe GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool)
gdravcwprWorkerPool
= lens _gdravcwprWorkerPool
(\ s a -> s{_gdravcwprWorkerPool = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest'
<$>
(o .:? "parent") <*> (o .:? "poolId") <*>
(o .:? "workerPool"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaCreateWorkerPoolRequest'{..}
= object
(catMaybes
[("parent" .=) <$> _gdravcwprParent,
("poolId" .=) <$> _gdravcwprPoolId,
("workerPool" .=) <$> _gdravcwprWorkerPool])
data GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable = GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable'
{ _gdrvcevValue :: !(Maybe Text)
, _gdrvcevName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable
:: GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable
googleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable =
GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable'
{ _gdrvcevValue = Nothing
, _gdrvcevName = Nothing
}
gdrvcevValue :: Lens' GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable (Maybe Text)
gdrvcevValue
= lens _gdrvcevValue (\ s a -> s{_gdrvcevValue = a})
gdrvcevName :: Lens' GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable (Maybe Text)
gdrvcevName
= lens _gdrvcevName (\ s a -> s{_gdrvcevName = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable
where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable'
<$> (o .:? "value") <*> (o .:? "name"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable
where
toJSON
GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable'{..}
= object
(catMaybes
[("value" .=) <$> _gdrvcevValue,
("name" .=) <$> _gdrvcevName])
newtype BuildBazelRemoteExecutionV2FindMissingBlobsResponse = BuildBazelRemoteExecutionV2FindMissingBlobsResponse'
{ _bbrevfmbrMissingBlobDigests :: Maybe [BuildBazelRemoteExecutionV2Digest]
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2FindMissingBlobsResponse
:: BuildBazelRemoteExecutionV2FindMissingBlobsResponse
buildBazelRemoteExecutionV2FindMissingBlobsResponse =
BuildBazelRemoteExecutionV2FindMissingBlobsResponse'
{ _bbrevfmbrMissingBlobDigests = Nothing
}
bbrevfmbrMissingBlobDigests :: Lens' BuildBazelRemoteExecutionV2FindMissingBlobsResponse [BuildBazelRemoteExecutionV2Digest]
bbrevfmbrMissingBlobDigests
= lens _bbrevfmbrMissingBlobDigests
(\ s a -> s{_bbrevfmbrMissingBlobDigests = a})
. _Default
. _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2FindMissingBlobsResponse
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2FindMissingBlobsResponse"
(\ o ->
BuildBazelRemoteExecutionV2FindMissingBlobsResponse'
<$> (o .:? "missingBlobDigests" .!= mempty))
instance ToJSON
BuildBazelRemoteExecutionV2FindMissingBlobsResponse
where
toJSON
BuildBazelRemoteExecutionV2FindMissingBlobsResponse'{..}
= object
(catMaybes
[("missingBlobDigests" .=) <$>
_bbrevfmbrMissingBlobDigests])
data GoogleDevtoolsRemoteworkersV1test2Directory = GoogleDevtoolsRemoteworkersV1test2Directory'
{ _gDirectories :: !(Maybe [GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata])
, _gFiles :: !(Maybe [GoogleDevtoolsRemoteworkersV1test2FileMetadata])
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2Directory
:: GoogleDevtoolsRemoteworkersV1test2Directory
googleDevtoolsRemoteworkersV1test2Directory =
GoogleDevtoolsRemoteworkersV1test2Directory'
{ _gDirectories = Nothing
, _gFiles = Nothing
}
gDirectories :: Lens' GoogleDevtoolsRemoteworkersV1test2Directory [GoogleDevtoolsRemoteworkersV1test2DirectoryMetadata]
gDirectories
= lens _gDirectories (\ s a -> s{_gDirectories = a})
. _Default
. _Coerce
gFiles :: Lens' GoogleDevtoolsRemoteworkersV1test2Directory [GoogleDevtoolsRemoteworkersV1test2FileMetadata]
gFiles
= lens _gFiles (\ s a -> s{_gFiles = a}) . _Default .
_Coerce
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2Directory where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2Directory"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2Directory' <$>
(o .:? "directories" .!= mempty) <*>
(o .:? "files" .!= mempty))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2Directory where
toJSON
GoogleDevtoolsRemoteworkersV1test2Directory'{..}
= object
(catMaybes
[("directories" .=) <$> _gDirectories,
("files" .=) <$> _gFiles])
data GoogleDevtoolsRemoteexecutionV1testRequestMetadata = GoogleDevtoolsRemoteexecutionV1testRequestMetadata'
{ _gdrvrmCorrelatedInvocationsId :: !(Maybe Text)
, _gdrvrmToolInvocationId :: !(Maybe Text)
, _gdrvrmActionId :: !(Maybe Text)
, _gdrvrmToolDetails :: !(Maybe GoogleDevtoolsRemoteexecutionV1testToolDetails)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testRequestMetadata
:: GoogleDevtoolsRemoteexecutionV1testRequestMetadata
googleDevtoolsRemoteexecutionV1testRequestMetadata =
GoogleDevtoolsRemoteexecutionV1testRequestMetadata'
{ _gdrvrmCorrelatedInvocationsId = Nothing
, _gdrvrmToolInvocationId = Nothing
, _gdrvrmActionId = Nothing
, _gdrvrmToolDetails = Nothing
}
gdrvrmCorrelatedInvocationsId :: Lens' GoogleDevtoolsRemoteexecutionV1testRequestMetadata (Maybe Text)
gdrvrmCorrelatedInvocationsId
= lens _gdrvrmCorrelatedInvocationsId
(\ s a -> s{_gdrvrmCorrelatedInvocationsId = a})
gdrvrmToolInvocationId :: Lens' GoogleDevtoolsRemoteexecutionV1testRequestMetadata (Maybe Text)
gdrvrmToolInvocationId
= lens _gdrvrmToolInvocationId
(\ s a -> s{_gdrvrmToolInvocationId = a})
gdrvrmActionId :: Lens' GoogleDevtoolsRemoteexecutionV1testRequestMetadata (Maybe Text)
gdrvrmActionId
= lens _gdrvrmActionId
(\ s a -> s{_gdrvrmActionId = a})
gdrvrmToolDetails :: Lens' GoogleDevtoolsRemoteexecutionV1testRequestMetadata (Maybe GoogleDevtoolsRemoteexecutionV1testToolDetails)
gdrvrmToolDetails
= lens _gdrvrmToolDetails
(\ s a -> s{_gdrvrmToolDetails = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testRequestMetadata
where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testRequestMetadata"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testRequestMetadata'
<$>
(o .:? "correlatedInvocationsId") <*>
(o .:? "toolInvocationId")
<*> (o .:? "actionId")
<*> (o .:? "toolDetails"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testRequestMetadata
where
toJSON
GoogleDevtoolsRemoteexecutionV1testRequestMetadata'{..}
= object
(catMaybes
[("correlatedInvocationsId" .=) <$>
_gdrvrmCorrelatedInvocationsId,
("toolInvocationId" .=) <$> _gdrvrmToolInvocationId,
("actionId" .=) <$> _gdrvrmActionId,
("toolDetails" .=) <$> _gdrvrmToolDetails])
newtype BuildBazelRemoteExecutionV2ExecutionPolicy = BuildBazelRemoteExecutionV2ExecutionPolicy'
{ _bbrevepPriority :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ExecutionPolicy
:: BuildBazelRemoteExecutionV2ExecutionPolicy
buildBazelRemoteExecutionV2ExecutionPolicy =
BuildBazelRemoteExecutionV2ExecutionPolicy'
{ _bbrevepPriority = Nothing
}
bbrevepPriority :: Lens' BuildBazelRemoteExecutionV2ExecutionPolicy (Maybe Int32)
bbrevepPriority
= lens _bbrevepPriority
(\ s a -> s{_bbrevepPriority = a})
. mapping _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2ExecutionPolicy where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2ExecutionPolicy"
(\ o ->
BuildBazelRemoteExecutionV2ExecutionPolicy' <$>
(o .:? "priority"))
instance ToJSON
BuildBazelRemoteExecutionV2ExecutionPolicy where
toJSON
BuildBazelRemoteExecutionV2ExecutionPolicy'{..}
= object
(catMaybes [("priority" .=) <$> _bbrevepPriority])
newtype BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities = BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities'
{ _bbrevacucUpdateEnabled :: Maybe Bool
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ActionCacheUpdateCapabilities
:: BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities
buildBazelRemoteExecutionV2ActionCacheUpdateCapabilities =
BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities'
{ _bbrevacucUpdateEnabled = Nothing
}
bbrevacucUpdateEnabled :: Lens' BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities (Maybe Bool)
bbrevacucUpdateEnabled
= lens _bbrevacucUpdateEnabled
(\ s a -> s{_bbrevacucUpdateEnabled = a})
instance FromJSON
BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities"
(\ o ->
BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities'
<$> (o .:? "updateEnabled"))
instance ToJSON
BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities
where
toJSON
BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities'{..}
= object
(catMaybes
[("updateEnabled" .=) <$> _bbrevacucUpdateEnabled])
data BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest = BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest'
{ _bbrevbubrrData :: !(Maybe Bytes)
, _bbrevbubrrDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest
:: BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest
buildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest =
BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest'
{ _bbrevbubrrData = Nothing
, _bbrevbubrrDigest = Nothing
}
bbrevbubrrData :: Lens' BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest (Maybe ByteString)
bbrevbubrrData
= lens _bbrevbubrrData
(\ s a -> s{_bbrevbubrrData = a})
. mapping _Bytes
bbrevbubrrDigest :: Lens' BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest (Maybe BuildBazelRemoteExecutionV2Digest)
bbrevbubrrDigest
= lens _bbrevbubrrDigest
(\ s a -> s{_bbrevbubrrDigest = a})
instance FromJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest"
(\ o ->
BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest'
<$> (o .:? "data") <*> (o .:? "digest"))
instance ToJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest
where
toJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest'{..}
= object
(catMaybes
[("data" .=) <$> _bbrevbubrrData,
("digest" .=) <$> _bbrevbubrrDigest])
newtype GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse = GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse'
{ _gdravlwprWorkerPools :: Maybe [GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool]
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse
googleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse'
{ _gdravlwprWorkerPools = Nothing
}
gdravlwprWorkerPools :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse [GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerPool]
gdravlwprWorkerPools
= lens _gdravlwprWorkerPools
(\ s a -> s{_gdravlwprWorkerPools = a})
. _Default
. _Coerce
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse'
<$> (o .:? "workerPools" .!= mempty))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsResponse'{..}
= object
(catMaybes
[("workerPools" .=) <$> _gdravlwprWorkerPools])
data GoogleDevtoolsRemoteworkersV1test2CommandResult = GoogleDevtoolsRemoteworkersV1test2CommandResult'
{ _gdrvcrStatus :: !(Maybe GoogleRpcStatus)
, _gdrvcrOverhead :: !(Maybe GDuration)
, _gdrvcrOutputs :: !(Maybe GoogleDevtoolsRemoteworkersV1test2Digest)
, _gdrvcrExitCode :: !(Maybe (Textual Int32))
, _gdrvcrStatistics :: !(Maybe [GoogleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem])
, _gdrvcrDuration :: !(Maybe GDuration)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2CommandResult
:: GoogleDevtoolsRemoteworkersV1test2CommandResult
googleDevtoolsRemoteworkersV1test2CommandResult =
GoogleDevtoolsRemoteworkersV1test2CommandResult'
{ _gdrvcrStatus = Nothing
, _gdrvcrOverhead = Nothing
, _gdrvcrOutputs = Nothing
, _gdrvcrExitCode = Nothing
, _gdrvcrStatistics = Nothing
, _gdrvcrDuration = Nothing
}
gdrvcrStatus :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandResult (Maybe GoogleRpcStatus)
gdrvcrStatus
= lens _gdrvcrStatus (\ s a -> s{_gdrvcrStatus = a})
gdrvcrOverhead :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandResult (Maybe Scientific)
gdrvcrOverhead
= lens _gdrvcrOverhead
(\ s a -> s{_gdrvcrOverhead = a})
. mapping _GDuration
gdrvcrOutputs :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandResult (Maybe GoogleDevtoolsRemoteworkersV1test2Digest)
gdrvcrOutputs
= lens _gdrvcrOutputs
(\ s a -> s{_gdrvcrOutputs = a})
gdrvcrExitCode :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandResult (Maybe Int32)
gdrvcrExitCode
= lens _gdrvcrExitCode
(\ s a -> s{_gdrvcrExitCode = a})
. mapping _Coerce
gdrvcrStatistics :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandResult [GoogleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem]
gdrvcrStatistics
= lens _gdrvcrStatistics
(\ s a -> s{_gdrvcrStatistics = a})
. _Default
. _Coerce
gdrvcrDuration :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandResult (Maybe Scientific)
gdrvcrDuration
= lens _gdrvcrDuration
(\ s a -> s{_gdrvcrDuration = a})
. mapping _GDuration
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2CommandResult where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2CommandResult"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2CommandResult' <$>
(o .:? "status") <*> (o .:? "overhead") <*>
(o .:? "outputs")
<*> (o .:? "exitCode")
<*> (o .:? "statistics" .!= mempty)
<*> (o .:? "duration"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2CommandResult where
toJSON
GoogleDevtoolsRemoteworkersV1test2CommandResult'{..}
= object
(catMaybes
[("status" .=) <$> _gdrvcrStatus,
("overhead" .=) <$> _gdrvcrOverhead,
("outputs" .=) <$> _gdrvcrOutputs,
("exitCode" .=) <$> _gdrvcrExitCode,
("statistics" .=) <$> _gdrvcrStatistics,
("duration" .=) <$> _gdrvcrDuration])
newtype GoogleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem = GoogleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem'
{ _gdrvcrsiAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem
:: HashMap Text JSONValue
-> GoogleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem
googleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem pGdrvcrsiAddtional_ =
GoogleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem'
{ _gdrvcrsiAddtional = _Coerce # pGdrvcrsiAddtional_
}
gdrvcrsiAddtional :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem (HashMap Text JSONValue)
gdrvcrsiAddtional
= lens _gdrvcrsiAddtional
(\ s a -> s{_gdrvcrsiAddtional = a})
. _Coerce
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem
where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem'
<$> (parseJSONObject o))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2CommandResultStatisticsItem
where
toJSON = toJSON . _gdrvcrsiAddtional
data GoogleDevtoolsRemoteexecutionV1testFileNode = GoogleDevtoolsRemoteexecutionV1testFileNode'
{ _gdrvfnName :: !(Maybe Text)
, _gdrvfnIsExecutable :: !(Maybe Bool)
, _gdrvfnDigest :: !(Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testFileNode
:: GoogleDevtoolsRemoteexecutionV1testFileNode
googleDevtoolsRemoteexecutionV1testFileNode =
GoogleDevtoolsRemoteexecutionV1testFileNode'
{ _gdrvfnName = Nothing
, _gdrvfnIsExecutable = Nothing
, _gdrvfnDigest = Nothing
}
gdrvfnName :: Lens' GoogleDevtoolsRemoteexecutionV1testFileNode (Maybe Text)
gdrvfnName
= lens _gdrvfnName (\ s a -> s{_gdrvfnName = a})
gdrvfnIsExecutable :: Lens' GoogleDevtoolsRemoteexecutionV1testFileNode (Maybe Bool)
gdrvfnIsExecutable
= lens _gdrvfnIsExecutable
(\ s a -> s{_gdrvfnIsExecutable = a})
gdrvfnDigest :: Lens' GoogleDevtoolsRemoteexecutionV1testFileNode (Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
gdrvfnDigest
= lens _gdrvfnDigest (\ s a -> s{_gdrvfnDigest = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testFileNode where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testFileNode"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testFileNode' <$>
(o .:? "name") <*> (o .:? "isExecutable") <*>
(o .:? "digest"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testFileNode where
toJSON
GoogleDevtoolsRemoteexecutionV1testFileNode'{..}
= object
(catMaybes
[("name" .=) <$> _gdrvfnName,
("isExecutable" .=) <$> _gdrvfnIsExecutable,
("digest" .=) <$> _gdrvfnDigest])
data GoogleDevtoolsRemoteworkersV1test2AdminTemp = GoogleDevtoolsRemoteworkersV1test2AdminTemp'
{ _gdrvatCommand :: !(Maybe GoogleDevtoolsRemoteworkersV1test2AdminTempCommand)
, _gdrvatArg :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2AdminTemp
:: GoogleDevtoolsRemoteworkersV1test2AdminTemp
googleDevtoolsRemoteworkersV1test2AdminTemp =
GoogleDevtoolsRemoteworkersV1test2AdminTemp'
{ _gdrvatCommand = Nothing
, _gdrvatArg = Nothing
}
gdrvatCommand :: Lens' GoogleDevtoolsRemoteworkersV1test2AdminTemp (Maybe GoogleDevtoolsRemoteworkersV1test2AdminTempCommand)
gdrvatCommand
= lens _gdrvatCommand
(\ s a -> s{_gdrvatCommand = a})
gdrvatArg :: Lens' GoogleDevtoolsRemoteworkersV1test2AdminTemp (Maybe Text)
gdrvatArg
= lens _gdrvatArg (\ s a -> s{_gdrvatArg = a})
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2AdminTemp where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2AdminTemp"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2AdminTemp' <$>
(o .:? "command") <*> (o .:? "arg"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2AdminTemp where
toJSON
GoogleDevtoolsRemoteworkersV1test2AdminTemp'{..}
= object
(catMaybes
[("command" .=) <$> _gdrvatCommand,
("arg" .=) <$> _gdrvatArg])
data GoogleDevtoolsRemotebuildbotCommandDurations = GoogleDevtoolsRemotebuildbotCommandDurations'
{ _gdrcdStdout :: !(Maybe GDuration)
, _gdrcdDockerPrep :: !(Maybe GDuration)
, _gdrcdDownload :: !(Maybe GDuration)
, _gdrcdOverall :: !(Maybe GDuration)
, _gdrcdExecution :: !(Maybe GDuration)
, _gdrcdIsoPrepDone :: !(Maybe DateTime')
, _gdrcdUpload :: !(Maybe GDuration)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildbotCommandDurations
:: GoogleDevtoolsRemotebuildbotCommandDurations
googleDevtoolsRemotebuildbotCommandDurations =
GoogleDevtoolsRemotebuildbotCommandDurations'
{ _gdrcdStdout = Nothing
, _gdrcdDockerPrep = Nothing
, _gdrcdDownload = Nothing
, _gdrcdOverall = Nothing
, _gdrcdExecution = Nothing
, _gdrcdIsoPrepDone = Nothing
, _gdrcdUpload = Nothing
}
gdrcdStdout :: Lens' GoogleDevtoolsRemotebuildbotCommandDurations (Maybe Scientific)
gdrcdStdout
= lens _gdrcdStdout (\ s a -> s{_gdrcdStdout = a}) .
mapping _GDuration
gdrcdDockerPrep :: Lens' GoogleDevtoolsRemotebuildbotCommandDurations (Maybe Scientific)
gdrcdDockerPrep
= lens _gdrcdDockerPrep
(\ s a -> s{_gdrcdDockerPrep = a})
. mapping _GDuration
gdrcdDownload :: Lens' GoogleDevtoolsRemotebuildbotCommandDurations (Maybe Scientific)
gdrcdDownload
= lens _gdrcdDownload
(\ s a -> s{_gdrcdDownload = a})
. mapping _GDuration
gdrcdOverall :: Lens' GoogleDevtoolsRemotebuildbotCommandDurations (Maybe Scientific)
gdrcdOverall
= lens _gdrcdOverall (\ s a -> s{_gdrcdOverall = a})
. mapping _GDuration
gdrcdExecution :: Lens' GoogleDevtoolsRemotebuildbotCommandDurations (Maybe Scientific)
gdrcdExecution
= lens _gdrcdExecution
(\ s a -> s{_gdrcdExecution = a})
. mapping _GDuration
gdrcdIsoPrepDone :: Lens' GoogleDevtoolsRemotebuildbotCommandDurations (Maybe UTCTime)
gdrcdIsoPrepDone
= lens _gdrcdIsoPrepDone
(\ s a -> s{_gdrcdIsoPrepDone = a})
. mapping _DateTime
gdrcdUpload :: Lens' GoogleDevtoolsRemotebuildbotCommandDurations (Maybe Scientific)
gdrcdUpload
= lens _gdrcdUpload (\ s a -> s{_gdrcdUpload = a}) .
mapping _GDuration
instance FromJSON
GoogleDevtoolsRemotebuildbotCommandDurations where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildbotCommandDurations"
(\ o ->
GoogleDevtoolsRemotebuildbotCommandDurations' <$>
(o .:? "stdout") <*> (o .:? "dockerPrep") <*>
(o .:? "download")
<*> (o .:? "overall")
<*> (o .:? "execution")
<*> (o .:? "isoPrepDone")
<*> (o .:? "upload"))
instance ToJSON
GoogleDevtoolsRemotebuildbotCommandDurations where
toJSON
GoogleDevtoolsRemotebuildbotCommandDurations'{..}
= object
(catMaybes
[("stdout" .=) <$> _gdrcdStdout,
("dockerPrep" .=) <$> _gdrcdDockerPrep,
("download" .=) <$> _gdrcdDownload,
("overall" .=) <$> _gdrcdOverall,
("execution" .=) <$> _gdrcdExecution,
("isoPrepDone" .=) <$> _gdrcdIsoPrepDone,
("upload" .=) <$> _gdrcdUpload])
data BuildBazelRemoteExecutionV2PlatformProperty = BuildBazelRemoteExecutionV2PlatformProperty'
{ _bbrevppValue :: !(Maybe Text)
, _bbrevppName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2PlatformProperty
:: BuildBazelRemoteExecutionV2PlatformProperty
buildBazelRemoteExecutionV2PlatformProperty =
BuildBazelRemoteExecutionV2PlatformProperty'
{ _bbrevppValue = Nothing
, _bbrevppName = Nothing
}
bbrevppValue :: Lens' BuildBazelRemoteExecutionV2PlatformProperty (Maybe Text)
bbrevppValue
= lens _bbrevppValue (\ s a -> s{_bbrevppValue = a})
bbrevppName :: Lens' BuildBazelRemoteExecutionV2PlatformProperty (Maybe Text)
bbrevppName
= lens _bbrevppName (\ s a -> s{_bbrevppName = a})
instance FromJSON
BuildBazelRemoteExecutionV2PlatformProperty where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2PlatformProperty"
(\ o ->
BuildBazelRemoteExecutionV2PlatformProperty' <$>
(o .:? "value") <*> (o .:? "name"))
instance ToJSON
BuildBazelRemoteExecutionV2PlatformProperty where
toJSON
BuildBazelRemoteExecutionV2PlatformProperty'{..}
= object
(catMaybes
[("value" .=) <$> _bbrevppValue,
("name" .=) <$> _bbrevppName])
data BuildBazelRemoteExecutionV2WaitExecutionRequest =
BuildBazelRemoteExecutionV2WaitExecutionRequest'
deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2WaitExecutionRequest
:: BuildBazelRemoteExecutionV2WaitExecutionRequest
buildBazelRemoteExecutionV2WaitExecutionRequest =
BuildBazelRemoteExecutionV2WaitExecutionRequest'
instance FromJSON
BuildBazelRemoteExecutionV2WaitExecutionRequest where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2WaitExecutionRequest"
(\ o ->
pure
BuildBazelRemoteExecutionV2WaitExecutionRequest')
instance ToJSON
BuildBazelRemoteExecutionV2WaitExecutionRequest where
toJSON = const emptyObject
data GoogleDevtoolsRemoteworkersV1test2CommandOutputs = GoogleDevtoolsRemoteworkersV1test2CommandOutputs'
{ _gdrvcoOutputs :: !(Maybe GoogleDevtoolsRemoteworkersV1test2Digest)
, _gdrvcoExitCode :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2CommandOutputs
:: GoogleDevtoolsRemoteworkersV1test2CommandOutputs
googleDevtoolsRemoteworkersV1test2CommandOutputs =
GoogleDevtoolsRemoteworkersV1test2CommandOutputs'
{ _gdrvcoOutputs = Nothing
, _gdrvcoExitCode = Nothing
}
gdrvcoOutputs :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandOutputs (Maybe GoogleDevtoolsRemoteworkersV1test2Digest)
gdrvcoOutputs
= lens _gdrvcoOutputs
(\ s a -> s{_gdrvcoOutputs = a})
gdrvcoExitCode :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandOutputs (Maybe Int32)
gdrvcoExitCode
= lens _gdrvcoExitCode
(\ s a -> s{_gdrvcoExitCode = a})
. mapping _Coerce
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2CommandOutputs
where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2CommandOutputs"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2CommandOutputs' <$>
(o .:? "outputs") <*> (o .:? "exitCode"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2CommandOutputs
where
toJSON
GoogleDevtoolsRemoteworkersV1test2CommandOutputs'{..}
= object
(catMaybes
[("outputs" .=) <$> _gdrvcoOutputs,
("exitCode" .=) <$> _gdrvcoExitCode])
data BuildBazelRemoteExecutionV2ExecutedActionMetadata = BuildBazelRemoteExecutionV2ExecutedActionMetadata'
{ _bbreveamOutputUploadCompletedTimestamp :: !(Maybe DateTime')
, _bbreveamOutputUploadStartTimestamp :: !(Maybe DateTime')
, _bbreveamWorkerCompletedTimestamp :: !(Maybe DateTime')
, _bbreveamWorkerStartTimestamp :: !(Maybe DateTime')
, _bbreveamExecutionStartTimestamp :: !(Maybe DateTime')
, _bbreveamInputFetchStartTimestamp :: !(Maybe DateTime')
, _bbreveamQueuedTimestamp :: !(Maybe DateTime')
, _bbreveamWorker :: !(Maybe Text)
, _bbreveamExecutionCompletedTimestamp :: !(Maybe DateTime')
, _bbreveamInputFetchCompletedTimestamp :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ExecutedActionMetadata
:: BuildBazelRemoteExecutionV2ExecutedActionMetadata
buildBazelRemoteExecutionV2ExecutedActionMetadata =
BuildBazelRemoteExecutionV2ExecutedActionMetadata'
{ _bbreveamOutputUploadCompletedTimestamp = Nothing
, _bbreveamOutputUploadStartTimestamp = Nothing
, _bbreveamWorkerCompletedTimestamp = Nothing
, _bbreveamWorkerStartTimestamp = Nothing
, _bbreveamExecutionStartTimestamp = Nothing
, _bbreveamInputFetchStartTimestamp = Nothing
, _bbreveamQueuedTimestamp = Nothing
, _bbreveamWorker = Nothing
, _bbreveamExecutionCompletedTimestamp = Nothing
, _bbreveamInputFetchCompletedTimestamp = Nothing
}
bbreveamOutputUploadCompletedTimestamp :: Lens' BuildBazelRemoteExecutionV2ExecutedActionMetadata (Maybe UTCTime)
bbreveamOutputUploadCompletedTimestamp
= lens _bbreveamOutputUploadCompletedTimestamp
(\ s a ->
s{_bbreveamOutputUploadCompletedTimestamp = a})
. mapping _DateTime
bbreveamOutputUploadStartTimestamp :: Lens' BuildBazelRemoteExecutionV2ExecutedActionMetadata (Maybe UTCTime)
bbreveamOutputUploadStartTimestamp
= lens _bbreveamOutputUploadStartTimestamp
(\ s a -> s{_bbreveamOutputUploadStartTimestamp = a})
. mapping _DateTime
bbreveamWorkerCompletedTimestamp :: Lens' BuildBazelRemoteExecutionV2ExecutedActionMetadata (Maybe UTCTime)
bbreveamWorkerCompletedTimestamp
= lens _bbreveamWorkerCompletedTimestamp
(\ s a -> s{_bbreveamWorkerCompletedTimestamp = a})
. mapping _DateTime
bbreveamWorkerStartTimestamp :: Lens' BuildBazelRemoteExecutionV2ExecutedActionMetadata (Maybe UTCTime)
bbreveamWorkerStartTimestamp
= lens _bbreveamWorkerStartTimestamp
(\ s a -> s{_bbreveamWorkerStartTimestamp = a})
. mapping _DateTime
bbreveamExecutionStartTimestamp :: Lens' BuildBazelRemoteExecutionV2ExecutedActionMetadata (Maybe UTCTime)
bbreveamExecutionStartTimestamp
= lens _bbreveamExecutionStartTimestamp
(\ s a -> s{_bbreveamExecutionStartTimestamp = a})
. mapping _DateTime
bbreveamInputFetchStartTimestamp :: Lens' BuildBazelRemoteExecutionV2ExecutedActionMetadata (Maybe UTCTime)
bbreveamInputFetchStartTimestamp
= lens _bbreveamInputFetchStartTimestamp
(\ s a -> s{_bbreveamInputFetchStartTimestamp = a})
. mapping _DateTime
bbreveamQueuedTimestamp :: Lens' BuildBazelRemoteExecutionV2ExecutedActionMetadata (Maybe UTCTime)
bbreveamQueuedTimestamp
= lens _bbreveamQueuedTimestamp
(\ s a -> s{_bbreveamQueuedTimestamp = a})
. mapping _DateTime
bbreveamWorker :: Lens' BuildBazelRemoteExecutionV2ExecutedActionMetadata (Maybe Text)
bbreveamWorker
= lens _bbreveamWorker
(\ s a -> s{_bbreveamWorker = a})
bbreveamExecutionCompletedTimestamp :: Lens' BuildBazelRemoteExecutionV2ExecutedActionMetadata (Maybe UTCTime)
bbreveamExecutionCompletedTimestamp
= lens _bbreveamExecutionCompletedTimestamp
(\ s a ->
s{_bbreveamExecutionCompletedTimestamp = a})
. mapping _DateTime
bbreveamInputFetchCompletedTimestamp :: Lens' BuildBazelRemoteExecutionV2ExecutedActionMetadata (Maybe UTCTime)
bbreveamInputFetchCompletedTimestamp
= lens _bbreveamInputFetchCompletedTimestamp
(\ s a ->
s{_bbreveamInputFetchCompletedTimestamp = a})
. mapping _DateTime
instance FromJSON
BuildBazelRemoteExecutionV2ExecutedActionMetadata
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2ExecutedActionMetadata"
(\ o ->
BuildBazelRemoteExecutionV2ExecutedActionMetadata'
<$>
(o .:? "outputUploadCompletedTimestamp") <*>
(o .:? "outputUploadStartTimestamp")
<*> (o .:? "workerCompletedTimestamp")
<*> (o .:? "workerStartTimestamp")
<*> (o .:? "executionStartTimestamp")
<*> (o .:? "inputFetchStartTimestamp")
<*> (o .:? "queuedTimestamp")
<*> (o .:? "worker")
<*> (o .:? "executionCompletedTimestamp")
<*> (o .:? "inputFetchCompletedTimestamp"))
instance ToJSON
BuildBazelRemoteExecutionV2ExecutedActionMetadata
where
toJSON
BuildBazelRemoteExecutionV2ExecutedActionMetadata'{..}
= object
(catMaybes
[("outputUploadCompletedTimestamp" .=) <$>
_bbreveamOutputUploadCompletedTimestamp,
("outputUploadStartTimestamp" .=) <$>
_bbreveamOutputUploadStartTimestamp,
("workerCompletedTimestamp" .=) <$>
_bbreveamWorkerCompletedTimestamp,
("workerStartTimestamp" .=) <$>
_bbreveamWorkerStartTimestamp,
("executionStartTimestamp" .=) <$>
_bbreveamExecutionStartTimestamp,
("inputFetchStartTimestamp" .=) <$>
_bbreveamInputFetchStartTimestamp,
("queuedTimestamp" .=) <$> _bbreveamQueuedTimestamp,
("worker" .=) <$> _bbreveamWorker,
("executionCompletedTimestamp" .=) <$>
_bbreveamExecutionCompletedTimestamp,
("inputFetchCompletedTimestamp" .=) <$>
_bbreveamInputFetchCompletedTimestamp])
data GoogleDevtoolsRemoteworkersV1test2Blob = GoogleDevtoolsRemoteworkersV1test2Blob'
{ _gdrvbContents :: !(Maybe Bytes)
, _gdrvbDigest :: !(Maybe GoogleDevtoolsRemoteworkersV1test2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2Blob
:: GoogleDevtoolsRemoteworkersV1test2Blob
googleDevtoolsRemoteworkersV1test2Blob =
GoogleDevtoolsRemoteworkersV1test2Blob'
{ _gdrvbContents = Nothing
, _gdrvbDigest = Nothing
}
gdrvbContents :: Lens' GoogleDevtoolsRemoteworkersV1test2Blob (Maybe ByteString)
gdrvbContents
= lens _gdrvbContents
(\ s a -> s{_gdrvbContents = a})
. mapping _Bytes
gdrvbDigest :: Lens' GoogleDevtoolsRemoteworkersV1test2Blob (Maybe GoogleDevtoolsRemoteworkersV1test2Digest)
gdrvbDigest
= lens _gdrvbDigest (\ s a -> s{_gdrvbDigest = a})
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2Blob where
parseJSON
= withObject "GoogleDevtoolsRemoteworkersV1test2Blob"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2Blob' <$>
(o .:? "contents") <*> (o .:? "digest"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2Blob where
toJSON GoogleDevtoolsRemoteworkersV1test2Blob'{..}
= object
(catMaybes
[("contents" .=) <$> _gdrvbContents,
("digest" .=) <$> _gdrvbDigest])
newtype BuildBazelRemoteExecutionV2FindMissingBlobsRequest = BuildBazelRemoteExecutionV2FindMissingBlobsRequest'
{ _bbrevfmbrBlobDigests :: Maybe [BuildBazelRemoteExecutionV2Digest]
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2FindMissingBlobsRequest
:: BuildBazelRemoteExecutionV2FindMissingBlobsRequest
buildBazelRemoteExecutionV2FindMissingBlobsRequest =
BuildBazelRemoteExecutionV2FindMissingBlobsRequest'
{ _bbrevfmbrBlobDigests = Nothing
}
bbrevfmbrBlobDigests :: Lens' BuildBazelRemoteExecutionV2FindMissingBlobsRequest [BuildBazelRemoteExecutionV2Digest]
bbrevfmbrBlobDigests
= lens _bbrevfmbrBlobDigests
(\ s a -> s{_bbrevfmbrBlobDigests = a})
. _Default
. _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2FindMissingBlobsRequest
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2FindMissingBlobsRequest"
(\ o ->
BuildBazelRemoteExecutionV2FindMissingBlobsRequest'
<$> (o .:? "blobDigests" .!= mempty))
instance ToJSON
BuildBazelRemoteExecutionV2FindMissingBlobsRequest
where
toJSON
BuildBazelRemoteExecutionV2FindMissingBlobsRequest'{..}
= object
(catMaybes
[("blobDigests" .=) <$> _bbrevfmbrBlobDigests])
newtype GoogleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs = GoogleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs'
{ _gdrverslAddtional :: HashMap Text GoogleDevtoolsRemoteexecutionV1testLogFile
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs
:: HashMap Text GoogleDevtoolsRemoteexecutionV1testLogFile
-> GoogleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs
googleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs pGdrverslAddtional_ =
GoogleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs'
{ _gdrverslAddtional = _Coerce # pGdrverslAddtional_
}
gdrverslAddtional :: Lens' GoogleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs (HashMap Text GoogleDevtoolsRemoteexecutionV1testLogFile)
gdrverslAddtional
= lens _gdrverslAddtional
(\ s a -> s{_gdrverslAddtional = a})
. _Coerce
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs
where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs'
<$> (parseJSONObject o))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testExecuteResponseServerLogs
where
toJSON = toJSON . _gdrverslAddtional
data BuildBazelRemoteExecutionV2GetTreeResponse = BuildBazelRemoteExecutionV2GetTreeResponse'
{ _bbrevgtrDirectories :: !(Maybe [BuildBazelRemoteExecutionV2Directory])
, _bbrevgtrNextPageToken :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2GetTreeResponse
:: BuildBazelRemoteExecutionV2GetTreeResponse
buildBazelRemoteExecutionV2GetTreeResponse =
BuildBazelRemoteExecutionV2GetTreeResponse'
{ _bbrevgtrDirectories = Nothing
, _bbrevgtrNextPageToken = Nothing
}
bbrevgtrDirectories :: Lens' BuildBazelRemoteExecutionV2GetTreeResponse [BuildBazelRemoteExecutionV2Directory]
bbrevgtrDirectories
= lens _bbrevgtrDirectories
(\ s a -> s{_bbrevgtrDirectories = a})
. _Default
. _Coerce
bbrevgtrNextPageToken :: Lens' BuildBazelRemoteExecutionV2GetTreeResponse (Maybe Text)
bbrevgtrNextPageToken
= lens _bbrevgtrNextPageToken
(\ s a -> s{_bbrevgtrNextPageToken = a})
instance FromJSON
BuildBazelRemoteExecutionV2GetTreeResponse where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2GetTreeResponse"
(\ o ->
BuildBazelRemoteExecutionV2GetTreeResponse' <$>
(o .:? "directories" .!= mempty) <*>
(o .:? "nextPageToken"))
instance ToJSON
BuildBazelRemoteExecutionV2GetTreeResponse where
toJSON
BuildBazelRemoteExecutionV2GetTreeResponse'{..}
= object
(catMaybes
[("directories" .=) <$> _bbrevgtrDirectories,
("nextPageToken" .=) <$> _bbrevgtrNextPageToken])
newtype GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest = GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest'
{ _gdravgirName :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest
googleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest'
{ _gdravgirName = Nothing
}
gdravgirName :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest (Maybe Text)
gdravgirName
= lens _gdravgirName (\ s a -> s{_gdravgirName = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest'
<$> (o .:? "name"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaGetInstanceRequest'{..}
= object (catMaybes [("name" .=) <$> _gdravgirName])
newtype BuildBazelRemoteExecutionV2ResultsCachePolicy = BuildBazelRemoteExecutionV2ResultsCachePolicy'
{ _bbrevrcpPriority :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ResultsCachePolicy
:: BuildBazelRemoteExecutionV2ResultsCachePolicy
buildBazelRemoteExecutionV2ResultsCachePolicy =
BuildBazelRemoteExecutionV2ResultsCachePolicy'
{ _bbrevrcpPriority = Nothing
}
bbrevrcpPriority :: Lens' BuildBazelRemoteExecutionV2ResultsCachePolicy (Maybe Int32)
bbrevrcpPriority
= lens _bbrevrcpPriority
(\ s a -> s{_bbrevrcpPriority = a})
. mapping _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2ResultsCachePolicy where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2ResultsCachePolicy"
(\ o ->
BuildBazelRemoteExecutionV2ResultsCachePolicy' <$>
(o .:? "priority"))
instance ToJSON
BuildBazelRemoteExecutionV2ResultsCachePolicy where
toJSON
BuildBazelRemoteExecutionV2ResultsCachePolicy'{..}
= object
(catMaybes [("priority" .=) <$> _bbrevrcpPriority])
data BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse = BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse'
{ _bbrevbrbrrStatus :: !(Maybe GoogleRpcStatus)
, _bbrevbrbrrData :: !(Maybe Bytes)
, _bbrevbrbrrDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2BatchReadBlobsResponseResponse
:: BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse
buildBazelRemoteExecutionV2BatchReadBlobsResponseResponse =
BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse'
{ _bbrevbrbrrStatus = Nothing
, _bbrevbrbrrData = Nothing
, _bbrevbrbrrDigest = Nothing
}
bbrevbrbrrStatus :: Lens' BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse (Maybe GoogleRpcStatus)
bbrevbrbrrStatus
= lens _bbrevbrbrrStatus
(\ s a -> s{_bbrevbrbrrStatus = a})
bbrevbrbrrData :: Lens' BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse (Maybe ByteString)
bbrevbrbrrData
= lens _bbrevbrbrrData
(\ s a -> s{_bbrevbrbrrData = a})
. mapping _Bytes
bbrevbrbrrDigest :: Lens' BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse (Maybe BuildBazelRemoteExecutionV2Digest)
bbrevbrbrrDigest
= lens _bbrevbrbrrDigest
(\ s a -> s{_bbrevbrbrrDigest = a})
instance FromJSON
BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse"
(\ o ->
BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse'
<$>
(o .:? "status") <*> (o .:? "data") <*>
(o .:? "digest"))
instance ToJSON
BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse
where
toJSON
BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse'{..}
= object
(catMaybes
[("status" .=) <$> _bbrevbrbrrStatus,
("data" .=) <$> _bbrevbrbrrData,
("digest" .=) <$> _bbrevbrbrrDigest])
data BuildBazelRemoteExecutionV2ExecuteRequest = BuildBazelRemoteExecutionV2ExecuteRequest'
{ _bbreverExecutionPolicy :: !(Maybe BuildBazelRemoteExecutionV2ExecutionPolicy)
, _bbreverSkipCacheLookup :: !(Maybe Bool)
, _bbreverResultsCachePolicy :: !(Maybe BuildBazelRemoteExecutionV2ResultsCachePolicy)
, _bbreverActionDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ExecuteRequest
:: BuildBazelRemoteExecutionV2ExecuteRequest
buildBazelRemoteExecutionV2ExecuteRequest =
BuildBazelRemoteExecutionV2ExecuteRequest'
{ _bbreverExecutionPolicy = Nothing
, _bbreverSkipCacheLookup = Nothing
, _bbreverResultsCachePolicy = Nothing
, _bbreverActionDigest = Nothing
}
bbreverExecutionPolicy :: Lens' BuildBazelRemoteExecutionV2ExecuteRequest (Maybe BuildBazelRemoteExecutionV2ExecutionPolicy)
bbreverExecutionPolicy
= lens _bbreverExecutionPolicy
(\ s a -> s{_bbreverExecutionPolicy = a})
bbreverSkipCacheLookup :: Lens' BuildBazelRemoteExecutionV2ExecuteRequest (Maybe Bool)
bbreverSkipCacheLookup
= lens _bbreverSkipCacheLookup
(\ s a -> s{_bbreverSkipCacheLookup = a})
bbreverResultsCachePolicy :: Lens' BuildBazelRemoteExecutionV2ExecuteRequest (Maybe BuildBazelRemoteExecutionV2ResultsCachePolicy)
bbreverResultsCachePolicy
= lens _bbreverResultsCachePolicy
(\ s a -> s{_bbreverResultsCachePolicy = a})
bbreverActionDigest :: Lens' BuildBazelRemoteExecutionV2ExecuteRequest (Maybe BuildBazelRemoteExecutionV2Digest)
bbreverActionDigest
= lens _bbreverActionDigest
(\ s a -> s{_bbreverActionDigest = a})
instance FromJSON
BuildBazelRemoteExecutionV2ExecuteRequest where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2ExecuteRequest"
(\ o ->
BuildBazelRemoteExecutionV2ExecuteRequest' <$>
(o .:? "executionPolicy") <*>
(o .:? "skipCacheLookup")
<*> (o .:? "resultsCachePolicy")
<*> (o .:? "actionDigest"))
instance ToJSON
BuildBazelRemoteExecutionV2ExecuteRequest where
toJSON BuildBazelRemoteExecutionV2ExecuteRequest'{..}
= object
(catMaybes
[("executionPolicy" .=) <$> _bbreverExecutionPolicy,
("skipCacheLookup" .=) <$> _bbreverSkipCacheLookup,
("resultsCachePolicy" .=) <$>
_bbreverResultsCachePolicy,
("actionDigest" .=) <$> _bbreverActionDigest])
newtype BuildBazelRemoteExecutionV2BatchUpdateBlobsResponse = BuildBazelRemoteExecutionV2BatchUpdateBlobsResponse'
{ _bbrevbubrResponses :: Maybe [BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse]
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2BatchUpdateBlobsResponse
:: BuildBazelRemoteExecutionV2BatchUpdateBlobsResponse
buildBazelRemoteExecutionV2BatchUpdateBlobsResponse =
BuildBazelRemoteExecutionV2BatchUpdateBlobsResponse'
{ _bbrevbubrResponses = Nothing
}
bbrevbubrResponses :: Lens' BuildBazelRemoteExecutionV2BatchUpdateBlobsResponse [BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse]
bbrevbubrResponses
= lens _bbrevbubrResponses
(\ s a -> s{_bbrevbubrResponses = a})
. _Default
. _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsResponse
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2BatchUpdateBlobsResponse"
(\ o ->
BuildBazelRemoteExecutionV2BatchUpdateBlobsResponse'
<$> (o .:? "responses" .!= mempty))
instance ToJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsResponse
where
toJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsResponse'{..}
= object
(catMaybes
[("responses" .=) <$> _bbrevbubrResponses])
newtype BuildBazelRemoteExecutionV2ExecuteResponseServerLogs = BuildBazelRemoteExecutionV2ExecuteResponseServerLogs'
{ _bbreverslAddtional :: HashMap Text BuildBazelRemoteExecutionV2LogFile
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ExecuteResponseServerLogs
:: HashMap Text BuildBazelRemoteExecutionV2LogFile
-> BuildBazelRemoteExecutionV2ExecuteResponseServerLogs
buildBazelRemoteExecutionV2ExecuteResponseServerLogs pBbreverslAddtional_ =
BuildBazelRemoteExecutionV2ExecuteResponseServerLogs'
{ _bbreverslAddtional = _Coerce # pBbreverslAddtional_
}
bbreverslAddtional :: Lens' BuildBazelRemoteExecutionV2ExecuteResponseServerLogs (HashMap Text BuildBazelRemoteExecutionV2LogFile)
bbreverslAddtional
= lens _bbreverslAddtional
(\ s a -> s{_bbreverslAddtional = a})
. _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2ExecuteResponseServerLogs
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2ExecuteResponseServerLogs"
(\ o ->
BuildBazelRemoteExecutionV2ExecuteResponseServerLogs'
<$> (parseJSONObject o))
instance ToJSON
BuildBazelRemoteExecutionV2ExecuteResponseServerLogs
where
toJSON = toJSON . _bbreverslAddtional
newtype GoogleLongrunningOperationResponse = GoogleLongrunningOperationResponse'
{ _glorAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
googleLongrunningOperationResponse
:: HashMap Text JSONValue
-> GoogleLongrunningOperationResponse
googleLongrunningOperationResponse pGlorAddtional_ =
GoogleLongrunningOperationResponse'
{ _glorAddtional = _Coerce # pGlorAddtional_
}
glorAddtional :: Lens' GoogleLongrunningOperationResponse (HashMap Text JSONValue)
glorAddtional
= lens _glorAddtional
(\ s a -> s{_glorAddtional = a})
. _Coerce
instance FromJSON GoogleLongrunningOperationResponse
where
parseJSON
= withObject "GoogleLongrunningOperationResponse"
(\ o ->
GoogleLongrunningOperationResponse' <$>
(parseJSONObject o))
instance ToJSON GoogleLongrunningOperationResponse
where
toJSON = toJSON . _glorAddtional
data BuildBazelRemoteExecutionV2FileNode = BuildBazelRemoteExecutionV2FileNode'
{ _bbrevfnName :: !(Maybe Text)
, _bbrevfnIsExecutable :: !(Maybe Bool)
, _bbrevfnDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2FileNode
:: BuildBazelRemoteExecutionV2FileNode
buildBazelRemoteExecutionV2FileNode =
BuildBazelRemoteExecutionV2FileNode'
{ _bbrevfnName = Nothing
, _bbrevfnIsExecutable = Nothing
, _bbrevfnDigest = Nothing
}
bbrevfnName :: Lens' BuildBazelRemoteExecutionV2FileNode (Maybe Text)
bbrevfnName
= lens _bbrevfnName (\ s a -> s{_bbrevfnName = a})
bbrevfnIsExecutable :: Lens' BuildBazelRemoteExecutionV2FileNode (Maybe Bool)
bbrevfnIsExecutable
= lens _bbrevfnIsExecutable
(\ s a -> s{_bbrevfnIsExecutable = a})
bbrevfnDigest :: Lens' BuildBazelRemoteExecutionV2FileNode (Maybe BuildBazelRemoteExecutionV2Digest)
bbrevfnDigest
= lens _bbrevfnDigest
(\ s a -> s{_bbrevfnDigest = a})
instance FromJSON BuildBazelRemoteExecutionV2FileNode
where
parseJSON
= withObject "BuildBazelRemoteExecutionV2FileNode"
(\ o ->
BuildBazelRemoteExecutionV2FileNode' <$>
(o .:? "name") <*> (o .:? "isExecutable") <*>
(o .:? "digest"))
instance ToJSON BuildBazelRemoteExecutionV2FileNode
where
toJSON BuildBazelRemoteExecutionV2FileNode'{..}
= object
(catMaybes
[("name" .=) <$> _bbrevfnName,
("isExecutable" .=) <$> _bbrevfnIsExecutable,
("digest" .=) <$> _bbrevfnDigest])
newtype GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse = GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse'
{ _gdravlirInstances :: Maybe [GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance]
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse
googleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse'
{ _gdravlirInstances = Nothing
}
gdravlirInstances :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse [GoogleDevtoolsRemotebuildexecutionAdminV1alphaInstance]
gdravlirInstances
= lens _gdravlirInstances
(\ s a -> s{_gdravlirInstances = a})
. _Default
. _Coerce
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse'
<$> (o .:? "instances" .!= mempty))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesResponse'{..}
= object
(catMaybes [("instances" .=) <$> _gdravlirInstances])
data GoogleDevtoolsRemoteworkersV1test2CommandTask = GoogleDevtoolsRemoteworkersV1test2CommandTask'
{ _gdrvctInputs :: !(Maybe GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs)
, _gdrvctExpectedOutputs :: !(Maybe GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs)
, _gdrvctTimeouts :: !(Maybe GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2CommandTask
:: GoogleDevtoolsRemoteworkersV1test2CommandTask
googleDevtoolsRemoteworkersV1test2CommandTask =
GoogleDevtoolsRemoteworkersV1test2CommandTask'
{ _gdrvctInputs = Nothing
, _gdrvctExpectedOutputs = Nothing
, _gdrvctTimeouts = Nothing
}
gdrvctInputs :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTask (Maybe GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs)
gdrvctInputs
= lens _gdrvctInputs (\ s a -> s{_gdrvctInputs = a})
gdrvctExpectedOutputs :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTask (Maybe GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs)
gdrvctExpectedOutputs
= lens _gdrvctExpectedOutputs
(\ s a -> s{_gdrvctExpectedOutputs = a})
gdrvctTimeouts :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTask (Maybe GoogleDevtoolsRemoteworkersV1test2CommandTaskTimeouts)
gdrvctTimeouts
= lens _gdrvctTimeouts
(\ s a -> s{_gdrvctTimeouts = a})
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2CommandTask where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2CommandTask"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2CommandTask' <$>
(o .:? "inputs") <*> (o .:? "expectedOutputs") <*>
(o .:? "timeouts"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2CommandTask where
toJSON
GoogleDevtoolsRemoteworkersV1test2CommandTask'{..}
= object
(catMaybes
[("inputs" .=) <$> _gdrvctInputs,
("expectedOutputs" .=) <$> _gdrvctExpectedOutputs,
("timeouts" .=) <$> _gdrvctTimeouts])
data GoogleDevtoolsRemoteexecutionV1testCommand = GoogleDevtoolsRemoteexecutionV1testCommand'
{ _gdrvcArguments :: !(Maybe [Text])
, _gdrvcEnvironmentVariables :: !(Maybe [GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable])
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testCommand
:: GoogleDevtoolsRemoteexecutionV1testCommand
googleDevtoolsRemoteexecutionV1testCommand =
GoogleDevtoolsRemoteexecutionV1testCommand'
{ _gdrvcArguments = Nothing
, _gdrvcEnvironmentVariables = Nothing
}
gdrvcArguments :: Lens' GoogleDevtoolsRemoteexecutionV1testCommand [Text]
gdrvcArguments
= lens _gdrvcArguments
(\ s a -> s{_gdrvcArguments = a})
. _Default
. _Coerce
gdrvcEnvironmentVariables :: Lens' GoogleDevtoolsRemoteexecutionV1testCommand [GoogleDevtoolsRemoteexecutionV1testCommandEnvironmentVariable]
gdrvcEnvironmentVariables
= lens _gdrvcEnvironmentVariables
(\ s a -> s{_gdrvcEnvironmentVariables = a})
. _Default
. _Coerce
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testCommand where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testCommand"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testCommand' <$>
(o .:? "arguments" .!= mempty) <*>
(o .:? "environmentVariables" .!= mempty))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testCommand where
toJSON
GoogleDevtoolsRemoteexecutionV1testCommand'{..}
= object
(catMaybes
[("arguments" .=) <$> _gdrvcArguments,
("environmentVariables" .=) <$>
_gdrvcEnvironmentVariables])
data GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata = GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata'
{ _gdrveomStage :: !(Maybe GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadataStage)
, _gdrveomStderrStreamName :: !(Maybe Text)
, _gdrveomStdoutStreamName :: !(Maybe Text)
, _gdrveomActionDigest :: !(Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testExecuteOperationMetadata
:: GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata
googleDevtoolsRemoteexecutionV1testExecuteOperationMetadata =
GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata'
{ _gdrveomStage = Nothing
, _gdrveomStderrStreamName = Nothing
, _gdrveomStdoutStreamName = Nothing
, _gdrveomActionDigest = Nothing
}
gdrveomStage :: Lens' GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata (Maybe GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadataStage)
gdrveomStage
= lens _gdrveomStage (\ s a -> s{_gdrveomStage = a})
gdrveomStderrStreamName :: Lens' GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata (Maybe Text)
gdrveomStderrStreamName
= lens _gdrveomStderrStreamName
(\ s a -> s{_gdrveomStderrStreamName = a})
gdrveomStdoutStreamName :: Lens' GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata (Maybe Text)
gdrveomStdoutStreamName
= lens _gdrveomStdoutStreamName
(\ s a -> s{_gdrveomStdoutStreamName = a})
gdrveomActionDigest :: Lens' GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata (Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
gdrveomActionDigest
= lens _gdrveomActionDigest
(\ s a -> s{_gdrveomActionDigest = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata
where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata'
<$>
(o .:? "stage") <*> (o .:? "stderrStreamName") <*>
(o .:? "stdoutStreamName")
<*> (o .:? "actionDigest"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata
where
toJSON
GoogleDevtoolsRemoteexecutionV1testExecuteOperationMetadata'{..}
= object
(catMaybes
[("stage" .=) <$> _gdrveomStage,
("stderrStreamName" .=) <$> _gdrveomStderrStreamName,
("stdoutStreamName" .=) <$> _gdrveomStdoutStreamName,
("actionDigest" .=) <$> _gdrveomActionDigest])
data GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig = GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig'
{ _gdravwcDiskSizeGb :: !(Maybe (Textual Int64))
, _gdravwcReserved :: !(Maybe Bool)
, _gdravwcMachineType :: !(Maybe Text)
, _gdravwcDiskType :: !(Maybe Text)
, _gdravwcMinCPUPlatform :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig
googleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig'
{ _gdravwcDiskSizeGb = Nothing
, _gdravwcReserved = Nothing
, _gdravwcMachineType = Nothing
, _gdravwcDiskType = Nothing
, _gdravwcMinCPUPlatform = Nothing
}
gdravwcDiskSizeGb :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig (Maybe Int64)
gdravwcDiskSizeGb
= lens _gdravwcDiskSizeGb
(\ s a -> s{_gdravwcDiskSizeGb = a})
. mapping _Coerce
gdravwcReserved :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig (Maybe Bool)
gdravwcReserved
= lens _gdravwcReserved
(\ s a -> s{_gdravwcReserved = a})
gdravwcMachineType :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig (Maybe Text)
gdravwcMachineType
= lens _gdravwcMachineType
(\ s a -> s{_gdravwcMachineType = a})
gdravwcDiskType :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig (Maybe Text)
gdravwcDiskType
= lens _gdravwcDiskType
(\ s a -> s{_gdravwcDiskType = a})
gdravwcMinCPUPlatform :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig (Maybe Text)
gdravwcMinCPUPlatform
= lens _gdravwcMinCPUPlatform
(\ s a -> s{_gdravwcMinCPUPlatform = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig'
<$>
(o .:? "diskSizeGb") <*> (o .:? "reserved") <*>
(o .:? "machineType")
<*> (o .:? "diskType")
<*> (o .:? "minCpuPlatform"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaWorkerConfig'{..}
= object
(catMaybes
[("diskSizeGb" .=) <$> _gdravwcDiskSizeGb,
("reserved" .=) <$> _gdravwcReserved,
("machineType" .=) <$> _gdravwcMachineType,
("diskType" .=) <$> _gdravwcDiskType,
("minCpuPlatform" .=) <$> _gdravwcMinCPUPlatform])
data BuildBazelRemoteExecutionV2ExecuteResponse = BuildBazelRemoteExecutionV2ExecuteResponse'
{ _bbreverStatus :: !(Maybe GoogleRpcStatus)
, _bbreverServerLogs :: !(Maybe BuildBazelRemoteExecutionV2ExecuteResponseServerLogs)
, _bbreverResult :: !(Maybe BuildBazelRemoteExecutionV2ActionResult)
, _bbreverCachedResult :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ExecuteResponse
:: BuildBazelRemoteExecutionV2ExecuteResponse
buildBazelRemoteExecutionV2ExecuteResponse =
BuildBazelRemoteExecutionV2ExecuteResponse'
{ _bbreverStatus = Nothing
, _bbreverServerLogs = Nothing
, _bbreverResult = Nothing
, _bbreverCachedResult = Nothing
}
bbreverStatus :: Lens' BuildBazelRemoteExecutionV2ExecuteResponse (Maybe GoogleRpcStatus)
bbreverStatus
= lens _bbreverStatus
(\ s a -> s{_bbreverStatus = a})
bbreverServerLogs :: Lens' BuildBazelRemoteExecutionV2ExecuteResponse (Maybe BuildBazelRemoteExecutionV2ExecuteResponseServerLogs)
bbreverServerLogs
= lens _bbreverServerLogs
(\ s a -> s{_bbreverServerLogs = a})
bbreverResult :: Lens' BuildBazelRemoteExecutionV2ExecuteResponse (Maybe BuildBazelRemoteExecutionV2ActionResult)
bbreverResult
= lens _bbreverResult
(\ s a -> s{_bbreverResult = a})
bbreverCachedResult :: Lens' BuildBazelRemoteExecutionV2ExecuteResponse (Maybe Bool)
bbreverCachedResult
= lens _bbreverCachedResult
(\ s a -> s{_bbreverCachedResult = a})
instance FromJSON
BuildBazelRemoteExecutionV2ExecuteResponse where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2ExecuteResponse"
(\ o ->
BuildBazelRemoteExecutionV2ExecuteResponse' <$>
(o .:? "status") <*> (o .:? "serverLogs") <*>
(o .:? "result")
<*> (o .:? "cachedResult"))
instance ToJSON
BuildBazelRemoteExecutionV2ExecuteResponse where
toJSON
BuildBazelRemoteExecutionV2ExecuteResponse'{..}
= object
(catMaybes
[("status" .=) <$> _bbreverStatus,
("serverLogs" .=) <$> _bbreverServerLogs,
("result" .=) <$> _bbreverResult,
("cachedResult" .=) <$> _bbreverCachedResult])
newtype GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest = GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest'
{ _gdravdirName :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest
googleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest'
{ _gdravdirName = Nothing
}
gdravdirName :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest (Maybe Text)
gdravdirName
= lens _gdravdirName (\ s a -> s{_gdravdirName = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest'
<$> (o .:? "name"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaDeleteInstanceRequest'{..}
= object (catMaybes [("name" .=) <$> _gdravdirName])
data GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs = GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs'
{ _gdrvctiArguments :: !(Maybe [Text])
, _gdrvctiFiles :: !(Maybe [GoogleDevtoolsRemoteworkersV1test2Digest])
, _gdrvctiEnvironmentVariables :: !(Maybe [GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable])
, _gdrvctiInlineBlobs :: !(Maybe [GoogleDevtoolsRemoteworkersV1test2Blob])
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2CommandTaskInputs
:: GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs
googleDevtoolsRemoteworkersV1test2CommandTaskInputs =
GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs'
{ _gdrvctiArguments = Nothing
, _gdrvctiFiles = Nothing
, _gdrvctiEnvironmentVariables = Nothing
, _gdrvctiInlineBlobs = Nothing
}
gdrvctiArguments :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs [Text]
gdrvctiArguments
= lens _gdrvctiArguments
(\ s a -> s{_gdrvctiArguments = a})
. _Default
. _Coerce
gdrvctiFiles :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs [GoogleDevtoolsRemoteworkersV1test2Digest]
gdrvctiFiles
= lens _gdrvctiFiles (\ s a -> s{_gdrvctiFiles = a})
. _Default
. _Coerce
gdrvctiEnvironmentVariables :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs [GoogleDevtoolsRemoteworkersV1test2CommandTaskInputsEnvironmentVariable]
gdrvctiEnvironmentVariables
= lens _gdrvctiEnvironmentVariables
(\ s a -> s{_gdrvctiEnvironmentVariables = a})
. _Default
. _Coerce
gdrvctiInlineBlobs :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs [GoogleDevtoolsRemoteworkersV1test2Blob]
gdrvctiInlineBlobs
= lens _gdrvctiInlineBlobs
(\ s a -> s{_gdrvctiInlineBlobs = a})
. _Default
. _Coerce
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs
where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs'
<$>
(o .:? "arguments" .!= mempty) <*>
(o .:? "files" .!= mempty)
<*> (o .:? "environmentVariables" .!= mempty)
<*> (o .:? "inlineBlobs" .!= mempty))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs
where
toJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskInputs'{..}
= object
(catMaybes
[("arguments" .=) <$> _gdrvctiArguments,
("files" .=) <$> _gdrvctiFiles,
("environmentVariables" .=) <$>
_gdrvctiEnvironmentVariables,
("inlineBlobs" .=) <$> _gdrvctiInlineBlobs])
data BuildBazelRemoteExecutionV2CommandEnvironmentVariable = BuildBazelRemoteExecutionV2CommandEnvironmentVariable'
{ _bbrevcevValue :: !(Maybe Text)
, _bbrevcevName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2CommandEnvironmentVariable
:: BuildBazelRemoteExecutionV2CommandEnvironmentVariable
buildBazelRemoteExecutionV2CommandEnvironmentVariable =
BuildBazelRemoteExecutionV2CommandEnvironmentVariable'
{ _bbrevcevValue = Nothing
, _bbrevcevName = Nothing
}
bbrevcevValue :: Lens' BuildBazelRemoteExecutionV2CommandEnvironmentVariable (Maybe Text)
bbrevcevValue
= lens _bbrevcevValue
(\ s a -> s{_bbrevcevValue = a})
bbrevcevName :: Lens' BuildBazelRemoteExecutionV2CommandEnvironmentVariable (Maybe Text)
bbrevcevName
= lens _bbrevcevName (\ s a -> s{_bbrevcevName = a})
instance FromJSON
BuildBazelRemoteExecutionV2CommandEnvironmentVariable
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2CommandEnvironmentVariable"
(\ o ->
BuildBazelRemoteExecutionV2CommandEnvironmentVariable'
<$> (o .:? "value") <*> (o .:? "name"))
instance ToJSON
BuildBazelRemoteExecutionV2CommandEnvironmentVariable
where
toJSON
BuildBazelRemoteExecutionV2CommandEnvironmentVariable'{..}
= object
(catMaybes
[("value" .=) <$> _bbrevcevValue,
("name" .=) <$> _bbrevcevName])
newtype GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest = GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest'
{ _gdravlirParent :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest
googleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest'
{ _gdravlirParent = Nothing
}
gdravlirParent :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest (Maybe Text)
gdravlirParent
= lens _gdravlirParent
(\ s a -> s{_gdravlirParent = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest'
<$> (o .:? "parent"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListInstancesRequest'{..}
= object
(catMaybes [("parent" .=) <$> _gdravlirParent])
newtype BuildBazelRemoteExecutionV2PriorityCapabilities = BuildBazelRemoteExecutionV2PriorityCapabilities'
{ _bbrevpcPriorities :: Maybe [BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange]
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2PriorityCapabilities
:: BuildBazelRemoteExecutionV2PriorityCapabilities
buildBazelRemoteExecutionV2PriorityCapabilities =
BuildBazelRemoteExecutionV2PriorityCapabilities'
{ _bbrevpcPriorities = Nothing
}
bbrevpcPriorities :: Lens' BuildBazelRemoteExecutionV2PriorityCapabilities [BuildBazelRemoteExecutionV2PriorityCapabilitiesPriorityRange]
bbrevpcPriorities
= lens _bbrevpcPriorities
(\ s a -> s{_bbrevpcPriorities = a})
. _Default
. _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2PriorityCapabilities where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2PriorityCapabilities"
(\ o ->
BuildBazelRemoteExecutionV2PriorityCapabilities' <$>
(o .:? "priorities" .!= mempty))
instance ToJSON
BuildBazelRemoteExecutionV2PriorityCapabilities where
toJSON
BuildBazelRemoteExecutionV2PriorityCapabilities'{..}
= object
(catMaybes
[("priorities" .=) <$> _bbrevpcPriorities])
newtype BuildBazelRemoteExecutionV2BatchUpdateBlobsRequest = BuildBazelRemoteExecutionV2BatchUpdateBlobsRequest'
{ _bbrevbubrRequests :: Maybe [BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest]
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2BatchUpdateBlobsRequest
:: BuildBazelRemoteExecutionV2BatchUpdateBlobsRequest
buildBazelRemoteExecutionV2BatchUpdateBlobsRequest =
BuildBazelRemoteExecutionV2BatchUpdateBlobsRequest'
{ _bbrevbubrRequests = Nothing
}
bbrevbubrRequests :: Lens' BuildBazelRemoteExecutionV2BatchUpdateBlobsRequest [BuildBazelRemoteExecutionV2BatchUpdateBlobsRequestRequest]
bbrevbubrRequests
= lens _bbrevbubrRequests
(\ s a -> s{_bbrevbubrRequests = a})
. _Default
. _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsRequest
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2BatchUpdateBlobsRequest"
(\ o ->
BuildBazelRemoteExecutionV2BatchUpdateBlobsRequest'
<$> (o .:? "requests" .!= mempty))
instance ToJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsRequest
where
toJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsRequest'{..}
= object
(catMaybes [("requests" .=) <$> _bbrevbubrRequests])
data GoogleDevtoolsRemoteexecutionV1testLogFile = GoogleDevtoolsRemoteexecutionV1testLogFile'
{ _gdrvlfHumanReadable :: !(Maybe Bool)
, _gdrvlfDigest :: !(Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteexecutionV1testLogFile
:: GoogleDevtoolsRemoteexecutionV1testLogFile
googleDevtoolsRemoteexecutionV1testLogFile =
GoogleDevtoolsRemoteexecutionV1testLogFile'
{ _gdrvlfHumanReadable = Nothing
, _gdrvlfDigest = Nothing
}
gdrvlfHumanReadable :: Lens' GoogleDevtoolsRemoteexecutionV1testLogFile (Maybe Bool)
gdrvlfHumanReadable
= lens _gdrvlfHumanReadable
(\ s a -> s{_gdrvlfHumanReadable = a})
gdrvlfDigest :: Lens' GoogleDevtoolsRemoteexecutionV1testLogFile (Maybe GoogleDevtoolsRemoteexecutionV1testDigest)
gdrvlfDigest
= lens _gdrvlfDigest (\ s a -> s{_gdrvlfDigest = a})
instance FromJSON
GoogleDevtoolsRemoteexecutionV1testLogFile where
parseJSON
= withObject
"GoogleDevtoolsRemoteexecutionV1testLogFile"
(\ o ->
GoogleDevtoolsRemoteexecutionV1testLogFile' <$>
(o .:? "humanReadable") <*> (o .:? "digest"))
instance ToJSON
GoogleDevtoolsRemoteexecutionV1testLogFile where
toJSON
GoogleDevtoolsRemoteexecutionV1testLogFile'{..}
= object
(catMaybes
[("humanReadable" .=) <$> _gdrvlfHumanReadable,
("digest" .=) <$> _gdrvlfDigest])
data BuildBazelRemoteExecutionV2RequestMetadata = BuildBazelRemoteExecutionV2RequestMetadata'
{ _bbrevrmCorrelatedInvocationsId :: !(Maybe Text)
, _bbrevrmToolInvocationId :: !(Maybe Text)
, _bbrevrmActionId :: !(Maybe Text)
, _bbrevrmToolDetails :: !(Maybe BuildBazelRemoteExecutionV2ToolDetails)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2RequestMetadata
:: BuildBazelRemoteExecutionV2RequestMetadata
buildBazelRemoteExecutionV2RequestMetadata =
BuildBazelRemoteExecutionV2RequestMetadata'
{ _bbrevrmCorrelatedInvocationsId = Nothing
, _bbrevrmToolInvocationId = Nothing
, _bbrevrmActionId = Nothing
, _bbrevrmToolDetails = Nothing
}
bbrevrmCorrelatedInvocationsId :: Lens' BuildBazelRemoteExecutionV2RequestMetadata (Maybe Text)
bbrevrmCorrelatedInvocationsId
= lens _bbrevrmCorrelatedInvocationsId
(\ s a -> s{_bbrevrmCorrelatedInvocationsId = a})
bbrevrmToolInvocationId :: Lens' BuildBazelRemoteExecutionV2RequestMetadata (Maybe Text)
bbrevrmToolInvocationId
= lens _bbrevrmToolInvocationId
(\ s a -> s{_bbrevrmToolInvocationId = a})
bbrevrmActionId :: Lens' BuildBazelRemoteExecutionV2RequestMetadata (Maybe Text)
bbrevrmActionId
= lens _bbrevrmActionId
(\ s a -> s{_bbrevrmActionId = a})
bbrevrmToolDetails :: Lens' BuildBazelRemoteExecutionV2RequestMetadata (Maybe BuildBazelRemoteExecutionV2ToolDetails)
bbrevrmToolDetails
= lens _bbrevrmToolDetails
(\ s a -> s{_bbrevrmToolDetails = a})
instance FromJSON
BuildBazelRemoteExecutionV2RequestMetadata where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2RequestMetadata"
(\ o ->
BuildBazelRemoteExecutionV2RequestMetadata' <$>
(o .:? "correlatedInvocationsId") <*>
(o .:? "toolInvocationId")
<*> (o .:? "actionId")
<*> (o .:? "toolDetails"))
instance ToJSON
BuildBazelRemoteExecutionV2RequestMetadata where
toJSON
BuildBazelRemoteExecutionV2RequestMetadata'{..}
= object
(catMaybes
[("correlatedInvocationsId" .=) <$>
_bbrevrmCorrelatedInvocationsId,
("toolInvocationId" .=) <$> _bbrevrmToolInvocationId,
("actionId" .=) <$> _bbrevrmActionId,
("toolDetails" .=) <$> _bbrevrmToolDetails])
newtype BuildBazelRemoteExecutionV2Platform = BuildBazelRemoteExecutionV2Platform'
{ _bbrevpProperties :: Maybe [BuildBazelRemoteExecutionV2PlatformProperty]
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2Platform
:: BuildBazelRemoteExecutionV2Platform
buildBazelRemoteExecutionV2Platform =
BuildBazelRemoteExecutionV2Platform'
{ _bbrevpProperties = Nothing
}
bbrevpProperties :: Lens' BuildBazelRemoteExecutionV2Platform [BuildBazelRemoteExecutionV2PlatformProperty]
bbrevpProperties
= lens _bbrevpProperties
(\ s a -> s{_bbrevpProperties = a})
. _Default
. _Coerce
instance FromJSON BuildBazelRemoteExecutionV2Platform
where
parseJSON
= withObject "BuildBazelRemoteExecutionV2Platform"
(\ o ->
BuildBazelRemoteExecutionV2Platform' <$>
(o .:? "properties" .!= mempty))
instance ToJSON BuildBazelRemoteExecutionV2Platform
where
toJSON BuildBazelRemoteExecutionV2Platform'{..}
= object
(catMaybes [("properties" .=) <$> _bbrevpProperties])
data BuildBazelRemoteExecutionV2ExecuteOperationMetadata = BuildBazelRemoteExecutionV2ExecuteOperationMetadata'
{ _bbreveomStage :: !(Maybe BuildBazelRemoteExecutionV2ExecuteOperationMetadataStage)
, _bbreveomStderrStreamName :: !(Maybe Text)
, _bbreveomStdoutStreamName :: !(Maybe Text)
, _bbreveomActionDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ExecuteOperationMetadata
:: BuildBazelRemoteExecutionV2ExecuteOperationMetadata
buildBazelRemoteExecutionV2ExecuteOperationMetadata =
BuildBazelRemoteExecutionV2ExecuteOperationMetadata'
{ _bbreveomStage = Nothing
, _bbreveomStderrStreamName = Nothing
, _bbreveomStdoutStreamName = Nothing
, _bbreveomActionDigest = Nothing
}
bbreveomStage :: Lens' BuildBazelRemoteExecutionV2ExecuteOperationMetadata (Maybe BuildBazelRemoteExecutionV2ExecuteOperationMetadataStage)
bbreveomStage
= lens _bbreveomStage
(\ s a -> s{_bbreveomStage = a})
bbreveomStderrStreamName :: Lens' BuildBazelRemoteExecutionV2ExecuteOperationMetadata (Maybe Text)
bbreveomStderrStreamName
= lens _bbreveomStderrStreamName
(\ s a -> s{_bbreveomStderrStreamName = a})
bbreveomStdoutStreamName :: Lens' BuildBazelRemoteExecutionV2ExecuteOperationMetadata (Maybe Text)
bbreveomStdoutStreamName
= lens _bbreveomStdoutStreamName
(\ s a -> s{_bbreveomStdoutStreamName = a})
bbreveomActionDigest :: Lens' BuildBazelRemoteExecutionV2ExecuteOperationMetadata (Maybe BuildBazelRemoteExecutionV2Digest)
bbreveomActionDigest
= lens _bbreveomActionDigest
(\ s a -> s{_bbreveomActionDigest = a})
instance FromJSON
BuildBazelRemoteExecutionV2ExecuteOperationMetadata
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2ExecuteOperationMetadata"
(\ o ->
BuildBazelRemoteExecutionV2ExecuteOperationMetadata'
<$>
(o .:? "stage") <*> (o .:? "stderrStreamName") <*>
(o .:? "stdoutStreamName")
<*> (o .:? "actionDigest"))
instance ToJSON
BuildBazelRemoteExecutionV2ExecuteOperationMetadata
where
toJSON
BuildBazelRemoteExecutionV2ExecuteOperationMetadata'{..}
= object
(catMaybes
[("stage" .=) <$> _bbreveomStage,
("stderrStreamName" .=) <$>
_bbreveomStderrStreamName,
("stdoutStreamName" .=) <$>
_bbreveomStdoutStreamName,
("actionDigest" .=) <$> _bbreveomActionDigest])
newtype GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest = GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest'
{ _gdravlwprParent :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest
:: GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest
googleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest =
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest'
{ _gdravlwprParent = Nothing
}
gdravlwprParent :: Lens' GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest (Maybe Text)
gdravlwprParent
= lens _gdravlwprParent
(\ s a -> s{_gdravlwprParent = a})
instance FromJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest
where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest"
(\ o ->
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest'
<$> (o .:? "parent"))
instance ToJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest
where
toJSON
GoogleDevtoolsRemotebuildexecutionAdminV1alphaListWorkerPoolsRequest'{..}
= object
(catMaybes [("parent" .=) <$> _gdravlwprParent])
data BuildBazelRemoteExecutionV2Command = BuildBazelRemoteExecutionV2Command'
{ _bbrevcPlatform :: !(Maybe BuildBazelRemoteExecutionV2Platform)
, _bbrevcOutputDirectories :: !(Maybe [Text])
, _bbrevcWorkingDirectory :: !(Maybe Text)
, _bbrevcArguments :: !(Maybe [Text])
, _bbrevcOutputFiles :: !(Maybe [Text])
, _bbrevcEnvironmentVariables :: !(Maybe [BuildBazelRemoteExecutionV2CommandEnvironmentVariable])
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2Command
:: BuildBazelRemoteExecutionV2Command
buildBazelRemoteExecutionV2Command =
BuildBazelRemoteExecutionV2Command'
{ _bbrevcPlatform = Nothing
, _bbrevcOutputDirectories = Nothing
, _bbrevcWorkingDirectory = Nothing
, _bbrevcArguments = Nothing
, _bbrevcOutputFiles = Nothing
, _bbrevcEnvironmentVariables = Nothing
}
bbrevcPlatform :: Lens' BuildBazelRemoteExecutionV2Command (Maybe BuildBazelRemoteExecutionV2Platform)
bbrevcPlatform
= lens _bbrevcPlatform
(\ s a -> s{_bbrevcPlatform = a})
bbrevcOutputDirectories :: Lens' BuildBazelRemoteExecutionV2Command [Text]
bbrevcOutputDirectories
= lens _bbrevcOutputDirectories
(\ s a -> s{_bbrevcOutputDirectories = a})
. _Default
. _Coerce
bbrevcWorkingDirectory :: Lens' BuildBazelRemoteExecutionV2Command (Maybe Text)
bbrevcWorkingDirectory
= lens _bbrevcWorkingDirectory
(\ s a -> s{_bbrevcWorkingDirectory = a})
bbrevcArguments :: Lens' BuildBazelRemoteExecutionV2Command [Text]
bbrevcArguments
= lens _bbrevcArguments
(\ s a -> s{_bbrevcArguments = a})
. _Default
. _Coerce
bbrevcOutputFiles :: Lens' BuildBazelRemoteExecutionV2Command [Text]
bbrevcOutputFiles
= lens _bbrevcOutputFiles
(\ s a -> s{_bbrevcOutputFiles = a})
. _Default
. _Coerce
bbrevcEnvironmentVariables :: Lens' BuildBazelRemoteExecutionV2Command [BuildBazelRemoteExecutionV2CommandEnvironmentVariable]
bbrevcEnvironmentVariables
= lens _bbrevcEnvironmentVariables
(\ s a -> s{_bbrevcEnvironmentVariables = a})
. _Default
. _Coerce
instance FromJSON BuildBazelRemoteExecutionV2Command
where
parseJSON
= withObject "BuildBazelRemoteExecutionV2Command"
(\ o ->
BuildBazelRemoteExecutionV2Command' <$>
(o .:? "platform") <*>
(o .:? "outputDirectories" .!= mempty)
<*> (o .:? "workingDirectory")
<*> (o .:? "arguments" .!= mempty)
<*> (o .:? "outputFiles" .!= mempty)
<*> (o .:? "environmentVariables" .!= mempty))
instance ToJSON BuildBazelRemoteExecutionV2Command
where
toJSON BuildBazelRemoteExecutionV2Command'{..}
= object
(catMaybes
[("platform" .=) <$> _bbrevcPlatform,
("outputDirectories" .=) <$>
_bbrevcOutputDirectories,
("workingDirectory" .=) <$> _bbrevcWorkingDirectory,
("arguments" .=) <$> _bbrevcArguments,
("outputFiles" .=) <$> _bbrevcOutputFiles,
("environmentVariables" .=) <$>
_bbrevcEnvironmentVariables])
data BuildBazelRemoteExecutionV2ToolDetails = BuildBazelRemoteExecutionV2ToolDetails'
{ _bbrevtdToolName :: !(Maybe Text)
, _bbrevtdToolVersion :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2ToolDetails
:: BuildBazelRemoteExecutionV2ToolDetails
buildBazelRemoteExecutionV2ToolDetails =
BuildBazelRemoteExecutionV2ToolDetails'
{ _bbrevtdToolName = Nothing
, _bbrevtdToolVersion = Nothing
}
bbrevtdToolName :: Lens' BuildBazelRemoteExecutionV2ToolDetails (Maybe Text)
bbrevtdToolName
= lens _bbrevtdToolName
(\ s a -> s{_bbrevtdToolName = a})
bbrevtdToolVersion :: Lens' BuildBazelRemoteExecutionV2ToolDetails (Maybe Text)
bbrevtdToolVersion
= lens _bbrevtdToolVersion
(\ s a -> s{_bbrevtdToolVersion = a})
instance FromJSON
BuildBazelRemoteExecutionV2ToolDetails where
parseJSON
= withObject "BuildBazelRemoteExecutionV2ToolDetails"
(\ o ->
BuildBazelRemoteExecutionV2ToolDetails' <$>
(o .:? "toolName") <*> (o .:? "toolVersion"))
instance ToJSON
BuildBazelRemoteExecutionV2ToolDetails where
toJSON BuildBazelRemoteExecutionV2ToolDetails'{..}
= object
(catMaybes
[("toolName" .=) <$> _bbrevtdToolName,
("toolVersion" .=) <$> _bbrevtdToolVersion])
data BuildBazelRemoteExecutionV2CacheCapabilities = BuildBazelRemoteExecutionV2CacheCapabilities'
{ _bbrevccSymlinkAbsolutePathStrategy :: !(Maybe BuildBazelRemoteExecutionV2CacheCapabilitiesSymlinkAbsolutePathStrategy)
, _bbrevccMaxBatchTotalSizeBytes :: !(Maybe (Textual Int64))
, _bbrevccDigestFunction :: !(Maybe [Text])
, _bbrevccActionCacheUpdateCapabilities :: !(Maybe BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities)
, _bbrevccCachePriorityCapabilities :: !(Maybe BuildBazelRemoteExecutionV2PriorityCapabilities)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2CacheCapabilities
:: BuildBazelRemoteExecutionV2CacheCapabilities
buildBazelRemoteExecutionV2CacheCapabilities =
BuildBazelRemoteExecutionV2CacheCapabilities'
{ _bbrevccSymlinkAbsolutePathStrategy = Nothing
, _bbrevccMaxBatchTotalSizeBytes = Nothing
, _bbrevccDigestFunction = Nothing
, _bbrevccActionCacheUpdateCapabilities = Nothing
, _bbrevccCachePriorityCapabilities = Nothing
}
bbrevccSymlinkAbsolutePathStrategy :: Lens' BuildBazelRemoteExecutionV2CacheCapabilities (Maybe BuildBazelRemoteExecutionV2CacheCapabilitiesSymlinkAbsolutePathStrategy)
bbrevccSymlinkAbsolutePathStrategy
= lens _bbrevccSymlinkAbsolutePathStrategy
(\ s a -> s{_bbrevccSymlinkAbsolutePathStrategy = a})
bbrevccMaxBatchTotalSizeBytes :: Lens' BuildBazelRemoteExecutionV2CacheCapabilities (Maybe Int64)
bbrevccMaxBatchTotalSizeBytes
= lens _bbrevccMaxBatchTotalSizeBytes
(\ s a -> s{_bbrevccMaxBatchTotalSizeBytes = a})
. mapping _Coerce
bbrevccDigestFunction :: Lens' BuildBazelRemoteExecutionV2CacheCapabilities [Text]
bbrevccDigestFunction
= lens _bbrevccDigestFunction
(\ s a -> s{_bbrevccDigestFunction = a})
. _Default
. _Coerce
bbrevccActionCacheUpdateCapabilities :: Lens' BuildBazelRemoteExecutionV2CacheCapabilities (Maybe BuildBazelRemoteExecutionV2ActionCacheUpdateCapabilities)
bbrevccActionCacheUpdateCapabilities
= lens _bbrevccActionCacheUpdateCapabilities
(\ s a ->
s{_bbrevccActionCacheUpdateCapabilities = a})
bbrevccCachePriorityCapabilities :: Lens' BuildBazelRemoteExecutionV2CacheCapabilities (Maybe BuildBazelRemoteExecutionV2PriorityCapabilities)
bbrevccCachePriorityCapabilities
= lens _bbrevccCachePriorityCapabilities
(\ s a -> s{_bbrevccCachePriorityCapabilities = a})
instance FromJSON
BuildBazelRemoteExecutionV2CacheCapabilities where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2CacheCapabilities"
(\ o ->
BuildBazelRemoteExecutionV2CacheCapabilities' <$>
(o .:? "symlinkAbsolutePathStrategy") <*>
(o .:? "maxBatchTotalSizeBytes")
<*> (o .:? "digestFunction" .!= mempty)
<*> (o .:? "actionCacheUpdateCapabilities")
<*> (o .:? "cachePriorityCapabilities"))
instance ToJSON
BuildBazelRemoteExecutionV2CacheCapabilities where
toJSON
BuildBazelRemoteExecutionV2CacheCapabilities'{..}
= object
(catMaybes
[("symlinkAbsolutePathStrategy" .=) <$>
_bbrevccSymlinkAbsolutePathStrategy,
("maxBatchTotalSizeBytes" .=) <$>
_bbrevccMaxBatchTotalSizeBytes,
("digestFunction" .=) <$> _bbrevccDigestFunction,
("actionCacheUpdateCapabilities" .=) <$>
_bbrevccActionCacheUpdateCapabilities,
("cachePriorityCapabilities" .=) <$>
_bbrevccCachePriorityCapabilities])
data GoogleDevtoolsRemotebuildbotCommandEvents = GoogleDevtoolsRemotebuildbotCommandEvents'
{ _gdrceDockerCacheHit :: !(Maybe Bool)
, _gdrceNumErrors :: !(Maybe (Textual Word64))
, _gdrceNumWarnings :: !(Maybe (Textual Word64))
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemotebuildbotCommandEvents
:: GoogleDevtoolsRemotebuildbotCommandEvents
googleDevtoolsRemotebuildbotCommandEvents =
GoogleDevtoolsRemotebuildbotCommandEvents'
{ _gdrceDockerCacheHit = Nothing
, _gdrceNumErrors = Nothing
, _gdrceNumWarnings = Nothing
}
gdrceDockerCacheHit :: Lens' GoogleDevtoolsRemotebuildbotCommandEvents (Maybe Bool)
gdrceDockerCacheHit
= lens _gdrceDockerCacheHit
(\ s a -> s{_gdrceDockerCacheHit = a})
gdrceNumErrors :: Lens' GoogleDevtoolsRemotebuildbotCommandEvents (Maybe Word64)
gdrceNumErrors
= lens _gdrceNumErrors
(\ s a -> s{_gdrceNumErrors = a})
. mapping _Coerce
gdrceNumWarnings :: Lens' GoogleDevtoolsRemotebuildbotCommandEvents (Maybe Word64)
gdrceNumWarnings
= lens _gdrceNumWarnings
(\ s a -> s{_gdrceNumWarnings = a})
. mapping _Coerce
instance FromJSON
GoogleDevtoolsRemotebuildbotCommandEvents where
parseJSON
= withObject
"GoogleDevtoolsRemotebuildbotCommandEvents"
(\ o ->
GoogleDevtoolsRemotebuildbotCommandEvents' <$>
(o .:? "dockerCacheHit") <*> (o .:? "numErrors") <*>
(o .:? "numWarnings"))
instance ToJSON
GoogleDevtoolsRemotebuildbotCommandEvents where
toJSON GoogleDevtoolsRemotebuildbotCommandEvents'{..}
= object
(catMaybes
[("dockerCacheHit" .=) <$> _gdrceDockerCacheHit,
("numErrors" .=) <$> _gdrceNumErrors,
("numWarnings" .=) <$> _gdrceNumWarnings])
data GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs = GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs'
{ _gdrvctoDirectories :: !(Maybe [Text])
, _gdrvctoStderrDestination :: !(Maybe Text)
, _gdrvctoFiles :: !(Maybe [Text])
, _gdrvctoStdoutDestination :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleDevtoolsRemoteworkersV1test2CommandTaskOutputs
:: GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs
googleDevtoolsRemoteworkersV1test2CommandTaskOutputs =
GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs'
{ _gdrvctoDirectories = Nothing
, _gdrvctoStderrDestination = Nothing
, _gdrvctoFiles = Nothing
, _gdrvctoStdoutDestination = Nothing
}
gdrvctoDirectories :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs [Text]
gdrvctoDirectories
= lens _gdrvctoDirectories
(\ s a -> s{_gdrvctoDirectories = a})
. _Default
. _Coerce
gdrvctoStderrDestination :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs (Maybe Text)
gdrvctoStderrDestination
= lens _gdrvctoStderrDestination
(\ s a -> s{_gdrvctoStderrDestination = a})
gdrvctoFiles :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs [Text]
gdrvctoFiles
= lens _gdrvctoFiles (\ s a -> s{_gdrvctoFiles = a})
. _Default
. _Coerce
gdrvctoStdoutDestination :: Lens' GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs (Maybe Text)
gdrvctoStdoutDestination
= lens _gdrvctoStdoutDestination
(\ s a -> s{_gdrvctoStdoutDestination = a})
instance FromJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs
where
parseJSON
= withObject
"GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs"
(\ o ->
GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs'
<$>
(o .:? "directories" .!= mempty) <*>
(o .:? "stderrDestination")
<*> (o .:? "files" .!= mempty)
<*> (o .:? "stdoutDestination"))
instance ToJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs
where
toJSON
GoogleDevtoolsRemoteworkersV1test2CommandTaskOutputs'{..}
= object
(catMaybes
[("directories" .=) <$> _gdrvctoDirectories,
("stderrDestination" .=) <$>
_gdrvctoStderrDestination,
("files" .=) <$> _gdrvctoFiles,
("stdoutDestination" .=) <$>
_gdrvctoStdoutDestination])
data GoogleLongrunningOperation = GoogleLongrunningOperation'
{ _gloDone :: !(Maybe Bool)
, _gloError :: !(Maybe GoogleRpcStatus)
, _gloResponse :: !(Maybe GoogleLongrunningOperationResponse)
, _gloName :: !(Maybe Text)
, _gloMetadata :: !(Maybe GoogleLongrunningOperationMetadata)
} deriving (Eq,Show,Data,Typeable,Generic)
googleLongrunningOperation
:: GoogleLongrunningOperation
googleLongrunningOperation =
GoogleLongrunningOperation'
{ _gloDone = Nothing
, _gloError = Nothing
, _gloResponse = Nothing
, _gloName = Nothing
, _gloMetadata = Nothing
}
gloDone :: Lens' GoogleLongrunningOperation (Maybe Bool)
gloDone = lens _gloDone (\ s a -> s{_gloDone = a})
gloError :: Lens' GoogleLongrunningOperation (Maybe GoogleRpcStatus)
gloError = lens _gloError (\ s a -> s{_gloError = a})
gloResponse :: Lens' GoogleLongrunningOperation (Maybe GoogleLongrunningOperationResponse)
gloResponse
= lens _gloResponse (\ s a -> s{_gloResponse = a})
gloName :: Lens' GoogleLongrunningOperation (Maybe Text)
gloName = lens _gloName (\ s a -> s{_gloName = a})
gloMetadata :: Lens' GoogleLongrunningOperation (Maybe GoogleLongrunningOperationMetadata)
gloMetadata
= lens _gloMetadata (\ s a -> s{_gloMetadata = a})
instance FromJSON GoogleLongrunningOperation where
parseJSON
= withObject "GoogleLongrunningOperation"
(\ o ->
GoogleLongrunningOperation' <$>
(o .:? "done") <*> (o .:? "error") <*>
(o .:? "response")
<*> (o .:? "name")
<*> (o .:? "metadata"))
instance ToJSON GoogleLongrunningOperation where
toJSON GoogleLongrunningOperation'{..}
= object
(catMaybes
[("done" .=) <$> _gloDone,
("error" .=) <$> _gloError,
("response" .=) <$> _gloResponse,
("name" .=) <$> _gloName,
("metadata" .=) <$> _gloMetadata])
data BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse = BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse'
{ _bStatus :: !(Maybe GoogleRpcStatus)
, _bDigest :: !(Maybe BuildBazelRemoteExecutionV2Digest)
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse
:: BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse
buildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse =
BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse'
{ _bStatus = Nothing
, _bDigest = Nothing
}
bStatus :: Lens' BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse (Maybe GoogleRpcStatus)
bStatus = lens _bStatus (\ s a -> s{_bStatus = a})
bDigest :: Lens' BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse (Maybe BuildBazelRemoteExecutionV2Digest)
bDigest = lens _bDigest (\ s a -> s{_bDigest = a})
instance FromJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse"
(\ o ->
BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse'
<$> (o .:? "status") <*> (o .:? "digest"))
instance ToJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse
where
toJSON
BuildBazelRemoteExecutionV2BatchUpdateBlobsResponseResponse'{..}
= object
(catMaybes
[("status" .=) <$> _bStatus,
("digest" .=) <$> _bDigest])
newtype BuildBazelRemoteExecutionV2BatchReadBlobsResponse = BuildBazelRemoteExecutionV2BatchReadBlobsResponse'
{ _bbrevbrbrResponses :: Maybe [BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse]
} deriving (Eq,Show,Data,Typeable,Generic)
buildBazelRemoteExecutionV2BatchReadBlobsResponse
:: BuildBazelRemoteExecutionV2BatchReadBlobsResponse
buildBazelRemoteExecutionV2BatchReadBlobsResponse =
BuildBazelRemoteExecutionV2BatchReadBlobsResponse'
{ _bbrevbrbrResponses = Nothing
}
bbrevbrbrResponses :: Lens' BuildBazelRemoteExecutionV2BatchReadBlobsResponse [BuildBazelRemoteExecutionV2BatchReadBlobsResponseResponse]
bbrevbrbrResponses
= lens _bbrevbrbrResponses
(\ s a -> s{_bbrevbrbrResponses = a})
. _Default
. _Coerce
instance FromJSON
BuildBazelRemoteExecutionV2BatchReadBlobsResponse
where
parseJSON
= withObject
"BuildBazelRemoteExecutionV2BatchReadBlobsResponse"
(\ o ->
BuildBazelRemoteExecutionV2BatchReadBlobsResponse'
<$> (o .:? "responses" .!= mempty))
instance ToJSON
BuildBazelRemoteExecutionV2BatchReadBlobsResponse
where
toJSON
BuildBazelRemoteExecutionV2BatchReadBlobsResponse'{..}
= object
(catMaybes
[("responses" .=) <$> _bbrevbrbrResponses])