{-# 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.BigtableAdmin.Types.Product where
import Network.Google.BigtableAdmin.Types.Sum
import Network.Google.Prelude
data SingleClusterRouting = SingleClusterRouting'
{ _scrAllowTransactionalWrites :: !(Maybe Bool)
, _scrClusterId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
singleClusterRouting
:: SingleClusterRouting
singleClusterRouting =
SingleClusterRouting'
{ _scrAllowTransactionalWrites = Nothing
, _scrClusterId = Nothing
}
scrAllowTransactionalWrites :: Lens' SingleClusterRouting (Maybe Bool)
scrAllowTransactionalWrites
= lens _scrAllowTransactionalWrites
(\ s a -> s{_scrAllowTransactionalWrites = a})
scrClusterId :: Lens' SingleClusterRouting (Maybe Text)
scrClusterId
= lens _scrClusterId (\ s a -> s{_scrClusterId = a})
instance FromJSON SingleClusterRouting where
parseJSON
= withObject "SingleClusterRouting"
(\ o ->
SingleClusterRouting' <$>
(o .:? "allowTransactionalWrites") <*>
(o .:? "clusterId"))
instance ToJSON SingleClusterRouting where
toJSON SingleClusterRouting'{..}
= object
(catMaybes
[("allowTransactionalWrites" .=) <$>
_scrAllowTransactionalWrites,
("clusterId" .=) <$> _scrClusterId])
newtype InstanceLabels = InstanceLabels'
{ _ilAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
instanceLabels
:: HashMap Text Text
-> InstanceLabels
instanceLabels pIlAddtional_ =
InstanceLabels'
{ _ilAddtional = _Coerce # pIlAddtional_
}
ilAddtional :: Lens' InstanceLabels (HashMap Text Text)
ilAddtional
= lens _ilAddtional (\ s a -> s{_ilAddtional = a}) .
_Coerce
instance FromJSON InstanceLabels where
parseJSON
= withObject "InstanceLabels"
(\ o -> InstanceLabels' <$> (parseJSONObject o))
instance ToJSON InstanceLabels where
toJSON = toJSON . _ilAddtional
data Status = Status'
{ _sDetails :: !(Maybe [StatusDetailsItem])
, _sCode :: !(Maybe (Textual Int32))
, _sMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
status
:: Status
status =
Status'
{ _sDetails = Nothing
, _sCode = Nothing
, _sMessage = Nothing
}
sDetails :: Lens' Status [StatusDetailsItem]
sDetails
= lens _sDetails (\ s a -> s{_sDetails = a}) .
_Default
. _Coerce
sCode :: Lens' Status (Maybe Int32)
sCode
= lens _sCode (\ s a -> s{_sCode = a}) .
mapping _Coerce
sMessage :: Lens' Status (Maybe Text)
sMessage = lens _sMessage (\ s a -> s{_sMessage = a})
instance FromJSON Status where
parseJSON
= withObject "Status"
(\ o ->
Status' <$>
(o .:? "details" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON Status where
toJSON Status'{..}
= object
(catMaybes
[("details" .=) <$> _sDetails,
("code" .=) <$> _sCode,
("message" .=) <$> _sMessage])
data CreateInstanceRequest = CreateInstanceRequest'
{ _cirParent :: !(Maybe Text)
, _cirInstanceId :: !(Maybe Text)
, _cirClusters :: !(Maybe CreateInstanceRequestClusters)
, _cirInstance :: !(Maybe Instance)
} deriving (Eq,Show,Data,Typeable,Generic)
createInstanceRequest
:: CreateInstanceRequest
createInstanceRequest =
CreateInstanceRequest'
{ _cirParent = Nothing
, _cirInstanceId = Nothing
, _cirClusters = Nothing
, _cirInstance = Nothing
}
cirParent :: Lens' CreateInstanceRequest (Maybe Text)
cirParent
= lens _cirParent (\ s a -> s{_cirParent = a})
cirInstanceId :: Lens' CreateInstanceRequest (Maybe Text)
cirInstanceId
= lens _cirInstanceId
(\ s a -> s{_cirInstanceId = a})
cirClusters :: Lens' CreateInstanceRequest (Maybe CreateInstanceRequestClusters)
cirClusters
= lens _cirClusters (\ s a -> s{_cirClusters = a})
cirInstance :: Lens' CreateInstanceRequest (Maybe Instance)
cirInstance
= lens _cirInstance (\ s a -> s{_cirInstance = a})
instance FromJSON CreateInstanceRequest where
parseJSON
= withObject "CreateInstanceRequest"
(\ o ->
CreateInstanceRequest' <$>
(o .:? "parent") <*> (o .:? "instanceId") <*>
(o .:? "clusters")
<*> (o .:? "instance"))
instance ToJSON CreateInstanceRequest where
toJSON CreateInstanceRequest'{..}
= object
(catMaybes
[("parent" .=) <$> _cirParent,
("instanceId" .=) <$> _cirInstanceId,
("clusters" .=) <$> _cirClusters,
("instance" .=) <$> _cirInstance])
data AuditConfig = AuditConfig'
{ _acService :: !(Maybe Text)
, _acAuditLogConfigs :: !(Maybe [AuditLogConfig])
} deriving (Eq,Show,Data,Typeable,Generic)
auditConfig
:: AuditConfig
auditConfig =
AuditConfig'
{ _acService = Nothing
, _acAuditLogConfigs = Nothing
}
acService :: Lens' AuditConfig (Maybe Text)
acService
= lens _acService (\ s a -> s{_acService = a})
acAuditLogConfigs :: Lens' AuditConfig [AuditLogConfig]
acAuditLogConfigs
= lens _acAuditLogConfigs
(\ s a -> s{_acAuditLogConfigs = a})
. _Default
. _Coerce
instance FromJSON AuditConfig where
parseJSON
= withObject "AuditConfig"
(\ o ->
AuditConfig' <$>
(o .:? "service") <*>
(o .:? "auditLogConfigs" .!= mempty))
instance ToJSON AuditConfig where
toJSON AuditConfig'{..}
= object
(catMaybes
[("service" .=) <$> _acService,
("auditLogConfigs" .=) <$> _acAuditLogConfigs])
data GenerateConsistencyTokenRequest =
GenerateConsistencyTokenRequest'
deriving (Eq,Show,Data,Typeable,Generic)
generateConsistencyTokenRequest
:: GenerateConsistencyTokenRequest
generateConsistencyTokenRequest = GenerateConsistencyTokenRequest'
instance FromJSON GenerateConsistencyTokenRequest
where
parseJSON
= withObject "GenerateConsistencyTokenRequest"
(\ o -> pure GenerateConsistencyTokenRequest')
instance ToJSON GenerateConsistencyTokenRequest where
toJSON = const emptyObject
newtype ModifyColumnFamiliesRequest = ModifyColumnFamiliesRequest'
{ _mcfrModifications :: Maybe [Modification]
} deriving (Eq,Show,Data,Typeable,Generic)
modifyColumnFamiliesRequest
:: ModifyColumnFamiliesRequest
modifyColumnFamiliesRequest =
ModifyColumnFamiliesRequest'
{ _mcfrModifications = Nothing
}
mcfrModifications :: Lens' ModifyColumnFamiliesRequest [Modification]
mcfrModifications
= lens _mcfrModifications
(\ s a -> s{_mcfrModifications = a})
. _Default
. _Coerce
instance FromJSON ModifyColumnFamiliesRequest where
parseJSON
= withObject "ModifyColumnFamiliesRequest"
(\ o ->
ModifyColumnFamiliesRequest' <$>
(o .:? "modifications" .!= mempty))
instance ToJSON ModifyColumnFamiliesRequest where
toJSON ModifyColumnFamiliesRequest'{..}
= object
(catMaybes
[("modifications" .=) <$> _mcfrModifications])
data Expr = Expr'
{ _eLocation :: !(Maybe Text)
, _eExpression :: !(Maybe Text)
, _eTitle :: !(Maybe Text)
, _eDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
expr
:: Expr
expr =
Expr'
{ _eLocation = Nothing
, _eExpression = Nothing
, _eTitle = Nothing
, _eDescription = Nothing
}
eLocation :: Lens' Expr (Maybe Text)
eLocation
= lens _eLocation (\ s a -> s{_eLocation = a})
eExpression :: Lens' Expr (Maybe Text)
eExpression
= lens _eExpression (\ s a -> s{_eExpression = a})
eTitle :: Lens' Expr (Maybe Text)
eTitle = lens _eTitle (\ s a -> s{_eTitle = a})
eDescription :: Lens' Expr (Maybe Text)
eDescription
= lens _eDescription (\ s a -> s{_eDescription = a})
instance FromJSON Expr where
parseJSON
= withObject "Expr"
(\ o ->
Expr' <$>
(o .:? "location") <*> (o .:? "expression") <*>
(o .:? "title")
<*> (o .:? "description"))
instance ToJSON Expr where
toJSON Expr'{..}
= object
(catMaybes
[("location" .=) <$> _eLocation,
("expression" .=) <$> _eExpression,
("title" .=) <$> _eTitle,
("description" .=) <$> _eDescription])
data ListOperationsResponse = ListOperationsResponse'
{ _lorNextPageToken :: !(Maybe Text)
, _lorOperations :: !(Maybe [Operation])
} deriving (Eq,Show,Data,Typeable,Generic)
listOperationsResponse
:: ListOperationsResponse
listOperationsResponse =
ListOperationsResponse'
{ _lorNextPageToken = Nothing
, _lorOperations = Nothing
}
lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text)
lorNextPageToken
= lens _lorNextPageToken
(\ s a -> s{_lorNextPageToken = a})
lorOperations :: Lens' ListOperationsResponse [Operation]
lorOperations
= lens _lorOperations
(\ s a -> s{_lorOperations = a})
. _Default
. _Coerce
instance FromJSON ListOperationsResponse where
parseJSON
= withObject "ListOperationsResponse"
(\ o ->
ListOperationsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "operations" .!= mempty))
instance ToJSON ListOperationsResponse where
toJSON ListOperationsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lorNextPageToken,
("operations" .=) <$> _lorOperations])
data CreateClusterRequest = CreateClusterRequest'
{ _ccrParent :: !(Maybe Text)
, _ccrCluster :: !(Maybe Cluster)
, _ccrClusterId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
createClusterRequest
:: CreateClusterRequest
createClusterRequest =
CreateClusterRequest'
{ _ccrParent = Nothing
, _ccrCluster = Nothing
, _ccrClusterId = Nothing
}
ccrParent :: Lens' CreateClusterRequest (Maybe Text)
ccrParent
= lens _ccrParent (\ s a -> s{_ccrParent = a})
ccrCluster :: Lens' CreateClusterRequest (Maybe Cluster)
ccrCluster
= lens _ccrCluster (\ s a -> s{_ccrCluster = a})
ccrClusterId :: Lens' CreateClusterRequest (Maybe Text)
ccrClusterId
= lens _ccrClusterId (\ s a -> s{_ccrClusterId = a})
instance FromJSON CreateClusterRequest where
parseJSON
= withObject "CreateClusterRequest"
(\ o ->
CreateClusterRequest' <$>
(o .:? "parent") <*> (o .:? "cluster") <*>
(o .:? "clusterId"))
instance ToJSON CreateClusterRequest where
toJSON CreateClusterRequest'{..}
= object
(catMaybes
[("parent" .=) <$> _ccrParent,
("cluster" .=) <$> _ccrCluster,
("clusterId" .=) <$> _ccrClusterId])
data GetIAMPolicyRequest =
GetIAMPolicyRequest'
deriving (Eq,Show,Data,Typeable,Generic)
getIAMPolicyRequest
:: GetIAMPolicyRequest
getIAMPolicyRequest = GetIAMPolicyRequest'
instance FromJSON GetIAMPolicyRequest where
parseJSON
= withObject "GetIAMPolicyRequest"
(\ o -> pure GetIAMPolicyRequest')
instance ToJSON GetIAMPolicyRequest where
toJSON = const emptyObject
data Cluster = Cluster'
{ _cState :: !(Maybe ClusterType)
, _cDefaultStorageType :: !(Maybe ClusterDefaultStorageType)
, _cLocation :: !(Maybe Text)
, _cServeNodes :: !(Maybe (Textual Int32))
, _cName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
cluster
:: Cluster
cluster =
Cluster'
{ _cState = Nothing
, _cDefaultStorageType = Nothing
, _cLocation = Nothing
, _cServeNodes = Nothing
, _cName = Nothing
}
cState :: Lens' Cluster (Maybe ClusterType)
cState = lens _cState (\ s a -> s{_cState = a})
cDefaultStorageType :: Lens' Cluster (Maybe ClusterDefaultStorageType)
cDefaultStorageType
= lens _cDefaultStorageType
(\ s a -> s{_cDefaultStorageType = a})
cLocation :: Lens' Cluster (Maybe Text)
cLocation
= lens _cLocation (\ s a -> s{_cLocation = a})
cServeNodes :: Lens' Cluster (Maybe Int32)
cServeNodes
= lens _cServeNodes (\ s a -> s{_cServeNodes = a}) .
mapping _Coerce
cName :: Lens' Cluster (Maybe Text)
cName = lens _cName (\ s a -> s{_cName = a})
instance FromJSON Cluster where
parseJSON
= withObject "Cluster"
(\ o ->
Cluster' <$>
(o .:? "state") <*> (o .:? "defaultStorageType") <*>
(o .:? "location")
<*> (o .:? "serveNodes")
<*> (o .:? "name"))
instance ToJSON Cluster where
toJSON Cluster'{..}
= object
(catMaybes
[("state" .=) <$> _cState,
("defaultStorageType" .=) <$> _cDefaultStorageType,
("location" .=) <$> _cLocation,
("serveNodes" .=) <$> _cServeNodes,
("name" .=) <$> _cName])
newtype Split = Split'
{ _sKey :: Maybe Bytes
} deriving (Eq,Show,Data,Typeable,Generic)
split
:: Split
split =
Split'
{ _sKey = Nothing
}
sKey :: Lens' Split (Maybe ByteString)
sKey
= lens _sKey (\ s a -> s{_sKey = a}) . mapping _Bytes
instance FromJSON Split where
parseJSON
= withObject "Split"
(\ o -> Split' <$> (o .:? "key"))
instance ToJSON Split where
toJSON Split'{..}
= object (catMaybes [("key" .=) <$> _sKey])
data MultiClusterRoutingUseAny =
MultiClusterRoutingUseAny'
deriving (Eq,Show,Data,Typeable,Generic)
multiClusterRoutingUseAny
:: MultiClusterRoutingUseAny
multiClusterRoutingUseAny = MultiClusterRoutingUseAny'
instance FromJSON MultiClusterRoutingUseAny where
parseJSON
= withObject "MultiClusterRoutingUseAny"
(\ o -> pure MultiClusterRoutingUseAny')
instance ToJSON MultiClusterRoutingUseAny where
toJSON = const emptyObject
newtype ClusterState = ClusterState'
{ _csReplicationState :: Maybe ClusterStateReplicationState
} deriving (Eq,Show,Data,Typeable,Generic)
clusterState
:: ClusterState
clusterState =
ClusterState'
{ _csReplicationState = Nothing
}
csReplicationState :: Lens' ClusterState (Maybe ClusterStateReplicationState)
csReplicationState
= lens _csReplicationState
(\ s a -> s{_csReplicationState = a})
instance FromJSON ClusterState where
parseJSON
= withObject "ClusterState"
(\ o -> ClusterState' <$> (o .:? "replicationState"))
instance ToJSON ClusterState where
toJSON ClusterState'{..}
= object
(catMaybes
[("replicationState" .=) <$> _csReplicationState])
data Operation = Operation'
{ _oDone :: !(Maybe Bool)
, _oError :: !(Maybe Status)
, _oResponse :: !(Maybe OperationResponse)
, _oName :: !(Maybe Text)
, _oMetadata :: !(Maybe OperationMetadata)
} deriving (Eq,Show,Data,Typeable,Generic)
operation
:: Operation
operation =
Operation'
{ _oDone = Nothing
, _oError = Nothing
, _oResponse = Nothing
, _oName = Nothing
, _oMetadata = Nothing
}
oDone :: Lens' Operation (Maybe Bool)
oDone = lens _oDone (\ s a -> s{_oDone = a})
oError :: Lens' Operation (Maybe Status)
oError = lens _oError (\ s a -> s{_oError = a})
oResponse :: Lens' Operation (Maybe OperationResponse)
oResponse
= lens _oResponse (\ s a -> s{_oResponse = a})
oName :: Lens' Operation (Maybe Text)
oName = lens _oName (\ s a -> s{_oName = a})
oMetadata :: Lens' Operation (Maybe OperationMetadata)
oMetadata
= lens _oMetadata (\ s a -> s{_oMetadata = a})
instance FromJSON Operation where
parseJSON
= withObject "Operation"
(\ o ->
Operation' <$>
(o .:? "done") <*> (o .:? "error") <*>
(o .:? "response")
<*> (o .:? "name")
<*> (o .:? "metadata"))
instance ToJSON Operation where
toJSON Operation'{..}
= object
(catMaybes
[("done" .=) <$> _oDone, ("error" .=) <$> _oError,
("response" .=) <$> _oResponse,
("name" .=) <$> _oName,
("metadata" .=) <$> _oMetadata])
data Empty =
Empty'
deriving (Eq,Show,Data,Typeable,Generic)
empty
:: Empty
empty = Empty'
instance FromJSON Empty where
parseJSON = withObject "Empty" (\ o -> pure Empty')
instance ToJSON Empty where
toJSON = const emptyObject
data ListAppProFilesResponse = ListAppProFilesResponse'
{ _lapfrNextPageToken :: !(Maybe Text)
, _lapfrFailedLocations :: !(Maybe [Text])
, _lapfrAppProFiles :: !(Maybe [AppProFile])
} deriving (Eq,Show,Data,Typeable,Generic)
listAppProFilesResponse
:: ListAppProFilesResponse
listAppProFilesResponse =
ListAppProFilesResponse'
{ _lapfrNextPageToken = Nothing
, _lapfrFailedLocations = Nothing
, _lapfrAppProFiles = Nothing
}
lapfrNextPageToken :: Lens' ListAppProFilesResponse (Maybe Text)
lapfrNextPageToken
= lens _lapfrNextPageToken
(\ s a -> s{_lapfrNextPageToken = a})
lapfrFailedLocations :: Lens' ListAppProFilesResponse [Text]
lapfrFailedLocations
= lens _lapfrFailedLocations
(\ s a -> s{_lapfrFailedLocations = a})
. _Default
. _Coerce
lapfrAppProFiles :: Lens' ListAppProFilesResponse [AppProFile]
lapfrAppProFiles
= lens _lapfrAppProFiles
(\ s a -> s{_lapfrAppProFiles = a})
. _Default
. _Coerce
instance FromJSON ListAppProFilesResponse where
parseJSON
= withObject "ListAppProFilesResponse"
(\ o ->
ListAppProFilesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "failedLocations" .!= mempty)
<*> (o .:? "appProfiles" .!= mempty))
instance ToJSON ListAppProFilesResponse where
toJSON ListAppProFilesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lapfrNextPageToken,
("failedLocations" .=) <$> _lapfrFailedLocations,
("appProfiles" .=) <$> _lapfrAppProFiles])
newtype TableClusterStates = TableClusterStates'
{ _tcsAddtional :: HashMap Text ClusterState
} deriving (Eq,Show,Data,Typeable,Generic)
tableClusterStates
:: HashMap Text ClusterState
-> TableClusterStates
tableClusterStates pTcsAddtional_ =
TableClusterStates'
{ _tcsAddtional = _Coerce # pTcsAddtional_
}
tcsAddtional :: Lens' TableClusterStates (HashMap Text ClusterState)
tcsAddtional
= lens _tcsAddtional (\ s a -> s{_tcsAddtional = a})
. _Coerce
instance FromJSON TableClusterStates where
parseJSON
= withObject "TableClusterStates"
(\ o -> TableClusterStates' <$> (parseJSONObject o))
instance ToJSON TableClusterStates where
toJSON = toJSON . _tcsAddtional
newtype TableColumnFamilies = TableColumnFamilies'
{ _tcfAddtional :: HashMap Text ColumnFamily
} deriving (Eq,Show,Data,Typeable,Generic)
tableColumnFamilies
:: HashMap Text ColumnFamily
-> TableColumnFamilies
tableColumnFamilies pTcfAddtional_ =
TableColumnFamilies'
{ _tcfAddtional = _Coerce # pTcfAddtional_
}
tcfAddtional :: Lens' TableColumnFamilies (HashMap Text ColumnFamily)
tcfAddtional
= lens _tcfAddtional (\ s a -> s{_tcfAddtional = a})
. _Coerce
instance FromJSON TableColumnFamilies where
parseJSON
= withObject "TableColumnFamilies"
(\ o -> TableColumnFamilies' <$> (parseJSONObject o))
instance ToJSON TableColumnFamilies where
toJSON = toJSON . _tcfAddtional
data CreateTableRequest = CreateTableRequest'
{ _ctrInitialSplits :: !(Maybe [Split])
, _ctrTableId :: !(Maybe Text)
, _ctrTable :: !(Maybe Table)
} deriving (Eq,Show,Data,Typeable,Generic)
createTableRequest
:: CreateTableRequest
createTableRequest =
CreateTableRequest'
{ _ctrInitialSplits = Nothing
, _ctrTableId = Nothing
, _ctrTable = Nothing
}
ctrInitialSplits :: Lens' CreateTableRequest [Split]
ctrInitialSplits
= lens _ctrInitialSplits
(\ s a -> s{_ctrInitialSplits = a})
. _Default
. _Coerce
ctrTableId :: Lens' CreateTableRequest (Maybe Text)
ctrTableId
= lens _ctrTableId (\ s a -> s{_ctrTableId = a})
ctrTable :: Lens' CreateTableRequest (Maybe Table)
ctrTable = lens _ctrTable (\ s a -> s{_ctrTable = a})
instance FromJSON CreateTableRequest where
parseJSON
= withObject "CreateTableRequest"
(\ o ->
CreateTableRequest' <$>
(o .:? "initialSplits" .!= mempty) <*>
(o .:? "tableId")
<*> (o .:? "table"))
instance ToJSON CreateTableRequest where
toJSON CreateTableRequest'{..}
= object
(catMaybes
[("initialSplits" .=) <$> _ctrInitialSplits,
("tableId" .=) <$> _ctrTableId,
("table" .=) <$> _ctrTable])
data CreateClusterMetadata = CreateClusterMetadata'
{ _ccmRequestTime :: !(Maybe DateTime')
, _ccmOriginalRequest :: !(Maybe CreateClusterRequest)
, _ccmFinishTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
createClusterMetadata
:: CreateClusterMetadata
createClusterMetadata =
CreateClusterMetadata'
{ _ccmRequestTime = Nothing
, _ccmOriginalRequest = Nothing
, _ccmFinishTime = Nothing
}
ccmRequestTime :: Lens' CreateClusterMetadata (Maybe UTCTime)
ccmRequestTime
= lens _ccmRequestTime
(\ s a -> s{_ccmRequestTime = a})
. mapping _DateTime
ccmOriginalRequest :: Lens' CreateClusterMetadata (Maybe CreateClusterRequest)
ccmOriginalRequest
= lens _ccmOriginalRequest
(\ s a -> s{_ccmOriginalRequest = a})
ccmFinishTime :: Lens' CreateClusterMetadata (Maybe UTCTime)
ccmFinishTime
= lens _ccmFinishTime
(\ s a -> s{_ccmFinishTime = a})
. mapping _DateTime
instance FromJSON CreateClusterMetadata where
parseJSON
= withObject "CreateClusterMetadata"
(\ o ->
CreateClusterMetadata' <$>
(o .:? "requestTime") <*> (o .:? "originalRequest")
<*> (o .:? "finishTime"))
instance ToJSON CreateClusterMetadata where
toJSON CreateClusterMetadata'{..}
= object
(catMaybes
[("requestTime" .=) <$> _ccmRequestTime,
("originalRequest" .=) <$> _ccmOriginalRequest,
("finishTime" .=) <$> _ccmFinishTime])
newtype Union = Union'
{ _uRules :: Maybe [GcRule]
} deriving (Eq,Show,Data,Typeable,Generic)
union
:: Union
union =
Union'
{ _uRules = Nothing
}
uRules :: Lens' Union [GcRule]
uRules
= lens _uRules (\ s a -> s{_uRules = a}) . _Default .
_Coerce
instance FromJSON Union where
parseJSON
= withObject "Union"
(\ o -> Union' <$> (o .:? "rules" .!= mempty))
instance ToJSON Union where
toJSON Union'{..}
= object (catMaybes [("rules" .=) <$> _uRules])
newtype StatusDetailsItem = StatusDetailsItem'
{ _sdiAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
statusDetailsItem
:: HashMap Text JSONValue
-> StatusDetailsItem
statusDetailsItem pSdiAddtional_ =
StatusDetailsItem'
{ _sdiAddtional = _Coerce # pSdiAddtional_
}
sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)
sdiAddtional
= lens _sdiAddtional (\ s a -> s{_sdiAddtional = a})
. _Coerce
instance FromJSON StatusDetailsItem where
parseJSON
= withObject "StatusDetailsItem"
(\ o -> StatusDetailsItem' <$> (parseJSONObject o))
instance ToJSON StatusDetailsItem where
toJSON = toJSON . _sdiAddtional
data UpdateAppProFileMetadata =
UpdateAppProFileMetadata'
deriving (Eq,Show,Data,Typeable,Generic)
updateAppProFileMetadata
:: UpdateAppProFileMetadata
updateAppProFileMetadata = UpdateAppProFileMetadata'
instance FromJSON UpdateAppProFileMetadata where
parseJSON
= withObject "UpdateAppProFileMetadata"
(\ o -> pure UpdateAppProFileMetadata')
instance ToJSON UpdateAppProFileMetadata where
toJSON = const emptyObject
data UpdateClusterMetadata = UpdateClusterMetadata'
{ _ucmRequestTime :: !(Maybe DateTime')
, _ucmOriginalRequest :: !(Maybe Cluster)
, _ucmFinishTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
updateClusterMetadata
:: UpdateClusterMetadata
updateClusterMetadata =
UpdateClusterMetadata'
{ _ucmRequestTime = Nothing
, _ucmOriginalRequest = Nothing
, _ucmFinishTime = Nothing
}
ucmRequestTime :: Lens' UpdateClusterMetadata (Maybe UTCTime)
ucmRequestTime
= lens _ucmRequestTime
(\ s a -> s{_ucmRequestTime = a})
. mapping _DateTime
ucmOriginalRequest :: Lens' UpdateClusterMetadata (Maybe Cluster)
ucmOriginalRequest
= lens _ucmOriginalRequest
(\ s a -> s{_ucmOriginalRequest = a})
ucmFinishTime :: Lens' UpdateClusterMetadata (Maybe UTCTime)
ucmFinishTime
= lens _ucmFinishTime
(\ s a -> s{_ucmFinishTime = a})
. mapping _DateTime
instance FromJSON UpdateClusterMetadata where
parseJSON
= withObject "UpdateClusterMetadata"
(\ o ->
UpdateClusterMetadata' <$>
(o .:? "requestTime") <*> (o .:? "originalRequest")
<*> (o .:? "finishTime"))
instance ToJSON UpdateClusterMetadata where
toJSON UpdateClusterMetadata'{..}
= object
(catMaybes
[("requestTime" .=) <$> _ucmRequestTime,
("originalRequest" .=) <$> _ucmOriginalRequest,
("finishTime" .=) <$> _ucmFinishTime])
data SetIAMPolicyRequest = SetIAMPolicyRequest'
{ _siprUpdateMask :: !(Maybe GFieldMask)
, _siprPolicy :: !(Maybe Policy)
} deriving (Eq,Show,Data,Typeable,Generic)
setIAMPolicyRequest
:: SetIAMPolicyRequest
setIAMPolicyRequest =
SetIAMPolicyRequest'
{ _siprUpdateMask = Nothing
, _siprPolicy = Nothing
}
siprUpdateMask :: Lens' SetIAMPolicyRequest (Maybe GFieldMask)
siprUpdateMask
= lens _siprUpdateMask
(\ s a -> s{_siprUpdateMask = a})
siprPolicy :: Lens' SetIAMPolicyRequest (Maybe Policy)
siprPolicy
= lens _siprPolicy (\ s a -> s{_siprPolicy = a})
instance FromJSON SetIAMPolicyRequest where
parseJSON
= withObject "SetIAMPolicyRequest"
(\ o ->
SetIAMPolicyRequest' <$>
(o .:? "updateMask") <*> (o .:? "policy"))
instance ToJSON SetIAMPolicyRequest where
toJSON SetIAMPolicyRequest'{..}
= object
(catMaybes
[("updateMask" .=) <$> _siprUpdateMask,
("policy" .=) <$> _siprPolicy])
newtype CheckConsistencyRequest = CheckConsistencyRequest'
{ _ccrConsistencyToken :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
checkConsistencyRequest
:: CheckConsistencyRequest
checkConsistencyRequest =
CheckConsistencyRequest'
{ _ccrConsistencyToken = Nothing
}
ccrConsistencyToken :: Lens' CheckConsistencyRequest (Maybe Text)
ccrConsistencyToken
= lens _ccrConsistencyToken
(\ s a -> s{_ccrConsistencyToken = a})
instance FromJSON CheckConsistencyRequest where
parseJSON
= withObject "CheckConsistencyRequest"
(\ o ->
CheckConsistencyRequest' <$>
(o .:? "consistencyToken"))
instance ToJSON CheckConsistencyRequest where
toJSON CheckConsistencyRequest'{..}
= object
(catMaybes
[("consistencyToken" .=) <$> _ccrConsistencyToken])
data ListTablesResponse = ListTablesResponse'
{ _ltrNextPageToken :: !(Maybe Text)
, _ltrTables :: !(Maybe [Table])
} deriving (Eq,Show,Data,Typeable,Generic)
listTablesResponse
:: ListTablesResponse
listTablesResponse =
ListTablesResponse'
{ _ltrNextPageToken = Nothing
, _ltrTables = Nothing
}
ltrNextPageToken :: Lens' ListTablesResponse (Maybe Text)
ltrNextPageToken
= lens _ltrNextPageToken
(\ s a -> s{_ltrNextPageToken = a})
ltrTables :: Lens' ListTablesResponse [Table]
ltrTables
= lens _ltrTables (\ s a -> s{_ltrTables = a}) .
_Default
. _Coerce
instance FromJSON ListTablesResponse where
parseJSON
= withObject "ListTablesResponse"
(\ o ->
ListTablesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "tables" .!= mempty))
instance ToJSON ListTablesResponse where
toJSON ListTablesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ltrNextPageToken,
("tables" .=) <$> _ltrTables])
data PartialUpdateInstanceRequest = PartialUpdateInstanceRequest'
{ _puirUpdateMask :: !(Maybe GFieldMask)
, _puirInstance :: !(Maybe Instance)
} deriving (Eq,Show,Data,Typeable,Generic)
partialUpdateInstanceRequest
:: PartialUpdateInstanceRequest
partialUpdateInstanceRequest =
PartialUpdateInstanceRequest'
{ _puirUpdateMask = Nothing
, _puirInstance = Nothing
}
puirUpdateMask :: Lens' PartialUpdateInstanceRequest (Maybe GFieldMask)
puirUpdateMask
= lens _puirUpdateMask
(\ s a -> s{_puirUpdateMask = a})
puirInstance :: Lens' PartialUpdateInstanceRequest (Maybe Instance)
puirInstance
= lens _puirInstance (\ s a -> s{_puirInstance = a})
instance FromJSON PartialUpdateInstanceRequest where
parseJSON
= withObject "PartialUpdateInstanceRequest"
(\ o ->
PartialUpdateInstanceRequest' <$>
(o .:? "updateMask") <*> (o .:? "instance"))
instance ToJSON PartialUpdateInstanceRequest where
toJSON PartialUpdateInstanceRequest'{..}
= object
(catMaybes
[("updateMask" .=) <$> _puirUpdateMask,
("instance" .=) <$> _puirInstance])
data GcRule = GcRule'
{ _grMaxAge :: !(Maybe GDuration)
, _grUnion :: !(Maybe Union)
, _grIntersection :: !(Maybe Intersection)
, _grMaxNumVersions :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
gcRule
:: GcRule
gcRule =
GcRule'
{ _grMaxAge = Nothing
, _grUnion = Nothing
, _grIntersection = Nothing
, _grMaxNumVersions = Nothing
}
grMaxAge :: Lens' GcRule (Maybe Scientific)
grMaxAge
= lens _grMaxAge (\ s a -> s{_grMaxAge = a}) .
mapping _GDuration
grUnion :: Lens' GcRule (Maybe Union)
grUnion = lens _grUnion (\ s a -> s{_grUnion = a})
grIntersection :: Lens' GcRule (Maybe Intersection)
grIntersection
= lens _grIntersection
(\ s a -> s{_grIntersection = a})
grMaxNumVersions :: Lens' GcRule (Maybe Int32)
grMaxNumVersions
= lens _grMaxNumVersions
(\ s a -> s{_grMaxNumVersions = a})
. mapping _Coerce
instance FromJSON GcRule where
parseJSON
= withObject "GcRule"
(\ o ->
GcRule' <$>
(o .:? "maxAge") <*> (o .:? "union") <*>
(o .:? "intersection")
<*> (o .:? "maxNumVersions"))
instance ToJSON GcRule where
toJSON GcRule'{..}
= object
(catMaybes
[("maxAge" .=) <$> _grMaxAge,
("union" .=) <$> _grUnion,
("intersection" .=) <$> _grIntersection,
("maxNumVersions" .=) <$> _grMaxNumVersions])
newtype TestIAMPermissionsRequest = TestIAMPermissionsRequest'
{ _tiprPermissions :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
testIAMPermissionsRequest
:: TestIAMPermissionsRequest
testIAMPermissionsRequest =
TestIAMPermissionsRequest'
{ _tiprPermissions = Nothing
}
tiprPermissions :: Lens' TestIAMPermissionsRequest [Text]
tiprPermissions
= lens _tiprPermissions
(\ s a -> s{_tiprPermissions = a})
. _Default
. _Coerce
instance FromJSON TestIAMPermissionsRequest where
parseJSON
= withObject "TestIAMPermissionsRequest"
(\ o ->
TestIAMPermissionsRequest' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON TestIAMPermissionsRequest where
toJSON TestIAMPermissionsRequest'{..}
= object
(catMaybes [("permissions" .=) <$> _tiprPermissions])
data AppProFile = AppProFile'
{ _apfSingleClusterRouting :: !(Maybe SingleClusterRouting)
, _apfEtag :: !(Maybe Text)
, _apfMultiClusterRoutingUseAny :: !(Maybe MultiClusterRoutingUseAny)
, _apfName :: !(Maybe Text)
, _apfDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appProFile
:: AppProFile
appProFile =
AppProFile'
{ _apfSingleClusterRouting = Nothing
, _apfEtag = Nothing
, _apfMultiClusterRoutingUseAny = Nothing
, _apfName = Nothing
, _apfDescription = Nothing
}
apfSingleClusterRouting :: Lens' AppProFile (Maybe SingleClusterRouting)
apfSingleClusterRouting
= lens _apfSingleClusterRouting
(\ s a -> s{_apfSingleClusterRouting = a})
apfEtag :: Lens' AppProFile (Maybe Text)
apfEtag = lens _apfEtag (\ s a -> s{_apfEtag = a})
apfMultiClusterRoutingUseAny :: Lens' AppProFile (Maybe MultiClusterRoutingUseAny)
apfMultiClusterRoutingUseAny
= lens _apfMultiClusterRoutingUseAny
(\ s a -> s{_apfMultiClusterRoutingUseAny = a})
apfName :: Lens' AppProFile (Maybe Text)
apfName = lens _apfName (\ s a -> s{_apfName = a})
apfDescription :: Lens' AppProFile (Maybe Text)
apfDescription
= lens _apfDescription
(\ s a -> s{_apfDescription = a})
instance FromJSON AppProFile where
parseJSON
= withObject "AppProFile"
(\ o ->
AppProFile' <$>
(o .:? "singleClusterRouting") <*> (o .:? "etag") <*>
(o .:? "multiClusterRoutingUseAny")
<*> (o .:? "name")
<*> (o .:? "description"))
instance ToJSON AppProFile where
toJSON AppProFile'{..}
= object
(catMaybes
[("singleClusterRouting" .=) <$>
_apfSingleClusterRouting,
("etag" .=) <$> _apfEtag,
("multiClusterRoutingUseAny" .=) <$>
_apfMultiClusterRoutingUseAny,
("name" .=) <$> _apfName,
("description" .=) <$> _apfDescription])
newtype CreateInstanceRequestClusters = CreateInstanceRequestClusters'
{ _circAddtional :: HashMap Text Cluster
} deriving (Eq,Show,Data,Typeable,Generic)
createInstanceRequestClusters
:: HashMap Text Cluster
-> CreateInstanceRequestClusters
createInstanceRequestClusters pCircAddtional_ =
CreateInstanceRequestClusters'
{ _circAddtional = _Coerce # pCircAddtional_
}
circAddtional :: Lens' CreateInstanceRequestClusters (HashMap Text Cluster)
circAddtional
= lens _circAddtional
(\ s a -> s{_circAddtional = a})
. _Coerce
instance FromJSON CreateInstanceRequestClusters where
parseJSON
= withObject "CreateInstanceRequestClusters"
(\ o ->
CreateInstanceRequestClusters' <$>
(parseJSONObject o))
instance ToJSON CreateInstanceRequestClusters where
toJSON = toJSON . _circAddtional
newtype GenerateConsistencyTokenResponse = GenerateConsistencyTokenResponse'
{ _gctrConsistencyToken :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
generateConsistencyTokenResponse
:: GenerateConsistencyTokenResponse
generateConsistencyTokenResponse =
GenerateConsistencyTokenResponse'
{ _gctrConsistencyToken = Nothing
}
gctrConsistencyToken :: Lens' GenerateConsistencyTokenResponse (Maybe Text)
gctrConsistencyToken
= lens _gctrConsistencyToken
(\ s a -> s{_gctrConsistencyToken = a})
instance FromJSON GenerateConsistencyTokenResponse
where
parseJSON
= withObject "GenerateConsistencyTokenResponse"
(\ o ->
GenerateConsistencyTokenResponse' <$>
(o .:? "consistencyToken"))
instance ToJSON GenerateConsistencyTokenResponse
where
toJSON GenerateConsistencyTokenResponse'{..}
= object
(catMaybes
[("consistencyToken" .=) <$> _gctrConsistencyToken])
data DropRowRangeRequest = DropRowRangeRequest'
{ _drrrRowKeyPrefix :: !(Maybe Bytes)
, _drrrDeleteAllDataFromTable :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
dropRowRangeRequest
:: DropRowRangeRequest
dropRowRangeRequest =
DropRowRangeRequest'
{ _drrrRowKeyPrefix = Nothing
, _drrrDeleteAllDataFromTable = Nothing
}
drrrRowKeyPrefix :: Lens' DropRowRangeRequest (Maybe ByteString)
drrrRowKeyPrefix
= lens _drrrRowKeyPrefix
(\ s a -> s{_drrrRowKeyPrefix = a})
. mapping _Bytes
drrrDeleteAllDataFromTable :: Lens' DropRowRangeRequest (Maybe Bool)
drrrDeleteAllDataFromTable
= lens _drrrDeleteAllDataFromTable
(\ s a -> s{_drrrDeleteAllDataFromTable = a})
instance FromJSON DropRowRangeRequest where
parseJSON
= withObject "DropRowRangeRequest"
(\ o ->
DropRowRangeRequest' <$>
(o .:? "rowKeyPrefix") <*>
(o .:? "deleteAllDataFromTable"))
instance ToJSON DropRowRangeRequest where
toJSON DropRowRangeRequest'{..}
= object
(catMaybes
[("rowKeyPrefix" .=) <$> _drrrRowKeyPrefix,
("deleteAllDataFromTable" .=) <$>
_drrrDeleteAllDataFromTable])
data UpdateInstanceMetadata = UpdateInstanceMetadata'
{ _uimRequestTime :: !(Maybe DateTime')
, _uimOriginalRequest :: !(Maybe PartialUpdateInstanceRequest)
, _uimFinishTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
updateInstanceMetadata
:: UpdateInstanceMetadata
updateInstanceMetadata =
UpdateInstanceMetadata'
{ _uimRequestTime = Nothing
, _uimOriginalRequest = Nothing
, _uimFinishTime = Nothing
}
uimRequestTime :: Lens' UpdateInstanceMetadata (Maybe UTCTime)
uimRequestTime
= lens _uimRequestTime
(\ s a -> s{_uimRequestTime = a})
. mapping _DateTime
uimOriginalRequest :: Lens' UpdateInstanceMetadata (Maybe PartialUpdateInstanceRequest)
uimOriginalRequest
= lens _uimOriginalRequest
(\ s a -> s{_uimOriginalRequest = a})
uimFinishTime :: Lens' UpdateInstanceMetadata (Maybe UTCTime)
uimFinishTime
= lens _uimFinishTime
(\ s a -> s{_uimFinishTime = a})
. mapping _DateTime
instance FromJSON UpdateInstanceMetadata where
parseJSON
= withObject "UpdateInstanceMetadata"
(\ o ->
UpdateInstanceMetadata' <$>
(o .:? "requestTime") <*> (o .:? "originalRequest")
<*> (o .:? "finishTime"))
instance ToJSON UpdateInstanceMetadata where
toJSON UpdateInstanceMetadata'{..}
= object
(catMaybes
[("requestTime" .=) <$> _uimRequestTime,
("originalRequest" .=) <$> _uimOriginalRequest,
("finishTime" .=) <$> _uimFinishTime])
newtype Intersection = Intersection'
{ _iRules :: Maybe [GcRule]
} deriving (Eq,Show,Data,Typeable,Generic)
intersection
:: Intersection
intersection =
Intersection'
{ _iRules = Nothing
}
iRules :: Lens' Intersection [GcRule]
iRules
= lens _iRules (\ s a -> s{_iRules = a}) . _Default .
_Coerce
instance FromJSON Intersection where
parseJSON
= withObject "Intersection"
(\ o -> Intersection' <$> (o .:? "rules" .!= mempty))
instance ToJSON Intersection where
toJSON Intersection'{..}
= object (catMaybes [("rules" .=) <$> _iRules])
newtype ColumnFamily = ColumnFamily'
{ _cfGcRule :: Maybe GcRule
} deriving (Eq,Show,Data,Typeable,Generic)
columnFamily
:: ColumnFamily
columnFamily =
ColumnFamily'
{ _cfGcRule = Nothing
}
cfGcRule :: Lens' ColumnFamily (Maybe GcRule)
cfGcRule = lens _cfGcRule (\ s a -> s{_cfGcRule = a})
instance FromJSON ColumnFamily where
parseJSON
= withObject "ColumnFamily"
(\ o -> ColumnFamily' <$> (o .:? "gcRule"))
instance ToJSON ColumnFamily where
toJSON ColumnFamily'{..}
= object (catMaybes [("gcRule" .=) <$> _cfGcRule])
newtype TestIAMPermissionsResponse = TestIAMPermissionsResponse'
{ _tiamprPermissions :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
testIAMPermissionsResponse
:: TestIAMPermissionsResponse
testIAMPermissionsResponse =
TestIAMPermissionsResponse'
{ _tiamprPermissions = Nothing
}
tiamprPermissions :: Lens' TestIAMPermissionsResponse [Text]
tiamprPermissions
= lens _tiamprPermissions
(\ s a -> s{_tiamprPermissions = a})
. _Default
. _Coerce
instance FromJSON TestIAMPermissionsResponse where
parseJSON
= withObject "TestIAMPermissionsResponse"
(\ o ->
TestIAMPermissionsResponse' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON TestIAMPermissionsResponse where
toJSON TestIAMPermissionsResponse'{..}
= object
(catMaybes
[("permissions" .=) <$> _tiamprPermissions])
data ListClustersResponse = ListClustersResponse'
{ _lcrNextPageToken :: !(Maybe Text)
, _lcrFailedLocations :: !(Maybe [Text])
, _lcrClusters :: !(Maybe [Cluster])
} deriving (Eq,Show,Data,Typeable,Generic)
listClustersResponse
:: ListClustersResponse
listClustersResponse =
ListClustersResponse'
{ _lcrNextPageToken = Nothing
, _lcrFailedLocations = Nothing
, _lcrClusters = Nothing
}
lcrNextPageToken :: Lens' ListClustersResponse (Maybe Text)
lcrNextPageToken
= lens _lcrNextPageToken
(\ s a -> s{_lcrNextPageToken = a})
lcrFailedLocations :: Lens' ListClustersResponse [Text]
lcrFailedLocations
= lens _lcrFailedLocations
(\ s a -> s{_lcrFailedLocations = a})
. _Default
. _Coerce
lcrClusters :: Lens' ListClustersResponse [Cluster]
lcrClusters
= lens _lcrClusters (\ s a -> s{_lcrClusters = a}) .
_Default
. _Coerce
instance FromJSON ListClustersResponse where
parseJSON
= withObject "ListClustersResponse"
(\ o ->
ListClustersResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "failedLocations" .!= mempty)
<*> (o .:? "clusters" .!= mempty))
instance ToJSON ListClustersResponse where
toJSON ListClustersResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lcrNextPageToken,
("failedLocations" .=) <$> _lcrFailedLocations,
("clusters" .=) <$> _lcrClusters])
data Policy = Policy'
{ _pAuditConfigs :: !(Maybe [AuditConfig])
, _pEtag :: !(Maybe Bytes)
, _pVersion :: !(Maybe (Textual Int32))
, _pBindings :: !(Maybe [Binding])
} deriving (Eq,Show,Data,Typeable,Generic)
policy
:: Policy
policy =
Policy'
{ _pAuditConfigs = Nothing
, _pEtag = Nothing
, _pVersion = Nothing
, _pBindings = Nothing
}
pAuditConfigs :: Lens' Policy [AuditConfig]
pAuditConfigs
= lens _pAuditConfigs
(\ s a -> s{_pAuditConfigs = a})
. _Default
. _Coerce
pEtag :: Lens' Policy (Maybe ByteString)
pEtag
= lens _pEtag (\ s a -> s{_pEtag = a}) .
mapping _Bytes
pVersion :: Lens' Policy (Maybe Int32)
pVersion
= lens _pVersion (\ s a -> s{_pVersion = a}) .
mapping _Coerce
pBindings :: Lens' Policy [Binding]
pBindings
= lens _pBindings (\ s a -> s{_pBindings = a}) .
_Default
. _Coerce
instance FromJSON Policy where
parseJSON
= withObject "Policy"
(\ o ->
Policy' <$>
(o .:? "auditConfigs" .!= mempty) <*> (o .:? "etag")
<*> (o .:? "version")
<*> (o .:? "bindings" .!= mempty))
instance ToJSON Policy where
toJSON Policy'{..}
= object
(catMaybes
[("auditConfigs" .=) <$> _pAuditConfigs,
("etag" .=) <$> _pEtag, ("version" .=) <$> _pVersion,
("bindings" .=) <$> _pBindings])
data CreateInstanceMetadata = CreateInstanceMetadata'
{ _cimRequestTime :: !(Maybe DateTime')
, _cimOriginalRequest :: !(Maybe CreateInstanceRequest)
, _cimFinishTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
createInstanceMetadata
:: CreateInstanceMetadata
createInstanceMetadata =
CreateInstanceMetadata'
{ _cimRequestTime = Nothing
, _cimOriginalRequest = Nothing
, _cimFinishTime = Nothing
}
cimRequestTime :: Lens' CreateInstanceMetadata (Maybe UTCTime)
cimRequestTime
= lens _cimRequestTime
(\ s a -> s{_cimRequestTime = a})
. mapping _DateTime
cimOriginalRequest :: Lens' CreateInstanceMetadata (Maybe CreateInstanceRequest)
cimOriginalRequest
= lens _cimOriginalRequest
(\ s a -> s{_cimOriginalRequest = a})
cimFinishTime :: Lens' CreateInstanceMetadata (Maybe UTCTime)
cimFinishTime
= lens _cimFinishTime
(\ s a -> s{_cimFinishTime = a})
. mapping _DateTime
instance FromJSON CreateInstanceMetadata where
parseJSON
= withObject "CreateInstanceMetadata"
(\ o ->
CreateInstanceMetadata' <$>
(o .:? "requestTime") <*> (o .:? "originalRequest")
<*> (o .:? "finishTime"))
instance ToJSON CreateInstanceMetadata where
toJSON CreateInstanceMetadata'{..}
= object
(catMaybes
[("requestTime" .=) <$> _cimRequestTime,
("originalRequest" .=) <$> _cimOriginalRequest,
("finishTime" .=) <$> _cimFinishTime])
newtype OperationMetadata = OperationMetadata'
{ _omAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
operationMetadata
:: HashMap Text JSONValue
-> OperationMetadata
operationMetadata pOmAddtional_ =
OperationMetadata'
{ _omAddtional = _Coerce # pOmAddtional_
}
omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue)
omAddtional
= lens _omAddtional (\ s a -> s{_omAddtional = a}) .
_Coerce
instance FromJSON OperationMetadata where
parseJSON
= withObject "OperationMetadata"
(\ o -> OperationMetadata' <$> (parseJSONObject o))
instance ToJSON OperationMetadata where
toJSON = toJSON . _omAddtional
data AuditLogConfig = AuditLogConfig'
{ _alcLogType :: !(Maybe AuditLogConfigLogType)
, _alcExemptedMembers :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
auditLogConfig
:: AuditLogConfig
auditLogConfig =
AuditLogConfig'
{ _alcLogType = Nothing
, _alcExemptedMembers = Nothing
}
alcLogType :: Lens' AuditLogConfig (Maybe AuditLogConfigLogType)
alcLogType
= lens _alcLogType (\ s a -> s{_alcLogType = a})
alcExemptedMembers :: Lens' AuditLogConfig [Text]
alcExemptedMembers
= lens _alcExemptedMembers
(\ s a -> s{_alcExemptedMembers = a})
. _Default
. _Coerce
instance FromJSON AuditLogConfig where
parseJSON
= withObject "AuditLogConfig"
(\ o ->
AuditLogConfig' <$>
(o .:? "logType") <*>
(o .:? "exemptedMembers" .!= mempty))
instance ToJSON AuditLogConfig where
toJSON AuditLogConfig'{..}
= object
(catMaybes
[("logType" .=) <$> _alcLogType,
("exemptedMembers" .=) <$> _alcExemptedMembers])
data ListInstancesResponse = ListInstancesResponse'
{ _lirNextPageToken :: !(Maybe Text)
, _lirFailedLocations :: !(Maybe [Text])
, _lirInstances :: !(Maybe [Instance])
} deriving (Eq,Show,Data,Typeable,Generic)
listInstancesResponse
:: ListInstancesResponse
listInstancesResponse =
ListInstancesResponse'
{ _lirNextPageToken = Nothing
, _lirFailedLocations = Nothing
, _lirInstances = Nothing
}
lirNextPageToken :: Lens' ListInstancesResponse (Maybe Text)
lirNextPageToken
= lens _lirNextPageToken
(\ s a -> s{_lirNextPageToken = a})
lirFailedLocations :: Lens' ListInstancesResponse [Text]
lirFailedLocations
= lens _lirFailedLocations
(\ s a -> s{_lirFailedLocations = a})
. _Default
. _Coerce
lirInstances :: Lens' ListInstancesResponse [Instance]
lirInstances
= lens _lirInstances (\ s a -> s{_lirInstances = a})
. _Default
. _Coerce
instance FromJSON ListInstancesResponse where
parseJSON
= withObject "ListInstancesResponse"
(\ o ->
ListInstancesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "failedLocations" .!= mempty)
<*> (o .:? "instances" .!= mempty))
instance ToJSON ListInstancesResponse where
toJSON ListInstancesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lirNextPageToken,
("failedLocations" .=) <$> _lirFailedLocations,
("instances" .=) <$> _lirInstances])
newtype CheckConsistencyResponse = CheckConsistencyResponse'
{ _ccrConsistent :: Maybe Bool
} deriving (Eq,Show,Data,Typeable,Generic)
checkConsistencyResponse
:: CheckConsistencyResponse
checkConsistencyResponse =
CheckConsistencyResponse'
{ _ccrConsistent = Nothing
}
ccrConsistent :: Lens' CheckConsistencyResponse (Maybe Bool)
ccrConsistent
= lens _ccrConsistent
(\ s a -> s{_ccrConsistent = a})
instance FromJSON CheckConsistencyResponse where
parseJSON
= withObject "CheckConsistencyResponse"
(\ o ->
CheckConsistencyResponse' <$> (o .:? "consistent"))
instance ToJSON CheckConsistencyResponse where
toJSON CheckConsistencyResponse'{..}
= object
(catMaybes [("consistent" .=) <$> _ccrConsistent])
data Modification = Modification'
{ _mDrop :: !(Maybe Bool)
, _mCreate :: !(Maybe ColumnFamily)
, _mId :: !(Maybe Text)
, _mUpdate :: !(Maybe ColumnFamily)
} deriving (Eq,Show,Data,Typeable,Generic)
modification
:: Modification
modification =
Modification'
{ _mDrop = Nothing
, _mCreate = Nothing
, _mId = Nothing
, _mUpdate = Nothing
}
mDrop :: Lens' Modification (Maybe Bool)
mDrop = lens _mDrop (\ s a -> s{_mDrop = a})
mCreate :: Lens' Modification (Maybe ColumnFamily)
mCreate = lens _mCreate (\ s a -> s{_mCreate = a})
mId :: Lens' Modification (Maybe Text)
mId = lens _mId (\ s a -> s{_mId = a})
mUpdate :: Lens' Modification (Maybe ColumnFamily)
mUpdate = lens _mUpdate (\ s a -> s{_mUpdate = a})
instance FromJSON Modification where
parseJSON
= withObject "Modification"
(\ o ->
Modification' <$>
(o .:? "drop") <*> (o .:? "create") <*> (o .:? "id")
<*> (o .:? "update"))
instance ToJSON Modification where
toJSON Modification'{..}
= object
(catMaybes
[("drop" .=) <$> _mDrop, ("create" .=) <$> _mCreate,
("id" .=) <$> _mId, ("update" .=) <$> _mUpdate])
data Table = Table'
{ _tGranularity :: !(Maybe TableGranularity)
, _tName :: !(Maybe Text)
, _tClusterStates :: !(Maybe TableClusterStates)
, _tColumnFamilies :: !(Maybe TableColumnFamilies)
} deriving (Eq,Show,Data,Typeable,Generic)
table
:: Table
table =
Table'
{ _tGranularity = Nothing
, _tName = Nothing
, _tClusterStates = Nothing
, _tColumnFamilies = Nothing
}
tGranularity :: Lens' Table (Maybe TableGranularity)
tGranularity
= lens _tGranularity (\ s a -> s{_tGranularity = a})
tName :: Lens' Table (Maybe Text)
tName = lens _tName (\ s a -> s{_tName = a})
tClusterStates :: Lens' Table (Maybe TableClusterStates)
tClusterStates
= lens _tClusterStates
(\ s a -> s{_tClusterStates = a})
tColumnFamilies :: Lens' Table (Maybe TableColumnFamilies)
tColumnFamilies
= lens _tColumnFamilies
(\ s a -> s{_tColumnFamilies = a})
instance FromJSON Table where
parseJSON
= withObject "Table"
(\ o ->
Table' <$>
(o .:? "granularity") <*> (o .:? "name") <*>
(o .:? "clusterStates")
<*> (o .:? "columnFamilies"))
instance ToJSON Table where
toJSON Table'{..}
= object
(catMaybes
[("granularity" .=) <$> _tGranularity,
("name" .=) <$> _tName,
("clusterStates" .=) <$> _tClusterStates,
("columnFamilies" .=) <$> _tColumnFamilies])
newtype OperationResponse = OperationResponse'
{ _orAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
operationResponse
:: HashMap Text JSONValue
-> OperationResponse
operationResponse pOrAddtional_ =
OperationResponse'
{ _orAddtional = _Coerce # pOrAddtional_
}
orAddtional :: Lens' OperationResponse (HashMap Text JSONValue)
orAddtional
= lens _orAddtional (\ s a -> s{_orAddtional = a}) .
_Coerce
instance FromJSON OperationResponse where
parseJSON
= withObject "OperationResponse"
(\ o -> OperationResponse' <$> (parseJSONObject o))
instance ToJSON OperationResponse where
toJSON = toJSON . _orAddtional
data Binding = Binding'
{ _bMembers :: !(Maybe [Text])
, _bRole :: !(Maybe Text)
, _bCondition :: !(Maybe Expr)
} deriving (Eq,Show,Data,Typeable,Generic)
binding
:: Binding
binding =
Binding'
{ _bMembers = Nothing
, _bRole = Nothing
, _bCondition = Nothing
}
bMembers :: Lens' Binding [Text]
bMembers
= lens _bMembers (\ s a -> s{_bMembers = a}) .
_Default
. _Coerce
bRole :: Lens' Binding (Maybe Text)
bRole = lens _bRole (\ s a -> s{_bRole = a})
bCondition :: Lens' Binding (Maybe Expr)
bCondition
= lens _bCondition (\ s a -> s{_bCondition = a})
instance FromJSON Binding where
parseJSON
= withObject "Binding"
(\ o ->
Binding' <$>
(o .:? "members" .!= mempty) <*> (o .:? "role") <*>
(o .:? "condition"))
instance ToJSON Binding where
toJSON Binding'{..}
= object
(catMaybes
[("members" .=) <$> _bMembers,
("role" .=) <$> _bRole,
("condition" .=) <$> _bCondition])
data Instance = Instance'
{ _iState :: !(Maybe InstanceState)
, _iName :: !(Maybe Text)
, _iDisplayName :: !(Maybe Text)
, _iLabels :: !(Maybe InstanceLabels)
, _iType :: !(Maybe InstanceType)
} deriving (Eq,Show,Data,Typeable,Generic)
instance'
:: Instance
instance' =
Instance'
{ _iState = Nothing
, _iName = Nothing
, _iDisplayName = Nothing
, _iLabels = Nothing
, _iType = Nothing
}
iState :: Lens' Instance (Maybe InstanceState)
iState = lens _iState (\ s a -> s{_iState = a})
iName :: Lens' Instance (Maybe Text)
iName = lens _iName (\ s a -> s{_iName = a})
iDisplayName :: Lens' Instance (Maybe Text)
iDisplayName
= lens _iDisplayName (\ s a -> s{_iDisplayName = a})
iLabels :: Lens' Instance (Maybe InstanceLabels)
iLabels = lens _iLabels (\ s a -> s{_iLabels = a})
iType :: Lens' Instance (Maybe InstanceType)
iType = lens _iType (\ s a -> s{_iType = a})
instance FromJSON Instance where
parseJSON
= withObject "Instance"
(\ o ->
Instance' <$>
(o .:? "state") <*> (o .:? "name") <*>
(o .:? "displayName")
<*> (o .:? "labels")
<*> (o .:? "type"))
instance ToJSON Instance where
toJSON Instance'{..}
= object
(catMaybes
[("state" .=) <$> _iState, ("name" .=) <$> _iName,
("displayName" .=) <$> _iDisplayName,
("labels" .=) <$> _iLabels, ("type" .=) <$> _iType])