module Network.Google.ReplicaPool.Types.Product where
import Network.Google.Prelude
import Network.Google.ReplicaPool.Types.Sum
data OperationWarningsItemDataItem = OperationWarningsItemDataItem'
{ _owidiValue :: !(Maybe Text)
, _owidiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationWarningsItemDataItem
:: OperationWarningsItemDataItem
operationWarningsItemDataItem =
OperationWarningsItemDataItem'
{ _owidiValue = Nothing
, _owidiKey = Nothing
}
owidiValue :: Lens' OperationWarningsItemDataItem (Maybe Text)
owidiValue
= lens _owidiValue (\ s a -> s{_owidiValue = a})
owidiKey :: Lens' OperationWarningsItemDataItem (Maybe Text)
owidiKey = lens _owidiKey (\ s a -> s{_owidiKey = a})
instance FromJSON OperationWarningsItemDataItem where
parseJSON
= withObject "OperationWarningsItemDataItem"
(\ o ->
OperationWarningsItemDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON OperationWarningsItemDataItem where
toJSON OperationWarningsItemDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _owidiValue,
("key" .=) <$> _owidiKey])
newtype InstanceGroupManagersAbandonInstancesRequest = InstanceGroupManagersAbandonInstancesRequest'
{ _igmairInstances :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersAbandonInstancesRequest
:: InstanceGroupManagersAbandonInstancesRequest
instanceGroupManagersAbandonInstancesRequest =
InstanceGroupManagersAbandonInstancesRequest'
{ _igmairInstances = Nothing
}
igmairInstances :: Lens' InstanceGroupManagersAbandonInstancesRequest [Text]
igmairInstances
= lens _igmairInstances
(\ s a -> s{_igmairInstances = a})
. _Default
. _Coerce
instance FromJSON
InstanceGroupManagersAbandonInstancesRequest where
parseJSON
= withObject
"InstanceGroupManagersAbandonInstancesRequest"
(\ o ->
InstanceGroupManagersAbandonInstancesRequest' <$>
(o .:? "instances" .!= mempty))
instance ToJSON
InstanceGroupManagersAbandonInstancesRequest where
toJSON
InstanceGroupManagersAbandonInstancesRequest'{..}
= object
(catMaybes [("instances" .=) <$> _igmairInstances])
newtype InstanceGroupManagersSetInstanceTemplateRequest = InstanceGroupManagersSetInstanceTemplateRequest'
{ _igmsitrInstanceTemplate :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersSetInstanceTemplateRequest
:: InstanceGroupManagersSetInstanceTemplateRequest
instanceGroupManagersSetInstanceTemplateRequest =
InstanceGroupManagersSetInstanceTemplateRequest'
{ _igmsitrInstanceTemplate = Nothing
}
igmsitrInstanceTemplate :: Lens' InstanceGroupManagersSetInstanceTemplateRequest (Maybe Text)
igmsitrInstanceTemplate
= lens _igmsitrInstanceTemplate
(\ s a -> s{_igmsitrInstanceTemplate = a})
instance FromJSON
InstanceGroupManagersSetInstanceTemplateRequest where
parseJSON
= withObject
"InstanceGroupManagersSetInstanceTemplateRequest"
(\ o ->
InstanceGroupManagersSetInstanceTemplateRequest' <$>
(o .:? "instanceTemplate"))
instance ToJSON
InstanceGroupManagersSetInstanceTemplateRequest where
toJSON
InstanceGroupManagersSetInstanceTemplateRequest'{..}
= object
(catMaybes
[("instanceTemplate" .=) <$>
_igmsitrInstanceTemplate])
data OperationList = OperationList'
{ _olNextPageToken :: !(Maybe Text)
, _olKind :: !Text
, _olItems :: !(Maybe [Operation])
, _olSelfLink :: !(Maybe Text)
, _olId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationList
:: OperationList
operationList =
OperationList'
{ _olNextPageToken = Nothing
, _olKind = "replicapool#operationList"
, _olItems = Nothing
, _olSelfLink = Nothing
, _olId = Nothing
}
olNextPageToken :: Lens' OperationList (Maybe Text)
olNextPageToken
= lens _olNextPageToken
(\ s a -> s{_olNextPageToken = a})
olKind :: Lens' OperationList Text
olKind = lens _olKind (\ s a -> s{_olKind = a})
olItems :: Lens' OperationList [Operation]
olItems
= lens _olItems (\ s a -> s{_olItems = a}) . _Default
. _Coerce
olSelfLink :: Lens' OperationList (Maybe Text)
olSelfLink
= lens _olSelfLink (\ s a -> s{_olSelfLink = a})
olId :: Lens' OperationList (Maybe Text)
olId = lens _olId (\ s a -> s{_olId = a})
instance FromJSON OperationList where
parseJSON
= withObject "OperationList"
(\ o ->
OperationList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "replicapool#operationList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON OperationList where
toJSON OperationList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _olNextPageToken,
Just ("kind" .= _olKind), ("items" .=) <$> _olItems,
("selfLink" .=) <$> _olSelfLink,
("id" .=) <$> _olId])
data InstanceGroupManagerList = InstanceGroupManagerList'
{ _igmlNextPageToken :: !(Maybe Text)
, _igmlKind :: !Text
, _igmlItems :: !(Maybe [InstanceGroupManager])
, _igmlSelfLink :: !(Maybe Text)
, _igmlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagerList
:: InstanceGroupManagerList
instanceGroupManagerList =
InstanceGroupManagerList'
{ _igmlNextPageToken = Nothing
, _igmlKind = "replicapool#instanceGroupManagerList"
, _igmlItems = Nothing
, _igmlSelfLink = Nothing
, _igmlId = Nothing
}
igmlNextPageToken :: Lens' InstanceGroupManagerList (Maybe Text)
igmlNextPageToken
= lens _igmlNextPageToken
(\ s a -> s{_igmlNextPageToken = a})
igmlKind :: Lens' InstanceGroupManagerList Text
igmlKind = lens _igmlKind (\ s a -> s{_igmlKind = a})
igmlItems :: Lens' InstanceGroupManagerList [InstanceGroupManager]
igmlItems
= lens _igmlItems (\ s a -> s{_igmlItems = a}) .
_Default
. _Coerce
igmlSelfLink :: Lens' InstanceGroupManagerList (Maybe Text)
igmlSelfLink
= lens _igmlSelfLink (\ s a -> s{_igmlSelfLink = a})
igmlId :: Lens' InstanceGroupManagerList (Maybe Text)
igmlId = lens _igmlId (\ s a -> s{_igmlId = a})
instance FromJSON InstanceGroupManagerList where
parseJSON
= withObject "InstanceGroupManagerList"
(\ o ->
InstanceGroupManagerList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"replicapool#instanceGroupManagerList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON InstanceGroupManagerList where
toJSON InstanceGroupManagerList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _igmlNextPageToken,
Just ("kind" .= _igmlKind),
("items" .=) <$> _igmlItems,
("selfLink" .=) <$> _igmlSelfLink,
("id" .=) <$> _igmlId])
data Operation = Operation'
{ _oTargetId :: !(Maybe (Textual Word64))
, _oStatus :: !(Maybe OperationStatus)
, _oInsertTime :: !(Maybe Text)
, _oProgress :: !(Maybe (Textual Int32))
, _oStartTime :: !(Maybe Text)
, _oKind :: !Text
, _oError :: !(Maybe OperationError)
, _oHTTPErrorMessage :: !(Maybe Text)
, _oZone :: !(Maybe Text)
, _oWarnings :: !(Maybe [OperationWarningsItem])
, _oHTTPErrorStatusCode :: !(Maybe (Textual Int32))
, _oUser :: !(Maybe Text)
, _oSelfLink :: !(Maybe Text)
, _oName :: !(Maybe Text)
, _oStatusMessage :: !(Maybe Text)
, _oCreationTimestamp :: !(Maybe Text)
, _oEndTime :: !(Maybe Text)
, _oId :: !(Maybe (Textual Word64))
, _oOperationType :: !(Maybe Text)
, _oRegion :: !(Maybe Text)
, _oTargetLink :: !(Maybe Text)
, _oClientOperationId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operation
:: Operation
operation =
Operation'
{ _oTargetId = Nothing
, _oStatus = Nothing
, _oInsertTime = Nothing
, _oProgress = Nothing
, _oStartTime = Nothing
, _oKind = "replicapool#operation"
, _oError = Nothing
, _oHTTPErrorMessage = Nothing
, _oZone = Nothing
, _oWarnings = Nothing
, _oHTTPErrorStatusCode = Nothing
, _oUser = Nothing
, _oSelfLink = Nothing
, _oName = Nothing
, _oStatusMessage = Nothing
, _oCreationTimestamp = Nothing
, _oEndTime = Nothing
, _oId = Nothing
, _oOperationType = Nothing
, _oRegion = Nothing
, _oTargetLink = Nothing
, _oClientOperationId = Nothing
}
oTargetId :: Lens' Operation (Maybe Word64)
oTargetId
= lens _oTargetId (\ s a -> s{_oTargetId = a}) .
mapping _Coerce
oStatus :: Lens' Operation (Maybe OperationStatus)
oStatus = lens _oStatus (\ s a -> s{_oStatus = a})
oInsertTime :: Lens' Operation (Maybe Text)
oInsertTime
= lens _oInsertTime (\ s a -> s{_oInsertTime = a})
oProgress :: Lens' Operation (Maybe Int32)
oProgress
= lens _oProgress (\ s a -> s{_oProgress = a}) .
mapping _Coerce
oStartTime :: Lens' Operation (Maybe Text)
oStartTime
= lens _oStartTime (\ s a -> s{_oStartTime = a})
oKind :: Lens' Operation Text
oKind = lens _oKind (\ s a -> s{_oKind = a})
oError :: Lens' Operation (Maybe OperationError)
oError = lens _oError (\ s a -> s{_oError = a})
oHTTPErrorMessage :: Lens' Operation (Maybe Text)
oHTTPErrorMessage
= lens _oHTTPErrorMessage
(\ s a -> s{_oHTTPErrorMessage = a})
oZone :: Lens' Operation (Maybe Text)
oZone = lens _oZone (\ s a -> s{_oZone = a})
oWarnings :: Lens' Operation [OperationWarningsItem]
oWarnings
= lens _oWarnings (\ s a -> s{_oWarnings = a}) .
_Default
. _Coerce
oHTTPErrorStatusCode :: Lens' Operation (Maybe Int32)
oHTTPErrorStatusCode
= lens _oHTTPErrorStatusCode
(\ s a -> s{_oHTTPErrorStatusCode = a})
. mapping _Coerce
oUser :: Lens' Operation (Maybe Text)
oUser = lens _oUser (\ s a -> s{_oUser = a})
oSelfLink :: Lens' Operation (Maybe Text)
oSelfLink
= lens _oSelfLink (\ s a -> s{_oSelfLink = a})
oName :: Lens' Operation (Maybe Text)
oName = lens _oName (\ s a -> s{_oName = a})
oStatusMessage :: Lens' Operation (Maybe Text)
oStatusMessage
= lens _oStatusMessage
(\ s a -> s{_oStatusMessage = a})
oCreationTimestamp :: Lens' Operation (Maybe Text)
oCreationTimestamp
= lens _oCreationTimestamp
(\ s a -> s{_oCreationTimestamp = a})
oEndTime :: Lens' Operation (Maybe Text)
oEndTime = lens _oEndTime (\ s a -> s{_oEndTime = a})
oId :: Lens' Operation (Maybe Word64)
oId
= lens _oId (\ s a -> s{_oId = a}) . mapping _Coerce
oOperationType :: Lens' Operation (Maybe Text)
oOperationType
= lens _oOperationType
(\ s a -> s{_oOperationType = a})
oRegion :: Lens' Operation (Maybe Text)
oRegion = lens _oRegion (\ s a -> s{_oRegion = a})
oTargetLink :: Lens' Operation (Maybe Text)
oTargetLink
= lens _oTargetLink (\ s a -> s{_oTargetLink = a})
oClientOperationId :: Lens' Operation (Maybe Text)
oClientOperationId
= lens _oClientOperationId
(\ s a -> s{_oClientOperationId = a})
instance FromJSON Operation where
parseJSON
= withObject "Operation"
(\ o ->
Operation' <$>
(o .:? "targetId") <*> (o .:? "status") <*>
(o .:? "insertTime")
<*> (o .:? "progress")
<*> (o .:? "startTime")
<*> (o .:? "kind" .!= "replicapool#operation")
<*> (o .:? "error")
<*> (o .:? "httpErrorMessage")
<*> (o .:? "zone")
<*> (o .:? "warnings" .!= mempty)
<*> (o .:? "httpErrorStatusCode")
<*> (o .:? "user")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "statusMessage")
<*> (o .:? "creationTimestamp")
<*> (o .:? "endTime")
<*> (o .:? "id")
<*> (o .:? "operationType")
<*> (o .:? "region")
<*> (o .:? "targetLink")
<*> (o .:? "clientOperationId"))
instance ToJSON Operation where
toJSON Operation'{..}
= object
(catMaybes
[("targetId" .=) <$> _oTargetId,
("status" .=) <$> _oStatus,
("insertTime" .=) <$> _oInsertTime,
("progress" .=) <$> _oProgress,
("startTime" .=) <$> _oStartTime,
Just ("kind" .= _oKind), ("error" .=) <$> _oError,
("httpErrorMessage" .=) <$> _oHTTPErrorMessage,
("zone" .=) <$> _oZone,
("warnings" .=) <$> _oWarnings,
("httpErrorStatusCode" .=) <$> _oHTTPErrorStatusCode,
("user" .=) <$> _oUser,
("selfLink" .=) <$> _oSelfLink,
("name" .=) <$> _oName,
("statusMessage" .=) <$> _oStatusMessage,
("creationTimestamp" .=) <$> _oCreationTimestamp,
("endTime" .=) <$> _oEndTime, ("id" .=) <$> _oId,
("operationType" .=) <$> _oOperationType,
("region" .=) <$> _oRegion,
("targetLink" .=) <$> _oTargetLink,
("clientOperationId" .=) <$> _oClientOperationId])
data InstanceGroupManager = InstanceGroupManager'
{ _igmCurrentSize :: !(Maybe (Textual Int32))
, _igmGroup :: !(Maybe Text)
, _igmKind :: !Text
, _igmFingerprint :: !(Maybe Base64)
, _igmBaseInstanceName :: !(Maybe Text)
, _igmAutoHealingPolicies :: !(Maybe [ReplicaPoolAutoHealingPolicy])
, _igmInstanceTemplate :: !(Maybe Text)
, _igmTargetSize :: !(Maybe (Textual Int32))
, _igmSelfLink :: !(Maybe Text)
, _igmName :: !(Maybe Text)
, _igmCreationTimestamp :: !(Maybe Text)
, _igmId :: !(Maybe (Textual Word64))
, _igmTargetPools :: !(Maybe [Text])
, _igmDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManager
:: InstanceGroupManager
instanceGroupManager =
InstanceGroupManager'
{ _igmCurrentSize = Nothing
, _igmGroup = Nothing
, _igmKind = "replicapool#instanceGroupManager"
, _igmFingerprint = Nothing
, _igmBaseInstanceName = Nothing
, _igmAutoHealingPolicies = Nothing
, _igmInstanceTemplate = Nothing
, _igmTargetSize = Nothing
, _igmSelfLink = Nothing
, _igmName = Nothing
, _igmCreationTimestamp = Nothing
, _igmId = Nothing
, _igmTargetPools = Nothing
, _igmDescription = Nothing
}
igmCurrentSize :: Lens' InstanceGroupManager (Maybe Int32)
igmCurrentSize
= lens _igmCurrentSize
(\ s a -> s{_igmCurrentSize = a})
. mapping _Coerce
igmGroup :: Lens' InstanceGroupManager (Maybe Text)
igmGroup = lens _igmGroup (\ s a -> s{_igmGroup = a})
igmKind :: Lens' InstanceGroupManager Text
igmKind = lens _igmKind (\ s a -> s{_igmKind = a})
igmFingerprint :: Lens' InstanceGroupManager (Maybe ByteString)
igmFingerprint
= lens _igmFingerprint
(\ s a -> s{_igmFingerprint = a})
. mapping _Base64
igmBaseInstanceName :: Lens' InstanceGroupManager (Maybe Text)
igmBaseInstanceName
= lens _igmBaseInstanceName
(\ s a -> s{_igmBaseInstanceName = a})
igmAutoHealingPolicies :: Lens' InstanceGroupManager [ReplicaPoolAutoHealingPolicy]
igmAutoHealingPolicies
= lens _igmAutoHealingPolicies
(\ s a -> s{_igmAutoHealingPolicies = a})
. _Default
. _Coerce
igmInstanceTemplate :: Lens' InstanceGroupManager (Maybe Text)
igmInstanceTemplate
= lens _igmInstanceTemplate
(\ s a -> s{_igmInstanceTemplate = a})
igmTargetSize :: Lens' InstanceGroupManager (Maybe Int32)
igmTargetSize
= lens _igmTargetSize
(\ s a -> s{_igmTargetSize = a})
. mapping _Coerce
igmSelfLink :: Lens' InstanceGroupManager (Maybe Text)
igmSelfLink
= lens _igmSelfLink (\ s a -> s{_igmSelfLink = a})
igmName :: Lens' InstanceGroupManager (Maybe Text)
igmName = lens _igmName (\ s a -> s{_igmName = a})
igmCreationTimestamp :: Lens' InstanceGroupManager (Maybe Text)
igmCreationTimestamp
= lens _igmCreationTimestamp
(\ s a -> s{_igmCreationTimestamp = a})
igmId :: Lens' InstanceGroupManager (Maybe Word64)
igmId
= lens _igmId (\ s a -> s{_igmId = a}) .
mapping _Coerce
igmTargetPools :: Lens' InstanceGroupManager [Text]
igmTargetPools
= lens _igmTargetPools
(\ s a -> s{_igmTargetPools = a})
. _Default
. _Coerce
igmDescription :: Lens' InstanceGroupManager (Maybe Text)
igmDescription
= lens _igmDescription
(\ s a -> s{_igmDescription = a})
instance FromJSON InstanceGroupManager where
parseJSON
= withObject "InstanceGroupManager"
(\ o ->
InstanceGroupManager' <$>
(o .:? "currentSize") <*> (o .:? "group") <*>
(o .:? "kind" .!= "replicapool#instanceGroupManager")
<*> (o .:? "fingerprint")
<*> (o .:? "baseInstanceName")
<*> (o .:? "autoHealingPolicies" .!= mempty)
<*> (o .:? "instanceTemplate")
<*> (o .:? "targetSize")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "targetPools" .!= mempty)
<*> (o .:? "description"))
instance ToJSON InstanceGroupManager where
toJSON InstanceGroupManager'{..}
= object
(catMaybes
[("currentSize" .=) <$> _igmCurrentSize,
("group" .=) <$> _igmGroup,
Just ("kind" .= _igmKind),
("fingerprint" .=) <$> _igmFingerprint,
("baseInstanceName" .=) <$> _igmBaseInstanceName,
("autoHealingPolicies" .=) <$>
_igmAutoHealingPolicies,
("instanceTemplate" .=) <$> _igmInstanceTemplate,
("targetSize" .=) <$> _igmTargetSize,
("selfLink" .=) <$> _igmSelfLink,
("name" .=) <$> _igmName,
("creationTimestamp" .=) <$> _igmCreationTimestamp,
("id" .=) <$> _igmId,
("targetPools" .=) <$> _igmTargetPools,
("description" .=) <$> _igmDescription])
data ReplicaPoolAutoHealingPolicy = ReplicaPoolAutoHealingPolicy'
{ _rpahpHealthCheck :: !(Maybe Text)
, _rpahpActionType :: !(Maybe ReplicaPoolAutoHealingPolicyActionType)
} deriving (Eq,Show,Data,Typeable,Generic)
replicaPoolAutoHealingPolicy
:: ReplicaPoolAutoHealingPolicy
replicaPoolAutoHealingPolicy =
ReplicaPoolAutoHealingPolicy'
{ _rpahpHealthCheck = Nothing
, _rpahpActionType = Nothing
}
rpahpHealthCheck :: Lens' ReplicaPoolAutoHealingPolicy (Maybe Text)
rpahpHealthCheck
= lens _rpahpHealthCheck
(\ s a -> s{_rpahpHealthCheck = a})
rpahpActionType :: Lens' ReplicaPoolAutoHealingPolicy (Maybe ReplicaPoolAutoHealingPolicyActionType)
rpahpActionType
= lens _rpahpActionType
(\ s a -> s{_rpahpActionType = a})
instance FromJSON ReplicaPoolAutoHealingPolicy where
parseJSON
= withObject "ReplicaPoolAutoHealingPolicy"
(\ o ->
ReplicaPoolAutoHealingPolicy' <$>
(o .:? "healthCheck") <*> (o .:? "actionType"))
instance ToJSON ReplicaPoolAutoHealingPolicy where
toJSON ReplicaPoolAutoHealingPolicy'{..}
= object
(catMaybes
[("healthCheck" .=) <$> _rpahpHealthCheck,
("actionType" .=) <$> _rpahpActionType])
newtype InstanceGroupManagersRecreateInstancesRequest = InstanceGroupManagersRecreateInstancesRequest'
{ _igmrirInstances :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersRecreateInstancesRequest
:: InstanceGroupManagersRecreateInstancesRequest
instanceGroupManagersRecreateInstancesRequest =
InstanceGroupManagersRecreateInstancesRequest'
{ _igmrirInstances = Nothing
}
igmrirInstances :: Lens' InstanceGroupManagersRecreateInstancesRequest [Text]
igmrirInstances
= lens _igmrirInstances
(\ s a -> s{_igmrirInstances = a})
. _Default
. _Coerce
instance FromJSON
InstanceGroupManagersRecreateInstancesRequest where
parseJSON
= withObject
"InstanceGroupManagersRecreateInstancesRequest"
(\ o ->
InstanceGroupManagersRecreateInstancesRequest' <$>
(o .:? "instances" .!= mempty))
instance ToJSON
InstanceGroupManagersRecreateInstancesRequest where
toJSON
InstanceGroupManagersRecreateInstancesRequest'{..}
= object
(catMaybes [("instances" .=) <$> _igmrirInstances])
newtype InstanceGroupManagersDeleteInstancesRequest = InstanceGroupManagersDeleteInstancesRequest'
{ _igmdirInstances :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersDeleteInstancesRequest
:: InstanceGroupManagersDeleteInstancesRequest
instanceGroupManagersDeleteInstancesRequest =
InstanceGroupManagersDeleteInstancesRequest'
{ _igmdirInstances = Nothing
}
igmdirInstances :: Lens' InstanceGroupManagersDeleteInstancesRequest [Text]
igmdirInstances
= lens _igmdirInstances
(\ s a -> s{_igmdirInstances = a})
. _Default
. _Coerce
instance FromJSON
InstanceGroupManagersDeleteInstancesRequest where
parseJSON
= withObject
"InstanceGroupManagersDeleteInstancesRequest"
(\ o ->
InstanceGroupManagersDeleteInstancesRequest' <$>
(o .:? "instances" .!= mempty))
instance ToJSON
InstanceGroupManagersDeleteInstancesRequest where
toJSON
InstanceGroupManagersDeleteInstancesRequest'{..}
= object
(catMaybes [("instances" .=) <$> _igmdirInstances])
newtype OperationError = OperationError'
{ _oeErrors :: Maybe [OperationErrorErrorsItem]
} deriving (Eq,Show,Data,Typeable,Generic)
operationError
:: OperationError
operationError =
OperationError'
{ _oeErrors = Nothing
}
oeErrors :: Lens' OperationError [OperationErrorErrorsItem]
oeErrors
= lens _oeErrors (\ s a -> s{_oeErrors = a}) .
_Default
. _Coerce
instance FromJSON OperationError where
parseJSON
= withObject "OperationError"
(\ o ->
OperationError' <$> (o .:? "errors" .!= mempty))
instance ToJSON OperationError where
toJSON OperationError'{..}
= object (catMaybes [("errors" .=) <$> _oeErrors])
data InstanceGroupManagersSetTargetPoolsRequest = InstanceGroupManagersSetTargetPoolsRequest'
{ _igmstprFingerprint :: !(Maybe Base64)
, _igmstprTargetPools :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersSetTargetPoolsRequest
:: InstanceGroupManagersSetTargetPoolsRequest
instanceGroupManagersSetTargetPoolsRequest =
InstanceGroupManagersSetTargetPoolsRequest'
{ _igmstprFingerprint = Nothing
, _igmstprTargetPools = Nothing
}
igmstprFingerprint :: Lens' InstanceGroupManagersSetTargetPoolsRequest (Maybe ByteString)
igmstprFingerprint
= lens _igmstprFingerprint
(\ s a -> s{_igmstprFingerprint = a})
. mapping _Base64
igmstprTargetPools :: Lens' InstanceGroupManagersSetTargetPoolsRequest [Text]
igmstprTargetPools
= lens _igmstprTargetPools
(\ s a -> s{_igmstprTargetPools = a})
. _Default
. _Coerce
instance FromJSON
InstanceGroupManagersSetTargetPoolsRequest where
parseJSON
= withObject
"InstanceGroupManagersSetTargetPoolsRequest"
(\ o ->
InstanceGroupManagersSetTargetPoolsRequest' <$>
(o .:? "fingerprint") <*>
(o .:? "targetPools" .!= mempty))
instance ToJSON
InstanceGroupManagersSetTargetPoolsRequest where
toJSON
InstanceGroupManagersSetTargetPoolsRequest'{..}
= object
(catMaybes
[("fingerprint" .=) <$> _igmstprFingerprint,
("targetPools" .=) <$> _igmstprTargetPools])
data OperationErrorErrorsItem = OperationErrorErrorsItem'
{ _oeeiLocation :: !(Maybe Text)
, _oeeiCode :: !(Maybe Text)
, _oeeiMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationErrorErrorsItem
:: OperationErrorErrorsItem
operationErrorErrorsItem =
OperationErrorErrorsItem'
{ _oeeiLocation = Nothing
, _oeeiCode = Nothing
, _oeeiMessage = Nothing
}
oeeiLocation :: Lens' OperationErrorErrorsItem (Maybe Text)
oeeiLocation
= lens _oeeiLocation (\ s a -> s{_oeeiLocation = a})
oeeiCode :: Lens' OperationErrorErrorsItem (Maybe Text)
oeeiCode = lens _oeeiCode (\ s a -> s{_oeeiCode = a})
oeeiMessage :: Lens' OperationErrorErrorsItem (Maybe Text)
oeeiMessage
= lens _oeeiMessage (\ s a -> s{_oeeiMessage = a})
instance FromJSON OperationErrorErrorsItem where
parseJSON
= withObject "OperationErrorErrorsItem"
(\ o ->
OperationErrorErrorsItem' <$>
(o .:? "location") <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON OperationErrorErrorsItem where
toJSON OperationErrorErrorsItem'{..}
= object
(catMaybes
[("location" .=) <$> _oeeiLocation,
("code" .=) <$> _oeeiCode,
("message" .=) <$> _oeeiMessage])
data OperationWarningsItem = OperationWarningsItem'
{ _owiData :: !(Maybe [OperationWarningsItemDataItem])
, _owiCode :: !(Maybe OperationWarningsItemCode)
, _owiMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationWarningsItem
:: OperationWarningsItem
operationWarningsItem =
OperationWarningsItem'
{ _owiData = Nothing
, _owiCode = Nothing
, _owiMessage = Nothing
}
owiData :: Lens' OperationWarningsItem [OperationWarningsItemDataItem]
owiData
= lens _owiData (\ s a -> s{_owiData = a}) . _Default
. _Coerce
owiCode :: Lens' OperationWarningsItem (Maybe OperationWarningsItemCode)
owiCode = lens _owiCode (\ s a -> s{_owiCode = a})
owiMessage :: Lens' OperationWarningsItem (Maybe Text)
owiMessage
= lens _owiMessage (\ s a -> s{_owiMessage = a})
instance FromJSON OperationWarningsItem where
parseJSON
= withObject "OperationWarningsItem"
(\ o ->
OperationWarningsItem' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON OperationWarningsItem where
toJSON OperationWarningsItem'{..}
= object
(catMaybes
[("data" .=) <$> _owiData, ("code" .=) <$> _owiCode,
("message" .=) <$> _owiMessage])