module Network.Google.Compute.Types.Product where
import Network.Google.Compute.Types.Sum
import Network.Google.Prelude
data TargetHTTPSProxyList = TargetHTTPSProxyList'
{ _thplNextPageToken :: !(Maybe Text)
, _thplKind :: !Text
, _thplItems :: !(Maybe [TargetHTTPSProxy])
, _thplSelfLink :: !(Maybe Text)
, _thplId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetHTTPSProxyList
:: TargetHTTPSProxyList
targetHTTPSProxyList =
TargetHTTPSProxyList'
{ _thplNextPageToken = Nothing
, _thplKind = "compute#targetHttpsProxyList"
, _thplItems = Nothing
, _thplSelfLink = Nothing
, _thplId = Nothing
}
thplNextPageToken :: Lens' TargetHTTPSProxyList (Maybe Text)
thplNextPageToken
= lens _thplNextPageToken
(\ s a -> s{_thplNextPageToken = a})
thplKind :: Lens' TargetHTTPSProxyList Text
thplKind = lens _thplKind (\ s a -> s{_thplKind = a})
thplItems :: Lens' TargetHTTPSProxyList [TargetHTTPSProxy]
thplItems
= lens _thplItems (\ s a -> s{_thplItems = a}) .
_Default
. _Coerce
thplSelfLink :: Lens' TargetHTTPSProxyList (Maybe Text)
thplSelfLink
= lens _thplSelfLink (\ s a -> s{_thplSelfLink = a})
thplId :: Lens' TargetHTTPSProxyList (Maybe Text)
thplId = lens _thplId (\ s a -> s{_thplId = a})
instance FromJSON TargetHTTPSProxyList where
parseJSON
= withObject "TargetHTTPSProxyList"
(\ o ->
TargetHTTPSProxyList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#targetHttpsProxyList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON TargetHTTPSProxyList where
toJSON TargetHTTPSProxyList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _thplNextPageToken,
Just ("kind" .= _thplKind),
("items" .=) <$> _thplItems,
("selfLink" .=) <$> _thplSelfLink,
("id" .=) <$> _thplId])
data RoutersScopedList = RoutersScopedList'
{ _rslRouters :: !(Maybe [Router])
, _rslWarning :: !(Maybe RoutersScopedListWarning)
} deriving (Eq,Show,Data,Typeable,Generic)
routersScopedList
:: RoutersScopedList
routersScopedList =
RoutersScopedList'
{ _rslRouters = Nothing
, _rslWarning = Nothing
}
rslRouters :: Lens' RoutersScopedList [Router]
rslRouters
= lens _rslRouters (\ s a -> s{_rslRouters = a}) .
_Default
. _Coerce
rslWarning :: Lens' RoutersScopedList (Maybe RoutersScopedListWarning)
rslWarning
= lens _rslWarning (\ s a -> s{_rslWarning = a})
instance FromJSON RoutersScopedList where
parseJSON
= withObject "RoutersScopedList"
(\ o ->
RoutersScopedList' <$>
(o .:? "routers" .!= mempty) <*> (o .:? "warning"))
instance ToJSON RoutersScopedList where
toJSON RoutersScopedList'{..}
= object
(catMaybes
[("routers" .=) <$> _rslRouters,
("warning" .=) <$> _rslWarning])
data RouterStatusResponse = RouterStatusResponse'
{ _rsrKind :: !Text
, _rsrResult :: !(Maybe RouterStatus)
} deriving (Eq,Show,Data,Typeable,Generic)
routerStatusResponse
:: RouterStatusResponse
routerStatusResponse =
RouterStatusResponse'
{ _rsrKind = "compute#routerStatusResponse"
, _rsrResult = Nothing
}
rsrKind :: Lens' RouterStatusResponse Text
rsrKind = lens _rsrKind (\ s a -> s{_rsrKind = a})
rsrResult :: Lens' RouterStatusResponse (Maybe RouterStatus)
rsrResult
= lens _rsrResult (\ s a -> s{_rsrResult = a})
instance FromJSON RouterStatusResponse where
parseJSON
= withObject "RouterStatusResponse"
(\ o ->
RouterStatusResponse' <$>
(o .:? "kind" .!= "compute#routerStatusResponse") <*>
(o .:? "result"))
instance ToJSON RouterStatusResponse where
toJSON RouterStatusResponse'{..}
= object
(catMaybes
[Just ("kind" .= _rsrKind),
("result" .=) <$> _rsrResult])
newtype RegionInstanceGroupManagersDeleteInstancesRequest = RegionInstanceGroupManagersDeleteInstancesRequest'
{ _rigmdirInstances :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupManagersDeleteInstancesRequest
:: RegionInstanceGroupManagersDeleteInstancesRequest
regionInstanceGroupManagersDeleteInstancesRequest =
RegionInstanceGroupManagersDeleteInstancesRequest'
{ _rigmdirInstances = Nothing
}
rigmdirInstances :: Lens' RegionInstanceGroupManagersDeleteInstancesRequest [Text]
rigmdirInstances
= lens _rigmdirInstances
(\ s a -> s{_rigmdirInstances = a})
. _Default
. _Coerce
instance FromJSON
RegionInstanceGroupManagersDeleteInstancesRequest
where
parseJSON
= withObject
"RegionInstanceGroupManagersDeleteInstancesRequest"
(\ o ->
RegionInstanceGroupManagersDeleteInstancesRequest'
<$> (o .:? "instances" .!= mempty))
instance ToJSON
RegionInstanceGroupManagersDeleteInstancesRequest
where
toJSON
RegionInstanceGroupManagersDeleteInstancesRequest'{..}
= object
(catMaybes [("instances" .=) <$> _rigmdirInstances])
data AddressesScopedList = AddressesScopedList'
{ _aslAddresses :: !(Maybe [Address])
, _aslWarning :: !(Maybe AddressesScopedListWarning)
} deriving (Eq,Show,Data,Typeable,Generic)
addressesScopedList
:: AddressesScopedList
addressesScopedList =
AddressesScopedList'
{ _aslAddresses = Nothing
, _aslWarning = Nothing
}
aslAddresses :: Lens' AddressesScopedList [Address]
aslAddresses
= lens _aslAddresses (\ s a -> s{_aslAddresses = a})
. _Default
. _Coerce
aslWarning :: Lens' AddressesScopedList (Maybe AddressesScopedListWarning)
aslWarning
= lens _aslWarning (\ s a -> s{_aslWarning = a})
instance FromJSON AddressesScopedList where
parseJSON
= withObject "AddressesScopedList"
(\ o ->
AddressesScopedList' <$>
(o .:? "addresses" .!= mempty) <*> (o .:? "warning"))
instance ToJSON AddressesScopedList where
toJSON AddressesScopedList'{..}
= object
(catMaybes
[("addresses" .=) <$> _aslAddresses,
("warning" .=) <$> _aslWarning])
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])
data RegionInstanceGroupsListInstancesRequest = RegionInstanceGroupsListInstancesRequest'
{ _riglirInstanceState :: !(Maybe RegionInstanceGroupsListInstancesRequestInstanceState)
, _riglirPortName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupsListInstancesRequest
:: RegionInstanceGroupsListInstancesRequest
regionInstanceGroupsListInstancesRequest =
RegionInstanceGroupsListInstancesRequest'
{ _riglirInstanceState = Nothing
, _riglirPortName = Nothing
}
riglirInstanceState :: Lens' RegionInstanceGroupsListInstancesRequest (Maybe RegionInstanceGroupsListInstancesRequestInstanceState)
riglirInstanceState
= lens _riglirInstanceState
(\ s a -> s{_riglirInstanceState = a})
riglirPortName :: Lens' RegionInstanceGroupsListInstancesRequest (Maybe Text)
riglirPortName
= lens _riglirPortName
(\ s a -> s{_riglirPortName = a})
instance FromJSON
RegionInstanceGroupsListInstancesRequest where
parseJSON
= withObject
"RegionInstanceGroupsListInstancesRequest"
(\ o ->
RegionInstanceGroupsListInstancesRequest' <$>
(o .:? "instanceState") <*> (o .:? "portName"))
instance ToJSON
RegionInstanceGroupsListInstancesRequest where
toJSON RegionInstanceGroupsListInstancesRequest'{..}
= object
(catMaybes
[("instanceState" .=) <$> _riglirInstanceState,
("portName" .=) <$> _riglirPortName])
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 MachineTypeAggregatedListItems = MachineTypeAggregatedListItems'
{ _mtaliAddtional :: HashMap Text MachineTypesScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
machineTypeAggregatedListItems
:: HashMap Text MachineTypesScopedList
-> MachineTypeAggregatedListItems
machineTypeAggregatedListItems pMtaliAddtional_ =
MachineTypeAggregatedListItems'
{ _mtaliAddtional = _Coerce # pMtaliAddtional_
}
mtaliAddtional :: Lens' MachineTypeAggregatedListItems (HashMap Text MachineTypesScopedList)
mtaliAddtional
= lens _mtaliAddtional
(\ s a -> s{_mtaliAddtional = a})
. _Coerce
instance FromJSON MachineTypeAggregatedListItems
where
parseJSON
= withObject "MachineTypeAggregatedListItems"
(\ o ->
MachineTypeAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON MachineTypeAggregatedListItems where
toJSON = toJSON . _mtaliAddtional
newtype DiskTypeAggregatedListItems = DiskTypeAggregatedListItems'
{ _dtaliAddtional :: HashMap Text DiskTypesScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
diskTypeAggregatedListItems
:: HashMap Text DiskTypesScopedList
-> DiskTypeAggregatedListItems
diskTypeAggregatedListItems pDtaliAddtional_ =
DiskTypeAggregatedListItems'
{ _dtaliAddtional = _Coerce # pDtaliAddtional_
}
dtaliAddtional :: Lens' DiskTypeAggregatedListItems (HashMap Text DiskTypesScopedList)
dtaliAddtional
= lens _dtaliAddtional
(\ s a -> s{_dtaliAddtional = a})
. _Coerce
instance FromJSON DiskTypeAggregatedListItems where
parseJSON
= withObject "DiskTypeAggregatedListItems"
(\ o ->
DiskTypeAggregatedListItems' <$> (parseJSONObject o))
instance ToJSON DiskTypeAggregatedListItems where
toJSON = toJSON . _dtaliAddtional
data RouterAggregatedList = RouterAggregatedList'
{ _ralNextPageToken :: !(Maybe Text)
, _ralKind :: !Text
, _ralItems :: !(Maybe RouterAggregatedListItems)
, _ralSelfLink :: !(Maybe Text)
, _ralId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
routerAggregatedList
:: RouterAggregatedList
routerAggregatedList =
RouterAggregatedList'
{ _ralNextPageToken = Nothing
, _ralKind = "compute#routerAggregatedList"
, _ralItems = Nothing
, _ralSelfLink = Nothing
, _ralId = Nothing
}
ralNextPageToken :: Lens' RouterAggregatedList (Maybe Text)
ralNextPageToken
= lens _ralNextPageToken
(\ s a -> s{_ralNextPageToken = a})
ralKind :: Lens' RouterAggregatedList Text
ralKind = lens _ralKind (\ s a -> s{_ralKind = a})
ralItems :: Lens' RouterAggregatedList (Maybe RouterAggregatedListItems)
ralItems = lens _ralItems (\ s a -> s{_ralItems = a})
ralSelfLink :: Lens' RouterAggregatedList (Maybe Text)
ralSelfLink
= lens _ralSelfLink (\ s a -> s{_ralSelfLink = a})
ralId :: Lens' RouterAggregatedList (Maybe Text)
ralId = lens _ralId (\ s a -> s{_ralId = a})
instance FromJSON RouterAggregatedList where
parseJSON
= withObject "RouterAggregatedList"
(\ o ->
RouterAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#routerAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON RouterAggregatedList where
toJSON RouterAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ralNextPageToken,
Just ("kind" .= _ralKind),
("items" .=) <$> _ralItems,
("selfLink" .=) <$> _ralSelfLink,
("id" .=) <$> _ralId])
data FirewallList = FirewallList'
{ _flNextPageToken :: !(Maybe Text)
, _flKind :: !Text
, _flItems :: !(Maybe [Firewall])
, _flSelfLink :: !(Maybe Text)
, _flId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
firewallList
:: FirewallList
firewallList =
FirewallList'
{ _flNextPageToken = Nothing
, _flKind = "compute#firewallList"
, _flItems = Nothing
, _flSelfLink = Nothing
, _flId = Nothing
}
flNextPageToken :: Lens' FirewallList (Maybe Text)
flNextPageToken
= lens _flNextPageToken
(\ s a -> s{_flNextPageToken = a})
flKind :: Lens' FirewallList Text
flKind = lens _flKind (\ s a -> s{_flKind = a})
flItems :: Lens' FirewallList [Firewall]
flItems
= lens _flItems (\ s a -> s{_flItems = a}) . _Default
. _Coerce
flSelfLink :: Lens' FirewallList (Maybe Text)
flSelfLink
= lens _flSelfLink (\ s a -> s{_flSelfLink = a})
flId :: Lens' FirewallList (Maybe Text)
flId = lens _flId (\ s a -> s{_flId = a})
instance FromJSON FirewallList where
parseJSON
= withObject "FirewallList"
(\ o ->
FirewallList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#firewallList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON FirewallList where
toJSON FirewallList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _flNextPageToken,
Just ("kind" .= _flKind), ("items" .=) <$> _flItems,
("selfLink" .=) <$> _flSelfLink,
("id" .=) <$> _flId])
data InstancesScopedListWarning = InstancesScopedListWarning'
{ _islwData :: !(Maybe [InstancesScopedListWarningDataItem])
, _islwCode :: !(Maybe InstancesScopedListWarningCode)
, _islwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instancesScopedListWarning
:: InstancesScopedListWarning
instancesScopedListWarning =
InstancesScopedListWarning'
{ _islwData = Nothing
, _islwCode = Nothing
, _islwMessage = Nothing
}
islwData :: Lens' InstancesScopedListWarning [InstancesScopedListWarningDataItem]
islwData
= lens _islwData (\ s a -> s{_islwData = a}) .
_Default
. _Coerce
islwCode :: Lens' InstancesScopedListWarning (Maybe InstancesScopedListWarningCode)
islwCode = lens _islwCode (\ s a -> s{_islwCode = a})
islwMessage :: Lens' InstancesScopedListWarning (Maybe Text)
islwMessage
= lens _islwMessage (\ s a -> s{_islwMessage = a})
instance FromJSON InstancesScopedListWarning where
parseJSON
= withObject "InstancesScopedListWarning"
(\ o ->
InstancesScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON InstancesScopedListWarning where
toJSON InstancesScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _islwData,
("code" .=) <$> _islwCode,
("message" .=) <$> _islwMessage])
newtype RegionInstanceGroupManagersRecreateRequest = RegionInstanceGroupManagersRecreateRequest'
{ _rigmrrInstances :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupManagersRecreateRequest
:: RegionInstanceGroupManagersRecreateRequest
regionInstanceGroupManagersRecreateRequest =
RegionInstanceGroupManagersRecreateRequest'
{ _rigmrrInstances = Nothing
}
rigmrrInstances :: Lens' RegionInstanceGroupManagersRecreateRequest [Text]
rigmrrInstances
= lens _rigmrrInstances
(\ s a -> s{_rigmrrInstances = a})
. _Default
. _Coerce
instance FromJSON
RegionInstanceGroupManagersRecreateRequest where
parseJSON
= withObject
"RegionInstanceGroupManagersRecreateRequest"
(\ o ->
RegionInstanceGroupManagersRecreateRequest' <$>
(o .:? "instances" .!= mempty))
instance ToJSON
RegionInstanceGroupManagersRecreateRequest where
toJSON
RegionInstanceGroupManagersRecreateRequest'{..}
= object
(catMaybes [("instances" .=) <$> _rigmrrInstances])
data BackendServicesScopedListWarning = BackendServicesScopedListWarning'
{ _bsslwData :: !(Maybe [BackendServicesScopedListWarningDataItem])
, _bsslwCode :: !(Maybe BackendServicesScopedListWarningCode)
, _bsslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
backendServicesScopedListWarning
:: BackendServicesScopedListWarning
backendServicesScopedListWarning =
BackendServicesScopedListWarning'
{ _bsslwData = Nothing
, _bsslwCode = Nothing
, _bsslwMessage = Nothing
}
bsslwData :: Lens' BackendServicesScopedListWarning [BackendServicesScopedListWarningDataItem]
bsslwData
= lens _bsslwData (\ s a -> s{_bsslwData = a}) .
_Default
. _Coerce
bsslwCode :: Lens' BackendServicesScopedListWarning (Maybe BackendServicesScopedListWarningCode)
bsslwCode
= lens _bsslwCode (\ s a -> s{_bsslwCode = a})
bsslwMessage :: Lens' BackendServicesScopedListWarning (Maybe Text)
bsslwMessage
= lens _bsslwMessage (\ s a -> s{_bsslwMessage = a})
instance FromJSON BackendServicesScopedListWarning
where
parseJSON
= withObject "BackendServicesScopedListWarning"
(\ o ->
BackendServicesScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON BackendServicesScopedListWarning
where
toJSON BackendServicesScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _bsslwData,
("code" .=) <$> _bsslwCode,
("message" .=) <$> _bsslwMessage])
data InstanceGroupList = InstanceGroupList'
{ _iglNextPageToken :: !(Maybe Text)
, _iglKind :: !Text
, _iglItems :: !(Maybe [InstanceGroup])
, _iglSelfLink :: !(Maybe Text)
, _iglId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupList
:: InstanceGroupList
instanceGroupList =
InstanceGroupList'
{ _iglNextPageToken = Nothing
, _iglKind = "compute#instanceGroupList"
, _iglItems = Nothing
, _iglSelfLink = Nothing
, _iglId = Nothing
}
iglNextPageToken :: Lens' InstanceGroupList (Maybe Text)
iglNextPageToken
= lens _iglNextPageToken
(\ s a -> s{_iglNextPageToken = a})
iglKind :: Lens' InstanceGroupList Text
iglKind = lens _iglKind (\ s a -> s{_iglKind = a})
iglItems :: Lens' InstanceGroupList [InstanceGroup]
iglItems
= lens _iglItems (\ s a -> s{_iglItems = a}) .
_Default
. _Coerce
iglSelfLink :: Lens' InstanceGroupList (Maybe Text)
iglSelfLink
= lens _iglSelfLink (\ s a -> s{_iglSelfLink = a})
iglId :: Lens' InstanceGroupList (Maybe Text)
iglId = lens _iglId (\ s a -> s{_iglId = a})
instance FromJSON InstanceGroupList where
parseJSON
= withObject "InstanceGroupList"
(\ o ->
InstanceGroupList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#instanceGroupList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON InstanceGroupList where
toJSON InstanceGroupList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _iglNextPageToken,
Just ("kind" .= _iglKind),
("items" .=) <$> _iglItems,
("selfLink" .=) <$> _iglSelfLink,
("id" .=) <$> _iglId])
newtype InstancesSetMachineTypeRequest = InstancesSetMachineTypeRequest'
{ _ismtrMachineType :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
instancesSetMachineTypeRequest
:: InstancesSetMachineTypeRequest
instancesSetMachineTypeRequest =
InstancesSetMachineTypeRequest'
{ _ismtrMachineType = Nothing
}
ismtrMachineType :: Lens' InstancesSetMachineTypeRequest (Maybe Text)
ismtrMachineType
= lens _ismtrMachineType
(\ s a -> s{_ismtrMachineType = a})
instance FromJSON InstancesSetMachineTypeRequest
where
parseJSON
= withObject "InstancesSetMachineTypeRequest"
(\ o ->
InstancesSetMachineTypeRequest' <$>
(o .:? "machineType"))
instance ToJSON InstancesSetMachineTypeRequest where
toJSON InstancesSetMachineTypeRequest'{..}
= object
(catMaybes
[("machineType" .=) <$> _ismtrMachineType])
data CustomerEncryptionKey = CustomerEncryptionKey'
{ _cekSha256 :: !(Maybe Text)
, _cekRawKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
customerEncryptionKey
:: CustomerEncryptionKey
customerEncryptionKey =
CustomerEncryptionKey'
{ _cekSha256 = Nothing
, _cekRawKey = Nothing
}
cekSha256 :: Lens' CustomerEncryptionKey (Maybe Text)
cekSha256
= lens _cekSha256 (\ s a -> s{_cekSha256 = a})
cekRawKey :: Lens' CustomerEncryptionKey (Maybe Text)
cekRawKey
= lens _cekRawKey (\ s a -> s{_cekRawKey = a})
instance FromJSON CustomerEncryptionKey where
parseJSON
= withObject "CustomerEncryptionKey"
(\ o ->
CustomerEncryptionKey' <$>
(o .:? "sha256") <*> (o .:? "rawKey"))
instance ToJSON CustomerEncryptionKey where
toJSON CustomerEncryptionKey'{..}
= object
(catMaybes
[("sha256" .=) <$> _cekSha256,
("rawKey" .=) <$> _cekRawKey])
newtype AutoscalerAggregatedListItems = AutoscalerAggregatedListItems'
{ _aaliAddtional :: HashMap Text AutoscalersScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
autoscalerAggregatedListItems
:: HashMap Text AutoscalersScopedList
-> AutoscalerAggregatedListItems
autoscalerAggregatedListItems pAaliAddtional_ =
AutoscalerAggregatedListItems'
{ _aaliAddtional = _Coerce # pAaliAddtional_
}
aaliAddtional :: Lens' AutoscalerAggregatedListItems (HashMap Text AutoscalersScopedList)
aaliAddtional
= lens _aaliAddtional
(\ s a -> s{_aaliAddtional = a})
. _Coerce
instance FromJSON AutoscalerAggregatedListItems where
parseJSON
= withObject "AutoscalerAggregatedListItems"
(\ o ->
AutoscalerAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON AutoscalerAggregatedListItems where
toJSON = toJSON . _aaliAddtional
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 DeprecationStatus = DeprecationStatus'
{ _dsState :: !(Maybe DeprecationStatusState)
, _dsDeleted :: !(Maybe Text)
, _dsReplacement :: !(Maybe Text)
, _dsObsolete :: !(Maybe Text)
, _dsDeprecated :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
deprecationStatus
:: DeprecationStatus
deprecationStatus =
DeprecationStatus'
{ _dsState = Nothing
, _dsDeleted = Nothing
, _dsReplacement = Nothing
, _dsObsolete = Nothing
, _dsDeprecated = Nothing
}
dsState :: Lens' DeprecationStatus (Maybe DeprecationStatusState)
dsState = lens _dsState (\ s a -> s{_dsState = a})
dsDeleted :: Lens' DeprecationStatus (Maybe Text)
dsDeleted
= lens _dsDeleted (\ s a -> s{_dsDeleted = a})
dsReplacement :: Lens' DeprecationStatus (Maybe Text)
dsReplacement
= lens _dsReplacement
(\ s a -> s{_dsReplacement = a})
dsObsolete :: Lens' DeprecationStatus (Maybe Text)
dsObsolete
= lens _dsObsolete (\ s a -> s{_dsObsolete = a})
dsDeprecated :: Lens' DeprecationStatus (Maybe Text)
dsDeprecated
= lens _dsDeprecated (\ s a -> s{_dsDeprecated = a})
instance FromJSON DeprecationStatus where
parseJSON
= withObject "DeprecationStatus"
(\ o ->
DeprecationStatus' <$>
(o .:? "state") <*> (o .:? "deleted") <*>
(o .:? "replacement")
<*> (o .:? "obsolete")
<*> (o .:? "deprecated"))
instance ToJSON DeprecationStatus where
toJSON DeprecationStatus'{..}
= object
(catMaybes
[("state" .=) <$> _dsState,
("deleted" .=) <$> _dsDeleted,
("replacement" .=) <$> _dsReplacement,
("obsolete" .=) <$> _dsObsolete,
("deprecated" .=) <$> _dsDeprecated])
data Snapshot = Snapshot'
{ _sStorageBytesStatus :: !(Maybe SnapshotStorageBytesStatus)
, _sStatus :: !(Maybe SnapshotStatus)
, _sDiskSizeGb :: !(Maybe (Textual Int64))
, _sSourceDiskId :: !(Maybe Text)
, _sKind :: !Text
, _sSourceDiskEncryptionKey :: !(Maybe CustomerEncryptionKey)
, _sStorageBytes :: !(Maybe (Textual Int64))
, _sSelfLink :: !(Maybe Text)
, _sSnapshotEncryptionKey :: !(Maybe CustomerEncryptionKey)
, _sName :: !(Maybe Text)
, _sCreationTimestamp :: !(Maybe Text)
, _sId :: !(Maybe (Textual Word64))
, _sLicenses :: !(Maybe [Text])
, _sSourceDisk :: !(Maybe Text)
, _sDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
snapshot
:: Snapshot
snapshot =
Snapshot'
{ _sStorageBytesStatus = Nothing
, _sStatus = Nothing
, _sDiskSizeGb = Nothing
, _sSourceDiskId = Nothing
, _sKind = "compute#snapshot"
, _sSourceDiskEncryptionKey = Nothing
, _sStorageBytes = Nothing
, _sSelfLink = Nothing
, _sSnapshotEncryptionKey = Nothing
, _sName = Nothing
, _sCreationTimestamp = Nothing
, _sId = Nothing
, _sLicenses = Nothing
, _sSourceDisk = Nothing
, _sDescription = Nothing
}
sStorageBytesStatus :: Lens' Snapshot (Maybe SnapshotStorageBytesStatus)
sStorageBytesStatus
= lens _sStorageBytesStatus
(\ s a -> s{_sStorageBytesStatus = a})
sStatus :: Lens' Snapshot (Maybe SnapshotStatus)
sStatus = lens _sStatus (\ s a -> s{_sStatus = a})
sDiskSizeGb :: Lens' Snapshot (Maybe Int64)
sDiskSizeGb
= lens _sDiskSizeGb (\ s a -> s{_sDiskSizeGb = a}) .
mapping _Coerce
sSourceDiskId :: Lens' Snapshot (Maybe Text)
sSourceDiskId
= lens _sSourceDiskId
(\ s a -> s{_sSourceDiskId = a})
sKind :: Lens' Snapshot Text
sKind = lens _sKind (\ s a -> s{_sKind = a})
sSourceDiskEncryptionKey :: Lens' Snapshot (Maybe CustomerEncryptionKey)
sSourceDiskEncryptionKey
= lens _sSourceDiskEncryptionKey
(\ s a -> s{_sSourceDiskEncryptionKey = a})
sStorageBytes :: Lens' Snapshot (Maybe Int64)
sStorageBytes
= lens _sStorageBytes
(\ s a -> s{_sStorageBytes = a})
. mapping _Coerce
sSelfLink :: Lens' Snapshot (Maybe Text)
sSelfLink
= lens _sSelfLink (\ s a -> s{_sSelfLink = a})
sSnapshotEncryptionKey :: Lens' Snapshot (Maybe CustomerEncryptionKey)
sSnapshotEncryptionKey
= lens _sSnapshotEncryptionKey
(\ s a -> s{_sSnapshotEncryptionKey = a})
sName :: Lens' Snapshot (Maybe Text)
sName = lens _sName (\ s a -> s{_sName = a})
sCreationTimestamp :: Lens' Snapshot (Maybe Text)
sCreationTimestamp
= lens _sCreationTimestamp
(\ s a -> s{_sCreationTimestamp = a})
sId :: Lens' Snapshot (Maybe Word64)
sId
= lens _sId (\ s a -> s{_sId = a}) . mapping _Coerce
sLicenses :: Lens' Snapshot [Text]
sLicenses
= lens _sLicenses (\ s a -> s{_sLicenses = a}) .
_Default
. _Coerce
sSourceDisk :: Lens' Snapshot (Maybe Text)
sSourceDisk
= lens _sSourceDisk (\ s a -> s{_sSourceDisk = a})
sDescription :: Lens' Snapshot (Maybe Text)
sDescription
= lens _sDescription (\ s a -> s{_sDescription = a})
instance FromJSON Snapshot where
parseJSON
= withObject "Snapshot"
(\ o ->
Snapshot' <$>
(o .:? "storageBytesStatus") <*> (o .:? "status") <*>
(o .:? "diskSizeGb")
<*> (o .:? "sourceDiskId")
<*> (o .:? "kind" .!= "compute#snapshot")
<*> (o .:? "sourceDiskEncryptionKey")
<*> (o .:? "storageBytes")
<*> (o .:? "selfLink")
<*> (o .:? "snapshotEncryptionKey")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "licenses" .!= mempty)
<*> (o .:? "sourceDisk")
<*> (o .:? "description"))
instance ToJSON Snapshot where
toJSON Snapshot'{..}
= object
(catMaybes
[("storageBytesStatus" .=) <$> _sStorageBytesStatus,
("status" .=) <$> _sStatus,
("diskSizeGb" .=) <$> _sDiskSizeGb,
("sourceDiskId" .=) <$> _sSourceDiskId,
Just ("kind" .= _sKind),
("sourceDiskEncryptionKey" .=) <$>
_sSourceDiskEncryptionKey,
("storageBytes" .=) <$> _sStorageBytes,
("selfLink" .=) <$> _sSelfLink,
("snapshotEncryptionKey" .=) <$>
_sSnapshotEncryptionKey,
("name" .=) <$> _sName,
("creationTimestamp" .=) <$> _sCreationTimestamp,
("id" .=) <$> _sId, ("licenses" .=) <$> _sLicenses,
("sourceDisk" .=) <$> _sSourceDisk,
("description" .=) <$> _sDescription])
data RouterStatus = RouterStatus'
{ _rsBGPPeerStatus :: !(Maybe [RouterStatusBGPPeerStatus])
, _rsNetwork :: !(Maybe Text)
, _rsBestRoutes :: !(Maybe [Route])
} deriving (Eq,Show,Data,Typeable,Generic)
routerStatus
:: RouterStatus
routerStatus =
RouterStatus'
{ _rsBGPPeerStatus = Nothing
, _rsNetwork = Nothing
, _rsBestRoutes = Nothing
}
rsBGPPeerStatus :: Lens' RouterStatus [RouterStatusBGPPeerStatus]
rsBGPPeerStatus
= lens _rsBGPPeerStatus
(\ s a -> s{_rsBGPPeerStatus = a})
. _Default
. _Coerce
rsNetwork :: Lens' RouterStatus (Maybe Text)
rsNetwork
= lens _rsNetwork (\ s a -> s{_rsNetwork = a})
rsBestRoutes :: Lens' RouterStatus [Route]
rsBestRoutes
= lens _rsBestRoutes (\ s a -> s{_rsBestRoutes = a})
. _Default
. _Coerce
instance FromJSON RouterStatus where
parseJSON
= withObject "RouterStatus"
(\ o ->
RouterStatus' <$>
(o .:? "bgpPeerStatus" .!= mempty) <*>
(o .:? "network")
<*> (o .:? "bestRoutes" .!= mempty))
instance ToJSON RouterStatus where
toJSON RouterStatus'{..}
= object
(catMaybes
[("bgpPeerStatus" .=) <$> _rsBGPPeerStatus,
("network" .=) <$> _rsNetwork,
("bestRoutes" .=) <$> _rsBestRoutes])
data AutoscalingPolicyCustomMetricUtilization = AutoscalingPolicyCustomMetricUtilization'
{ _apcmuUtilizationTarget :: !(Maybe (Textual Double))
, _apcmuMetric :: !(Maybe Text)
, _apcmuUtilizationTargetType :: !(Maybe AutoscalingPolicyCustomMetricUtilizationUtilizationTargetType)
} deriving (Eq,Show,Data,Typeable,Generic)
autoscalingPolicyCustomMetricUtilization
:: AutoscalingPolicyCustomMetricUtilization
autoscalingPolicyCustomMetricUtilization =
AutoscalingPolicyCustomMetricUtilization'
{ _apcmuUtilizationTarget = Nothing
, _apcmuMetric = Nothing
, _apcmuUtilizationTargetType = Nothing
}
apcmuUtilizationTarget :: Lens' AutoscalingPolicyCustomMetricUtilization (Maybe Double)
apcmuUtilizationTarget
= lens _apcmuUtilizationTarget
(\ s a -> s{_apcmuUtilizationTarget = a})
. mapping _Coerce
apcmuMetric :: Lens' AutoscalingPolicyCustomMetricUtilization (Maybe Text)
apcmuMetric
= lens _apcmuMetric (\ s a -> s{_apcmuMetric = a})
apcmuUtilizationTargetType :: Lens' AutoscalingPolicyCustomMetricUtilization (Maybe AutoscalingPolicyCustomMetricUtilizationUtilizationTargetType)
apcmuUtilizationTargetType
= lens _apcmuUtilizationTargetType
(\ s a -> s{_apcmuUtilizationTargetType = a})
instance FromJSON
AutoscalingPolicyCustomMetricUtilization where
parseJSON
= withObject
"AutoscalingPolicyCustomMetricUtilization"
(\ o ->
AutoscalingPolicyCustomMetricUtilization' <$>
(o .:? "utilizationTarget") <*> (o .:? "metric") <*>
(o .:? "utilizationTargetType"))
instance ToJSON
AutoscalingPolicyCustomMetricUtilization where
toJSON AutoscalingPolicyCustomMetricUtilization'{..}
= object
(catMaybes
[("utilizationTarget" .=) <$>
_apcmuUtilizationTarget,
("metric" .=) <$> _apcmuMetric,
("utilizationTargetType" .=) <$>
_apcmuUtilizationTargetType])
data ForwardingRuleList = ForwardingRuleList'
{ _frlNextPageToken :: !(Maybe Text)
, _frlKind :: !Text
, _frlItems :: !(Maybe [ForwardingRule])
, _frlSelfLink :: !(Maybe Text)
, _frlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
forwardingRuleList
:: ForwardingRuleList
forwardingRuleList =
ForwardingRuleList'
{ _frlNextPageToken = Nothing
, _frlKind = "compute#forwardingRuleList"
, _frlItems = Nothing
, _frlSelfLink = Nothing
, _frlId = Nothing
}
frlNextPageToken :: Lens' ForwardingRuleList (Maybe Text)
frlNextPageToken
= lens _frlNextPageToken
(\ s a -> s{_frlNextPageToken = a})
frlKind :: Lens' ForwardingRuleList Text
frlKind = lens _frlKind (\ s a -> s{_frlKind = a})
frlItems :: Lens' ForwardingRuleList [ForwardingRule]
frlItems
= lens _frlItems (\ s a -> s{_frlItems = a}) .
_Default
. _Coerce
frlSelfLink :: Lens' ForwardingRuleList (Maybe Text)
frlSelfLink
= lens _frlSelfLink (\ s a -> s{_frlSelfLink = a})
frlId :: Lens' ForwardingRuleList (Maybe Text)
frlId = lens _frlId (\ s a -> s{_frlId = a})
instance FromJSON ForwardingRuleList where
parseJSON
= withObject "ForwardingRuleList"
(\ o ->
ForwardingRuleList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#forwardingRuleList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON ForwardingRuleList where
toJSON ForwardingRuleList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _frlNextPageToken,
Just ("kind" .= _frlKind),
("items" .=) <$> _frlItems,
("selfLink" .=) <$> _frlSelfLink,
("id" .=) <$> _frlId])
data VPNTunnelsScopedList = VPNTunnelsScopedList'
{ _vtslVPNTunnels :: !(Maybe [VPNTunnel])
, _vtslWarning :: !(Maybe VPNTunnelsScopedListWarning)
} deriving (Eq,Show,Data,Typeable,Generic)
vpnTunnelsScopedList
:: VPNTunnelsScopedList
vpnTunnelsScopedList =
VPNTunnelsScopedList'
{ _vtslVPNTunnels = Nothing
, _vtslWarning = Nothing
}
vtslVPNTunnels :: Lens' VPNTunnelsScopedList [VPNTunnel]
vtslVPNTunnels
= lens _vtslVPNTunnels
(\ s a -> s{_vtslVPNTunnels = a})
. _Default
. _Coerce
vtslWarning :: Lens' VPNTunnelsScopedList (Maybe VPNTunnelsScopedListWarning)
vtslWarning
= lens _vtslWarning (\ s a -> s{_vtslWarning = a})
instance FromJSON VPNTunnelsScopedList where
parseJSON
= withObject "VPNTunnelsScopedList"
(\ o ->
VPNTunnelsScopedList' <$>
(o .:? "vpnTunnels" .!= mempty) <*>
(o .:? "warning"))
instance ToJSON VPNTunnelsScopedList where
toJSON VPNTunnelsScopedList'{..}
= object
(catMaybes
[("vpnTunnels" .=) <$> _vtslVPNTunnels,
("warning" .=) <$> _vtslWarning])
data InstanceGroupsSetNamedPortsRequest = InstanceGroupsSetNamedPortsRequest'
{ _igsnprFingerprint :: !(Maybe Bytes)
, _igsnprNamedPorts :: !(Maybe [NamedPort])
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupsSetNamedPortsRequest
:: InstanceGroupsSetNamedPortsRequest
instanceGroupsSetNamedPortsRequest =
InstanceGroupsSetNamedPortsRequest'
{ _igsnprFingerprint = Nothing
, _igsnprNamedPorts = Nothing
}
igsnprFingerprint :: Lens' InstanceGroupsSetNamedPortsRequest (Maybe ByteString)
igsnprFingerprint
= lens _igsnprFingerprint
(\ s a -> s{_igsnprFingerprint = a})
. mapping _Bytes
igsnprNamedPorts :: Lens' InstanceGroupsSetNamedPortsRequest [NamedPort]
igsnprNamedPorts
= lens _igsnprNamedPorts
(\ s a -> s{_igsnprNamedPorts = a})
. _Default
. _Coerce
instance FromJSON InstanceGroupsSetNamedPortsRequest
where
parseJSON
= withObject "InstanceGroupsSetNamedPortsRequest"
(\ o ->
InstanceGroupsSetNamedPortsRequest' <$>
(o .:? "fingerprint") <*>
(o .:? "namedPorts" .!= mempty))
instance ToJSON InstanceGroupsSetNamedPortsRequest
where
toJSON InstanceGroupsSetNamedPortsRequest'{..}
= object
(catMaybes
[("fingerprint" .=) <$> _igsnprFingerprint,
("namedPorts" .=) <$> _igsnprNamedPorts])
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 = "compute#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" .!= "compute#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 DiskList = DiskList'
{ _dlNextPageToken :: !(Maybe Text)
, _dlKind :: !Text
, _dlItems :: !(Maybe [Disk])
, _dlSelfLink :: !(Maybe Text)
, _dlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
diskList
:: DiskList
diskList =
DiskList'
{ _dlNextPageToken = Nothing
, _dlKind = "compute#diskList"
, _dlItems = Nothing
, _dlSelfLink = Nothing
, _dlId = Nothing
}
dlNextPageToken :: Lens' DiskList (Maybe Text)
dlNextPageToken
= lens _dlNextPageToken
(\ s a -> s{_dlNextPageToken = a})
dlKind :: Lens' DiskList Text
dlKind = lens _dlKind (\ s a -> s{_dlKind = a})
dlItems :: Lens' DiskList [Disk]
dlItems
= lens _dlItems (\ s a -> s{_dlItems = a}) . _Default
. _Coerce
dlSelfLink :: Lens' DiskList (Maybe Text)
dlSelfLink
= lens _dlSelfLink (\ s a -> s{_dlSelfLink = a})
dlId :: Lens' DiskList (Maybe Text)
dlId = lens _dlId (\ s a -> s{_dlId = a})
instance FromJSON DiskList where
parseJSON
= withObject "DiskList"
(\ o ->
DiskList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#diskList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON DiskList where
toJSON DiskList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _dlNextPageToken,
Just ("kind" .= _dlKind), ("items" .=) <$> _dlItems,
("selfLink" .=) <$> _dlSelfLink,
("id" .=) <$> _dlId])
newtype TargetPoolsAddInstanceRequest = TargetPoolsAddInstanceRequest'
{ _tpairInstances :: Maybe [InstanceReference]
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolsAddInstanceRequest
:: TargetPoolsAddInstanceRequest
targetPoolsAddInstanceRequest =
TargetPoolsAddInstanceRequest'
{ _tpairInstances = Nothing
}
tpairInstances :: Lens' TargetPoolsAddInstanceRequest [InstanceReference]
tpairInstances
= lens _tpairInstances
(\ s a -> s{_tpairInstances = a})
. _Default
. _Coerce
instance FromJSON TargetPoolsAddInstanceRequest where
parseJSON
= withObject "TargetPoolsAddInstanceRequest"
(\ o ->
TargetPoolsAddInstanceRequest' <$>
(o .:? "instances" .!= mempty))
instance ToJSON TargetPoolsAddInstanceRequest where
toJSON TargetPoolsAddInstanceRequest'{..}
= object
(catMaybes [("instances" .=) <$> _tpairInstances])
data RegionAutoscalerList = RegionAutoscalerList'
{ _rNextPageToken :: !(Maybe Text)
, _rKind :: !Text
, _rItems :: !(Maybe [Autoscaler])
, _rSelfLink :: !(Maybe Text)
, _rId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
regionAutoscalerList
:: RegionAutoscalerList
regionAutoscalerList =
RegionAutoscalerList'
{ _rNextPageToken = Nothing
, _rKind = "compute#regionAutoscalerList"
, _rItems = Nothing
, _rSelfLink = Nothing
, _rId = Nothing
}
rNextPageToken :: Lens' RegionAutoscalerList (Maybe Text)
rNextPageToken
= lens _rNextPageToken
(\ s a -> s{_rNextPageToken = a})
rKind :: Lens' RegionAutoscalerList Text
rKind = lens _rKind (\ s a -> s{_rKind = a})
rItems :: Lens' RegionAutoscalerList [Autoscaler]
rItems
= lens _rItems (\ s a -> s{_rItems = a}) . _Default .
_Coerce
rSelfLink :: Lens' RegionAutoscalerList (Maybe Text)
rSelfLink
= lens _rSelfLink (\ s a -> s{_rSelfLink = a})
rId :: Lens' RegionAutoscalerList (Maybe Text)
rId = lens _rId (\ s a -> s{_rId = a})
instance FromJSON RegionAutoscalerList where
parseJSON
= withObject "RegionAutoscalerList"
(\ o ->
RegionAutoscalerList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#regionAutoscalerList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON RegionAutoscalerList where
toJSON RegionAutoscalerList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _rNextPageToken,
Just ("kind" .= _rKind), ("items" .=) <$> _rItems,
("selfLink" .=) <$> _rSelfLink, ("id" .=) <$> _rId])
newtype InstanceGroupsAddInstancesRequest = InstanceGroupsAddInstancesRequest'
{ _igairInstances :: Maybe [InstanceReference]
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupsAddInstancesRequest
:: InstanceGroupsAddInstancesRequest
instanceGroupsAddInstancesRequest =
InstanceGroupsAddInstancesRequest'
{ _igairInstances = Nothing
}
igairInstances :: Lens' InstanceGroupsAddInstancesRequest [InstanceReference]
igairInstances
= lens _igairInstances
(\ s a -> s{_igairInstances = a})
. _Default
. _Coerce
instance FromJSON InstanceGroupsAddInstancesRequest
where
parseJSON
= withObject "InstanceGroupsAddInstancesRequest"
(\ o ->
InstanceGroupsAddInstancesRequest' <$>
(o .:? "instances" .!= mempty))
instance ToJSON InstanceGroupsAddInstancesRequest
where
toJSON InstanceGroupsAddInstancesRequest'{..}
= object
(catMaybes [("instances" .=) <$> _igairInstances])
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 = "compute#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" .!= "compute#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 SubnetworksScopedListWarning = SubnetworksScopedListWarning'
{ _sslwData :: !(Maybe [SubnetworksScopedListWarningDataItem])
, _sslwCode :: !(Maybe SubnetworksScopedListWarningCode)
, _sslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
subnetworksScopedListWarning
:: SubnetworksScopedListWarning
subnetworksScopedListWarning =
SubnetworksScopedListWarning'
{ _sslwData = Nothing
, _sslwCode = Nothing
, _sslwMessage = Nothing
}
sslwData :: Lens' SubnetworksScopedListWarning [SubnetworksScopedListWarningDataItem]
sslwData
= lens _sslwData (\ s a -> s{_sslwData = a}) .
_Default
. _Coerce
sslwCode :: Lens' SubnetworksScopedListWarning (Maybe SubnetworksScopedListWarningCode)
sslwCode = lens _sslwCode (\ s a -> s{_sslwCode = a})
sslwMessage :: Lens' SubnetworksScopedListWarning (Maybe Text)
sslwMessage
= lens _sslwMessage (\ s a -> s{_sslwMessage = a})
instance FromJSON SubnetworksScopedListWarning where
parseJSON
= withObject "SubnetworksScopedListWarning"
(\ o ->
SubnetworksScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON SubnetworksScopedListWarning where
toJSON SubnetworksScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _sslwData,
("code" .=) <$> _sslwCode,
("message" .=) <$> _sslwMessage])
data Image = Image'
{ _iStatus :: !(Maybe ImageStatus)
, _iImageEncryptionKey :: !(Maybe CustomerEncryptionKey)
, _iDiskSizeGb :: !(Maybe (Textual Int64))
, _iSourceType :: !ImageSourceType
, _iSourceDiskId :: !(Maybe Text)
, _iKind :: !Text
, _iSourceDiskEncryptionKey :: !(Maybe CustomerEncryptionKey)
, _iGuestOSFeatures :: !(Maybe [GuestOSFeature])
, _iArchiveSizeBytes :: !(Maybe (Textual Int64))
, _iFamily :: !(Maybe Text)
, _iRawDisk :: !(Maybe ImageRawDisk)
, _iSelfLink :: !(Maybe Text)
, _iName :: !(Maybe Text)
, _iCreationTimestamp :: !(Maybe Text)
, _iId :: !(Maybe (Textual Word64))
, _iLicenses :: !(Maybe [Text])
, _iSourceDisk :: !(Maybe Text)
, _iDescription :: !(Maybe Text)
, _iDeprecated :: !(Maybe DeprecationStatus)
} deriving (Eq,Show,Data,Typeable,Generic)
image
:: Image
image =
Image'
{ _iStatus = Nothing
, _iImageEncryptionKey = Nothing
, _iDiskSizeGb = Nothing
, _iSourceType = Raw
, _iSourceDiskId = Nothing
, _iKind = "compute#image"
, _iSourceDiskEncryptionKey = Nothing
, _iGuestOSFeatures = Nothing
, _iArchiveSizeBytes = Nothing
, _iFamily = Nothing
, _iRawDisk = Nothing
, _iSelfLink = Nothing
, _iName = Nothing
, _iCreationTimestamp = Nothing
, _iId = Nothing
, _iLicenses = Nothing
, _iSourceDisk = Nothing
, _iDescription = Nothing
, _iDeprecated = Nothing
}
iStatus :: Lens' Image (Maybe ImageStatus)
iStatus = lens _iStatus (\ s a -> s{_iStatus = a})
iImageEncryptionKey :: Lens' Image (Maybe CustomerEncryptionKey)
iImageEncryptionKey
= lens _iImageEncryptionKey
(\ s a -> s{_iImageEncryptionKey = a})
iDiskSizeGb :: Lens' Image (Maybe Int64)
iDiskSizeGb
= lens _iDiskSizeGb (\ s a -> s{_iDiskSizeGb = a}) .
mapping _Coerce
iSourceType :: Lens' Image ImageSourceType
iSourceType
= lens _iSourceType (\ s a -> s{_iSourceType = a})
iSourceDiskId :: Lens' Image (Maybe Text)
iSourceDiskId
= lens _iSourceDiskId
(\ s a -> s{_iSourceDiskId = a})
iKind :: Lens' Image Text
iKind = lens _iKind (\ s a -> s{_iKind = a})
iSourceDiskEncryptionKey :: Lens' Image (Maybe CustomerEncryptionKey)
iSourceDiskEncryptionKey
= lens _iSourceDiskEncryptionKey
(\ s a -> s{_iSourceDiskEncryptionKey = a})
iGuestOSFeatures :: Lens' Image [GuestOSFeature]
iGuestOSFeatures
= lens _iGuestOSFeatures
(\ s a -> s{_iGuestOSFeatures = a})
. _Default
. _Coerce
iArchiveSizeBytes :: Lens' Image (Maybe Int64)
iArchiveSizeBytes
= lens _iArchiveSizeBytes
(\ s a -> s{_iArchiveSizeBytes = a})
. mapping _Coerce
iFamily :: Lens' Image (Maybe Text)
iFamily = lens _iFamily (\ s a -> s{_iFamily = a})
iRawDisk :: Lens' Image (Maybe ImageRawDisk)
iRawDisk = lens _iRawDisk (\ s a -> s{_iRawDisk = a})
iSelfLink :: Lens' Image (Maybe Text)
iSelfLink
= lens _iSelfLink (\ s a -> s{_iSelfLink = a})
iName :: Lens' Image (Maybe Text)
iName = lens _iName (\ s a -> s{_iName = a})
iCreationTimestamp :: Lens' Image (Maybe Text)
iCreationTimestamp
= lens _iCreationTimestamp
(\ s a -> s{_iCreationTimestamp = a})
iId :: Lens' Image (Maybe Word64)
iId
= lens _iId (\ s a -> s{_iId = a}) . mapping _Coerce
iLicenses :: Lens' Image [Text]
iLicenses
= lens _iLicenses (\ s a -> s{_iLicenses = a}) .
_Default
. _Coerce
iSourceDisk :: Lens' Image (Maybe Text)
iSourceDisk
= lens _iSourceDisk (\ s a -> s{_iSourceDisk = a})
iDescription :: Lens' Image (Maybe Text)
iDescription
= lens _iDescription (\ s a -> s{_iDescription = a})
iDeprecated :: Lens' Image (Maybe DeprecationStatus)
iDeprecated
= lens _iDeprecated (\ s a -> s{_iDeprecated = a})
instance FromJSON Image where
parseJSON
= withObject "Image"
(\ o ->
Image' <$>
(o .:? "status") <*> (o .:? "imageEncryptionKey") <*>
(o .:? "diskSizeGb")
<*> (o .:? "sourceType" .!= Raw)
<*> (o .:? "sourceDiskId")
<*> (o .:? "kind" .!= "compute#image")
<*> (o .:? "sourceDiskEncryptionKey")
<*> (o .:? "guestOsFeatures" .!= mempty)
<*> (o .:? "archiveSizeBytes")
<*> (o .:? "family")
<*> (o .:? "rawDisk")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "licenses" .!= mempty)
<*> (o .:? "sourceDisk")
<*> (o .:? "description")
<*> (o .:? "deprecated"))
instance ToJSON Image where
toJSON Image'{..}
= object
(catMaybes
[("status" .=) <$> _iStatus,
("imageEncryptionKey" .=) <$> _iImageEncryptionKey,
("diskSizeGb" .=) <$> _iDiskSizeGb,
Just ("sourceType" .= _iSourceType),
("sourceDiskId" .=) <$> _iSourceDiskId,
Just ("kind" .= _iKind),
("sourceDiskEncryptionKey" .=) <$>
_iSourceDiskEncryptionKey,
("guestOsFeatures" .=) <$> _iGuestOSFeatures,
("archiveSizeBytes" .=) <$> _iArchiveSizeBytes,
("family" .=) <$> _iFamily,
("rawDisk" .=) <$> _iRawDisk,
("selfLink" .=) <$> _iSelfLink,
("name" .=) <$> _iName,
("creationTimestamp" .=) <$> _iCreationTimestamp,
("id" .=) <$> _iId, ("licenses" .=) <$> _iLicenses,
("sourceDisk" .=) <$> _iSourceDisk,
("description" .=) <$> _iDescription,
("deprecated" .=) <$> _iDeprecated])
data URLMap = URLMap'
{ _umTests :: !(Maybe [URLMapTest])
, _umKind :: !Text
, _umFingerprint :: !(Maybe Bytes)
, _umDefaultService :: !(Maybe Text)
, _umSelfLink :: !(Maybe Text)
, _umName :: !(Maybe Text)
, _umCreationTimestamp :: !(Maybe Text)
, _umPathMatchers :: !(Maybe [PathMatcher])
, _umId :: !(Maybe (Textual Word64))
, _umHostRules :: !(Maybe [HostRule])
, _umDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
urlMap
:: URLMap
urlMap =
URLMap'
{ _umTests = Nothing
, _umKind = "compute#urlMap"
, _umFingerprint = Nothing
, _umDefaultService = Nothing
, _umSelfLink = Nothing
, _umName = Nothing
, _umCreationTimestamp = Nothing
, _umPathMatchers = Nothing
, _umId = Nothing
, _umHostRules = Nothing
, _umDescription = Nothing
}
umTests :: Lens' URLMap [URLMapTest]
umTests
= lens _umTests (\ s a -> s{_umTests = a}) . _Default
. _Coerce
umKind :: Lens' URLMap Text
umKind = lens _umKind (\ s a -> s{_umKind = a})
umFingerprint :: Lens' URLMap (Maybe ByteString)
umFingerprint
= lens _umFingerprint
(\ s a -> s{_umFingerprint = a})
. mapping _Bytes
umDefaultService :: Lens' URLMap (Maybe Text)
umDefaultService
= lens _umDefaultService
(\ s a -> s{_umDefaultService = a})
umSelfLink :: Lens' URLMap (Maybe Text)
umSelfLink
= lens _umSelfLink (\ s a -> s{_umSelfLink = a})
umName :: Lens' URLMap (Maybe Text)
umName = lens _umName (\ s a -> s{_umName = a})
umCreationTimestamp :: Lens' URLMap (Maybe Text)
umCreationTimestamp
= lens _umCreationTimestamp
(\ s a -> s{_umCreationTimestamp = a})
umPathMatchers :: Lens' URLMap [PathMatcher]
umPathMatchers
= lens _umPathMatchers
(\ s a -> s{_umPathMatchers = a})
. _Default
. _Coerce
umId :: Lens' URLMap (Maybe Word64)
umId
= lens _umId (\ s a -> s{_umId = a}) .
mapping _Coerce
umHostRules :: Lens' URLMap [HostRule]
umHostRules
= lens _umHostRules (\ s a -> s{_umHostRules = a}) .
_Default
. _Coerce
umDescription :: Lens' URLMap (Maybe Text)
umDescription
= lens _umDescription
(\ s a -> s{_umDescription = a})
instance FromJSON URLMap where
parseJSON
= withObject "URLMap"
(\ o ->
URLMap' <$>
(o .:? "tests" .!= mempty) <*>
(o .:? "kind" .!= "compute#urlMap")
<*> (o .:? "fingerprint")
<*> (o .:? "defaultService")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "pathMatchers" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "hostRules" .!= mempty)
<*> (o .:? "description"))
instance ToJSON URLMap where
toJSON URLMap'{..}
= object
(catMaybes
[("tests" .=) <$> _umTests, Just ("kind" .= _umKind),
("fingerprint" .=) <$> _umFingerprint,
("defaultService" .=) <$> _umDefaultService,
("selfLink" .=) <$> _umSelfLink,
("name" .=) <$> _umName,
("creationTimestamp" .=) <$> _umCreationTimestamp,
("pathMatchers" .=) <$> _umPathMatchers,
("id" .=) <$> _umId,
("hostRules" .=) <$> _umHostRules,
("description" .=) <$> _umDescription])
newtype InstanceGroupAggregatedListItems = InstanceGroupAggregatedListItems'
{ _igaliAddtional :: HashMap Text InstanceGroupsScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupAggregatedListItems
:: HashMap Text InstanceGroupsScopedList
-> InstanceGroupAggregatedListItems
instanceGroupAggregatedListItems pIgaliAddtional_ =
InstanceGroupAggregatedListItems'
{ _igaliAddtional = _Coerce # pIgaliAddtional_
}
igaliAddtional :: Lens' InstanceGroupAggregatedListItems (HashMap Text InstanceGroupsScopedList)
igaliAddtional
= lens _igaliAddtional
(\ s a -> s{_igaliAddtional = a})
. _Coerce
instance FromJSON InstanceGroupAggregatedListItems
where
parseJSON
= withObject "InstanceGroupAggregatedListItems"
(\ o ->
InstanceGroupAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON InstanceGroupAggregatedListItems
where
toJSON = toJSON . _igaliAddtional
data TargetPoolList = TargetPoolList'
{ _tplNextPageToken :: !(Maybe Text)
, _tplKind :: !Text
, _tplItems :: !(Maybe [TargetPool])
, _tplSelfLink :: !(Maybe Text)
, _tplId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolList
:: TargetPoolList
targetPoolList =
TargetPoolList'
{ _tplNextPageToken = Nothing
, _tplKind = "compute#targetPoolList"
, _tplItems = Nothing
, _tplSelfLink = Nothing
, _tplId = Nothing
}
tplNextPageToken :: Lens' TargetPoolList (Maybe Text)
tplNextPageToken
= lens _tplNextPageToken
(\ s a -> s{_tplNextPageToken = a})
tplKind :: Lens' TargetPoolList Text
tplKind = lens _tplKind (\ s a -> s{_tplKind = a})
tplItems :: Lens' TargetPoolList [TargetPool]
tplItems
= lens _tplItems (\ s a -> s{_tplItems = a}) .
_Default
. _Coerce
tplSelfLink :: Lens' TargetPoolList (Maybe Text)
tplSelfLink
= lens _tplSelfLink (\ s a -> s{_tplSelfLink = a})
tplId :: Lens' TargetPoolList (Maybe Text)
tplId = lens _tplId (\ s a -> s{_tplId = a})
instance FromJSON TargetPoolList where
parseJSON
= withObject "TargetPoolList"
(\ o ->
TargetPoolList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#targetPoolList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON TargetPoolList where
toJSON TargetPoolList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _tplNextPageToken,
Just ("kind" .= _tplKind),
("items" .=) <$> _tplItems,
("selfLink" .=) <$> _tplSelfLink,
("id" .=) <$> _tplId])
data TargetInstanceAggregatedList = TargetInstanceAggregatedList'
{ _tialNextPageToken :: !(Maybe Text)
, _tialKind :: !Text
, _tialItems :: !(Maybe TargetInstanceAggregatedListItems)
, _tialSelfLink :: !(Maybe Text)
, _tialId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetInstanceAggregatedList
:: TargetInstanceAggregatedList
targetInstanceAggregatedList =
TargetInstanceAggregatedList'
{ _tialNextPageToken = Nothing
, _tialKind = "compute#targetInstanceAggregatedList"
, _tialItems = Nothing
, _tialSelfLink = Nothing
, _tialId = Nothing
}
tialNextPageToken :: Lens' TargetInstanceAggregatedList (Maybe Text)
tialNextPageToken
= lens _tialNextPageToken
(\ s a -> s{_tialNextPageToken = a})
tialKind :: Lens' TargetInstanceAggregatedList Text
tialKind = lens _tialKind (\ s a -> s{_tialKind = a})
tialItems :: Lens' TargetInstanceAggregatedList (Maybe TargetInstanceAggregatedListItems)
tialItems
= lens _tialItems (\ s a -> s{_tialItems = a})
tialSelfLink :: Lens' TargetInstanceAggregatedList (Maybe Text)
tialSelfLink
= lens _tialSelfLink (\ s a -> s{_tialSelfLink = a})
tialId :: Lens' TargetInstanceAggregatedList (Maybe Text)
tialId = lens _tialId (\ s a -> s{_tialId = a})
instance FromJSON TargetInstanceAggregatedList where
parseJSON
= withObject "TargetInstanceAggregatedList"
(\ o ->
TargetInstanceAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"compute#targetInstanceAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON TargetInstanceAggregatedList where
toJSON TargetInstanceAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _tialNextPageToken,
Just ("kind" .= _tialKind),
("items" .=) <$> _tialItems,
("selfLink" .=) <$> _tialSelfLink,
("id" .=) <$> _tialId])
data DisksScopedList = DisksScopedList'
{ _dslWarning :: !(Maybe DisksScopedListWarning)
, _dslDisks :: !(Maybe [Disk])
} deriving (Eq,Show,Data,Typeable,Generic)
disksScopedList
:: DisksScopedList
disksScopedList =
DisksScopedList'
{ _dslWarning = Nothing
, _dslDisks = Nothing
}
dslWarning :: Lens' DisksScopedList (Maybe DisksScopedListWarning)
dslWarning
= lens _dslWarning (\ s a -> s{_dslWarning = a})
dslDisks :: Lens' DisksScopedList [Disk]
dslDisks
= lens _dslDisks (\ s a -> s{_dslDisks = a}) .
_Default
. _Coerce
instance FromJSON DisksScopedList where
parseJSON
= withObject "DisksScopedList"
(\ o ->
DisksScopedList' <$>
(o .:? "warning") <*> (o .:? "disks" .!= mempty))
instance ToJSON DisksScopedList where
toJSON DisksScopedList'{..}
= object
(catMaybes
[("warning" .=) <$> _dslWarning,
("disks" .=) <$> _dslDisks])
data InstanceGroupManagersScopedList = InstanceGroupManagersScopedList'
{ _igmslWarning :: !(Maybe InstanceGroupManagersScopedListWarning)
, _igmslInstanceGroupManagers :: !(Maybe [InstanceGroupManager])
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersScopedList
:: InstanceGroupManagersScopedList
instanceGroupManagersScopedList =
InstanceGroupManagersScopedList'
{ _igmslWarning = Nothing
, _igmslInstanceGroupManagers = Nothing
}
igmslWarning :: Lens' InstanceGroupManagersScopedList (Maybe InstanceGroupManagersScopedListWarning)
igmslWarning
= lens _igmslWarning (\ s a -> s{_igmslWarning = a})
igmslInstanceGroupManagers :: Lens' InstanceGroupManagersScopedList [InstanceGroupManager]
igmslInstanceGroupManagers
= lens _igmslInstanceGroupManagers
(\ s a -> s{_igmslInstanceGroupManagers = a})
. _Default
. _Coerce
instance FromJSON InstanceGroupManagersScopedList
where
parseJSON
= withObject "InstanceGroupManagersScopedList"
(\ o ->
InstanceGroupManagersScopedList' <$>
(o .:? "warning") <*>
(o .:? "instanceGroupManagers" .!= mempty))
instance ToJSON InstanceGroupManagersScopedList where
toJSON InstanceGroupManagersScopedList'{..}
= object
(catMaybes
[("warning" .=) <$> _igmslWarning,
("instanceGroupManagers" .=) <$>
_igmslInstanceGroupManagers])
data HealthCheck = HealthCheck'
{ _hcHealthyThreshold :: !(Maybe (Textual Int32))
, _hcTCPHealthCheck :: !(Maybe TCPHealthCheck)
, _hcKind :: !Text
, _hcSSLHealthCheck :: !(Maybe SSLHealthCheck)
, _hcSelfLink :: !(Maybe Text)
, _hcCheckIntervalSec :: !(Maybe (Textual Int32))
, _hcName :: !(Maybe Text)
, _hcCreationTimestamp :: !(Maybe Text)
, _hcHTTPHealthCheck :: !(Maybe HTTPHealthCheck)
, _hcId :: !(Maybe (Textual Word64))
, _hcType :: !(Maybe HealthCheckType)
, _hcTimeoutSec :: !(Maybe (Textual Int32))
, _hcDescription :: !(Maybe Text)
, _hcUnhealthyThreshold :: !(Maybe (Textual Int32))
, _hcHTTPSHealthCheck :: !(Maybe HTTPSHealthCheck)
} deriving (Eq,Show,Data,Typeable,Generic)
healthCheck
:: HealthCheck
healthCheck =
HealthCheck'
{ _hcHealthyThreshold = Nothing
, _hcTCPHealthCheck = Nothing
, _hcKind = "compute#healthCheck"
, _hcSSLHealthCheck = Nothing
, _hcSelfLink = Nothing
, _hcCheckIntervalSec = Nothing
, _hcName = Nothing
, _hcCreationTimestamp = Nothing
, _hcHTTPHealthCheck = Nothing
, _hcId = Nothing
, _hcType = Nothing
, _hcTimeoutSec = Nothing
, _hcDescription = Nothing
, _hcUnhealthyThreshold = Nothing
, _hcHTTPSHealthCheck = Nothing
}
hcHealthyThreshold :: Lens' HealthCheck (Maybe Int32)
hcHealthyThreshold
= lens _hcHealthyThreshold
(\ s a -> s{_hcHealthyThreshold = a})
. mapping _Coerce
hcTCPHealthCheck :: Lens' HealthCheck (Maybe TCPHealthCheck)
hcTCPHealthCheck
= lens _hcTCPHealthCheck
(\ s a -> s{_hcTCPHealthCheck = a})
hcKind :: Lens' HealthCheck Text
hcKind = lens _hcKind (\ s a -> s{_hcKind = a})
hcSSLHealthCheck :: Lens' HealthCheck (Maybe SSLHealthCheck)
hcSSLHealthCheck
= lens _hcSSLHealthCheck
(\ s a -> s{_hcSSLHealthCheck = a})
hcSelfLink :: Lens' HealthCheck (Maybe Text)
hcSelfLink
= lens _hcSelfLink (\ s a -> s{_hcSelfLink = a})
hcCheckIntervalSec :: Lens' HealthCheck (Maybe Int32)
hcCheckIntervalSec
= lens _hcCheckIntervalSec
(\ s a -> s{_hcCheckIntervalSec = a})
. mapping _Coerce
hcName :: Lens' HealthCheck (Maybe Text)
hcName = lens _hcName (\ s a -> s{_hcName = a})
hcCreationTimestamp :: Lens' HealthCheck (Maybe Text)
hcCreationTimestamp
= lens _hcCreationTimestamp
(\ s a -> s{_hcCreationTimestamp = a})
hcHTTPHealthCheck :: Lens' HealthCheck (Maybe HTTPHealthCheck)
hcHTTPHealthCheck
= lens _hcHTTPHealthCheck
(\ s a -> s{_hcHTTPHealthCheck = a})
hcId :: Lens' HealthCheck (Maybe Word64)
hcId
= lens _hcId (\ s a -> s{_hcId = a}) .
mapping _Coerce
hcType :: Lens' HealthCheck (Maybe HealthCheckType)
hcType = lens _hcType (\ s a -> s{_hcType = a})
hcTimeoutSec :: Lens' HealthCheck (Maybe Int32)
hcTimeoutSec
= lens _hcTimeoutSec (\ s a -> s{_hcTimeoutSec = a})
. mapping _Coerce
hcDescription :: Lens' HealthCheck (Maybe Text)
hcDescription
= lens _hcDescription
(\ s a -> s{_hcDescription = a})
hcUnhealthyThreshold :: Lens' HealthCheck (Maybe Int32)
hcUnhealthyThreshold
= lens _hcUnhealthyThreshold
(\ s a -> s{_hcUnhealthyThreshold = a})
. mapping _Coerce
hcHTTPSHealthCheck :: Lens' HealthCheck (Maybe HTTPSHealthCheck)
hcHTTPSHealthCheck
= lens _hcHTTPSHealthCheck
(\ s a -> s{_hcHTTPSHealthCheck = a})
instance FromJSON HealthCheck where
parseJSON
= withObject "HealthCheck"
(\ o ->
HealthCheck' <$>
(o .:? "healthyThreshold") <*>
(o .:? "tcpHealthCheck")
<*> (o .:? "kind" .!= "compute#healthCheck")
<*> (o .:? "sslHealthCheck")
<*> (o .:? "selfLink")
<*> (o .:? "checkIntervalSec")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "httpHealthCheck")
<*> (o .:? "id")
<*> (o .:? "type")
<*> (o .:? "timeoutSec")
<*> (o .:? "description")
<*> (o .:? "unhealthyThreshold")
<*> (o .:? "httpsHealthCheck"))
instance ToJSON HealthCheck where
toJSON HealthCheck'{..}
= object
(catMaybes
[("healthyThreshold" .=) <$> _hcHealthyThreshold,
("tcpHealthCheck" .=) <$> _hcTCPHealthCheck,
Just ("kind" .= _hcKind),
("sslHealthCheck" .=) <$> _hcSSLHealthCheck,
("selfLink" .=) <$> _hcSelfLink,
("checkIntervalSec" .=) <$> _hcCheckIntervalSec,
("name" .=) <$> _hcName,
("creationTimestamp" .=) <$> _hcCreationTimestamp,
("httpHealthCheck" .=) <$> _hcHTTPHealthCheck,
("id" .=) <$> _hcId, ("type" .=) <$> _hcType,
("timeoutSec" .=) <$> _hcTimeoutSec,
("description" .=) <$> _hcDescription,
("unhealthyThreshold" .=) <$> _hcUnhealthyThreshold,
("httpsHealthCheck" .=) <$> _hcHTTPSHealthCheck])
data DiskAggregatedList = DiskAggregatedList'
{ _dalNextPageToken :: !(Maybe Text)
, _dalKind :: !Text
, _dalItems :: !(Maybe DiskAggregatedListItems)
, _dalSelfLink :: !(Maybe Text)
, _dalId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
diskAggregatedList
:: DiskAggregatedList
diskAggregatedList =
DiskAggregatedList'
{ _dalNextPageToken = Nothing
, _dalKind = "compute#diskAggregatedList"
, _dalItems = Nothing
, _dalSelfLink = Nothing
, _dalId = Nothing
}
dalNextPageToken :: Lens' DiskAggregatedList (Maybe Text)
dalNextPageToken
= lens _dalNextPageToken
(\ s a -> s{_dalNextPageToken = a})
dalKind :: Lens' DiskAggregatedList Text
dalKind = lens _dalKind (\ s a -> s{_dalKind = a})
dalItems :: Lens' DiskAggregatedList (Maybe DiskAggregatedListItems)
dalItems = lens _dalItems (\ s a -> s{_dalItems = a})
dalSelfLink :: Lens' DiskAggregatedList (Maybe Text)
dalSelfLink
= lens _dalSelfLink (\ s a -> s{_dalSelfLink = a})
dalId :: Lens' DiskAggregatedList (Maybe Text)
dalId = lens _dalId (\ s a -> s{_dalId = a})
instance FromJSON DiskAggregatedList where
parseJSON
= withObject "DiskAggregatedList"
(\ o ->
DiskAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#diskAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON DiskAggregatedList where
toJSON DiskAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _dalNextPageToken,
Just ("kind" .= _dalKind),
("items" .=) <$> _dalItems,
("selfLink" .=) <$> _dalSelfLink,
("id" .=) <$> _dalId])
data InstanceWithNamedPorts = InstanceWithNamedPorts'
{ _iwnpStatus :: !(Maybe InstanceWithNamedPortsStatus)
, _iwnpNamedPorts :: !(Maybe [NamedPort])
, _iwnpInstance :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceWithNamedPorts
:: InstanceWithNamedPorts
instanceWithNamedPorts =
InstanceWithNamedPorts'
{ _iwnpStatus = Nothing
, _iwnpNamedPorts = Nothing
, _iwnpInstance = Nothing
}
iwnpStatus :: Lens' InstanceWithNamedPorts (Maybe InstanceWithNamedPortsStatus)
iwnpStatus
= lens _iwnpStatus (\ s a -> s{_iwnpStatus = a})
iwnpNamedPorts :: Lens' InstanceWithNamedPorts [NamedPort]
iwnpNamedPorts
= lens _iwnpNamedPorts
(\ s a -> s{_iwnpNamedPorts = a})
. _Default
. _Coerce
iwnpInstance :: Lens' InstanceWithNamedPorts (Maybe Text)
iwnpInstance
= lens _iwnpInstance (\ s a -> s{_iwnpInstance = a})
instance FromJSON InstanceWithNamedPorts where
parseJSON
= withObject "InstanceWithNamedPorts"
(\ o ->
InstanceWithNamedPorts' <$>
(o .:? "status") <*> (o .:? "namedPorts" .!= mempty)
<*> (o .:? "instance"))
instance ToJSON InstanceWithNamedPorts where
toJSON InstanceWithNamedPorts'{..}
= object
(catMaybes
[("status" .=) <$> _iwnpStatus,
("namedPorts" .=) <$> _iwnpNamedPorts,
("instance" .=) <$> _iwnpInstance])
data ForwardingRulesScopedList = ForwardingRulesScopedList'
{ _frslWarning :: !(Maybe ForwardingRulesScopedListWarning)
, _frslForwardingRules :: !(Maybe [ForwardingRule])
} deriving (Eq,Show,Data,Typeable,Generic)
forwardingRulesScopedList
:: ForwardingRulesScopedList
forwardingRulesScopedList =
ForwardingRulesScopedList'
{ _frslWarning = Nothing
, _frslForwardingRules = Nothing
}
frslWarning :: Lens' ForwardingRulesScopedList (Maybe ForwardingRulesScopedListWarning)
frslWarning
= lens _frslWarning (\ s a -> s{_frslWarning = a})
frslForwardingRules :: Lens' ForwardingRulesScopedList [ForwardingRule]
frslForwardingRules
= lens _frslForwardingRules
(\ s a -> s{_frslForwardingRules = a})
. _Default
. _Coerce
instance FromJSON ForwardingRulesScopedList where
parseJSON
= withObject "ForwardingRulesScopedList"
(\ o ->
ForwardingRulesScopedList' <$>
(o .:? "warning") <*>
(o .:? "forwardingRules" .!= mempty))
instance ToJSON ForwardingRulesScopedList where
toJSON ForwardingRulesScopedList'{..}
= object
(catMaybes
[("warning" .=) <$> _frslWarning,
("forwardingRules" .=) <$> _frslForwardingRules])
newtype InstanceReference = InstanceReference'
{ _iInstance :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
instanceReference
:: InstanceReference
instanceReference =
InstanceReference'
{ _iInstance = Nothing
}
iInstance :: Lens' InstanceReference (Maybe Text)
iInstance
= lens _iInstance (\ s a -> s{_iInstance = a})
instance FromJSON InstanceReference where
parseJSON
= withObject "InstanceReference"
(\ o -> InstanceReference' <$> (o .:? "instance"))
instance ToJSON InstanceReference where
toJSON InstanceReference'{..}
= object (catMaybes [("instance" .=) <$> _iInstance])
data OperationAggregatedList = OperationAggregatedList'
{ _oalNextPageToken :: !(Maybe Text)
, _oalKind :: !Text
, _oalItems :: !(Maybe OperationAggregatedListItems)
, _oalSelfLink :: !(Maybe Text)
, _oalId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationAggregatedList
:: OperationAggregatedList
operationAggregatedList =
OperationAggregatedList'
{ _oalNextPageToken = Nothing
, _oalKind = "compute#operationAggregatedList"
, _oalItems = Nothing
, _oalSelfLink = Nothing
, _oalId = Nothing
}
oalNextPageToken :: Lens' OperationAggregatedList (Maybe Text)
oalNextPageToken
= lens _oalNextPageToken
(\ s a -> s{_oalNextPageToken = a})
oalKind :: Lens' OperationAggregatedList Text
oalKind = lens _oalKind (\ s a -> s{_oalKind = a})
oalItems :: Lens' OperationAggregatedList (Maybe OperationAggregatedListItems)
oalItems = lens _oalItems (\ s a -> s{_oalItems = a})
oalSelfLink :: Lens' OperationAggregatedList (Maybe Text)
oalSelfLink
= lens _oalSelfLink (\ s a -> s{_oalSelfLink = a})
oalId :: Lens' OperationAggregatedList (Maybe Text)
oalId = lens _oalId (\ s a -> s{_oalId = a})
instance FromJSON OperationAggregatedList where
parseJSON
= withObject "OperationAggregatedList"
(\ o ->
OperationAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#operationAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON OperationAggregatedList where
toJSON OperationAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _oalNextPageToken,
Just ("kind" .= _oalKind),
("items" .=) <$> _oalItems,
("selfLink" .=) <$> _oalSelfLink,
("id" .=) <$> _oalId])
data OperationsScopedList = OperationsScopedList'
{ _oslWarning :: !(Maybe OperationsScopedListWarning)
, _oslOperations :: !(Maybe [Operation])
} deriving (Eq,Show,Data,Typeable,Generic)
operationsScopedList
:: OperationsScopedList
operationsScopedList =
OperationsScopedList'
{ _oslWarning = Nothing
, _oslOperations = Nothing
}
oslWarning :: Lens' OperationsScopedList (Maybe OperationsScopedListWarning)
oslWarning
= lens _oslWarning (\ s a -> s{_oslWarning = a})
oslOperations :: Lens' OperationsScopedList [Operation]
oslOperations
= lens _oslOperations
(\ s a -> s{_oslOperations = a})
. _Default
. _Coerce
instance FromJSON OperationsScopedList where
parseJSON
= withObject "OperationsScopedList"
(\ o ->
OperationsScopedList' <$>
(o .:? "warning") <*>
(o .:? "operations" .!= mempty))
instance ToJSON OperationsScopedList where
toJSON OperationsScopedList'{..}
= object
(catMaybes
[("warning" .=) <$> _oslWarning,
("operations" .=) <$> _oslOperations])
data NamedPort = NamedPort'
{ _npName :: !(Maybe Text)
, _npPort :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
namedPort
:: NamedPort
namedPort =
NamedPort'
{ _npName = Nothing
, _npPort = Nothing
}
npName :: Lens' NamedPort (Maybe Text)
npName = lens _npName (\ s a -> s{_npName = a})
npPort :: Lens' NamedPort (Maybe Int32)
npPort
= lens _npPort (\ s a -> s{_npPort = a}) .
mapping _Coerce
instance FromJSON NamedPort where
parseJSON
= withObject "NamedPort"
(\ o ->
NamedPort' <$> (o .:? "name") <*> (o .:? "port"))
instance ToJSON NamedPort where
toJSON NamedPort'{..}
= object
(catMaybes
[("name" .=) <$> _npName, ("port" .=) <$> _npPort])
data TargetInstanceList = TargetInstanceList'
{ _tilNextPageToken :: !(Maybe Text)
, _tilKind :: !Text
, _tilItems :: !(Maybe [TargetInstance])
, _tilSelfLink :: !(Maybe Text)
, _tilId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetInstanceList
:: TargetInstanceList
targetInstanceList =
TargetInstanceList'
{ _tilNextPageToken = Nothing
, _tilKind = "compute#targetInstanceList"
, _tilItems = Nothing
, _tilSelfLink = Nothing
, _tilId = Nothing
}
tilNextPageToken :: Lens' TargetInstanceList (Maybe Text)
tilNextPageToken
= lens _tilNextPageToken
(\ s a -> s{_tilNextPageToken = a})
tilKind :: Lens' TargetInstanceList Text
tilKind = lens _tilKind (\ s a -> s{_tilKind = a})
tilItems :: Lens' TargetInstanceList [TargetInstance]
tilItems
= lens _tilItems (\ s a -> s{_tilItems = a}) .
_Default
. _Coerce
tilSelfLink :: Lens' TargetInstanceList (Maybe Text)
tilSelfLink
= lens _tilSelfLink (\ s a -> s{_tilSelfLink = a})
tilId :: Lens' TargetInstanceList (Maybe Text)
tilId = lens _tilId (\ s a -> s{_tilId = a})
instance FromJSON TargetInstanceList where
parseJSON
= withObject "TargetInstanceList"
(\ o ->
TargetInstanceList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#targetInstanceList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON TargetInstanceList where
toJSON TargetInstanceList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _tilNextPageToken,
Just ("kind" .= _tilKind),
("items" .=) <$> _tilItems,
("selfLink" .=) <$> _tilSelfLink,
("id" .=) <$> _tilId])
data InstanceGroupManagerAggregatedList = InstanceGroupManagerAggregatedList'
{ _igmalNextPageToken :: !(Maybe Text)
, _igmalKind :: !Text
, _igmalItems :: !(Maybe InstanceGroupManagerAggregatedListItems)
, _igmalSelfLink :: !(Maybe Text)
, _igmalId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagerAggregatedList
:: InstanceGroupManagerAggregatedList
instanceGroupManagerAggregatedList =
InstanceGroupManagerAggregatedList'
{ _igmalNextPageToken = Nothing
, _igmalKind = "compute#instanceGroupManagerAggregatedList"
, _igmalItems = Nothing
, _igmalSelfLink = Nothing
, _igmalId = Nothing
}
igmalNextPageToken :: Lens' InstanceGroupManagerAggregatedList (Maybe Text)
igmalNextPageToken
= lens _igmalNextPageToken
(\ s a -> s{_igmalNextPageToken = a})
igmalKind :: Lens' InstanceGroupManagerAggregatedList Text
igmalKind
= lens _igmalKind (\ s a -> s{_igmalKind = a})
igmalItems :: Lens' InstanceGroupManagerAggregatedList (Maybe InstanceGroupManagerAggregatedListItems)
igmalItems
= lens _igmalItems (\ s a -> s{_igmalItems = a})
igmalSelfLink :: Lens' InstanceGroupManagerAggregatedList (Maybe Text)
igmalSelfLink
= lens _igmalSelfLink
(\ s a -> s{_igmalSelfLink = a})
igmalId :: Lens' InstanceGroupManagerAggregatedList (Maybe Text)
igmalId = lens _igmalId (\ s a -> s{_igmalId = a})
instance FromJSON InstanceGroupManagerAggregatedList
where
parseJSON
= withObject "InstanceGroupManagerAggregatedList"
(\ o ->
InstanceGroupManagerAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"compute#instanceGroupManagerAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON InstanceGroupManagerAggregatedList
where
toJSON InstanceGroupManagerAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _igmalNextPageToken,
Just ("kind" .= _igmalKind),
("items" .=) <$> _igmalItems,
("selfLink" .=) <$> _igmalSelfLink,
("id" .=) <$> _igmalId])
data TargetPoolsScopedList = TargetPoolsScopedList'
{ _tpslWarning :: !(Maybe TargetPoolsScopedListWarning)
, _tpslTargetPools :: !(Maybe [TargetPool])
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolsScopedList
:: TargetPoolsScopedList
targetPoolsScopedList =
TargetPoolsScopedList'
{ _tpslWarning = Nothing
, _tpslTargetPools = Nothing
}
tpslWarning :: Lens' TargetPoolsScopedList (Maybe TargetPoolsScopedListWarning)
tpslWarning
= lens _tpslWarning (\ s a -> s{_tpslWarning = a})
tpslTargetPools :: Lens' TargetPoolsScopedList [TargetPool]
tpslTargetPools
= lens _tpslTargetPools
(\ s a -> s{_tpslTargetPools = a})
. _Default
. _Coerce
instance FromJSON TargetPoolsScopedList where
parseJSON
= withObject "TargetPoolsScopedList"
(\ o ->
TargetPoolsScopedList' <$>
(o .:? "warning") <*>
(o .:? "targetPools" .!= mempty))
instance ToJSON TargetPoolsScopedList where
toJSON TargetPoolsScopedList'{..}
= object
(catMaybes
[("warning" .=) <$> _tpslWarning,
("targetPools" .=) <$> _tpslTargetPools])
data ForwardingRuleAggregatedList = ForwardingRuleAggregatedList'
{ _fralNextPageToken :: !(Maybe Text)
, _fralKind :: !Text
, _fralItems :: !(Maybe ForwardingRuleAggregatedListItems)
, _fralSelfLink :: !(Maybe Text)
, _fralId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
forwardingRuleAggregatedList
:: ForwardingRuleAggregatedList
forwardingRuleAggregatedList =
ForwardingRuleAggregatedList'
{ _fralNextPageToken = Nothing
, _fralKind = "compute#forwardingRuleAggregatedList"
, _fralItems = Nothing
, _fralSelfLink = Nothing
, _fralId = Nothing
}
fralNextPageToken :: Lens' ForwardingRuleAggregatedList (Maybe Text)
fralNextPageToken
= lens _fralNextPageToken
(\ s a -> s{_fralNextPageToken = a})
fralKind :: Lens' ForwardingRuleAggregatedList Text
fralKind = lens _fralKind (\ s a -> s{_fralKind = a})
fralItems :: Lens' ForwardingRuleAggregatedList (Maybe ForwardingRuleAggregatedListItems)
fralItems
= lens _fralItems (\ s a -> s{_fralItems = a})
fralSelfLink :: Lens' ForwardingRuleAggregatedList (Maybe Text)
fralSelfLink
= lens _fralSelfLink (\ s a -> s{_fralSelfLink = a})
fralId :: Lens' ForwardingRuleAggregatedList (Maybe Text)
fralId = lens _fralId (\ s a -> s{_fralId = a})
instance FromJSON ForwardingRuleAggregatedList where
parseJSON
= withObject "ForwardingRuleAggregatedList"
(\ o ->
ForwardingRuleAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"compute#forwardingRuleAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON ForwardingRuleAggregatedList where
toJSON ForwardingRuleAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _fralNextPageToken,
Just ("kind" .= _fralKind),
("items" .=) <$> _fralItems,
("selfLink" .=) <$> _fralSelfLink,
("id" .=) <$> _fralId])
newtype TargetReference = TargetReference'
{ _trTarget :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
targetReference
:: TargetReference
targetReference =
TargetReference'
{ _trTarget = Nothing
}
trTarget :: Lens' TargetReference (Maybe Text)
trTarget = lens _trTarget (\ s a -> s{_trTarget = a})
instance FromJSON TargetReference where
parseJSON
= withObject "TargetReference"
(\ o -> TargetReference' <$> (o .:? "target"))
instance ToJSON TargetReference where
toJSON TargetReference'{..}
= object (catMaybes [("target" .=) <$> _trTarget])
data TargetPoolAggregatedList = TargetPoolAggregatedList'
{ _tpalNextPageToken :: !(Maybe Text)
, _tpalKind :: !Text
, _tpalItems :: !(Maybe TargetPoolAggregatedListItems)
, _tpalSelfLink :: !(Maybe Text)
, _tpalId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolAggregatedList
:: TargetPoolAggregatedList
targetPoolAggregatedList =
TargetPoolAggregatedList'
{ _tpalNextPageToken = Nothing
, _tpalKind = "compute#targetPoolAggregatedList"
, _tpalItems = Nothing
, _tpalSelfLink = Nothing
, _tpalId = Nothing
}
tpalNextPageToken :: Lens' TargetPoolAggregatedList (Maybe Text)
tpalNextPageToken
= lens _tpalNextPageToken
(\ s a -> s{_tpalNextPageToken = a})
tpalKind :: Lens' TargetPoolAggregatedList Text
tpalKind = lens _tpalKind (\ s a -> s{_tpalKind = a})
tpalItems :: Lens' TargetPoolAggregatedList (Maybe TargetPoolAggregatedListItems)
tpalItems
= lens _tpalItems (\ s a -> s{_tpalItems = a})
tpalSelfLink :: Lens' TargetPoolAggregatedList (Maybe Text)
tpalSelfLink
= lens _tpalSelfLink (\ s a -> s{_tpalSelfLink = a})
tpalId :: Lens' TargetPoolAggregatedList (Maybe Text)
tpalId = lens _tpalId (\ s a -> s{_tpalId = a})
instance FromJSON TargetPoolAggregatedList where
parseJSON
= withObject "TargetPoolAggregatedList"
(\ o ->
TargetPoolAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#targetPoolAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON TargetPoolAggregatedList where
toJSON TargetPoolAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _tpalNextPageToken,
Just ("kind" .= _tpalKind),
("items" .=) <$> _tpalItems,
("selfLink" .=) <$> _tpalSelfLink,
("id" .=) <$> _tpalId])
data OperationsScopedListWarningDataItem = OperationsScopedListWarningDataItem'
{ _oslwdiValue :: !(Maybe Text)
, _oslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationsScopedListWarningDataItem
:: OperationsScopedListWarningDataItem
operationsScopedListWarningDataItem =
OperationsScopedListWarningDataItem'
{ _oslwdiValue = Nothing
, _oslwdiKey = Nothing
}
oslwdiValue :: Lens' OperationsScopedListWarningDataItem (Maybe Text)
oslwdiValue
= lens _oslwdiValue (\ s a -> s{_oslwdiValue = a})
oslwdiKey :: Lens' OperationsScopedListWarningDataItem (Maybe Text)
oslwdiKey
= lens _oslwdiKey (\ s a -> s{_oslwdiKey = a})
instance FromJSON OperationsScopedListWarningDataItem
where
parseJSON
= withObject "OperationsScopedListWarningDataItem"
(\ o ->
OperationsScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON OperationsScopedListWarningDataItem
where
toJSON OperationsScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _oslwdiValue,
("key" .=) <$> _oslwdiKey])
data TargetPool = TargetPool'
{ _tpSessionAffinity :: !(Maybe TargetPoolSessionAffinity)
, _tpBackupPool :: !(Maybe Text)
, _tpKind :: !Text
, _tpSelfLink :: !(Maybe Text)
, _tpName :: !(Maybe Text)
, _tpCreationTimestamp :: !(Maybe Text)
, _tpInstances :: !(Maybe [Text])
, _tpId :: !(Maybe (Textual Word64))
, _tpFailoverRatio :: !(Maybe (Textual Double))
, _tpRegion :: !(Maybe Text)
, _tpDescription :: !(Maybe Text)
, _tpHealthChecks :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
targetPool
:: TargetPool
targetPool =
TargetPool'
{ _tpSessionAffinity = Nothing
, _tpBackupPool = Nothing
, _tpKind = "compute#targetPool"
, _tpSelfLink = Nothing
, _tpName = Nothing
, _tpCreationTimestamp = Nothing
, _tpInstances = Nothing
, _tpId = Nothing
, _tpFailoverRatio = Nothing
, _tpRegion = Nothing
, _tpDescription = Nothing
, _tpHealthChecks = Nothing
}
tpSessionAffinity :: Lens' TargetPool (Maybe TargetPoolSessionAffinity)
tpSessionAffinity
= lens _tpSessionAffinity
(\ s a -> s{_tpSessionAffinity = a})
tpBackupPool :: Lens' TargetPool (Maybe Text)
tpBackupPool
= lens _tpBackupPool (\ s a -> s{_tpBackupPool = a})
tpKind :: Lens' TargetPool Text
tpKind = lens _tpKind (\ s a -> s{_tpKind = a})
tpSelfLink :: Lens' TargetPool (Maybe Text)
tpSelfLink
= lens _tpSelfLink (\ s a -> s{_tpSelfLink = a})
tpName :: Lens' TargetPool (Maybe Text)
tpName = lens _tpName (\ s a -> s{_tpName = a})
tpCreationTimestamp :: Lens' TargetPool (Maybe Text)
tpCreationTimestamp
= lens _tpCreationTimestamp
(\ s a -> s{_tpCreationTimestamp = a})
tpInstances :: Lens' TargetPool [Text]
tpInstances
= lens _tpInstances (\ s a -> s{_tpInstances = a}) .
_Default
. _Coerce
tpId :: Lens' TargetPool (Maybe Word64)
tpId
= lens _tpId (\ s a -> s{_tpId = a}) .
mapping _Coerce
tpFailoverRatio :: Lens' TargetPool (Maybe Double)
tpFailoverRatio
= lens _tpFailoverRatio
(\ s a -> s{_tpFailoverRatio = a})
. mapping _Coerce
tpRegion :: Lens' TargetPool (Maybe Text)
tpRegion = lens _tpRegion (\ s a -> s{_tpRegion = a})
tpDescription :: Lens' TargetPool (Maybe Text)
tpDescription
= lens _tpDescription
(\ s a -> s{_tpDescription = a})
tpHealthChecks :: Lens' TargetPool [Text]
tpHealthChecks
= lens _tpHealthChecks
(\ s a -> s{_tpHealthChecks = a})
. _Default
. _Coerce
instance FromJSON TargetPool where
parseJSON
= withObject "TargetPool"
(\ o ->
TargetPool' <$>
(o .:? "sessionAffinity") <*> (o .:? "backupPool")
<*> (o .:? "kind" .!= "compute#targetPool")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "instances" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "failoverRatio")
<*> (o .:? "region")
<*> (o .:? "description")
<*> (o .:? "healthChecks" .!= mempty))
instance ToJSON TargetPool where
toJSON TargetPool'{..}
= object
(catMaybes
[("sessionAffinity" .=) <$> _tpSessionAffinity,
("backupPool" .=) <$> _tpBackupPool,
Just ("kind" .= _tpKind),
("selfLink" .=) <$> _tpSelfLink,
("name" .=) <$> _tpName,
("creationTimestamp" .=) <$> _tpCreationTimestamp,
("instances" .=) <$> _tpInstances,
("id" .=) <$> _tpId,
("failoverRatio" .=) <$> _tpFailoverRatio,
("region" .=) <$> _tpRegion,
("description" .=) <$> _tpDescription,
("healthChecks" .=) <$> _tpHealthChecks])
data ImageList = ImageList'
{ _ilNextPageToken :: !(Maybe Text)
, _ilKind :: !Text
, _ilItems :: !(Maybe [Image])
, _ilSelfLink :: !(Maybe Text)
, _ilId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
imageList
:: ImageList
imageList =
ImageList'
{ _ilNextPageToken = Nothing
, _ilKind = "compute#imageList"
, _ilItems = Nothing
, _ilSelfLink = Nothing
, _ilId = Nothing
}
ilNextPageToken :: Lens' ImageList (Maybe Text)
ilNextPageToken
= lens _ilNextPageToken
(\ s a -> s{_ilNextPageToken = a})
ilKind :: Lens' ImageList Text
ilKind = lens _ilKind (\ s a -> s{_ilKind = a})
ilItems :: Lens' ImageList [Image]
ilItems
= lens _ilItems (\ s a -> s{_ilItems = a}) . _Default
. _Coerce
ilSelfLink :: Lens' ImageList (Maybe Text)
ilSelfLink
= lens _ilSelfLink (\ s a -> s{_ilSelfLink = a})
ilId :: Lens' ImageList (Maybe Text)
ilId = lens _ilId (\ s a -> s{_ilId = a})
instance FromJSON ImageList where
parseJSON
= withObject "ImageList"
(\ o ->
ImageList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#imageList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON ImageList where
toJSON ImageList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ilNextPageToken,
Just ("kind" .= _ilKind), ("items" .=) <$> _ilItems,
("selfLink" .=) <$> _ilSelfLink,
("id" .=) <$> _ilId])
data VPNTunnelsScopedListWarning = VPNTunnelsScopedListWarning'
{ _vtslwData :: !(Maybe [VPNTunnelsScopedListWarningDataItem])
, _vtslwCode :: !(Maybe VPNTunnelsScopedListWarningCode)
, _vtslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
vpnTunnelsScopedListWarning
:: VPNTunnelsScopedListWarning
vpnTunnelsScopedListWarning =
VPNTunnelsScopedListWarning'
{ _vtslwData = Nothing
, _vtslwCode = Nothing
, _vtslwMessage = Nothing
}
vtslwData :: Lens' VPNTunnelsScopedListWarning [VPNTunnelsScopedListWarningDataItem]
vtslwData
= lens _vtslwData (\ s a -> s{_vtslwData = a}) .
_Default
. _Coerce
vtslwCode :: Lens' VPNTunnelsScopedListWarning (Maybe VPNTunnelsScopedListWarningCode)
vtslwCode
= lens _vtslwCode (\ s a -> s{_vtslwCode = a})
vtslwMessage :: Lens' VPNTunnelsScopedListWarning (Maybe Text)
vtslwMessage
= lens _vtslwMessage (\ s a -> s{_vtslwMessage = a})
instance FromJSON VPNTunnelsScopedListWarning where
parseJSON
= withObject "VPNTunnelsScopedListWarning"
(\ o ->
VPNTunnelsScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON VPNTunnelsScopedListWarning where
toJSON VPNTunnelsScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _vtslwData,
("code" .=) <$> _vtslwCode,
("message" .=) <$> _vtslwMessage])
newtype TargetSSLProxiesSetBackendServiceRequest = TargetSSLProxiesSetBackendServiceRequest'
{ _tspsbsrService :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
targetSSLProxiesSetBackendServiceRequest
:: TargetSSLProxiesSetBackendServiceRequest
targetSSLProxiesSetBackendServiceRequest =
TargetSSLProxiesSetBackendServiceRequest'
{ _tspsbsrService = Nothing
}
tspsbsrService :: Lens' TargetSSLProxiesSetBackendServiceRequest (Maybe Text)
tspsbsrService
= lens _tspsbsrService
(\ s a -> s{_tspsbsrService = a})
instance FromJSON
TargetSSLProxiesSetBackendServiceRequest where
parseJSON
= withObject
"TargetSSLProxiesSetBackendServiceRequest"
(\ o ->
TargetSSLProxiesSetBackendServiceRequest' <$>
(o .:? "service"))
instance ToJSON
TargetSSLProxiesSetBackendServiceRequest where
toJSON TargetSSLProxiesSetBackendServiceRequest'{..}
= object
(catMaybes [("service" .=) <$> _tspsbsrService])
data ForwardingRule = ForwardingRule'
{ _frIPAddress :: !(Maybe Text)
, _frLoadBalancingScheme :: !(Maybe ForwardingRuleLoadBalancingScheme)
, _frKind :: !Text
, _frNetwork :: !(Maybe Text)
, _frPortRange :: !(Maybe Text)
, _frSelfLink :: !(Maybe Text)
, _frName :: !(Maybe Text)
, _frIPProtocol :: !(Maybe ForwardingRuleIPProtocol)
, _frCreationTimestamp :: !(Maybe Text)
, _frSubnetwork :: !(Maybe Text)
, _frPorts :: !(Maybe [Text])
, _frId :: !(Maybe (Textual Word64))
, _frRegion :: !(Maybe Text)
, _frDescription :: !(Maybe Text)
, _frTarget :: !(Maybe Text)
, _frBackendService :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
forwardingRule
:: ForwardingRule
forwardingRule =
ForwardingRule'
{ _frIPAddress = Nothing
, _frLoadBalancingScheme = Nothing
, _frKind = "compute#forwardingRule"
, _frNetwork = Nothing
, _frPortRange = Nothing
, _frSelfLink = Nothing
, _frName = Nothing
, _frIPProtocol = Nothing
, _frCreationTimestamp = Nothing
, _frSubnetwork = Nothing
, _frPorts = Nothing
, _frId = Nothing
, _frRegion = Nothing
, _frDescription = Nothing
, _frTarget = Nothing
, _frBackendService = Nothing
}
frIPAddress :: Lens' ForwardingRule (Maybe Text)
frIPAddress
= lens _frIPAddress (\ s a -> s{_frIPAddress = a})
frLoadBalancingScheme :: Lens' ForwardingRule (Maybe ForwardingRuleLoadBalancingScheme)
frLoadBalancingScheme
= lens _frLoadBalancingScheme
(\ s a -> s{_frLoadBalancingScheme = a})
frKind :: Lens' ForwardingRule Text
frKind = lens _frKind (\ s a -> s{_frKind = a})
frNetwork :: Lens' ForwardingRule (Maybe Text)
frNetwork
= lens _frNetwork (\ s a -> s{_frNetwork = a})
frPortRange :: Lens' ForwardingRule (Maybe Text)
frPortRange
= lens _frPortRange (\ s a -> s{_frPortRange = a})
frSelfLink :: Lens' ForwardingRule (Maybe Text)
frSelfLink
= lens _frSelfLink (\ s a -> s{_frSelfLink = a})
frName :: Lens' ForwardingRule (Maybe Text)
frName = lens _frName (\ s a -> s{_frName = a})
frIPProtocol :: Lens' ForwardingRule (Maybe ForwardingRuleIPProtocol)
frIPProtocol
= lens _frIPProtocol (\ s a -> s{_frIPProtocol = a})
frCreationTimestamp :: Lens' ForwardingRule (Maybe Text)
frCreationTimestamp
= lens _frCreationTimestamp
(\ s a -> s{_frCreationTimestamp = a})
frSubnetwork :: Lens' ForwardingRule (Maybe Text)
frSubnetwork
= lens _frSubnetwork (\ s a -> s{_frSubnetwork = a})
frPorts :: Lens' ForwardingRule [Text]
frPorts
= lens _frPorts (\ s a -> s{_frPorts = a}) . _Default
. _Coerce
frId :: Lens' ForwardingRule (Maybe Word64)
frId
= lens _frId (\ s a -> s{_frId = a}) .
mapping _Coerce
frRegion :: Lens' ForwardingRule (Maybe Text)
frRegion = lens _frRegion (\ s a -> s{_frRegion = a})
frDescription :: Lens' ForwardingRule (Maybe Text)
frDescription
= lens _frDescription
(\ s a -> s{_frDescription = a})
frTarget :: Lens' ForwardingRule (Maybe Text)
frTarget = lens _frTarget (\ s a -> s{_frTarget = a})
frBackendService :: Lens' ForwardingRule (Maybe Text)
frBackendService
= lens _frBackendService
(\ s a -> s{_frBackendService = a})
instance FromJSON ForwardingRule where
parseJSON
= withObject "ForwardingRule"
(\ o ->
ForwardingRule' <$>
(o .:? "IPAddress") <*> (o .:? "loadBalancingScheme")
<*> (o .:? "kind" .!= "compute#forwardingRule")
<*> (o .:? "network")
<*> (o .:? "portRange")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "IPProtocol")
<*> (o .:? "creationTimestamp")
<*> (o .:? "subnetwork")
<*> (o .:? "ports" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "region")
<*> (o .:? "description")
<*> (o .:? "target")
<*> (o .:? "backendService"))
instance ToJSON ForwardingRule where
toJSON ForwardingRule'{..}
= object
(catMaybes
[("IPAddress" .=) <$> _frIPAddress,
("loadBalancingScheme" .=) <$>
_frLoadBalancingScheme,
Just ("kind" .= _frKind),
("network" .=) <$> _frNetwork,
("portRange" .=) <$> _frPortRange,
("selfLink" .=) <$> _frSelfLink,
("name" .=) <$> _frName,
("IPProtocol" .=) <$> _frIPProtocol,
("creationTimestamp" .=) <$> _frCreationTimestamp,
("subnetwork" .=) <$> _frSubnetwork,
("ports" .=) <$> _frPorts, ("id" .=) <$> _frId,
("region" .=) <$> _frRegion,
("description" .=) <$> _frDescription,
("target" .=) <$> _frTarget,
("backendService" .=) <$> _frBackendService])
data URLMapList = URLMapList'
{ _umlNextPageToken :: !(Maybe Text)
, _umlKind :: !Text
, _umlItems :: !(Maybe [URLMap])
, _umlSelfLink :: !(Maybe Text)
, _umlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
urlMapList
:: URLMapList
urlMapList =
URLMapList'
{ _umlNextPageToken = Nothing
, _umlKind = "compute#urlMapList"
, _umlItems = Nothing
, _umlSelfLink = Nothing
, _umlId = Nothing
}
umlNextPageToken :: Lens' URLMapList (Maybe Text)
umlNextPageToken
= lens _umlNextPageToken
(\ s a -> s{_umlNextPageToken = a})
umlKind :: Lens' URLMapList Text
umlKind = lens _umlKind (\ s a -> s{_umlKind = a})
umlItems :: Lens' URLMapList [URLMap]
umlItems
= lens _umlItems (\ s a -> s{_umlItems = a}) .
_Default
. _Coerce
umlSelfLink :: Lens' URLMapList (Maybe Text)
umlSelfLink
= lens _umlSelfLink (\ s a -> s{_umlSelfLink = a})
umlId :: Lens' URLMapList (Maybe Text)
umlId = lens _umlId (\ s a -> s{_umlId = a})
instance FromJSON URLMapList where
parseJSON
= withObject "URLMapList"
(\ o ->
URLMapList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#urlMapList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON URLMapList where
toJSON URLMapList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _umlNextPageToken,
Just ("kind" .= _umlKind),
("items" .=) <$> _umlItems,
("selfLink" .=) <$> _umlSelfLink,
("id" .=) <$> _umlId])
data ForwardingRulesScopedListWarningDataItem = ForwardingRulesScopedListWarningDataItem'
{ _frslwdiValue :: !(Maybe Text)
, _frslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
forwardingRulesScopedListWarningDataItem
:: ForwardingRulesScopedListWarningDataItem
forwardingRulesScopedListWarningDataItem =
ForwardingRulesScopedListWarningDataItem'
{ _frslwdiValue = Nothing
, _frslwdiKey = Nothing
}
frslwdiValue :: Lens' ForwardingRulesScopedListWarningDataItem (Maybe Text)
frslwdiValue
= lens _frslwdiValue (\ s a -> s{_frslwdiValue = a})
frslwdiKey :: Lens' ForwardingRulesScopedListWarningDataItem (Maybe Text)
frslwdiKey
= lens _frslwdiKey (\ s a -> s{_frslwdiKey = a})
instance FromJSON
ForwardingRulesScopedListWarningDataItem where
parseJSON
= withObject
"ForwardingRulesScopedListWarningDataItem"
(\ o ->
ForwardingRulesScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON
ForwardingRulesScopedListWarningDataItem where
toJSON ForwardingRulesScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _frslwdiValue,
("key" .=) <$> _frslwdiKey])
data InstanceGroupManagersScopedListWarningDataItem = InstanceGroupManagersScopedListWarningDataItem'
{ _igmslwdiValue :: !(Maybe Text)
, _igmslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersScopedListWarningDataItem
:: InstanceGroupManagersScopedListWarningDataItem
instanceGroupManagersScopedListWarningDataItem =
InstanceGroupManagersScopedListWarningDataItem'
{ _igmslwdiValue = Nothing
, _igmslwdiKey = Nothing
}
igmslwdiValue :: Lens' InstanceGroupManagersScopedListWarningDataItem (Maybe Text)
igmslwdiValue
= lens _igmslwdiValue
(\ s a -> s{_igmslwdiValue = a})
igmslwdiKey :: Lens' InstanceGroupManagersScopedListWarningDataItem (Maybe Text)
igmslwdiKey
= lens _igmslwdiKey (\ s a -> s{_igmslwdiKey = a})
instance FromJSON
InstanceGroupManagersScopedListWarningDataItem where
parseJSON
= withObject
"InstanceGroupManagersScopedListWarningDataItem"
(\ o ->
InstanceGroupManagersScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON
InstanceGroupManagersScopedListWarningDataItem where
toJSON
InstanceGroupManagersScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _igmslwdiValue,
("key" .=) <$> _igmslwdiKey])
data SubnetworksScopedList = SubnetworksScopedList'
{ _sslSubnetworks :: !(Maybe [Subnetwork])
, _sslWarning :: !(Maybe SubnetworksScopedListWarning)
} deriving (Eq,Show,Data,Typeable,Generic)
subnetworksScopedList
:: SubnetworksScopedList
subnetworksScopedList =
SubnetworksScopedList'
{ _sslSubnetworks = Nothing
, _sslWarning = Nothing
}
sslSubnetworks :: Lens' SubnetworksScopedList [Subnetwork]
sslSubnetworks
= lens _sslSubnetworks
(\ s a -> s{_sslSubnetworks = a})
. _Default
. _Coerce
sslWarning :: Lens' SubnetworksScopedList (Maybe SubnetworksScopedListWarning)
sslWarning
= lens _sslWarning (\ s a -> s{_sslWarning = a})
instance FromJSON SubnetworksScopedList where
parseJSON
= withObject "SubnetworksScopedList"
(\ o ->
SubnetworksScopedList' <$>
(o .:? "subnetworks" .!= mempty) <*>
(o .:? "warning"))
instance ToJSON SubnetworksScopedList where
toJSON SubnetworksScopedList'{..}
= object
(catMaybes
[("subnetworks" .=) <$> _sslSubnetworks,
("warning" .=) <$> _sslWarning])
data Project = Project'
{ _pKind :: !Text
, _pUsageExportLocation :: !(Maybe UsageExportLocation)
, _pSelfLink :: !(Maybe Text)
, _pName :: !(Maybe Text)
, _pDefaultServiceAccount :: !(Maybe Text)
, _pCreationTimestamp :: !(Maybe Text)
, _pEnabledFeatures :: !(Maybe [Text])
, _pQuotas :: !(Maybe [Quota])
, _pId :: !(Maybe (Textual Word64))
, _pDescription :: !(Maybe Text)
, _pCommonInstanceMetadata :: !(Maybe Metadata)
} deriving (Eq,Show,Data,Typeable,Generic)
project
:: Project
project =
Project'
{ _pKind = "compute#project"
, _pUsageExportLocation = Nothing
, _pSelfLink = Nothing
, _pName = Nothing
, _pDefaultServiceAccount = Nothing
, _pCreationTimestamp = Nothing
, _pEnabledFeatures = Nothing
, _pQuotas = Nothing
, _pId = Nothing
, _pDescription = Nothing
, _pCommonInstanceMetadata = Nothing
}
pKind :: Lens' Project Text
pKind = lens _pKind (\ s a -> s{_pKind = a})
pUsageExportLocation :: Lens' Project (Maybe UsageExportLocation)
pUsageExportLocation
= lens _pUsageExportLocation
(\ s a -> s{_pUsageExportLocation = a})
pSelfLink :: Lens' Project (Maybe Text)
pSelfLink
= lens _pSelfLink (\ s a -> s{_pSelfLink = a})
pName :: Lens' Project (Maybe Text)
pName = lens _pName (\ s a -> s{_pName = a})
pDefaultServiceAccount :: Lens' Project (Maybe Text)
pDefaultServiceAccount
= lens _pDefaultServiceAccount
(\ s a -> s{_pDefaultServiceAccount = a})
pCreationTimestamp :: Lens' Project (Maybe Text)
pCreationTimestamp
= lens _pCreationTimestamp
(\ s a -> s{_pCreationTimestamp = a})
pEnabledFeatures :: Lens' Project [Text]
pEnabledFeatures
= lens _pEnabledFeatures
(\ s a -> s{_pEnabledFeatures = a})
. _Default
. _Coerce
pQuotas :: Lens' Project [Quota]
pQuotas
= lens _pQuotas (\ s a -> s{_pQuotas = a}) . _Default
. _Coerce
pId :: Lens' Project (Maybe Word64)
pId
= lens _pId (\ s a -> s{_pId = a}) . mapping _Coerce
pDescription :: Lens' Project (Maybe Text)
pDescription
= lens _pDescription (\ s a -> s{_pDescription = a})
pCommonInstanceMetadata :: Lens' Project (Maybe Metadata)
pCommonInstanceMetadata
= lens _pCommonInstanceMetadata
(\ s a -> s{_pCommonInstanceMetadata = a})
instance FromJSON Project where
parseJSON
= withObject "Project"
(\ o ->
Project' <$>
(o .:? "kind" .!= "compute#project") <*>
(o .:? "usageExportLocation")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "defaultServiceAccount")
<*> (o .:? "creationTimestamp")
<*> (o .:? "enabledFeatures" .!= mempty)
<*> (o .:? "quotas" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "description")
<*> (o .:? "commonInstanceMetadata"))
instance ToJSON Project where
toJSON Project'{..}
= object
(catMaybes
[Just ("kind" .= _pKind),
("usageExportLocation" .=) <$> _pUsageExportLocation,
("selfLink" .=) <$> _pSelfLink,
("name" .=) <$> _pName,
("defaultServiceAccount" .=) <$>
_pDefaultServiceAccount,
("creationTimestamp" .=) <$> _pCreationTimestamp,
("enabledFeatures" .=) <$> _pEnabledFeatures,
("quotas" .=) <$> _pQuotas, ("id" .=) <$> _pId,
("description" .=) <$> _pDescription,
("commonInstanceMetadata" .=) <$>
_pCommonInstanceMetadata])
newtype RegionInstanceGroupManagersListInstancesResponse = RegionInstanceGroupManagersListInstancesResponse'
{ _rigmlirManagedInstances :: Maybe [ManagedInstance]
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupManagersListInstancesResponse
:: RegionInstanceGroupManagersListInstancesResponse
regionInstanceGroupManagersListInstancesResponse =
RegionInstanceGroupManagersListInstancesResponse'
{ _rigmlirManagedInstances = Nothing
}
rigmlirManagedInstances :: Lens' RegionInstanceGroupManagersListInstancesResponse [ManagedInstance]
rigmlirManagedInstances
= lens _rigmlirManagedInstances
(\ s a -> s{_rigmlirManagedInstances = a})
. _Default
. _Coerce
instance FromJSON
RegionInstanceGroupManagersListInstancesResponse
where
parseJSON
= withObject
"RegionInstanceGroupManagersListInstancesResponse"
(\ o ->
RegionInstanceGroupManagersListInstancesResponse' <$>
(o .:? "managedInstances" .!= mempty))
instance ToJSON
RegionInstanceGroupManagersListInstancesResponse
where
toJSON
RegionInstanceGroupManagersListInstancesResponse'{..}
= object
(catMaybes
[("managedInstances" .=) <$>
_rigmlirManagedInstances])
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)
, _oDescription :: !(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 = "compute#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
, _oDescription = 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})
oDescription :: Lens' Operation (Maybe Text)
oDescription
= lens _oDescription (\ s a -> s{_oDescription = 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" .!= "compute#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 .:? "description")
<*> (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,
("description" .=) <$> _oDescription,
("targetLink" .=) <$> _oTargetLink,
("clientOperationId" .=) <$> _oClientOperationId])
data DisksScopedListWarningDataItem = DisksScopedListWarningDataItem'
{ _dslwdiValue :: !(Maybe Text)
, _dslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
disksScopedListWarningDataItem
:: DisksScopedListWarningDataItem
disksScopedListWarningDataItem =
DisksScopedListWarningDataItem'
{ _dslwdiValue = Nothing
, _dslwdiKey = Nothing
}
dslwdiValue :: Lens' DisksScopedListWarningDataItem (Maybe Text)
dslwdiValue
= lens _dslwdiValue (\ s a -> s{_dslwdiValue = a})
dslwdiKey :: Lens' DisksScopedListWarningDataItem (Maybe Text)
dslwdiKey
= lens _dslwdiKey (\ s a -> s{_dslwdiKey = a})
instance FromJSON DisksScopedListWarningDataItem
where
parseJSON
= withObject "DisksScopedListWarningDataItem"
(\ o ->
DisksScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON DisksScopedListWarningDataItem where
toJSON DisksScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _dslwdiValue,
("key" .=) <$> _dslwdiKey])
data Disk = Disk'
{ _dStatus :: !(Maybe DiskStatus)
, _dSourceSnapshotId :: !(Maybe Text)
, _dLastAttachTimestamp :: !(Maybe Text)
, _dUsers :: !(Maybe [Text])
, _dSourceImage :: !(Maybe Text)
, _dDiskEncryptionKey :: !(Maybe CustomerEncryptionKey)
, _dSizeGb :: !(Maybe (Textual Int64))
, _dKind :: !Text
, _dLastDetachTimestamp :: !(Maybe Text)
, _dZone :: !(Maybe Text)
, _dSelfLink :: !(Maybe Text)
, _dName :: !(Maybe Text)
, _dSourceImageId :: !(Maybe Text)
, _dCreationTimestamp :: !(Maybe Text)
, _dSourceImageEncryptionKey :: !(Maybe CustomerEncryptionKey)
, _dId :: !(Maybe (Textual Word64))
, _dLicenses :: !(Maybe [Text])
, _dOptions :: !(Maybe Text)
, _dType :: !(Maybe Text)
, _dDescription :: !(Maybe Text)
, _dSourceSnapshotEncryptionKey :: !(Maybe CustomerEncryptionKey)
, _dSourceSnapshot :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
disk
:: Disk
disk =
Disk'
{ _dStatus = Nothing
, _dSourceSnapshotId = Nothing
, _dLastAttachTimestamp = Nothing
, _dUsers = Nothing
, _dSourceImage = Nothing
, _dDiskEncryptionKey = Nothing
, _dSizeGb = Nothing
, _dKind = "compute#disk"
, _dLastDetachTimestamp = Nothing
, _dZone = Nothing
, _dSelfLink = Nothing
, _dName = Nothing
, _dSourceImageId = Nothing
, _dCreationTimestamp = Nothing
, _dSourceImageEncryptionKey = Nothing
, _dId = Nothing
, _dLicenses = Nothing
, _dOptions = Nothing
, _dType = Nothing
, _dDescription = Nothing
, _dSourceSnapshotEncryptionKey = Nothing
, _dSourceSnapshot = Nothing
}
dStatus :: Lens' Disk (Maybe DiskStatus)
dStatus = lens _dStatus (\ s a -> s{_dStatus = a})
dSourceSnapshotId :: Lens' Disk (Maybe Text)
dSourceSnapshotId
= lens _dSourceSnapshotId
(\ s a -> s{_dSourceSnapshotId = a})
dLastAttachTimestamp :: Lens' Disk (Maybe Text)
dLastAttachTimestamp
= lens _dLastAttachTimestamp
(\ s a -> s{_dLastAttachTimestamp = a})
dUsers :: Lens' Disk [Text]
dUsers
= lens _dUsers (\ s a -> s{_dUsers = a}) . _Default .
_Coerce
dSourceImage :: Lens' Disk (Maybe Text)
dSourceImage
= lens _dSourceImage (\ s a -> s{_dSourceImage = a})
dDiskEncryptionKey :: Lens' Disk (Maybe CustomerEncryptionKey)
dDiskEncryptionKey
= lens _dDiskEncryptionKey
(\ s a -> s{_dDiskEncryptionKey = a})
dSizeGb :: Lens' Disk (Maybe Int64)
dSizeGb
= lens _dSizeGb (\ s a -> s{_dSizeGb = a}) .
mapping _Coerce
dKind :: Lens' Disk Text
dKind = lens _dKind (\ s a -> s{_dKind = a})
dLastDetachTimestamp :: Lens' Disk (Maybe Text)
dLastDetachTimestamp
= lens _dLastDetachTimestamp
(\ s a -> s{_dLastDetachTimestamp = a})
dZone :: Lens' Disk (Maybe Text)
dZone = lens _dZone (\ s a -> s{_dZone = a})
dSelfLink :: Lens' Disk (Maybe Text)
dSelfLink
= lens _dSelfLink (\ s a -> s{_dSelfLink = a})
dName :: Lens' Disk (Maybe Text)
dName = lens _dName (\ s a -> s{_dName = a})
dSourceImageId :: Lens' Disk (Maybe Text)
dSourceImageId
= lens _dSourceImageId
(\ s a -> s{_dSourceImageId = a})
dCreationTimestamp :: Lens' Disk (Maybe Text)
dCreationTimestamp
= lens _dCreationTimestamp
(\ s a -> s{_dCreationTimestamp = a})
dSourceImageEncryptionKey :: Lens' Disk (Maybe CustomerEncryptionKey)
dSourceImageEncryptionKey
= lens _dSourceImageEncryptionKey
(\ s a -> s{_dSourceImageEncryptionKey = a})
dId :: Lens' Disk (Maybe Word64)
dId
= lens _dId (\ s a -> s{_dId = a}) . mapping _Coerce
dLicenses :: Lens' Disk [Text]
dLicenses
= lens _dLicenses (\ s a -> s{_dLicenses = a}) .
_Default
. _Coerce
dOptions :: Lens' Disk (Maybe Text)
dOptions = lens _dOptions (\ s a -> s{_dOptions = a})
dType :: Lens' Disk (Maybe Text)
dType = lens _dType (\ s a -> s{_dType = a})
dDescription :: Lens' Disk (Maybe Text)
dDescription
= lens _dDescription (\ s a -> s{_dDescription = a})
dSourceSnapshotEncryptionKey :: Lens' Disk (Maybe CustomerEncryptionKey)
dSourceSnapshotEncryptionKey
= lens _dSourceSnapshotEncryptionKey
(\ s a -> s{_dSourceSnapshotEncryptionKey = a})
dSourceSnapshot :: Lens' Disk (Maybe Text)
dSourceSnapshot
= lens _dSourceSnapshot
(\ s a -> s{_dSourceSnapshot = a})
instance FromJSON Disk where
parseJSON
= withObject "Disk"
(\ o ->
Disk' <$>
(o .:? "status") <*> (o .:? "sourceSnapshotId") <*>
(o .:? "lastAttachTimestamp")
<*> (o .:? "users" .!= mempty)
<*> (o .:? "sourceImage")
<*> (o .:? "diskEncryptionKey")
<*> (o .:? "sizeGb")
<*> (o .:? "kind" .!= "compute#disk")
<*> (o .:? "lastDetachTimestamp")
<*> (o .:? "zone")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "sourceImageId")
<*> (o .:? "creationTimestamp")
<*> (o .:? "sourceImageEncryptionKey")
<*> (o .:? "id")
<*> (o .:? "licenses" .!= mempty)
<*> (o .:? "options")
<*> (o .:? "type")
<*> (o .:? "description")
<*> (o .:? "sourceSnapshotEncryptionKey")
<*> (o .:? "sourceSnapshot"))
instance ToJSON Disk where
toJSON Disk'{..}
= object
(catMaybes
[("status" .=) <$> _dStatus,
("sourceSnapshotId" .=) <$> _dSourceSnapshotId,
("lastAttachTimestamp" .=) <$> _dLastAttachTimestamp,
("users" .=) <$> _dUsers,
("sourceImage" .=) <$> _dSourceImage,
("diskEncryptionKey" .=) <$> _dDiskEncryptionKey,
("sizeGb" .=) <$> _dSizeGb, Just ("kind" .= _dKind),
("lastDetachTimestamp" .=) <$> _dLastDetachTimestamp,
("zone" .=) <$> _dZone,
("selfLink" .=) <$> _dSelfLink,
("name" .=) <$> _dName,
("sourceImageId" .=) <$> _dSourceImageId,
("creationTimestamp" .=) <$> _dCreationTimestamp,
("sourceImageEncryptionKey" .=) <$>
_dSourceImageEncryptionKey,
("id" .=) <$> _dId, ("licenses" .=) <$> _dLicenses,
("options" .=) <$> _dOptions, ("type" .=) <$> _dType,
("description" .=) <$> _dDescription,
("sourceSnapshotEncryptionKey" .=) <$>
_dSourceSnapshotEncryptionKey,
("sourceSnapshot" .=) <$> _dSourceSnapshot])
data DiskMoveRequest = DiskMoveRequest'
{ _dmrTargetDisk :: !(Maybe Text)
, _dmrDestinationZone :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
diskMoveRequest
:: DiskMoveRequest
diskMoveRequest =
DiskMoveRequest'
{ _dmrTargetDisk = Nothing
, _dmrDestinationZone = Nothing
}
dmrTargetDisk :: Lens' DiskMoveRequest (Maybe Text)
dmrTargetDisk
= lens _dmrTargetDisk
(\ s a -> s{_dmrTargetDisk = a})
dmrDestinationZone :: Lens' DiskMoveRequest (Maybe Text)
dmrDestinationZone
= lens _dmrDestinationZone
(\ s a -> s{_dmrDestinationZone = a})
instance FromJSON DiskMoveRequest where
parseJSON
= withObject "DiskMoveRequest"
(\ o ->
DiskMoveRequest' <$>
(o .:? "targetDisk") <*> (o .:? "destinationZone"))
instance ToJSON DiskMoveRequest where
toJSON DiskMoveRequest'{..}
= object
(catMaybes
[("targetDisk" .=) <$> _dmrTargetDisk,
("destinationZone" .=) <$> _dmrDestinationZone])
newtype AutoscalingPolicyLoadBalancingUtilization = AutoscalingPolicyLoadBalancingUtilization'
{ _aplbuUtilizationTarget :: Maybe (Textual Double)
} deriving (Eq,Show,Data,Typeable,Generic)
autoscalingPolicyLoadBalancingUtilization
:: AutoscalingPolicyLoadBalancingUtilization
autoscalingPolicyLoadBalancingUtilization =
AutoscalingPolicyLoadBalancingUtilization'
{ _aplbuUtilizationTarget = Nothing
}
aplbuUtilizationTarget :: Lens' AutoscalingPolicyLoadBalancingUtilization (Maybe Double)
aplbuUtilizationTarget
= lens _aplbuUtilizationTarget
(\ s a -> s{_aplbuUtilizationTarget = a})
. mapping _Coerce
instance FromJSON
AutoscalingPolicyLoadBalancingUtilization where
parseJSON
= withObject
"AutoscalingPolicyLoadBalancingUtilization"
(\ o ->
AutoscalingPolicyLoadBalancingUtilization' <$>
(o .:? "utilizationTarget"))
instance ToJSON
AutoscalingPolicyLoadBalancingUtilization where
toJSON AutoscalingPolicyLoadBalancingUtilization'{..}
= object
(catMaybes
[("utilizationTarget" .=) <$>
_aplbuUtilizationTarget])
data TargetPoolsScopedListWarningDataItem = TargetPoolsScopedListWarningDataItem'
{ _tpslwdiValue :: !(Maybe Text)
, _tpslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolsScopedListWarningDataItem
:: TargetPoolsScopedListWarningDataItem
targetPoolsScopedListWarningDataItem =
TargetPoolsScopedListWarningDataItem'
{ _tpslwdiValue = Nothing
, _tpslwdiKey = Nothing
}
tpslwdiValue :: Lens' TargetPoolsScopedListWarningDataItem (Maybe Text)
tpslwdiValue
= lens _tpslwdiValue (\ s a -> s{_tpslwdiValue = a})
tpslwdiKey :: Lens' TargetPoolsScopedListWarningDataItem (Maybe Text)
tpslwdiKey
= lens _tpslwdiKey (\ s a -> s{_tpslwdiKey = a})
instance FromJSON
TargetPoolsScopedListWarningDataItem where
parseJSON
= withObject "TargetPoolsScopedListWarningDataItem"
(\ o ->
TargetPoolsScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON TargetPoolsScopedListWarningDataItem
where
toJSON TargetPoolsScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _tpslwdiValue,
("key" .=) <$> _tpslwdiKey])
data InstanceGroupManager = InstanceGroupManager'
{ _igmKind :: !Text
, _igmFingerprint :: !(Maybe Bytes)
, _igmBaseInstanceName :: !(Maybe Text)
, _igmZone :: !(Maybe Text)
, _igmInstanceTemplate :: !(Maybe Text)
, _igmTargetSize :: !(Maybe (Textual Int32))
, _igmSelfLink :: !(Maybe Text)
, _igmCurrentActions :: !(Maybe InstanceGroupManagerActionsSummary)
, _igmName :: !(Maybe Text)
, _igmCreationTimestamp :: !(Maybe Text)
, _igmId :: !(Maybe (Textual Word64))
, _igmRegion :: !(Maybe Text)
, _igmTargetPools :: !(Maybe [Text])
, _igmDescription :: !(Maybe Text)
, _igmInstanceGroup :: !(Maybe Text)
, _igmNamedPorts :: !(Maybe [NamedPort])
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManager
:: InstanceGroupManager
instanceGroupManager =
InstanceGroupManager'
{ _igmKind = "compute#instanceGroupManager"
, _igmFingerprint = Nothing
, _igmBaseInstanceName = Nothing
, _igmZone = Nothing
, _igmInstanceTemplate = Nothing
, _igmTargetSize = Nothing
, _igmSelfLink = Nothing
, _igmCurrentActions = Nothing
, _igmName = Nothing
, _igmCreationTimestamp = Nothing
, _igmId = Nothing
, _igmRegion = Nothing
, _igmTargetPools = Nothing
, _igmDescription = Nothing
, _igmInstanceGroup = Nothing
, _igmNamedPorts = Nothing
}
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 _Bytes
igmBaseInstanceName :: Lens' InstanceGroupManager (Maybe Text)
igmBaseInstanceName
= lens _igmBaseInstanceName
(\ s a -> s{_igmBaseInstanceName = a})
igmZone :: Lens' InstanceGroupManager (Maybe Text)
igmZone = lens _igmZone (\ s a -> s{_igmZone = a})
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})
igmCurrentActions :: Lens' InstanceGroupManager (Maybe InstanceGroupManagerActionsSummary)
igmCurrentActions
= lens _igmCurrentActions
(\ s a -> s{_igmCurrentActions = 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
igmRegion :: Lens' InstanceGroupManager (Maybe Text)
igmRegion
= lens _igmRegion (\ s a -> s{_igmRegion = a})
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})
igmInstanceGroup :: Lens' InstanceGroupManager (Maybe Text)
igmInstanceGroup
= lens _igmInstanceGroup
(\ s a -> s{_igmInstanceGroup = a})
igmNamedPorts :: Lens' InstanceGroupManager [NamedPort]
igmNamedPorts
= lens _igmNamedPorts
(\ s a -> s{_igmNamedPorts = a})
. _Default
. _Coerce
instance FromJSON InstanceGroupManager where
parseJSON
= withObject "InstanceGroupManager"
(\ o ->
InstanceGroupManager' <$>
(o .:? "kind" .!= "compute#instanceGroupManager") <*>
(o .:? "fingerprint")
<*> (o .:? "baseInstanceName")
<*> (o .:? "zone")
<*> (o .:? "instanceTemplate")
<*> (o .:? "targetSize")
<*> (o .:? "selfLink")
<*> (o .:? "currentActions")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "region")
<*> (o .:? "targetPools" .!= mempty)
<*> (o .:? "description")
<*> (o .:? "instanceGroup")
<*> (o .:? "namedPorts" .!= mempty))
instance ToJSON InstanceGroupManager where
toJSON InstanceGroupManager'{..}
= object
(catMaybes
[Just ("kind" .= _igmKind),
("fingerprint" .=) <$> _igmFingerprint,
("baseInstanceName" .=) <$> _igmBaseInstanceName,
("zone" .=) <$> _igmZone,
("instanceTemplate" .=) <$> _igmInstanceTemplate,
("targetSize" .=) <$> _igmTargetSize,
("selfLink" .=) <$> _igmSelfLink,
("currentActions" .=) <$> _igmCurrentActions,
("name" .=) <$> _igmName,
("creationTimestamp" .=) <$> _igmCreationTimestamp,
("id" .=) <$> _igmId, ("region" .=) <$> _igmRegion,
("targetPools" .=) <$> _igmTargetPools,
("description" .=) <$> _igmDescription,
("instanceGroup" .=) <$> _igmInstanceGroup,
("namedPorts" .=) <$> _igmNamedPorts])
data RegionInstanceGroupsListInstances = RegionInstanceGroupsListInstances'
{ _rigliNextPageToken :: !(Maybe Text)
, _rigliKind :: !Text
, _rigliItems :: !(Maybe [InstanceWithNamedPorts])
, _rigliSelfLink :: !(Maybe Text)
, _rigliId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupsListInstances
:: RegionInstanceGroupsListInstances
regionInstanceGroupsListInstances =
RegionInstanceGroupsListInstances'
{ _rigliNextPageToken = Nothing
, _rigliKind = "compute#regionInstanceGroupsListInstances"
, _rigliItems = Nothing
, _rigliSelfLink = Nothing
, _rigliId = Nothing
}
rigliNextPageToken :: Lens' RegionInstanceGroupsListInstances (Maybe Text)
rigliNextPageToken
= lens _rigliNextPageToken
(\ s a -> s{_rigliNextPageToken = a})
rigliKind :: Lens' RegionInstanceGroupsListInstances Text
rigliKind
= lens _rigliKind (\ s a -> s{_rigliKind = a})
rigliItems :: Lens' RegionInstanceGroupsListInstances [InstanceWithNamedPorts]
rigliItems
= lens _rigliItems (\ s a -> s{_rigliItems = a}) .
_Default
. _Coerce
rigliSelfLink :: Lens' RegionInstanceGroupsListInstances (Maybe Text)
rigliSelfLink
= lens _rigliSelfLink
(\ s a -> s{_rigliSelfLink = a})
rigliId :: Lens' RegionInstanceGroupsListInstances (Maybe Text)
rigliId = lens _rigliId (\ s a -> s{_rigliId = a})
instance FromJSON RegionInstanceGroupsListInstances
where
parseJSON
= withObject "RegionInstanceGroupsListInstances"
(\ o ->
RegionInstanceGroupsListInstances' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"compute#regionInstanceGroupsListInstances")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON RegionInstanceGroupsListInstances
where
toJSON RegionInstanceGroupsListInstances'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _rigliNextPageToken,
Just ("kind" .= _rigliKind),
("items" .=) <$> _rigliItems,
("selfLink" .=) <$> _rigliSelfLink,
("id" .=) <$> _rigliId])
data TCPHealthCheck = TCPHealthCheck'
{ _thcResponse :: !(Maybe Text)
, _thcProxyHeader :: !(Maybe TCPHealthCheckProxyHeader)
, _thcPortName :: !(Maybe Text)
, _thcPort :: !(Maybe (Textual Int32))
, _thcRequest :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
tcpHealthCheck
:: TCPHealthCheck
tcpHealthCheck =
TCPHealthCheck'
{ _thcResponse = Nothing
, _thcProxyHeader = Nothing
, _thcPortName = Nothing
, _thcPort = Nothing
, _thcRequest = Nothing
}
thcResponse :: Lens' TCPHealthCheck (Maybe Text)
thcResponse
= lens _thcResponse (\ s a -> s{_thcResponse = a})
thcProxyHeader :: Lens' TCPHealthCheck (Maybe TCPHealthCheckProxyHeader)
thcProxyHeader
= lens _thcProxyHeader
(\ s a -> s{_thcProxyHeader = a})
thcPortName :: Lens' TCPHealthCheck (Maybe Text)
thcPortName
= lens _thcPortName (\ s a -> s{_thcPortName = a})
thcPort :: Lens' TCPHealthCheck (Maybe Int32)
thcPort
= lens _thcPort (\ s a -> s{_thcPort = a}) .
mapping _Coerce
thcRequest :: Lens' TCPHealthCheck (Maybe Text)
thcRequest
= lens _thcRequest (\ s a -> s{_thcRequest = a})
instance FromJSON TCPHealthCheck where
parseJSON
= withObject "TCPHealthCheck"
(\ o ->
TCPHealthCheck' <$>
(o .:? "response") <*> (o .:? "proxyHeader") <*>
(o .:? "portName")
<*> (o .:? "port")
<*> (o .:? "request"))
instance ToJSON TCPHealthCheck where
toJSON TCPHealthCheck'{..}
= object
(catMaybes
[("response" .=) <$> _thcResponse,
("proxyHeader" .=) <$> _thcProxyHeader,
("portName" .=) <$> _thcPortName,
("port" .=) <$> _thcPort,
("request" .=) <$> _thcRequest])
newtype InstanceGroupsRemoveInstancesRequest = InstanceGroupsRemoveInstancesRequest'
{ _igrirInstances :: Maybe [InstanceReference]
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupsRemoveInstancesRequest
:: InstanceGroupsRemoveInstancesRequest
instanceGroupsRemoveInstancesRequest =
InstanceGroupsRemoveInstancesRequest'
{ _igrirInstances = Nothing
}
igrirInstances :: Lens' InstanceGroupsRemoveInstancesRequest [InstanceReference]
igrirInstances
= lens _igrirInstances
(\ s a -> s{_igrirInstances = a})
. _Default
. _Coerce
instance FromJSON
InstanceGroupsRemoveInstancesRequest where
parseJSON
= withObject "InstanceGroupsRemoveInstancesRequest"
(\ o ->
InstanceGroupsRemoveInstancesRequest' <$>
(o .:? "instances" .!= mempty))
instance ToJSON InstanceGroupsRemoveInstancesRequest
where
toJSON InstanceGroupsRemoveInstancesRequest'{..}
= object
(catMaybes [("instances" .=) <$> _igrirInstances])
data RouteWarningsItemDataItem = RouteWarningsItemDataItem'
{ _rwidiValue :: !(Maybe Text)
, _rwidiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
routeWarningsItemDataItem
:: RouteWarningsItemDataItem
routeWarningsItemDataItem =
RouteWarningsItemDataItem'
{ _rwidiValue = Nothing
, _rwidiKey = Nothing
}
rwidiValue :: Lens' RouteWarningsItemDataItem (Maybe Text)
rwidiValue
= lens _rwidiValue (\ s a -> s{_rwidiValue = a})
rwidiKey :: Lens' RouteWarningsItemDataItem (Maybe Text)
rwidiKey = lens _rwidiKey (\ s a -> s{_rwidiKey = a})
instance FromJSON RouteWarningsItemDataItem where
parseJSON
= withObject "RouteWarningsItemDataItem"
(\ o ->
RouteWarningsItemDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON RouteWarningsItemDataItem where
toJSON RouteWarningsItemDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _rwidiValue,
("key" .=) <$> _rwidiKey])
newtype BackendServiceAggregatedListItems = BackendServiceAggregatedListItems'
{ _bsaliAddtional :: HashMap Text BackendServicesScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
backendServiceAggregatedListItems
:: HashMap Text BackendServicesScopedList
-> BackendServiceAggregatedListItems
backendServiceAggregatedListItems pBsaliAddtional_ =
BackendServiceAggregatedListItems'
{ _bsaliAddtional = _Coerce # pBsaliAddtional_
}
bsaliAddtional :: Lens' BackendServiceAggregatedListItems (HashMap Text BackendServicesScopedList)
bsaliAddtional
= lens _bsaliAddtional
(\ s a -> s{_bsaliAddtional = a})
. _Coerce
instance FromJSON BackendServiceAggregatedListItems
where
parseJSON
= withObject "BackendServiceAggregatedListItems"
(\ o ->
BackendServiceAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON BackendServiceAggregatedListItems
where
toJSON = toJSON . _bsaliAddtional
newtype InstanceAggregatedListItems = InstanceAggregatedListItems'
{ _ialiAddtional :: HashMap Text InstancesScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
instanceAggregatedListItems
:: HashMap Text InstancesScopedList
-> InstanceAggregatedListItems
instanceAggregatedListItems pIaliAddtional_ =
InstanceAggregatedListItems'
{ _ialiAddtional = _Coerce # pIaliAddtional_
}
ialiAddtional :: Lens' InstanceAggregatedListItems (HashMap Text InstancesScopedList)
ialiAddtional
= lens _ialiAddtional
(\ s a -> s{_ialiAddtional = a})
. _Coerce
instance FromJSON InstanceAggregatedListItems where
parseJSON
= withObject "InstanceAggregatedListItems"
(\ o ->
InstanceAggregatedListItems' <$> (parseJSONObject o))
instance ToJSON InstanceAggregatedListItems where
toJSON = toJSON . _ialiAddtional
data AutoscalersScopedListWarning = AutoscalersScopedListWarning'
{ _aslwData :: !(Maybe [AutoscalersScopedListWarningDataItem])
, _aslwCode :: !(Maybe AutoscalersScopedListWarningCode)
, _aslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
autoscalersScopedListWarning
:: AutoscalersScopedListWarning
autoscalersScopedListWarning =
AutoscalersScopedListWarning'
{ _aslwData = Nothing
, _aslwCode = Nothing
, _aslwMessage = Nothing
}
aslwData :: Lens' AutoscalersScopedListWarning [AutoscalersScopedListWarningDataItem]
aslwData
= lens _aslwData (\ s a -> s{_aslwData = a}) .
_Default
. _Coerce
aslwCode :: Lens' AutoscalersScopedListWarning (Maybe AutoscalersScopedListWarningCode)
aslwCode = lens _aslwCode (\ s a -> s{_aslwCode = a})
aslwMessage :: Lens' AutoscalersScopedListWarning (Maybe Text)
aslwMessage
= lens _aslwMessage (\ s a -> s{_aslwMessage = a})
instance FromJSON AutoscalersScopedListWarning where
parseJSON
= withObject "AutoscalersScopedListWarning"
(\ o ->
AutoscalersScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON AutoscalersScopedListWarning where
toJSON AutoscalersScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _aslwData,
("code" .=) <$> _aslwCode,
("message" .=) <$> _aslwMessage])
data HealthCheckList = HealthCheckList'
{ _hclNextPageToken :: !(Maybe Text)
, _hclKind :: !Text
, _hclItems :: !(Maybe [HealthCheck])
, _hclSelfLink :: !(Maybe Text)
, _hclId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
healthCheckList
:: HealthCheckList
healthCheckList =
HealthCheckList'
{ _hclNextPageToken = Nothing
, _hclKind = "compute#healthCheckList"
, _hclItems = Nothing
, _hclSelfLink = Nothing
, _hclId = Nothing
}
hclNextPageToken :: Lens' HealthCheckList (Maybe Text)
hclNextPageToken
= lens _hclNextPageToken
(\ s a -> s{_hclNextPageToken = a})
hclKind :: Lens' HealthCheckList Text
hclKind = lens _hclKind (\ s a -> s{_hclKind = a})
hclItems :: Lens' HealthCheckList [HealthCheck]
hclItems
= lens _hclItems (\ s a -> s{_hclItems = a}) .
_Default
. _Coerce
hclSelfLink :: Lens' HealthCheckList (Maybe Text)
hclSelfLink
= lens _hclSelfLink (\ s a -> s{_hclSelfLink = a})
hclId :: Lens' HealthCheckList (Maybe Text)
hclId = lens _hclId (\ s a -> s{_hclId = a})
instance FromJSON HealthCheckList where
parseJSON
= withObject "HealthCheckList"
(\ o ->
HealthCheckList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#healthCheckList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON HealthCheckList where
toJSON HealthCheckList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _hclNextPageToken,
Just ("kind" .= _hclKind),
("items" .=) <$> _hclItems,
("selfLink" .=) <$> _hclSelfLink,
("id" .=) <$> _hclId])
newtype ManagedInstanceLastAttemptErrors = ManagedInstanceLastAttemptErrors'
{ _milaeErrors :: Maybe [ManagedInstanceLastAttemptErrorsErrorsItem]
} deriving (Eq,Show,Data,Typeable,Generic)
managedInstanceLastAttemptErrors
:: ManagedInstanceLastAttemptErrors
managedInstanceLastAttemptErrors =
ManagedInstanceLastAttemptErrors'
{ _milaeErrors = Nothing
}
milaeErrors :: Lens' ManagedInstanceLastAttemptErrors [ManagedInstanceLastAttemptErrorsErrorsItem]
milaeErrors
= lens _milaeErrors (\ s a -> s{_milaeErrors = a}) .
_Default
. _Coerce
instance FromJSON ManagedInstanceLastAttemptErrors
where
parseJSON
= withObject "ManagedInstanceLastAttemptErrors"
(\ o ->
ManagedInstanceLastAttemptErrors' <$>
(o .:? "errors" .!= mempty))
instance ToJSON ManagedInstanceLastAttemptErrors
where
toJSON ManagedInstanceLastAttemptErrors'{..}
= object (catMaybes [("errors" .=) <$> _milaeErrors])
newtype TargetPoolsRemoveInstanceRequest = TargetPoolsRemoveInstanceRequest'
{ _tprirInstances :: Maybe [InstanceReference]
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolsRemoveInstanceRequest
:: TargetPoolsRemoveInstanceRequest
targetPoolsRemoveInstanceRequest =
TargetPoolsRemoveInstanceRequest'
{ _tprirInstances = Nothing
}
tprirInstances :: Lens' TargetPoolsRemoveInstanceRequest [InstanceReference]
tprirInstances
= lens _tprirInstances
(\ s a -> s{_tprirInstances = a})
. _Default
. _Coerce
instance FromJSON TargetPoolsRemoveInstanceRequest
where
parseJSON
= withObject "TargetPoolsRemoveInstanceRequest"
(\ o ->
TargetPoolsRemoveInstanceRequest' <$>
(o .:? "instances" .!= mempty))
instance ToJSON TargetPoolsRemoveInstanceRequest
where
toJSON TargetPoolsRemoveInstanceRequest'{..}
= object
(catMaybes [("instances" .=) <$> _tprirInstances])
data TargetInstancesScopedListWarningDataItem = TargetInstancesScopedListWarningDataItem'
{ _tislwdiValue :: !(Maybe Text)
, _tislwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetInstancesScopedListWarningDataItem
:: TargetInstancesScopedListWarningDataItem
targetInstancesScopedListWarningDataItem =
TargetInstancesScopedListWarningDataItem'
{ _tislwdiValue = Nothing
, _tislwdiKey = Nothing
}
tislwdiValue :: Lens' TargetInstancesScopedListWarningDataItem (Maybe Text)
tislwdiValue
= lens _tislwdiValue (\ s a -> s{_tislwdiValue = a})
tislwdiKey :: Lens' TargetInstancesScopedListWarningDataItem (Maybe Text)
tislwdiKey
= lens _tislwdiKey (\ s a -> s{_tislwdiKey = a})
instance FromJSON
TargetInstancesScopedListWarningDataItem where
parseJSON
= withObject
"TargetInstancesScopedListWarningDataItem"
(\ o ->
TargetInstancesScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON
TargetInstancesScopedListWarningDataItem where
toJSON TargetInstancesScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _tislwdiValue,
("key" .=) <$> _tislwdiKey])
data MachineTypesScopedListWarning = MachineTypesScopedListWarning'
{ _mtslwData :: !(Maybe [MachineTypesScopedListWarningDataItem])
, _mtslwCode :: !(Maybe MachineTypesScopedListWarningCode)
, _mtslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
machineTypesScopedListWarning
:: MachineTypesScopedListWarning
machineTypesScopedListWarning =
MachineTypesScopedListWarning'
{ _mtslwData = Nothing
, _mtslwCode = Nothing
, _mtslwMessage = Nothing
}
mtslwData :: Lens' MachineTypesScopedListWarning [MachineTypesScopedListWarningDataItem]
mtslwData
= lens _mtslwData (\ s a -> s{_mtslwData = a}) .
_Default
. _Coerce
mtslwCode :: Lens' MachineTypesScopedListWarning (Maybe MachineTypesScopedListWarningCode)
mtslwCode
= lens _mtslwCode (\ s a -> s{_mtslwCode = a})
mtslwMessage :: Lens' MachineTypesScopedListWarning (Maybe Text)
mtslwMessage
= lens _mtslwMessage (\ s a -> s{_mtslwMessage = a})
instance FromJSON MachineTypesScopedListWarning where
parseJSON
= withObject "MachineTypesScopedListWarning"
(\ o ->
MachineTypesScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON MachineTypesScopedListWarning where
toJSON MachineTypesScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _mtslwData,
("code" .=) <$> _mtslwCode,
("message" .=) <$> _mtslwMessage])
data TargetInstance = TargetInstance'
{ _tiKind :: !Text
, _tiNATPolicy :: !(Maybe TargetInstanceNATPolicy)
, _tiZone :: !(Maybe Text)
, _tiSelfLink :: !(Maybe Text)
, _tiName :: !(Maybe Text)
, _tiCreationTimestamp :: !(Maybe Text)
, _tiId :: !(Maybe (Textual Word64))
, _tiDescription :: !(Maybe Text)
, _tiInstance :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetInstance
:: TargetInstance
targetInstance =
TargetInstance'
{ _tiKind = "compute#targetInstance"
, _tiNATPolicy = Nothing
, _tiZone = Nothing
, _tiSelfLink = Nothing
, _tiName = Nothing
, _tiCreationTimestamp = Nothing
, _tiId = Nothing
, _tiDescription = Nothing
, _tiInstance = Nothing
}
tiKind :: Lens' TargetInstance Text
tiKind = lens _tiKind (\ s a -> s{_tiKind = a})
tiNATPolicy :: Lens' TargetInstance (Maybe TargetInstanceNATPolicy)
tiNATPolicy
= lens _tiNATPolicy (\ s a -> s{_tiNATPolicy = a})
tiZone :: Lens' TargetInstance (Maybe Text)
tiZone = lens _tiZone (\ s a -> s{_tiZone = a})
tiSelfLink :: Lens' TargetInstance (Maybe Text)
tiSelfLink
= lens _tiSelfLink (\ s a -> s{_tiSelfLink = a})
tiName :: Lens' TargetInstance (Maybe Text)
tiName = lens _tiName (\ s a -> s{_tiName = a})
tiCreationTimestamp :: Lens' TargetInstance (Maybe Text)
tiCreationTimestamp
= lens _tiCreationTimestamp
(\ s a -> s{_tiCreationTimestamp = a})
tiId :: Lens' TargetInstance (Maybe Word64)
tiId
= lens _tiId (\ s a -> s{_tiId = a}) .
mapping _Coerce
tiDescription :: Lens' TargetInstance (Maybe Text)
tiDescription
= lens _tiDescription
(\ s a -> s{_tiDescription = a})
tiInstance :: Lens' TargetInstance (Maybe Text)
tiInstance
= lens _tiInstance (\ s a -> s{_tiInstance = a})
instance FromJSON TargetInstance where
parseJSON
= withObject "TargetInstance"
(\ o ->
TargetInstance' <$>
(o .:? "kind" .!= "compute#targetInstance") <*>
(o .:? "natPolicy")
<*> (o .:? "zone")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "description")
<*> (o .:? "instance"))
instance ToJSON TargetInstance where
toJSON TargetInstance'{..}
= object
(catMaybes
[Just ("kind" .= _tiKind),
("natPolicy" .=) <$> _tiNATPolicy,
("zone" .=) <$> _tiZone,
("selfLink" .=) <$> _tiSelfLink,
("name" .=) <$> _tiName,
("creationTimestamp" .=) <$> _tiCreationTimestamp,
("id" .=) <$> _tiId,
("description" .=) <$> _tiDescription,
("instance" .=) <$> _tiInstance])
data TargetPoolInstanceHealth = TargetPoolInstanceHealth'
{ _tpihKind :: !Text
, _tpihHealthStatus :: !(Maybe [HealthStatus])
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolInstanceHealth
:: TargetPoolInstanceHealth
targetPoolInstanceHealth =
TargetPoolInstanceHealth'
{ _tpihKind = "compute#targetPoolInstanceHealth"
, _tpihHealthStatus = Nothing
}
tpihKind :: Lens' TargetPoolInstanceHealth Text
tpihKind = lens _tpihKind (\ s a -> s{_tpihKind = a})
tpihHealthStatus :: Lens' TargetPoolInstanceHealth [HealthStatus]
tpihHealthStatus
= lens _tpihHealthStatus
(\ s a -> s{_tpihHealthStatus = a})
. _Default
. _Coerce
instance FromJSON TargetPoolInstanceHealth where
parseJSON
= withObject "TargetPoolInstanceHealth"
(\ o ->
TargetPoolInstanceHealth' <$>
(o .:? "kind" .!= "compute#targetPoolInstanceHealth")
<*> (o .:? "healthStatus" .!= mempty))
instance ToJSON TargetPoolInstanceHealth where
toJSON TargetPoolInstanceHealth'{..}
= object
(catMaybes
[Just ("kind" .= _tpihKind),
("healthStatus" .=) <$> _tpihHealthStatus])
newtype InstanceGroupManagersListManagedInstancesResponse = InstanceGroupManagersListManagedInstancesResponse'
{ _igmlmirManagedInstances :: Maybe [ManagedInstance]
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersListManagedInstancesResponse
:: InstanceGroupManagersListManagedInstancesResponse
instanceGroupManagersListManagedInstancesResponse =
InstanceGroupManagersListManagedInstancesResponse'
{ _igmlmirManagedInstances = Nothing
}
igmlmirManagedInstances :: Lens' InstanceGroupManagersListManagedInstancesResponse [ManagedInstance]
igmlmirManagedInstances
= lens _igmlmirManagedInstances
(\ s a -> s{_igmlmirManagedInstances = a})
. _Default
. _Coerce
instance FromJSON
InstanceGroupManagersListManagedInstancesResponse
where
parseJSON
= withObject
"InstanceGroupManagersListManagedInstancesResponse"
(\ o ->
InstanceGroupManagersListManagedInstancesResponse'
<$> (o .:? "managedInstances" .!= mempty))
instance ToJSON
InstanceGroupManagersListManagedInstancesResponse
where
toJSON
InstanceGroupManagersListManagedInstancesResponse'{..}
= object
(catMaybes
[("managedInstances" .=) <$>
_igmlmirManagedInstances])
data InstanceProperties = InstanceProperties'
{ _ipServiceAccounts :: !(Maybe [ServiceAccount])
, _ipNetworkInterfaces :: !(Maybe [NetworkInterface])
, _ipMachineType :: !(Maybe Text)
, _ipMetadata :: !(Maybe Metadata)
, _ipScheduling :: !(Maybe Scheduling)
, _ipDisks :: !(Maybe [AttachedDisk])
, _ipCanIPForward :: !(Maybe Bool)
, _ipDescription :: !(Maybe Text)
, _ipTags :: !(Maybe Tags)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceProperties
:: InstanceProperties
instanceProperties =
InstanceProperties'
{ _ipServiceAccounts = Nothing
, _ipNetworkInterfaces = Nothing
, _ipMachineType = Nothing
, _ipMetadata = Nothing
, _ipScheduling = Nothing
, _ipDisks = Nothing
, _ipCanIPForward = Nothing
, _ipDescription = Nothing
, _ipTags = Nothing
}
ipServiceAccounts :: Lens' InstanceProperties [ServiceAccount]
ipServiceAccounts
= lens _ipServiceAccounts
(\ s a -> s{_ipServiceAccounts = a})
. _Default
. _Coerce
ipNetworkInterfaces :: Lens' InstanceProperties [NetworkInterface]
ipNetworkInterfaces
= lens _ipNetworkInterfaces
(\ s a -> s{_ipNetworkInterfaces = a})
. _Default
. _Coerce
ipMachineType :: Lens' InstanceProperties (Maybe Text)
ipMachineType
= lens _ipMachineType
(\ s a -> s{_ipMachineType = a})
ipMetadata :: Lens' InstanceProperties (Maybe Metadata)
ipMetadata
= lens _ipMetadata (\ s a -> s{_ipMetadata = a})
ipScheduling :: Lens' InstanceProperties (Maybe Scheduling)
ipScheduling
= lens _ipScheduling (\ s a -> s{_ipScheduling = a})
ipDisks :: Lens' InstanceProperties [AttachedDisk]
ipDisks
= lens _ipDisks (\ s a -> s{_ipDisks = a}) . _Default
. _Coerce
ipCanIPForward :: Lens' InstanceProperties (Maybe Bool)
ipCanIPForward
= lens _ipCanIPForward
(\ s a -> s{_ipCanIPForward = a})
ipDescription :: Lens' InstanceProperties (Maybe Text)
ipDescription
= lens _ipDescription
(\ s a -> s{_ipDescription = a})
ipTags :: Lens' InstanceProperties (Maybe Tags)
ipTags = lens _ipTags (\ s a -> s{_ipTags = a})
instance FromJSON InstanceProperties where
parseJSON
= withObject "InstanceProperties"
(\ o ->
InstanceProperties' <$>
(o .:? "serviceAccounts" .!= mempty) <*>
(o .:? "networkInterfaces" .!= mempty)
<*> (o .:? "machineType")
<*> (o .:? "metadata")
<*> (o .:? "scheduling")
<*> (o .:? "disks" .!= mempty)
<*> (o .:? "canIpForward")
<*> (o .:? "description")
<*> (o .:? "tags"))
instance ToJSON InstanceProperties where
toJSON InstanceProperties'{..}
= object
(catMaybes
[("serviceAccounts" .=) <$> _ipServiceAccounts,
("networkInterfaces" .=) <$> _ipNetworkInterfaces,
("machineType" .=) <$> _ipMachineType,
("metadata" .=) <$> _ipMetadata,
("scheduling" .=) <$> _ipScheduling,
("disks" .=) <$> _ipDisks,
("canIpForward" .=) <$> _ipCanIPForward,
("description" .=) <$> _ipDescription,
("tags" .=) <$> _ipTags])
data DiskTypesScopedListWarning = DiskTypesScopedListWarning'
{ _dtslwData :: !(Maybe [DiskTypesScopedListWarningDataItem])
, _dtslwCode :: !(Maybe DiskTypesScopedListWarningCode)
, _dtslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
diskTypesScopedListWarning
:: DiskTypesScopedListWarning
diskTypesScopedListWarning =
DiskTypesScopedListWarning'
{ _dtslwData = Nothing
, _dtslwCode = Nothing
, _dtslwMessage = Nothing
}
dtslwData :: Lens' DiskTypesScopedListWarning [DiskTypesScopedListWarningDataItem]
dtslwData
= lens _dtslwData (\ s a -> s{_dtslwData = a}) .
_Default
. _Coerce
dtslwCode :: Lens' DiskTypesScopedListWarning (Maybe DiskTypesScopedListWarningCode)
dtslwCode
= lens _dtslwCode (\ s a -> s{_dtslwCode = a})
dtslwMessage :: Lens' DiskTypesScopedListWarning (Maybe Text)
dtslwMessage
= lens _dtslwMessage (\ s a -> s{_dtslwMessage = a})
instance FromJSON DiskTypesScopedListWarning where
parseJSON
= withObject "DiskTypesScopedListWarning"
(\ o ->
DiskTypesScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON DiskTypesScopedListWarning where
toJSON DiskTypesScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _dtslwData,
("code" .=) <$> _dtslwCode,
("message" .=) <$> _dtslwMessage])
data AttachedDiskInitializeParams = AttachedDiskInitializeParams'
{ _adipSourceImage :: !(Maybe Text)
, _adipDiskSizeGb :: !(Maybe (Textual Int64))
, _adipDiskName :: !(Maybe Text)
, _adipSourceImageEncryptionKey :: !(Maybe CustomerEncryptionKey)
, _adipDiskType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
attachedDiskInitializeParams
:: AttachedDiskInitializeParams
attachedDiskInitializeParams =
AttachedDiskInitializeParams'
{ _adipSourceImage = Nothing
, _adipDiskSizeGb = Nothing
, _adipDiskName = Nothing
, _adipSourceImageEncryptionKey = Nothing
, _adipDiskType = Nothing
}
adipSourceImage :: Lens' AttachedDiskInitializeParams (Maybe Text)
adipSourceImage
= lens _adipSourceImage
(\ s a -> s{_adipSourceImage = a})
adipDiskSizeGb :: Lens' AttachedDiskInitializeParams (Maybe Int64)
adipDiskSizeGb
= lens _adipDiskSizeGb
(\ s a -> s{_adipDiskSizeGb = a})
. mapping _Coerce
adipDiskName :: Lens' AttachedDiskInitializeParams (Maybe Text)
adipDiskName
= lens _adipDiskName (\ s a -> s{_adipDiskName = a})
adipSourceImageEncryptionKey :: Lens' AttachedDiskInitializeParams (Maybe CustomerEncryptionKey)
adipSourceImageEncryptionKey
= lens _adipSourceImageEncryptionKey
(\ s a -> s{_adipSourceImageEncryptionKey = a})
adipDiskType :: Lens' AttachedDiskInitializeParams (Maybe Text)
adipDiskType
= lens _adipDiskType (\ s a -> s{_adipDiskType = a})
instance FromJSON AttachedDiskInitializeParams where
parseJSON
= withObject "AttachedDiskInitializeParams"
(\ o ->
AttachedDiskInitializeParams' <$>
(o .:? "sourceImage") <*> (o .:? "diskSizeGb") <*>
(o .:? "diskName")
<*> (o .:? "sourceImageEncryptionKey")
<*> (o .:? "diskType"))
instance ToJSON AttachedDiskInitializeParams where
toJSON AttachedDiskInitializeParams'{..}
= object
(catMaybes
[("sourceImage" .=) <$> _adipSourceImage,
("diskSizeGb" .=) <$> _adipDiskSizeGb,
("diskName" .=) <$> _adipDiskName,
("sourceImageEncryptionKey" .=) <$>
_adipSourceImageEncryptionKey,
("diskType" .=) <$> _adipDiskType])
data AddressesScopedListWarningDataItem = AddressesScopedListWarningDataItem'
{ _aslwdiValue :: !(Maybe Text)
, _aslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
addressesScopedListWarningDataItem
:: AddressesScopedListWarningDataItem
addressesScopedListWarningDataItem =
AddressesScopedListWarningDataItem'
{ _aslwdiValue = Nothing
, _aslwdiKey = Nothing
}
aslwdiValue :: Lens' AddressesScopedListWarningDataItem (Maybe Text)
aslwdiValue
= lens _aslwdiValue (\ s a -> s{_aslwdiValue = a})
aslwdiKey :: Lens' AddressesScopedListWarningDataItem (Maybe Text)
aslwdiKey
= lens _aslwdiKey (\ s a -> s{_aslwdiKey = a})
instance FromJSON AddressesScopedListWarningDataItem
where
parseJSON
= withObject "AddressesScopedListWarningDataItem"
(\ o ->
AddressesScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON AddressesScopedListWarningDataItem
where
toJSON AddressesScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _aslwdiValue,
("key" .=) <$> _aslwdiKey])
data NetworkInterface = NetworkInterface'
{ _niKind :: !Text
, _niNetwork :: !(Maybe Text)
, _niName :: !(Maybe Text)
, _niNetworkIP :: !(Maybe Text)
, _niSubnetwork :: !(Maybe Text)
, _niAccessConfigs :: !(Maybe [AccessConfig])
} deriving (Eq,Show,Data,Typeable,Generic)
networkInterface
:: NetworkInterface
networkInterface =
NetworkInterface'
{ _niKind = "compute#networkInterface"
, _niNetwork = Nothing
, _niName = Nothing
, _niNetworkIP = Nothing
, _niSubnetwork = Nothing
, _niAccessConfigs = Nothing
}
niKind :: Lens' NetworkInterface Text
niKind = lens _niKind (\ s a -> s{_niKind = a})
niNetwork :: Lens' NetworkInterface (Maybe Text)
niNetwork
= lens _niNetwork (\ s a -> s{_niNetwork = a})
niName :: Lens' NetworkInterface (Maybe Text)
niName = lens _niName (\ s a -> s{_niName = a})
niNetworkIP :: Lens' NetworkInterface (Maybe Text)
niNetworkIP
= lens _niNetworkIP (\ s a -> s{_niNetworkIP = a})
niSubnetwork :: Lens' NetworkInterface (Maybe Text)
niSubnetwork
= lens _niSubnetwork (\ s a -> s{_niSubnetwork = a})
niAccessConfigs :: Lens' NetworkInterface [AccessConfig]
niAccessConfigs
= lens _niAccessConfigs
(\ s a -> s{_niAccessConfigs = a})
. _Default
. _Coerce
instance FromJSON NetworkInterface where
parseJSON
= withObject "NetworkInterface"
(\ o ->
NetworkInterface' <$>
(o .:? "kind" .!= "compute#networkInterface") <*>
(o .:? "network")
<*> (o .:? "name")
<*> (o .:? "networkIP")
<*> (o .:? "subnetwork")
<*> (o .:? "accessConfigs" .!= mempty))
instance ToJSON NetworkInterface where
toJSON NetworkInterface'{..}
= object
(catMaybes
[Just ("kind" .= _niKind),
("network" .=) <$> _niNetwork,
("name" .=) <$> _niName,
("networkIP" .=) <$> _niNetworkIP,
("subnetwork" .=) <$> _niSubnetwork,
("accessConfigs" .=) <$> _niAccessConfigs])
newtype TargetPoolsRemoveHealthCheckRequest = TargetPoolsRemoveHealthCheckRequest'
{ _tprhcrHealthChecks :: Maybe [HealthCheckReference]
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolsRemoveHealthCheckRequest
:: TargetPoolsRemoveHealthCheckRequest
targetPoolsRemoveHealthCheckRequest =
TargetPoolsRemoveHealthCheckRequest'
{ _tprhcrHealthChecks = Nothing
}
tprhcrHealthChecks :: Lens' TargetPoolsRemoveHealthCheckRequest [HealthCheckReference]
tprhcrHealthChecks
= lens _tprhcrHealthChecks
(\ s a -> s{_tprhcrHealthChecks = a})
. _Default
. _Coerce
instance FromJSON TargetPoolsRemoveHealthCheckRequest
where
parseJSON
= withObject "TargetPoolsRemoveHealthCheckRequest"
(\ o ->
TargetPoolsRemoveHealthCheckRequest' <$>
(o .:? "healthChecks" .!= mempty))
instance ToJSON TargetPoolsRemoveHealthCheckRequest
where
toJSON TargetPoolsRemoveHealthCheckRequest'{..}
= object
(catMaybes
[("healthChecks" .=) <$> _tprhcrHealthChecks])
data RegionInstanceGroupManagersSetTargetPoolsRequest = RegionInstanceGroupManagersSetTargetPoolsRequest'
{ _rigmstprFingerprint :: !(Maybe Bytes)
, _rigmstprTargetPools :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupManagersSetTargetPoolsRequest
:: RegionInstanceGroupManagersSetTargetPoolsRequest
regionInstanceGroupManagersSetTargetPoolsRequest =
RegionInstanceGroupManagersSetTargetPoolsRequest'
{ _rigmstprFingerprint = Nothing
, _rigmstprTargetPools = Nothing
}
rigmstprFingerprint :: Lens' RegionInstanceGroupManagersSetTargetPoolsRequest (Maybe ByteString)
rigmstprFingerprint
= lens _rigmstprFingerprint
(\ s a -> s{_rigmstprFingerprint = a})
. mapping _Bytes
rigmstprTargetPools :: Lens' RegionInstanceGroupManagersSetTargetPoolsRequest [Text]
rigmstprTargetPools
= lens _rigmstprTargetPools
(\ s a -> s{_rigmstprTargetPools = a})
. _Default
. _Coerce
instance FromJSON
RegionInstanceGroupManagersSetTargetPoolsRequest
where
parseJSON
= withObject
"RegionInstanceGroupManagersSetTargetPoolsRequest"
(\ o ->
RegionInstanceGroupManagersSetTargetPoolsRequest' <$>
(o .:? "fingerprint") <*>
(o .:? "targetPools" .!= mempty))
instance ToJSON
RegionInstanceGroupManagersSetTargetPoolsRequest
where
toJSON
RegionInstanceGroupManagersSetTargetPoolsRequest'{..}
= object
(catMaybes
[("fingerprint" .=) <$> _rigmstprFingerprint,
("targetPools" .=) <$> _rigmstprTargetPools])
data TargetSSLProxyList = TargetSSLProxyList'
{ _tsplNextPageToken :: !(Maybe Text)
, _tsplKind :: !Text
, _tsplItems :: !(Maybe [TargetSSLProxy])
, _tsplSelfLink :: !(Maybe Text)
, _tsplId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetSSLProxyList
:: TargetSSLProxyList
targetSSLProxyList =
TargetSSLProxyList'
{ _tsplNextPageToken = Nothing
, _tsplKind = "compute#targetSslProxyList"
, _tsplItems = Nothing
, _tsplSelfLink = Nothing
, _tsplId = Nothing
}
tsplNextPageToken :: Lens' TargetSSLProxyList (Maybe Text)
tsplNextPageToken
= lens _tsplNextPageToken
(\ s a -> s{_tsplNextPageToken = a})
tsplKind :: Lens' TargetSSLProxyList Text
tsplKind = lens _tsplKind (\ s a -> s{_tsplKind = a})
tsplItems :: Lens' TargetSSLProxyList [TargetSSLProxy]
tsplItems
= lens _tsplItems (\ s a -> s{_tsplItems = a}) .
_Default
. _Coerce
tsplSelfLink :: Lens' TargetSSLProxyList (Maybe Text)
tsplSelfLink
= lens _tsplSelfLink (\ s a -> s{_tsplSelfLink = a})
tsplId :: Lens' TargetSSLProxyList (Maybe Text)
tsplId = lens _tsplId (\ s a -> s{_tsplId = a})
instance FromJSON TargetSSLProxyList where
parseJSON
= withObject "TargetSSLProxyList"
(\ o ->
TargetSSLProxyList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#targetSslProxyList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON TargetSSLProxyList where
toJSON TargetSSLProxyList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _tsplNextPageToken,
Just ("kind" .= _tsplKind),
("items" .=) <$> _tsplItems,
("selfLink" .=) <$> _tsplSelfLink,
("id" .=) <$> _tsplId])
data CustomerEncryptionKeyProtectedDisk = CustomerEncryptionKeyProtectedDisk'
{ _cekpdDiskEncryptionKey :: !(Maybe CustomerEncryptionKey)
, _cekpdSource :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
customerEncryptionKeyProtectedDisk
:: CustomerEncryptionKeyProtectedDisk
customerEncryptionKeyProtectedDisk =
CustomerEncryptionKeyProtectedDisk'
{ _cekpdDiskEncryptionKey = Nothing
, _cekpdSource = Nothing
}
cekpdDiskEncryptionKey :: Lens' CustomerEncryptionKeyProtectedDisk (Maybe CustomerEncryptionKey)
cekpdDiskEncryptionKey
= lens _cekpdDiskEncryptionKey
(\ s a -> s{_cekpdDiskEncryptionKey = a})
cekpdSource :: Lens' CustomerEncryptionKeyProtectedDisk (Maybe Text)
cekpdSource
= lens _cekpdSource (\ s a -> s{_cekpdSource = a})
instance FromJSON CustomerEncryptionKeyProtectedDisk
where
parseJSON
= withObject "CustomerEncryptionKeyProtectedDisk"
(\ o ->
CustomerEncryptionKeyProtectedDisk' <$>
(o .:? "diskEncryptionKey") <*> (o .:? "source"))
instance ToJSON CustomerEncryptionKeyProtectedDisk
where
toJSON CustomerEncryptionKeyProtectedDisk'{..}
= object
(catMaybes
[("diskEncryptionKey" .=) <$>
_cekpdDiskEncryptionKey,
("source" .=) <$> _cekpdSource])
data InstanceTemplateList = InstanceTemplateList'
{ _itlNextPageToken :: !(Maybe Text)
, _itlKind :: !Text
, _itlItems :: !(Maybe [InstanceTemplate])
, _itlSelfLink :: !(Maybe Text)
, _itlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceTemplateList
:: InstanceTemplateList
instanceTemplateList =
InstanceTemplateList'
{ _itlNextPageToken = Nothing
, _itlKind = "compute#instanceTemplateList"
, _itlItems = Nothing
, _itlSelfLink = Nothing
, _itlId = Nothing
}
itlNextPageToken :: Lens' InstanceTemplateList (Maybe Text)
itlNextPageToken
= lens _itlNextPageToken
(\ s a -> s{_itlNextPageToken = a})
itlKind :: Lens' InstanceTemplateList Text
itlKind = lens _itlKind (\ s a -> s{_itlKind = a})
itlItems :: Lens' InstanceTemplateList [InstanceTemplate]
itlItems
= lens _itlItems (\ s a -> s{_itlItems = a}) .
_Default
. _Coerce
itlSelfLink :: Lens' InstanceTemplateList (Maybe Text)
itlSelfLink
= lens _itlSelfLink (\ s a -> s{_itlSelfLink = a})
itlId :: Lens' InstanceTemplateList (Maybe Text)
itlId = lens _itlId (\ s a -> s{_itlId = a})
instance FromJSON InstanceTemplateList where
parseJSON
= withObject "InstanceTemplateList"
(\ o ->
InstanceTemplateList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#instanceTemplateList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON InstanceTemplateList where
toJSON InstanceTemplateList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _itlNextPageToken,
Just ("kind" .= _itlKind),
("items" .=) <$> _itlItems,
("selfLink" .=) <$> _itlSelfLink,
("id" .=) <$> _itlId])
data RouteList = RouteList'
{ _rlNextPageToken :: !(Maybe Text)
, _rlKind :: !Text
, _rlItems :: !(Maybe [Route])
, _rlSelfLink :: !(Maybe Text)
, _rlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
routeList
:: RouteList
routeList =
RouteList'
{ _rlNextPageToken = Nothing
, _rlKind = "compute#routeList"
, _rlItems = Nothing
, _rlSelfLink = Nothing
, _rlId = Nothing
}
rlNextPageToken :: Lens' RouteList (Maybe Text)
rlNextPageToken
= lens _rlNextPageToken
(\ s a -> s{_rlNextPageToken = a})
rlKind :: Lens' RouteList Text
rlKind = lens _rlKind (\ s a -> s{_rlKind = a})
rlItems :: Lens' RouteList [Route]
rlItems
= lens _rlItems (\ s a -> s{_rlItems = a}) . _Default
. _Coerce
rlSelfLink :: Lens' RouteList (Maybe Text)
rlSelfLink
= lens _rlSelfLink (\ s a -> s{_rlSelfLink = a})
rlId :: Lens' RouteList (Maybe Text)
rlId = lens _rlId (\ s a -> s{_rlId = a})
instance FromJSON RouteList where
parseJSON
= withObject "RouteList"
(\ o ->
RouteList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#routeList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON RouteList where
toJSON RouteList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _rlNextPageToken,
Just ("kind" .= _rlKind), ("items" .=) <$> _rlItems,
("selfLink" .=) <$> _rlSelfLink,
("id" .=) <$> _rlId])
data Router = Router'
{ _rouBGPPeers :: !(Maybe [RouterBGPPeer])
, _rouBGP :: !(Maybe RouterBGP)
, _rouKind :: !Text
, _rouNetwork :: !(Maybe Text)
, _rouInterfaces :: !(Maybe [RouterInterface])
, _rouSelfLink :: !(Maybe Text)
, _rouName :: !(Maybe Text)
, _rouCreationTimestamp :: !(Maybe Text)
, _rouId :: !(Maybe (Textual Word64))
, _rouRegion :: !(Maybe Text)
, _rouDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
router
:: Router
router =
Router'
{ _rouBGPPeers = Nothing
, _rouBGP = Nothing
, _rouKind = "compute#router"
, _rouNetwork = Nothing
, _rouInterfaces = Nothing
, _rouSelfLink = Nothing
, _rouName = Nothing
, _rouCreationTimestamp = Nothing
, _rouId = Nothing
, _rouRegion = Nothing
, _rouDescription = Nothing
}
rouBGPPeers :: Lens' Router [RouterBGPPeer]
rouBGPPeers
= lens _rouBGPPeers (\ s a -> s{_rouBGPPeers = a}) .
_Default
. _Coerce
rouBGP :: Lens' Router (Maybe RouterBGP)
rouBGP = lens _rouBGP (\ s a -> s{_rouBGP = a})
rouKind :: Lens' Router Text
rouKind = lens _rouKind (\ s a -> s{_rouKind = a})
rouNetwork :: Lens' Router (Maybe Text)
rouNetwork
= lens _rouNetwork (\ s a -> s{_rouNetwork = a})
rouInterfaces :: Lens' Router [RouterInterface]
rouInterfaces
= lens _rouInterfaces
(\ s a -> s{_rouInterfaces = a})
. _Default
. _Coerce
rouSelfLink :: Lens' Router (Maybe Text)
rouSelfLink
= lens _rouSelfLink (\ s a -> s{_rouSelfLink = a})
rouName :: Lens' Router (Maybe Text)
rouName = lens _rouName (\ s a -> s{_rouName = a})
rouCreationTimestamp :: Lens' Router (Maybe Text)
rouCreationTimestamp
= lens _rouCreationTimestamp
(\ s a -> s{_rouCreationTimestamp = a})
rouId :: Lens' Router (Maybe Word64)
rouId
= lens _rouId (\ s a -> s{_rouId = a}) .
mapping _Coerce
rouRegion :: Lens' Router (Maybe Text)
rouRegion
= lens _rouRegion (\ s a -> s{_rouRegion = a})
rouDescription :: Lens' Router (Maybe Text)
rouDescription
= lens _rouDescription
(\ s a -> s{_rouDescription = a})
instance FromJSON Router where
parseJSON
= withObject "Router"
(\ o ->
Router' <$>
(o .:? "bgpPeers" .!= mempty) <*> (o .:? "bgp") <*>
(o .:? "kind" .!= "compute#router")
<*> (o .:? "network")
<*> (o .:? "interfaces" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "region")
<*> (o .:? "description"))
instance ToJSON Router where
toJSON Router'{..}
= object
(catMaybes
[("bgpPeers" .=) <$> _rouBGPPeers,
("bgp" .=) <$> _rouBGP, Just ("kind" .= _rouKind),
("network" .=) <$> _rouNetwork,
("interfaces" .=) <$> _rouInterfaces,
("selfLink" .=) <$> _rouSelfLink,
("name" .=) <$> _rouName,
("creationTimestamp" .=) <$> _rouCreationTimestamp,
("id" .=) <$> _rouId, ("region" .=) <$> _rouRegion,
("description" .=) <$> _rouDescription])
data RoutersScopedListWarningDataItem = RoutersScopedListWarningDataItem'
{ _rslwdiValue :: !(Maybe Text)
, _rslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
routersScopedListWarningDataItem
:: RoutersScopedListWarningDataItem
routersScopedListWarningDataItem =
RoutersScopedListWarningDataItem'
{ _rslwdiValue = Nothing
, _rslwdiKey = Nothing
}
rslwdiValue :: Lens' RoutersScopedListWarningDataItem (Maybe Text)
rslwdiValue
= lens _rslwdiValue (\ s a -> s{_rslwdiValue = a})
rslwdiKey :: Lens' RoutersScopedListWarningDataItem (Maybe Text)
rslwdiKey
= lens _rslwdiKey (\ s a -> s{_rslwdiKey = a})
instance FromJSON RoutersScopedListWarningDataItem
where
parseJSON
= withObject "RoutersScopedListWarningDataItem"
(\ o ->
RoutersScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON RoutersScopedListWarningDataItem
where
toJSON RoutersScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _rslwdiValue,
("key" .=) <$> _rslwdiKey])
data TargetVPNGatewayList = TargetVPNGatewayList'
{ _tvglNextPageToken :: !(Maybe Text)
, _tvglKind :: !Text
, _tvglItems :: !(Maybe [TargetVPNGateway])
, _tvglSelfLink :: !(Maybe Text)
, _tvglId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetVPNGatewayList
:: TargetVPNGatewayList
targetVPNGatewayList =
TargetVPNGatewayList'
{ _tvglNextPageToken = Nothing
, _tvglKind = "compute#targetVpnGatewayList"
, _tvglItems = Nothing
, _tvglSelfLink = Nothing
, _tvglId = Nothing
}
tvglNextPageToken :: Lens' TargetVPNGatewayList (Maybe Text)
tvglNextPageToken
= lens _tvglNextPageToken
(\ s a -> s{_tvglNextPageToken = a})
tvglKind :: Lens' TargetVPNGatewayList Text
tvglKind = lens _tvglKind (\ s a -> s{_tvglKind = a})
tvglItems :: Lens' TargetVPNGatewayList [TargetVPNGateway]
tvglItems
= lens _tvglItems (\ s a -> s{_tvglItems = a}) .
_Default
. _Coerce
tvglSelfLink :: Lens' TargetVPNGatewayList (Maybe Text)
tvglSelfLink
= lens _tvglSelfLink (\ s a -> s{_tvglSelfLink = a})
tvglId :: Lens' TargetVPNGatewayList (Maybe Text)
tvglId = lens _tvglId (\ s a -> s{_tvglId = a})
instance FromJSON TargetVPNGatewayList where
parseJSON
= withObject "TargetVPNGatewayList"
(\ o ->
TargetVPNGatewayList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#targetVpnGatewayList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON TargetVPNGatewayList where
toJSON TargetVPNGatewayList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _tvglNextPageToken,
Just ("kind" .= _tvglKind),
("items" .=) <$> _tvglItems,
("selfLink" .=) <$> _tvglSelfLink,
("id" .=) <$> _tvglId])
data SSLCertificateList = SSLCertificateList'
{ _sclNextPageToken :: !(Maybe Text)
, _sclKind :: !Text
, _sclItems :: !(Maybe [SSLCertificate])
, _sclSelfLink :: !(Maybe Text)
, _sclId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
sslCertificateList
:: SSLCertificateList
sslCertificateList =
SSLCertificateList'
{ _sclNextPageToken = Nothing
, _sclKind = "compute#sslCertificateList"
, _sclItems = Nothing
, _sclSelfLink = Nothing
, _sclId = Nothing
}
sclNextPageToken :: Lens' SSLCertificateList (Maybe Text)
sclNextPageToken
= lens _sclNextPageToken
(\ s a -> s{_sclNextPageToken = a})
sclKind :: Lens' SSLCertificateList Text
sclKind = lens _sclKind (\ s a -> s{_sclKind = a})
sclItems :: Lens' SSLCertificateList [SSLCertificate]
sclItems
= lens _sclItems (\ s a -> s{_sclItems = a}) .
_Default
. _Coerce
sclSelfLink :: Lens' SSLCertificateList (Maybe Text)
sclSelfLink
= lens _sclSelfLink (\ s a -> s{_sclSelfLink = a})
sclId :: Lens' SSLCertificateList (Maybe Text)
sclId = lens _sclId (\ s a -> s{_sclId = a})
instance FromJSON SSLCertificateList where
parseJSON
= withObject "SSLCertificateList"
(\ o ->
SSLCertificateList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#sslCertificateList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON SSLCertificateList where
toJSON SSLCertificateList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _sclNextPageToken,
Just ("kind" .= _sclKind),
("items" .=) <$> _sclItems,
("selfLink" .=) <$> _sclSelfLink,
("id" .=) <$> _sclId])
data FirewallAllowedItem = FirewallAllowedItem'
{ _faiIPProtocol :: !(Maybe Text)
, _faiPorts :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
firewallAllowedItem
:: FirewallAllowedItem
firewallAllowedItem =
FirewallAllowedItem'
{ _faiIPProtocol = Nothing
, _faiPorts = Nothing
}
faiIPProtocol :: Lens' FirewallAllowedItem (Maybe Text)
faiIPProtocol
= lens _faiIPProtocol
(\ s a -> s{_faiIPProtocol = a})
faiPorts :: Lens' FirewallAllowedItem [Text]
faiPorts
= lens _faiPorts (\ s a -> s{_faiPorts = a}) .
_Default
. _Coerce
instance FromJSON FirewallAllowedItem where
parseJSON
= withObject "FirewallAllowedItem"
(\ o ->
FirewallAllowedItem' <$>
(o .:? "IPProtocol") <*> (o .:? "ports" .!= mempty))
instance ToJSON FirewallAllowedItem where
toJSON FirewallAllowedItem'{..}
= object
(catMaybes
[("IPProtocol" .=) <$> _faiIPProtocol,
("ports" .=) <$> _faiPorts])
data BackendServiceAggregatedList = BackendServiceAggregatedList'
{ _bsalNextPageToken :: !(Maybe Text)
, _bsalKind :: !Text
, _bsalItems :: !(Maybe BackendServiceAggregatedListItems)
, _bsalSelfLink :: !(Maybe Text)
, _bsalId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
backendServiceAggregatedList
:: BackendServiceAggregatedList
backendServiceAggregatedList =
BackendServiceAggregatedList'
{ _bsalNextPageToken = Nothing
, _bsalKind = "compute#backendServiceAggregatedList"
, _bsalItems = Nothing
, _bsalSelfLink = Nothing
, _bsalId = Nothing
}
bsalNextPageToken :: Lens' BackendServiceAggregatedList (Maybe Text)
bsalNextPageToken
= lens _bsalNextPageToken
(\ s a -> s{_bsalNextPageToken = a})
bsalKind :: Lens' BackendServiceAggregatedList Text
bsalKind = lens _bsalKind (\ s a -> s{_bsalKind = a})
bsalItems :: Lens' BackendServiceAggregatedList (Maybe BackendServiceAggregatedListItems)
bsalItems
= lens _bsalItems (\ s a -> s{_bsalItems = a})
bsalSelfLink :: Lens' BackendServiceAggregatedList (Maybe Text)
bsalSelfLink
= lens _bsalSelfLink (\ s a -> s{_bsalSelfLink = a})
bsalId :: Lens' BackendServiceAggregatedList (Maybe Text)
bsalId = lens _bsalId (\ s a -> s{_bsalId = a})
instance FromJSON BackendServiceAggregatedList where
parseJSON
= withObject "BackendServiceAggregatedList"
(\ o ->
BackendServiceAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"compute#backendServiceAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON BackendServiceAggregatedList where
toJSON BackendServiceAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _bsalNextPageToken,
Just ("kind" .= _bsalKind),
("items" .=) <$> _bsalItems,
("selfLink" .=) <$> _bsalSelfLink,
("id" .=) <$> _bsalId])
data Network = Network'
{ _nAutoCreateSubnetworks :: !(Maybe Bool)
, _nKind :: !Text
, _nSubnetworks :: !(Maybe [Text])
, _nIPv4Range :: !(Maybe Text)
, _nSelfLink :: !(Maybe Text)
, _nName :: !(Maybe Text)
, _nCreationTimestamp :: !(Maybe Text)
, _nId :: !(Maybe (Textual Word64))
, _nGatewayIPv4 :: !(Maybe Text)
, _nDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
network
:: Network
network =
Network'
{ _nAutoCreateSubnetworks = Nothing
, _nKind = "compute#network"
, _nSubnetworks = Nothing
, _nIPv4Range = Nothing
, _nSelfLink = Nothing
, _nName = Nothing
, _nCreationTimestamp = Nothing
, _nId = Nothing
, _nGatewayIPv4 = Nothing
, _nDescription = Nothing
}
nAutoCreateSubnetworks :: Lens' Network (Maybe Bool)
nAutoCreateSubnetworks
= lens _nAutoCreateSubnetworks
(\ s a -> s{_nAutoCreateSubnetworks = a})
nKind :: Lens' Network Text
nKind = lens _nKind (\ s a -> s{_nKind = a})
nSubnetworks :: Lens' Network [Text]
nSubnetworks
= lens _nSubnetworks (\ s a -> s{_nSubnetworks = a})
. _Default
. _Coerce
nIPv4Range :: Lens' Network (Maybe Text)
nIPv4Range
= lens _nIPv4Range (\ s a -> s{_nIPv4Range = a})
nSelfLink :: Lens' Network (Maybe Text)
nSelfLink
= lens _nSelfLink (\ s a -> s{_nSelfLink = a})
nName :: Lens' Network (Maybe Text)
nName = lens _nName (\ s a -> s{_nName = a})
nCreationTimestamp :: Lens' Network (Maybe Text)
nCreationTimestamp
= lens _nCreationTimestamp
(\ s a -> s{_nCreationTimestamp = a})
nId :: Lens' Network (Maybe Word64)
nId
= lens _nId (\ s a -> s{_nId = a}) . mapping _Coerce
nGatewayIPv4 :: Lens' Network (Maybe Text)
nGatewayIPv4
= lens _nGatewayIPv4 (\ s a -> s{_nGatewayIPv4 = a})
nDescription :: Lens' Network (Maybe Text)
nDescription
= lens _nDescription (\ s a -> s{_nDescription = a})
instance FromJSON Network where
parseJSON
= withObject "Network"
(\ o ->
Network' <$>
(o .:? "autoCreateSubnetworks") <*>
(o .:? "kind" .!= "compute#network")
<*> (o .:? "subnetworks" .!= mempty)
<*> (o .:? "IPv4Range")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "gatewayIPv4")
<*> (o .:? "description"))
instance ToJSON Network where
toJSON Network'{..}
= object
(catMaybes
[("autoCreateSubnetworks" .=) <$>
_nAutoCreateSubnetworks,
Just ("kind" .= _nKind),
("subnetworks" .=) <$> _nSubnetworks,
("IPv4Range" .=) <$> _nIPv4Range,
("selfLink" .=) <$> _nSelfLink,
("name" .=) <$> _nName,
("creationTimestamp" .=) <$> _nCreationTimestamp,
("id" .=) <$> _nId,
("gatewayIPv4" .=) <$> _nGatewayIPv4,
("description" .=) <$> _nDescription])
data RoutersScopedListWarning = RoutersScopedListWarning'
{ _rslwData :: !(Maybe [RoutersScopedListWarningDataItem])
, _rslwCode :: !(Maybe RoutersScopedListWarningCode)
, _rslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
routersScopedListWarning
:: RoutersScopedListWarning
routersScopedListWarning =
RoutersScopedListWarning'
{ _rslwData = Nothing
, _rslwCode = Nothing
, _rslwMessage = Nothing
}
rslwData :: Lens' RoutersScopedListWarning [RoutersScopedListWarningDataItem]
rslwData
= lens _rslwData (\ s a -> s{_rslwData = a}) .
_Default
. _Coerce
rslwCode :: Lens' RoutersScopedListWarning (Maybe RoutersScopedListWarningCode)
rslwCode = lens _rslwCode (\ s a -> s{_rslwCode = a})
rslwMessage :: Lens' RoutersScopedListWarning (Maybe Text)
rslwMessage
= lens _rslwMessage (\ s a -> s{_rslwMessage = a})
instance FromJSON RoutersScopedListWarning where
parseJSON
= withObject "RoutersScopedListWarning"
(\ o ->
RoutersScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON RoutersScopedListWarning where
toJSON RoutersScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _rslwData,
("code" .=) <$> _rslwCode,
("message" .=) <$> _rslwMessage])
data AddressesScopedListWarning = AddressesScopedListWarning'
{ _aData :: !(Maybe [AddressesScopedListWarningDataItem])
, _aCode :: !(Maybe AddressesScopedListWarningCode)
, _aMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
addressesScopedListWarning
:: AddressesScopedListWarning
addressesScopedListWarning =
AddressesScopedListWarning'
{ _aData = Nothing
, _aCode = Nothing
, _aMessage = Nothing
}
aData :: Lens' AddressesScopedListWarning [AddressesScopedListWarningDataItem]
aData
= lens _aData (\ s a -> s{_aData = a}) . _Default .
_Coerce
aCode :: Lens' AddressesScopedListWarning (Maybe AddressesScopedListWarningCode)
aCode = lens _aCode (\ s a -> s{_aCode = a})
aMessage :: Lens' AddressesScopedListWarning (Maybe Text)
aMessage = lens _aMessage (\ s a -> s{_aMessage = a})
instance FromJSON AddressesScopedListWarning where
parseJSON
= withObject "AddressesScopedListWarning"
(\ o ->
AddressesScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON AddressesScopedListWarning where
toJSON AddressesScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _aData, ("code" .=) <$> _aCode,
("message" .=) <$> _aMessage])
data ImageRawDisk = ImageRawDisk'
{ _irdContainerType :: !(Maybe ImageRawDiskContainerType)
, _irdSource :: !(Maybe Text)
, _irdSha1Checksum :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
imageRawDisk
:: ImageRawDisk
imageRawDisk =
ImageRawDisk'
{ _irdContainerType = Nothing
, _irdSource = Nothing
, _irdSha1Checksum = Nothing
}
irdContainerType :: Lens' ImageRawDisk (Maybe ImageRawDiskContainerType)
irdContainerType
= lens _irdContainerType
(\ s a -> s{_irdContainerType = a})
irdSource :: Lens' ImageRawDisk (Maybe Text)
irdSource
= lens _irdSource (\ s a -> s{_irdSource = a})
irdSha1Checksum :: Lens' ImageRawDisk (Maybe Text)
irdSha1Checksum
= lens _irdSha1Checksum
(\ s a -> s{_irdSha1Checksum = a})
instance FromJSON ImageRawDisk where
parseJSON
= withObject "ImageRawDisk"
(\ o ->
ImageRawDisk' <$>
(o .:? "containerType") <*> (o .:? "source") <*>
(o .:? "sha1Checksum"))
instance ToJSON ImageRawDisk where
toJSON ImageRawDisk'{..}
= object
(catMaybes
[("containerType" .=) <$> _irdContainerType,
("source" .=) <$> _irdSource,
("sha1Checksum" .=) <$> _irdSha1Checksum])
data InstanceAggregatedList = InstanceAggregatedList'
{ _ialNextPageToken :: !(Maybe Text)
, _ialKind :: !Text
, _ialItems :: !(Maybe InstanceAggregatedListItems)
, _ialSelfLink :: !(Maybe Text)
, _ialId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceAggregatedList
:: InstanceAggregatedList
instanceAggregatedList =
InstanceAggregatedList'
{ _ialNextPageToken = Nothing
, _ialKind = "compute#instanceAggregatedList"
, _ialItems = Nothing
, _ialSelfLink = Nothing
, _ialId = Nothing
}
ialNextPageToken :: Lens' InstanceAggregatedList (Maybe Text)
ialNextPageToken
= lens _ialNextPageToken
(\ s a -> s{_ialNextPageToken = a})
ialKind :: Lens' InstanceAggregatedList Text
ialKind = lens _ialKind (\ s a -> s{_ialKind = a})
ialItems :: Lens' InstanceAggregatedList (Maybe InstanceAggregatedListItems)
ialItems = lens _ialItems (\ s a -> s{_ialItems = a})
ialSelfLink :: Lens' InstanceAggregatedList (Maybe Text)
ialSelfLink
= lens _ialSelfLink (\ s a -> s{_ialSelfLink = a})
ialId :: Lens' InstanceAggregatedList (Maybe Text)
ialId = lens _ialId (\ s a -> s{_ialId = a})
instance FromJSON InstanceAggregatedList where
parseJSON
= withObject "InstanceAggregatedList"
(\ o ->
InstanceAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#instanceAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON InstanceAggregatedList where
toJSON InstanceAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ialNextPageToken,
Just ("kind" .= _ialKind),
("items" .=) <$> _ialItems,
("selfLink" .=) <$> _ialSelfLink,
("id" .=) <$> _ialId])
data SSLHealthCheck = SSLHealthCheck'
{ _shcResponse :: !(Maybe Text)
, _shcProxyHeader :: !(Maybe SSLHealthCheckProxyHeader)
, _shcPortName :: !(Maybe Text)
, _shcPort :: !(Maybe (Textual Int32))
, _shcRequest :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
sslHealthCheck
:: SSLHealthCheck
sslHealthCheck =
SSLHealthCheck'
{ _shcResponse = Nothing
, _shcProxyHeader = Nothing
, _shcPortName = Nothing
, _shcPort = Nothing
, _shcRequest = Nothing
}
shcResponse :: Lens' SSLHealthCheck (Maybe Text)
shcResponse
= lens _shcResponse (\ s a -> s{_shcResponse = a})
shcProxyHeader :: Lens' SSLHealthCheck (Maybe SSLHealthCheckProxyHeader)
shcProxyHeader
= lens _shcProxyHeader
(\ s a -> s{_shcProxyHeader = a})
shcPortName :: Lens' SSLHealthCheck (Maybe Text)
shcPortName
= lens _shcPortName (\ s a -> s{_shcPortName = a})
shcPort :: Lens' SSLHealthCheck (Maybe Int32)
shcPort
= lens _shcPort (\ s a -> s{_shcPort = a}) .
mapping _Coerce
shcRequest :: Lens' SSLHealthCheck (Maybe Text)
shcRequest
= lens _shcRequest (\ s a -> s{_shcRequest = a})
instance FromJSON SSLHealthCheck where
parseJSON
= withObject "SSLHealthCheck"
(\ o ->
SSLHealthCheck' <$>
(o .:? "response") <*> (o .:? "proxyHeader") <*>
(o .:? "portName")
<*> (o .:? "port")
<*> (o .:? "request"))
instance ToJSON SSLHealthCheck where
toJSON SSLHealthCheck'{..}
= object
(catMaybes
[("response" .=) <$> _shcResponse,
("proxyHeader" .=) <$> _shcProxyHeader,
("portName" .=) <$> _shcPortName,
("port" .=) <$> _shcPort,
("request" .=) <$> _shcRequest])
data Address = Address'
{ _aStatus :: !(Maybe AddressStatus)
, _aUsers :: !(Maybe [Text])
, _aKind :: !Text
, _aAddress :: !(Maybe Text)
, _aSelfLink :: !(Maybe Text)
, _aName :: !(Maybe Text)
, _aCreationTimestamp :: !(Maybe Text)
, _aId :: !(Maybe (Textual Word64))
, _aRegion :: !(Maybe Text)
, _aDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
address
:: Address
address =
Address'
{ _aStatus = Nothing
, _aUsers = Nothing
, _aKind = "compute#address"
, _aAddress = Nothing
, _aSelfLink = Nothing
, _aName = Nothing
, _aCreationTimestamp = Nothing
, _aId = Nothing
, _aRegion = Nothing
, _aDescription = Nothing
}
aStatus :: Lens' Address (Maybe AddressStatus)
aStatus = lens _aStatus (\ s a -> s{_aStatus = a})
aUsers :: Lens' Address [Text]
aUsers
= lens _aUsers (\ s a -> s{_aUsers = a}) . _Default .
_Coerce
aKind :: Lens' Address Text
aKind = lens _aKind (\ s a -> s{_aKind = a})
aAddress :: Lens' Address (Maybe Text)
aAddress = lens _aAddress (\ s a -> s{_aAddress = a})
aSelfLink :: Lens' Address (Maybe Text)
aSelfLink
= lens _aSelfLink (\ s a -> s{_aSelfLink = a})
aName :: Lens' Address (Maybe Text)
aName = lens _aName (\ s a -> s{_aName = a})
aCreationTimestamp :: Lens' Address (Maybe Text)
aCreationTimestamp
= lens _aCreationTimestamp
(\ s a -> s{_aCreationTimestamp = a})
aId :: Lens' Address (Maybe Word64)
aId
= lens _aId (\ s a -> s{_aId = a}) . mapping _Coerce
aRegion :: Lens' Address (Maybe Text)
aRegion = lens _aRegion (\ s a -> s{_aRegion = a})
aDescription :: Lens' Address (Maybe Text)
aDescription
= lens _aDescription (\ s a -> s{_aDescription = a})
instance FromJSON Address where
parseJSON
= withObject "Address"
(\ o ->
Address' <$>
(o .:? "status") <*> (o .:? "users" .!= mempty) <*>
(o .:? "kind" .!= "compute#address")
<*> (o .:? "address")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "region")
<*> (o .:? "description"))
instance ToJSON Address where
toJSON Address'{..}
= object
(catMaybes
[("status" .=) <$> _aStatus,
("users" .=) <$> _aUsers, Just ("kind" .= _aKind),
("address" .=) <$> _aAddress,
("selfLink" .=) <$> _aSelfLink,
("name" .=) <$> _aName,
("creationTimestamp" .=) <$> _aCreationTimestamp,
("id" .=) <$> _aId, ("region" .=) <$> _aRegion,
("description" .=) <$> _aDescription])
data Zone = Zone'
{ _zStatus :: !(Maybe ZoneStatus)
, _zKind :: !Text
, _zSelfLink :: !(Maybe Text)
, _zName :: !(Maybe Text)
, _zCreationTimestamp :: !(Maybe Text)
, _zId :: !(Maybe (Textual Word64))
, _zRegion :: !(Maybe Text)
, _zDescription :: !(Maybe Text)
, _zDeprecated :: !(Maybe DeprecationStatus)
} deriving (Eq,Show,Data,Typeable,Generic)
zone
:: Zone
zone =
Zone'
{ _zStatus = Nothing
, _zKind = "compute#zone"
, _zSelfLink = Nothing
, _zName = Nothing
, _zCreationTimestamp = Nothing
, _zId = Nothing
, _zRegion = Nothing
, _zDescription = Nothing
, _zDeprecated = Nothing
}
zStatus :: Lens' Zone (Maybe ZoneStatus)
zStatus = lens _zStatus (\ s a -> s{_zStatus = a})
zKind :: Lens' Zone Text
zKind = lens _zKind (\ s a -> s{_zKind = a})
zSelfLink :: Lens' Zone (Maybe Text)
zSelfLink
= lens _zSelfLink (\ s a -> s{_zSelfLink = a})
zName :: Lens' Zone (Maybe Text)
zName = lens _zName (\ s a -> s{_zName = a})
zCreationTimestamp :: Lens' Zone (Maybe Text)
zCreationTimestamp
= lens _zCreationTimestamp
(\ s a -> s{_zCreationTimestamp = a})
zId :: Lens' Zone (Maybe Word64)
zId
= lens _zId (\ s a -> s{_zId = a}) . mapping _Coerce
zRegion :: Lens' Zone (Maybe Text)
zRegion = lens _zRegion (\ s a -> s{_zRegion = a})
zDescription :: Lens' Zone (Maybe Text)
zDescription
= lens _zDescription (\ s a -> s{_zDescription = a})
zDeprecated :: Lens' Zone (Maybe DeprecationStatus)
zDeprecated
= lens _zDeprecated (\ s a -> s{_zDeprecated = a})
instance FromJSON Zone where
parseJSON
= withObject "Zone"
(\ o ->
Zone' <$>
(o .:? "status") <*>
(o .:? "kind" .!= "compute#zone")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "region")
<*> (o .:? "description")
<*> (o .:? "deprecated"))
instance ToJSON Zone where
toJSON Zone'{..}
= object
(catMaybes
[("status" .=) <$> _zStatus, Just ("kind" .= _zKind),
("selfLink" .=) <$> _zSelfLink,
("name" .=) <$> _zName,
("creationTimestamp" .=) <$> _zCreationTimestamp,
("id" .=) <$> _zId, ("region" .=) <$> _zRegion,
("description" .=) <$> _zDescription,
("deprecated" .=) <$> _zDeprecated])
newtype RouterBGP = RouterBGP'
{ _rbASN :: Maybe (Textual Word32)
} deriving (Eq,Show,Data,Typeable,Generic)
routerBGP
:: RouterBGP
routerBGP =
RouterBGP'
{ _rbASN = Nothing
}
rbASN :: Lens' RouterBGP (Maybe Word32)
rbASN
= lens _rbASN (\ s a -> s{_rbASN = a}) .
mapping _Coerce
instance FromJSON RouterBGP where
parseJSON
= withObject "RouterBGP"
(\ o -> RouterBGP' <$> (o .:? "asn"))
instance ToJSON RouterBGP where
toJSON RouterBGP'{..}
= object (catMaybes [("asn" .=) <$> _rbASN])
data BackendServicesScopedList = BackendServicesScopedList'
{ _bsslWarning :: !(Maybe BackendServicesScopedListWarning)
, _bsslBackendServices :: !(Maybe [BackendService])
} deriving (Eq,Show,Data,Typeable,Generic)
backendServicesScopedList
:: BackendServicesScopedList
backendServicesScopedList =
BackendServicesScopedList'
{ _bsslWarning = Nothing
, _bsslBackendServices = Nothing
}
bsslWarning :: Lens' BackendServicesScopedList (Maybe BackendServicesScopedListWarning)
bsslWarning
= lens _bsslWarning (\ s a -> s{_bsslWarning = a})
bsslBackendServices :: Lens' BackendServicesScopedList [BackendService]
bsslBackendServices
= lens _bsslBackendServices
(\ s a -> s{_bsslBackendServices = a})
. _Default
. _Coerce
instance FromJSON BackendServicesScopedList where
parseJSON
= withObject "BackendServicesScopedList"
(\ o ->
BackendServicesScopedList' <$>
(o .:? "warning") <*>
(o .:? "backendServices" .!= mempty))
instance ToJSON BackendServicesScopedList where
toJSON BackendServicesScopedList'{..}
= object
(catMaybes
[("warning" .=) <$> _bsslWarning,
("backendServices" .=) <$> _bsslBackendServices])
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 TargetSSLProxiesSetSSLCertificatesRequest = TargetSSLProxiesSetSSLCertificatesRequest'
{ _tspsscrSSLCertificates :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
targetSSLProxiesSetSSLCertificatesRequest
:: TargetSSLProxiesSetSSLCertificatesRequest
targetSSLProxiesSetSSLCertificatesRequest =
TargetSSLProxiesSetSSLCertificatesRequest'
{ _tspsscrSSLCertificates = Nothing
}
tspsscrSSLCertificates :: Lens' TargetSSLProxiesSetSSLCertificatesRequest [Text]
tspsscrSSLCertificates
= lens _tspsscrSSLCertificates
(\ s a -> s{_tspsscrSSLCertificates = a})
. _Default
. _Coerce
instance FromJSON
TargetSSLProxiesSetSSLCertificatesRequest where
parseJSON
= withObject
"TargetSSLProxiesSetSSLCertificatesRequest"
(\ o ->
TargetSSLProxiesSetSSLCertificatesRequest' <$>
(o .:? "sslCertificates" .!= mempty))
instance ToJSON
TargetSSLProxiesSetSSLCertificatesRequest where
toJSON TargetSSLProxiesSetSSLCertificatesRequest'{..}
= object
(catMaybes
[("sslCertificates" .=) <$> _tspsscrSSLCertificates])
data InstancesScopedList = InstancesScopedList'
{ _islWarning :: !(Maybe InstancesScopedListWarning)
, _islInstances :: !(Maybe [Instance])
} deriving (Eq,Show,Data,Typeable,Generic)
instancesScopedList
:: InstancesScopedList
instancesScopedList =
InstancesScopedList'
{ _islWarning = Nothing
, _islInstances = Nothing
}
islWarning :: Lens' InstancesScopedList (Maybe InstancesScopedListWarning)
islWarning
= lens _islWarning (\ s a -> s{_islWarning = a})
islInstances :: Lens' InstancesScopedList [Instance]
islInstances
= lens _islInstances (\ s a -> s{_islInstances = a})
. _Default
. _Coerce
instance FromJSON InstancesScopedList where
parseJSON
= withObject "InstancesScopedList"
(\ o ->
InstancesScopedList' <$>
(o .:? "warning") <*> (o .:? "instances" .!= mempty))
instance ToJSON InstancesScopedList where
toJSON InstancesScopedList'{..}
= object
(catMaybes
[("warning" .=) <$> _islWarning,
("instances" .=) <$> _islInstances])
newtype HealthCheckReference = HealthCheckReference'
{ _hcrHealthCheck :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
healthCheckReference
:: HealthCheckReference
healthCheckReference =
HealthCheckReference'
{ _hcrHealthCheck = Nothing
}
hcrHealthCheck :: Lens' HealthCheckReference (Maybe Text)
hcrHealthCheck
= lens _hcrHealthCheck
(\ s a -> s{_hcrHealthCheck = a})
instance FromJSON HealthCheckReference where
parseJSON
= withObject "HealthCheckReference"
(\ o ->
HealthCheckReference' <$> (o .:? "healthCheck"))
instance ToJSON HealthCheckReference where
toJSON HealthCheckReference'{..}
= object
(catMaybes [("healthCheck" .=) <$> _hcrHealthCheck])
newtype TargetInstanceAggregatedListItems = TargetInstanceAggregatedListItems'
{ _tialiAddtional :: HashMap Text TargetInstancesScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
targetInstanceAggregatedListItems
:: HashMap Text TargetInstancesScopedList
-> TargetInstanceAggregatedListItems
targetInstanceAggregatedListItems pTialiAddtional_ =
TargetInstanceAggregatedListItems'
{ _tialiAddtional = _Coerce # pTialiAddtional_
}
tialiAddtional :: Lens' TargetInstanceAggregatedListItems (HashMap Text TargetInstancesScopedList)
tialiAddtional
= lens _tialiAddtional
(\ s a -> s{_tialiAddtional = a})
. _Coerce
instance FromJSON TargetInstanceAggregatedListItems
where
parseJSON
= withObject "TargetInstanceAggregatedListItems"
(\ o ->
TargetInstanceAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON TargetInstanceAggregatedListItems
where
toJSON = toJSON . _tialiAddtional
data InstanceGroupAggregatedList = InstanceGroupAggregatedList'
{ _igalNextPageToken :: !(Maybe Text)
, _igalKind :: !Text
, _igalItems :: !(Maybe InstanceGroupAggregatedListItems)
, _igalSelfLink :: !(Maybe Text)
, _igalId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupAggregatedList
:: InstanceGroupAggregatedList
instanceGroupAggregatedList =
InstanceGroupAggregatedList'
{ _igalNextPageToken = Nothing
, _igalKind = "compute#instanceGroupAggregatedList"
, _igalItems = Nothing
, _igalSelfLink = Nothing
, _igalId = Nothing
}
igalNextPageToken :: Lens' InstanceGroupAggregatedList (Maybe Text)
igalNextPageToken
= lens _igalNextPageToken
(\ s a -> s{_igalNextPageToken = a})
igalKind :: Lens' InstanceGroupAggregatedList Text
igalKind = lens _igalKind (\ s a -> s{_igalKind = a})
igalItems :: Lens' InstanceGroupAggregatedList (Maybe InstanceGroupAggregatedListItems)
igalItems
= lens _igalItems (\ s a -> s{_igalItems = a})
igalSelfLink :: Lens' InstanceGroupAggregatedList (Maybe Text)
igalSelfLink
= lens _igalSelfLink (\ s a -> s{_igalSelfLink = a})
igalId :: Lens' InstanceGroupAggregatedList (Maybe Text)
igalId = lens _igalId (\ s a -> s{_igalId = a})
instance FromJSON InstanceGroupAggregatedList where
parseJSON
= withObject "InstanceGroupAggregatedList"
(\ o ->
InstanceGroupAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"compute#instanceGroupAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON InstanceGroupAggregatedList where
toJSON InstanceGroupAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _igalNextPageToken,
Just ("kind" .= _igalKind),
("items" .=) <$> _igalItems,
("selfLink" .=) <$> _igalSelfLink,
("id" .=) <$> _igalId])
data Route = Route'
{ _rrPriority :: !(Maybe (Textual Word32))
, _rrKind :: !Text
, _rrNextHopGateway :: !(Maybe Text)
, _rrNextHopNetwork :: !(Maybe Text)
, _rrNetwork :: !(Maybe Text)
, _rrWarnings :: !(Maybe [RouteWarningsItem])
, _rrNextHopIP :: !(Maybe Text)
, _rrDestRange :: !(Maybe Text)
, _rrSelfLink :: !(Maybe Text)
, _rrName :: !(Maybe Text)
, _rrCreationTimestamp :: !(Maybe Text)
, _rrId :: !(Maybe (Textual Word64))
, _rrNextHopVPNTunnel :: !(Maybe Text)
, _rrDescription :: !(Maybe Text)
, _rrTags :: !(Maybe [Text])
, _rrNextHopInstance :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
route
:: Route
route =
Route'
{ _rrPriority = Nothing
, _rrKind = "compute#route"
, _rrNextHopGateway = Nothing
, _rrNextHopNetwork = Nothing
, _rrNetwork = Nothing
, _rrWarnings = Nothing
, _rrNextHopIP = Nothing
, _rrDestRange = Nothing
, _rrSelfLink = Nothing
, _rrName = Nothing
, _rrCreationTimestamp = Nothing
, _rrId = Nothing
, _rrNextHopVPNTunnel = Nothing
, _rrDescription = Nothing
, _rrTags = Nothing
, _rrNextHopInstance = Nothing
}
rrPriority :: Lens' Route (Maybe Word32)
rrPriority
= lens _rrPriority (\ s a -> s{_rrPriority = a}) .
mapping _Coerce
rrKind :: Lens' Route Text
rrKind = lens _rrKind (\ s a -> s{_rrKind = a})
rrNextHopGateway :: Lens' Route (Maybe Text)
rrNextHopGateway
= lens _rrNextHopGateway
(\ s a -> s{_rrNextHopGateway = a})
rrNextHopNetwork :: Lens' Route (Maybe Text)
rrNextHopNetwork
= lens _rrNextHopNetwork
(\ s a -> s{_rrNextHopNetwork = a})
rrNetwork :: Lens' Route (Maybe Text)
rrNetwork
= lens _rrNetwork (\ s a -> s{_rrNetwork = a})
rrWarnings :: Lens' Route [RouteWarningsItem]
rrWarnings
= lens _rrWarnings (\ s a -> s{_rrWarnings = a}) .
_Default
. _Coerce
rrNextHopIP :: Lens' Route (Maybe Text)
rrNextHopIP
= lens _rrNextHopIP (\ s a -> s{_rrNextHopIP = a})
rrDestRange :: Lens' Route (Maybe Text)
rrDestRange
= lens _rrDestRange (\ s a -> s{_rrDestRange = a})
rrSelfLink :: Lens' Route (Maybe Text)
rrSelfLink
= lens _rrSelfLink (\ s a -> s{_rrSelfLink = a})
rrName :: Lens' Route (Maybe Text)
rrName = lens _rrName (\ s a -> s{_rrName = a})
rrCreationTimestamp :: Lens' Route (Maybe Text)
rrCreationTimestamp
= lens _rrCreationTimestamp
(\ s a -> s{_rrCreationTimestamp = a})
rrId :: Lens' Route (Maybe Word64)
rrId
= lens _rrId (\ s a -> s{_rrId = a}) .
mapping _Coerce
rrNextHopVPNTunnel :: Lens' Route (Maybe Text)
rrNextHopVPNTunnel
= lens _rrNextHopVPNTunnel
(\ s a -> s{_rrNextHopVPNTunnel = a})
rrDescription :: Lens' Route (Maybe Text)
rrDescription
= lens _rrDescription
(\ s a -> s{_rrDescription = a})
rrTags :: Lens' Route [Text]
rrTags
= lens _rrTags (\ s a -> s{_rrTags = a}) . _Default .
_Coerce
rrNextHopInstance :: Lens' Route (Maybe Text)
rrNextHopInstance
= lens _rrNextHopInstance
(\ s a -> s{_rrNextHopInstance = a})
instance FromJSON Route where
parseJSON
= withObject "Route"
(\ o ->
Route' <$>
(o .:? "priority") <*>
(o .:? "kind" .!= "compute#route")
<*> (o .:? "nextHopGateway")
<*> (o .:? "nextHopNetwork")
<*> (o .:? "network")
<*> (o .:? "warnings" .!= mempty)
<*> (o .:? "nextHopIp")
<*> (o .:? "destRange")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "nextHopVpnTunnel")
<*> (o .:? "description")
<*> (o .:? "tags" .!= mempty)
<*> (o .:? "nextHopInstance"))
instance ToJSON Route where
toJSON Route'{..}
= object
(catMaybes
[("priority" .=) <$> _rrPriority,
Just ("kind" .= _rrKind),
("nextHopGateway" .=) <$> _rrNextHopGateway,
("nextHopNetwork" .=) <$> _rrNextHopNetwork,
("network" .=) <$> _rrNetwork,
("warnings" .=) <$> _rrWarnings,
("nextHopIp" .=) <$> _rrNextHopIP,
("destRange" .=) <$> _rrDestRange,
("selfLink" .=) <$> _rrSelfLink,
("name" .=) <$> _rrName,
("creationTimestamp" .=) <$> _rrCreationTimestamp,
("id" .=) <$> _rrId,
("nextHopVpnTunnel" .=) <$> _rrNextHopVPNTunnel,
("description" .=) <$> _rrDescription,
("tags" .=) <$> _rrTags,
("nextHopInstance" .=) <$> _rrNextHopInstance])
data TargetVPNGatewaysScopedListWarningDataItem = TargetVPNGatewaysScopedListWarningDataItem'
{ _tvgslwdiValue :: !(Maybe Text)
, _tvgslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetVPNGatewaysScopedListWarningDataItem
:: TargetVPNGatewaysScopedListWarningDataItem
targetVPNGatewaysScopedListWarningDataItem =
TargetVPNGatewaysScopedListWarningDataItem'
{ _tvgslwdiValue = Nothing
, _tvgslwdiKey = Nothing
}
tvgslwdiValue :: Lens' TargetVPNGatewaysScopedListWarningDataItem (Maybe Text)
tvgslwdiValue
= lens _tvgslwdiValue
(\ s a -> s{_tvgslwdiValue = a})
tvgslwdiKey :: Lens' TargetVPNGatewaysScopedListWarningDataItem (Maybe Text)
tvgslwdiKey
= lens _tvgslwdiKey (\ s a -> s{_tvgslwdiKey = a})
instance FromJSON
TargetVPNGatewaysScopedListWarningDataItem where
parseJSON
= withObject
"TargetVPNGatewaysScopedListWarningDataItem"
(\ o ->
TargetVPNGatewaysScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON
TargetVPNGatewaysScopedListWarningDataItem where
toJSON
TargetVPNGatewaysScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _tvgslwdiValue,
("key" .=) <$> _tvgslwdiKey])
newtype TargetHTTPSProxiesSetSSLCertificatesRequest = TargetHTTPSProxiesSetSSLCertificatesRequest'
{ _thpsscrSSLCertificates :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
targetHTTPSProxiesSetSSLCertificatesRequest
:: TargetHTTPSProxiesSetSSLCertificatesRequest
targetHTTPSProxiesSetSSLCertificatesRequest =
TargetHTTPSProxiesSetSSLCertificatesRequest'
{ _thpsscrSSLCertificates = Nothing
}
thpsscrSSLCertificates :: Lens' TargetHTTPSProxiesSetSSLCertificatesRequest [Text]
thpsscrSSLCertificates
= lens _thpsscrSSLCertificates
(\ s a -> s{_thpsscrSSLCertificates = a})
. _Default
. _Coerce
instance FromJSON
TargetHTTPSProxiesSetSSLCertificatesRequest where
parseJSON
= withObject
"TargetHTTPSProxiesSetSSLCertificatesRequest"
(\ o ->
TargetHTTPSProxiesSetSSLCertificatesRequest' <$>
(o .:? "sslCertificates" .!= mempty))
instance ToJSON
TargetHTTPSProxiesSetSSLCertificatesRequest where
toJSON
TargetHTTPSProxiesSetSSLCertificatesRequest'{..}
= object
(catMaybes
[("sslCertificates" .=) <$> _thpsscrSSLCertificates])
data InstanceTemplate = InstanceTemplate'
{ _itKind :: !Text
, _itSelfLink :: !(Maybe Text)
, _itName :: !(Maybe Text)
, _itCreationTimestamp :: !(Maybe Text)
, _itId :: !(Maybe (Textual Word64))
, _itDescription :: !(Maybe Text)
, _itProperties :: !(Maybe InstanceProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceTemplate
:: InstanceTemplate
instanceTemplate =
InstanceTemplate'
{ _itKind = "compute#instanceTemplate"
, _itSelfLink = Nothing
, _itName = Nothing
, _itCreationTimestamp = Nothing
, _itId = Nothing
, _itDescription = Nothing
, _itProperties = Nothing
}
itKind :: Lens' InstanceTemplate Text
itKind = lens _itKind (\ s a -> s{_itKind = a})
itSelfLink :: Lens' InstanceTemplate (Maybe Text)
itSelfLink
= lens _itSelfLink (\ s a -> s{_itSelfLink = a})
itName :: Lens' InstanceTemplate (Maybe Text)
itName = lens _itName (\ s a -> s{_itName = a})
itCreationTimestamp :: Lens' InstanceTemplate (Maybe Text)
itCreationTimestamp
= lens _itCreationTimestamp
(\ s a -> s{_itCreationTimestamp = a})
itId :: Lens' InstanceTemplate (Maybe Word64)
itId
= lens _itId (\ s a -> s{_itId = a}) .
mapping _Coerce
itDescription :: Lens' InstanceTemplate (Maybe Text)
itDescription
= lens _itDescription
(\ s a -> s{_itDescription = a})
itProperties :: Lens' InstanceTemplate (Maybe InstanceProperties)
itProperties
= lens _itProperties (\ s a -> s{_itProperties = a})
instance FromJSON InstanceTemplate where
parseJSON
= withObject "InstanceTemplate"
(\ o ->
InstanceTemplate' <$>
(o .:? "kind" .!= "compute#instanceTemplate") <*>
(o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "description")
<*> (o .:? "properties"))
instance ToJSON InstanceTemplate where
toJSON InstanceTemplate'{..}
= object
(catMaybes
[Just ("kind" .= _itKind),
("selfLink" .=) <$> _itSelfLink,
("name" .=) <$> _itName,
("creationTimestamp" .=) <$> _itCreationTimestamp,
("id" .=) <$> _itId,
("description" .=) <$> _itDescription,
("properties" .=) <$> _itProperties])
data RouterList = RouterList'
{ _rllNextPageToken :: !(Maybe Text)
, _rllKind :: !Text
, _rllItems :: !(Maybe [Router])
, _rllSelfLink :: !(Maybe Text)
, _rllId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
routerList
:: RouterList
routerList =
RouterList'
{ _rllNextPageToken = Nothing
, _rllKind = "compute#routerList"
, _rllItems = Nothing
, _rllSelfLink = Nothing
, _rllId = Nothing
}
rllNextPageToken :: Lens' RouterList (Maybe Text)
rllNextPageToken
= lens _rllNextPageToken
(\ s a -> s{_rllNextPageToken = a})
rllKind :: Lens' RouterList Text
rllKind = lens _rllKind (\ s a -> s{_rllKind = a})
rllItems :: Lens' RouterList [Router]
rllItems
= lens _rllItems (\ s a -> s{_rllItems = a}) .
_Default
. _Coerce
rllSelfLink :: Lens' RouterList (Maybe Text)
rllSelfLink
= lens _rllSelfLink (\ s a -> s{_rllSelfLink = a})
rllId :: Lens' RouterList (Maybe Text)
rllId = lens _rllId (\ s a -> s{_rllId = a})
instance FromJSON RouterList where
parseJSON
= withObject "RouterList"
(\ o ->
RouterList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#routerList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON RouterList where
toJSON RouterList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _rllNextPageToken,
Just ("kind" .= _rllKind),
("items" .=) <$> _rllItems,
("selfLink" .=) <$> _rllSelfLink,
("id" .=) <$> _rllId])
data TargetSSLProxy = TargetSSLProxy'
{ _tspSSLCertificates :: !(Maybe [Text])
, _tspService :: !(Maybe Text)
, _tspKind :: !Text
, _tspSelfLink :: !(Maybe Text)
, _tspName :: !(Maybe Text)
, _tspCreationTimestamp :: !(Maybe Text)
, _tspId :: !(Maybe (Textual Word64))
, _tspProxyHeader :: !(Maybe TargetSSLProxyProxyHeader)
, _tspDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetSSLProxy
:: TargetSSLProxy
targetSSLProxy =
TargetSSLProxy'
{ _tspSSLCertificates = Nothing
, _tspService = Nothing
, _tspKind = "compute#targetSslProxy"
, _tspSelfLink = Nothing
, _tspName = Nothing
, _tspCreationTimestamp = Nothing
, _tspId = Nothing
, _tspProxyHeader = Nothing
, _tspDescription = Nothing
}
tspSSLCertificates :: Lens' TargetSSLProxy [Text]
tspSSLCertificates
= lens _tspSSLCertificates
(\ s a -> s{_tspSSLCertificates = a})
. _Default
. _Coerce
tspService :: Lens' TargetSSLProxy (Maybe Text)
tspService
= lens _tspService (\ s a -> s{_tspService = a})
tspKind :: Lens' TargetSSLProxy Text
tspKind = lens _tspKind (\ s a -> s{_tspKind = a})
tspSelfLink :: Lens' TargetSSLProxy (Maybe Text)
tspSelfLink
= lens _tspSelfLink (\ s a -> s{_tspSelfLink = a})
tspName :: Lens' TargetSSLProxy (Maybe Text)
tspName = lens _tspName (\ s a -> s{_tspName = a})
tspCreationTimestamp :: Lens' TargetSSLProxy (Maybe Text)
tspCreationTimestamp
= lens _tspCreationTimestamp
(\ s a -> s{_tspCreationTimestamp = a})
tspId :: Lens' TargetSSLProxy (Maybe Word64)
tspId
= lens _tspId (\ s a -> s{_tspId = a}) .
mapping _Coerce
tspProxyHeader :: Lens' TargetSSLProxy (Maybe TargetSSLProxyProxyHeader)
tspProxyHeader
= lens _tspProxyHeader
(\ s a -> s{_tspProxyHeader = a})
tspDescription :: Lens' TargetSSLProxy (Maybe Text)
tspDescription
= lens _tspDescription
(\ s a -> s{_tspDescription = a})
instance FromJSON TargetSSLProxy where
parseJSON
= withObject "TargetSSLProxy"
(\ o ->
TargetSSLProxy' <$>
(o .:? "sslCertificates" .!= mempty) <*>
(o .:? "service")
<*> (o .:? "kind" .!= "compute#targetSslProxy")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "proxyHeader")
<*> (o .:? "description"))
instance ToJSON TargetSSLProxy where
toJSON TargetSSLProxy'{..}
= object
(catMaybes
[("sslCertificates" .=) <$> _tspSSLCertificates,
("service" .=) <$> _tspService,
Just ("kind" .= _tspKind),
("selfLink" .=) <$> _tspSelfLink,
("name" .=) <$> _tspName,
("creationTimestamp" .=) <$> _tspCreationTimestamp,
("id" .=) <$> _tspId,
("proxyHeader" .=) <$> _tspProxyHeader,
("description" .=) <$> _tspDescription])
data TargetVPNGateway = TargetVPNGateway'
{ _tvgStatus :: !(Maybe TargetVPNGatewayStatus)
, _tvgKind :: !Text
, _tvgNetwork :: !(Maybe Text)
, _tvgSelfLink :: !(Maybe Text)
, _tvgName :: !(Maybe Text)
, _tvgCreationTimestamp :: !(Maybe Text)
, _tvgId :: !(Maybe (Textual Word64))
, _tvgRegion :: !(Maybe Text)
, _tvgTunnels :: !(Maybe [Text])
, _tvgDescription :: !(Maybe Text)
, _tvgForwardingRules :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
targetVPNGateway
:: TargetVPNGateway
targetVPNGateway =
TargetVPNGateway'
{ _tvgStatus = Nothing
, _tvgKind = "compute#targetVpnGateway"
, _tvgNetwork = Nothing
, _tvgSelfLink = Nothing
, _tvgName = Nothing
, _tvgCreationTimestamp = Nothing
, _tvgId = Nothing
, _tvgRegion = Nothing
, _tvgTunnels = Nothing
, _tvgDescription = Nothing
, _tvgForwardingRules = Nothing
}
tvgStatus :: Lens' TargetVPNGateway (Maybe TargetVPNGatewayStatus)
tvgStatus
= lens _tvgStatus (\ s a -> s{_tvgStatus = a})
tvgKind :: Lens' TargetVPNGateway Text
tvgKind = lens _tvgKind (\ s a -> s{_tvgKind = a})
tvgNetwork :: Lens' TargetVPNGateway (Maybe Text)
tvgNetwork
= lens _tvgNetwork (\ s a -> s{_tvgNetwork = a})
tvgSelfLink :: Lens' TargetVPNGateway (Maybe Text)
tvgSelfLink
= lens _tvgSelfLink (\ s a -> s{_tvgSelfLink = a})
tvgName :: Lens' TargetVPNGateway (Maybe Text)
tvgName = lens _tvgName (\ s a -> s{_tvgName = a})
tvgCreationTimestamp :: Lens' TargetVPNGateway (Maybe Text)
tvgCreationTimestamp
= lens _tvgCreationTimestamp
(\ s a -> s{_tvgCreationTimestamp = a})
tvgId :: Lens' TargetVPNGateway (Maybe Word64)
tvgId
= lens _tvgId (\ s a -> s{_tvgId = a}) .
mapping _Coerce
tvgRegion :: Lens' TargetVPNGateway (Maybe Text)
tvgRegion
= lens _tvgRegion (\ s a -> s{_tvgRegion = a})
tvgTunnels :: Lens' TargetVPNGateway [Text]
tvgTunnels
= lens _tvgTunnels (\ s a -> s{_tvgTunnels = a}) .
_Default
. _Coerce
tvgDescription :: Lens' TargetVPNGateway (Maybe Text)
tvgDescription
= lens _tvgDescription
(\ s a -> s{_tvgDescription = a})
tvgForwardingRules :: Lens' TargetVPNGateway [Text]
tvgForwardingRules
= lens _tvgForwardingRules
(\ s a -> s{_tvgForwardingRules = a})
. _Default
. _Coerce
instance FromJSON TargetVPNGateway where
parseJSON
= withObject "TargetVPNGateway"
(\ o ->
TargetVPNGateway' <$>
(o .:? "status") <*>
(o .:? "kind" .!= "compute#targetVpnGateway")
<*> (o .:? "network")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "region")
<*> (o .:? "tunnels" .!= mempty)
<*> (o .:? "description")
<*> (o .:? "forwardingRules" .!= mempty))
instance ToJSON TargetVPNGateway where
toJSON TargetVPNGateway'{..}
= object
(catMaybes
[("status" .=) <$> _tvgStatus,
Just ("kind" .= _tvgKind),
("network" .=) <$> _tvgNetwork,
("selfLink" .=) <$> _tvgSelfLink,
("name" .=) <$> _tvgName,
("creationTimestamp" .=) <$> _tvgCreationTimestamp,
("id" .=) <$> _tvgId, ("region" .=) <$> _tvgRegion,
("tunnels" .=) <$> _tvgTunnels,
("description" .=) <$> _tvgDescription,
("forwardingRules" .=) <$> _tvgForwardingRules])
newtype URLMapsValidateResponse = URLMapsValidateResponse'
{ _umvrResult :: Maybe URLMapValidationResult
} deriving (Eq,Show,Data,Typeable,Generic)
urlMapsValidateResponse
:: URLMapsValidateResponse
urlMapsValidateResponse =
URLMapsValidateResponse'
{ _umvrResult = Nothing
}
umvrResult :: Lens' URLMapsValidateResponse (Maybe URLMapValidationResult)
umvrResult
= lens _umvrResult (\ s a -> s{_umvrResult = a})
instance FromJSON URLMapsValidateResponse where
parseJSON
= withObject "URLMapsValidateResponse"
(\ o ->
URLMapsValidateResponse' <$> (o .:? "result"))
instance ToJSON URLMapsValidateResponse where
toJSON URLMapsValidateResponse'{..}
= object (catMaybes [("result" .=) <$> _umvrResult])
data SSLCertificate = SSLCertificate'
{ _scPrivateKey :: !(Maybe Text)
, _scKind :: !Text
, _scSelfLink :: !(Maybe Text)
, _scName :: !(Maybe Text)
, _scCreationTimestamp :: !(Maybe Text)
, _scId :: !(Maybe (Textual Word64))
, _scCertificate :: !(Maybe Text)
, _scDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
sslCertificate
:: SSLCertificate
sslCertificate =
SSLCertificate'
{ _scPrivateKey = Nothing
, _scKind = "compute#sslCertificate"
, _scSelfLink = Nothing
, _scName = Nothing
, _scCreationTimestamp = Nothing
, _scId = Nothing
, _scCertificate = Nothing
, _scDescription = Nothing
}
scPrivateKey :: Lens' SSLCertificate (Maybe Text)
scPrivateKey
= lens _scPrivateKey (\ s a -> s{_scPrivateKey = a})
scKind :: Lens' SSLCertificate Text
scKind = lens _scKind (\ s a -> s{_scKind = a})
scSelfLink :: Lens' SSLCertificate (Maybe Text)
scSelfLink
= lens _scSelfLink (\ s a -> s{_scSelfLink = a})
scName :: Lens' SSLCertificate (Maybe Text)
scName = lens _scName (\ s a -> s{_scName = a})
scCreationTimestamp :: Lens' SSLCertificate (Maybe Text)
scCreationTimestamp
= lens _scCreationTimestamp
(\ s a -> s{_scCreationTimestamp = a})
scId :: Lens' SSLCertificate (Maybe Word64)
scId
= lens _scId (\ s a -> s{_scId = a}) .
mapping _Coerce
scCertificate :: Lens' SSLCertificate (Maybe Text)
scCertificate
= lens _scCertificate
(\ s a -> s{_scCertificate = a})
scDescription :: Lens' SSLCertificate (Maybe Text)
scDescription
= lens _scDescription
(\ s a -> s{_scDescription = a})
instance FromJSON SSLCertificate where
parseJSON
= withObject "SSLCertificate"
(\ o ->
SSLCertificate' <$>
(o .:? "privateKey") <*>
(o .:? "kind" .!= "compute#sslCertificate")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "certificate")
<*> (o .:? "description"))
instance ToJSON SSLCertificate where
toJSON SSLCertificate'{..}
= object
(catMaybes
[("privateKey" .=) <$> _scPrivateKey,
Just ("kind" .= _scKind),
("selfLink" .=) <$> _scSelfLink,
("name" .=) <$> _scName,
("creationTimestamp" .=) <$> _scCreationTimestamp,
("id" .=) <$> _scId,
("certificate" .=) <$> _scCertificate,
("description" .=) <$> _scDescription])
data RouterStatusBGPPeerStatus = RouterStatusBGPPeerStatus'
{ _rsbpsStatus :: !(Maybe RouterStatusBGPPeerStatusStatus)
, _rsbpsIPAddress :: !(Maybe Text)
, _rsbpsState :: !(Maybe Text)
, _rsbpsPeerIPAddress :: !(Maybe Text)
, _rsbpsUptime :: !(Maybe Text)
, _rsbpsNumLearnedRoutes :: !(Maybe (Textual Word32))
, _rsbpsName :: !(Maybe Text)
, _rsbpsUptimeSeconds :: !(Maybe Text)
, _rsbpsAdvertisedRoutes :: !(Maybe [Route])
, _rsbpsLinkedVPNTunnel :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
routerStatusBGPPeerStatus
:: RouterStatusBGPPeerStatus
routerStatusBGPPeerStatus =
RouterStatusBGPPeerStatus'
{ _rsbpsStatus = Nothing
, _rsbpsIPAddress = Nothing
, _rsbpsState = Nothing
, _rsbpsPeerIPAddress = Nothing
, _rsbpsUptime = Nothing
, _rsbpsNumLearnedRoutes = Nothing
, _rsbpsName = Nothing
, _rsbpsUptimeSeconds = Nothing
, _rsbpsAdvertisedRoutes = Nothing
, _rsbpsLinkedVPNTunnel = Nothing
}
rsbpsStatus :: Lens' RouterStatusBGPPeerStatus (Maybe RouterStatusBGPPeerStatusStatus)
rsbpsStatus
= lens _rsbpsStatus (\ s a -> s{_rsbpsStatus = a})
rsbpsIPAddress :: Lens' RouterStatusBGPPeerStatus (Maybe Text)
rsbpsIPAddress
= lens _rsbpsIPAddress
(\ s a -> s{_rsbpsIPAddress = a})
rsbpsState :: Lens' RouterStatusBGPPeerStatus (Maybe Text)
rsbpsState
= lens _rsbpsState (\ s a -> s{_rsbpsState = a})
rsbpsPeerIPAddress :: Lens' RouterStatusBGPPeerStatus (Maybe Text)
rsbpsPeerIPAddress
= lens _rsbpsPeerIPAddress
(\ s a -> s{_rsbpsPeerIPAddress = a})
rsbpsUptime :: Lens' RouterStatusBGPPeerStatus (Maybe Text)
rsbpsUptime
= lens _rsbpsUptime (\ s a -> s{_rsbpsUptime = a})
rsbpsNumLearnedRoutes :: Lens' RouterStatusBGPPeerStatus (Maybe Word32)
rsbpsNumLearnedRoutes
= lens _rsbpsNumLearnedRoutes
(\ s a -> s{_rsbpsNumLearnedRoutes = a})
. mapping _Coerce
rsbpsName :: Lens' RouterStatusBGPPeerStatus (Maybe Text)
rsbpsName
= lens _rsbpsName (\ s a -> s{_rsbpsName = a})
rsbpsUptimeSeconds :: Lens' RouterStatusBGPPeerStatus (Maybe Text)
rsbpsUptimeSeconds
= lens _rsbpsUptimeSeconds
(\ s a -> s{_rsbpsUptimeSeconds = a})
rsbpsAdvertisedRoutes :: Lens' RouterStatusBGPPeerStatus [Route]
rsbpsAdvertisedRoutes
= lens _rsbpsAdvertisedRoutes
(\ s a -> s{_rsbpsAdvertisedRoutes = a})
. _Default
. _Coerce
rsbpsLinkedVPNTunnel :: Lens' RouterStatusBGPPeerStatus (Maybe Text)
rsbpsLinkedVPNTunnel
= lens _rsbpsLinkedVPNTunnel
(\ s a -> s{_rsbpsLinkedVPNTunnel = a})
instance FromJSON RouterStatusBGPPeerStatus where
parseJSON
= withObject "RouterStatusBGPPeerStatus"
(\ o ->
RouterStatusBGPPeerStatus' <$>
(o .:? "status") <*> (o .:? "ipAddress") <*>
(o .:? "state")
<*> (o .:? "peerIpAddress")
<*> (o .:? "uptime")
<*> (o .:? "numLearnedRoutes")
<*> (o .:? "name")
<*> (o .:? "uptimeSeconds")
<*> (o .:? "advertisedRoutes" .!= mempty)
<*> (o .:? "linkedVpnTunnel"))
instance ToJSON RouterStatusBGPPeerStatus where
toJSON RouterStatusBGPPeerStatus'{..}
= object
(catMaybes
[("status" .=) <$> _rsbpsStatus,
("ipAddress" .=) <$> _rsbpsIPAddress,
("state" .=) <$> _rsbpsState,
("peerIpAddress" .=) <$> _rsbpsPeerIPAddress,
("uptime" .=) <$> _rsbpsUptime,
("numLearnedRoutes" .=) <$> _rsbpsNumLearnedRoutes,
("name" .=) <$> _rsbpsName,
("uptimeSeconds" .=) <$> _rsbpsUptimeSeconds,
("advertisedRoutes" .=) <$> _rsbpsAdvertisedRoutes,
("linkedVpnTunnel" .=) <$> _rsbpsLinkedVPNTunnel])
newtype URLMapReference = URLMapReference'
{ _umrURLMap :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
urlMapReference
:: URLMapReference
urlMapReference =
URLMapReference'
{ _umrURLMap = Nothing
}
umrURLMap :: Lens' URLMapReference (Maybe Text)
umrURLMap
= lens _umrURLMap (\ s a -> s{_umrURLMap = a})
instance FromJSON URLMapReference where
parseJSON
= withObject "URLMapReference"
(\ o -> URLMapReference' <$> (o .:? "urlMap"))
instance ToJSON URLMapReference where
toJSON URLMapReference'{..}
= object (catMaybes [("urlMap" .=) <$> _umrURLMap])
newtype TargetPoolsAddHealthCheckRequest = TargetPoolsAddHealthCheckRequest'
{ _tpahcrHealthChecks :: Maybe [HealthCheckReference]
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolsAddHealthCheckRequest
:: TargetPoolsAddHealthCheckRequest
targetPoolsAddHealthCheckRequest =
TargetPoolsAddHealthCheckRequest'
{ _tpahcrHealthChecks = Nothing
}
tpahcrHealthChecks :: Lens' TargetPoolsAddHealthCheckRequest [HealthCheckReference]
tpahcrHealthChecks
= lens _tpahcrHealthChecks
(\ s a -> s{_tpahcrHealthChecks = a})
. _Default
. _Coerce
instance FromJSON TargetPoolsAddHealthCheckRequest
where
parseJSON
= withObject "TargetPoolsAddHealthCheckRequest"
(\ o ->
TargetPoolsAddHealthCheckRequest' <$>
(o .:? "healthChecks" .!= mempty))
instance ToJSON TargetPoolsAddHealthCheckRequest
where
toJSON TargetPoolsAddHealthCheckRequest'{..}
= object
(catMaybes
[("healthChecks" .=) <$> _tpahcrHealthChecks])
newtype DiskAggregatedListItems = DiskAggregatedListItems'
{ _daliAddtional :: HashMap Text DisksScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
diskAggregatedListItems
:: HashMap Text DisksScopedList
-> DiskAggregatedListItems
diskAggregatedListItems pDaliAddtional_ =
DiskAggregatedListItems'
{ _daliAddtional = _Coerce # pDaliAddtional_
}
daliAddtional :: Lens' DiskAggregatedListItems (HashMap Text DisksScopedList)
daliAddtional
= lens _daliAddtional
(\ s a -> s{_daliAddtional = a})
. _Coerce
instance FromJSON DiskAggregatedListItems where
parseJSON
= withObject "DiskAggregatedListItems"
(\ o ->
DiskAggregatedListItems' <$> (parseJSONObject o))
instance ToJSON DiskAggregatedListItems where
toJSON = toJSON . _daliAddtional
data UsageExportLocation = UsageExportLocation'
{ _uelReportNamePrefix :: !(Maybe Text)
, _uelBucketName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
usageExportLocation
:: UsageExportLocation
usageExportLocation =
UsageExportLocation'
{ _uelReportNamePrefix = Nothing
, _uelBucketName = Nothing
}
uelReportNamePrefix :: Lens' UsageExportLocation (Maybe Text)
uelReportNamePrefix
= lens _uelReportNamePrefix
(\ s a -> s{_uelReportNamePrefix = a})
uelBucketName :: Lens' UsageExportLocation (Maybe Text)
uelBucketName
= lens _uelBucketName
(\ s a -> s{_uelBucketName = a})
instance FromJSON UsageExportLocation where
parseJSON
= withObject "UsageExportLocation"
(\ o ->
UsageExportLocation' <$>
(o .:? "reportNamePrefix") <*> (o .:? "bucketName"))
instance ToJSON UsageExportLocation where
toJSON UsageExportLocation'{..}
= object
(catMaybes
[("reportNamePrefix" .=) <$> _uelReportNamePrefix,
("bucketName" .=) <$> _uelBucketName])
data ZoneList = ZoneList'
{ _zlNextPageToken :: !(Maybe Text)
, _zlKind :: !Text
, _zlItems :: !(Maybe [Zone])
, _zlSelfLink :: !(Maybe Text)
, _zlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
zoneList
:: ZoneList
zoneList =
ZoneList'
{ _zlNextPageToken = Nothing
, _zlKind = "compute#zoneList"
, _zlItems = Nothing
, _zlSelfLink = Nothing
, _zlId = Nothing
}
zlNextPageToken :: Lens' ZoneList (Maybe Text)
zlNextPageToken
= lens _zlNextPageToken
(\ s a -> s{_zlNextPageToken = a})
zlKind :: Lens' ZoneList Text
zlKind = lens _zlKind (\ s a -> s{_zlKind = a})
zlItems :: Lens' ZoneList [Zone]
zlItems
= lens _zlItems (\ s a -> s{_zlItems = a}) . _Default
. _Coerce
zlSelfLink :: Lens' ZoneList (Maybe Text)
zlSelfLink
= lens _zlSelfLink (\ s a -> s{_zlSelfLink = a})
zlId :: Lens' ZoneList (Maybe Text)
zlId = lens _zlId (\ s a -> s{_zlId = a})
instance FromJSON ZoneList where
parseJSON
= withObject "ZoneList"
(\ o ->
ZoneList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#zoneList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON ZoneList where
toJSON ZoneList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _zlNextPageToken,
Just ("kind" .= _zlKind), ("items" .=) <$> _zlItems,
("selfLink" .=) <$> _zlSelfLink,
("id" .=) <$> _zlId])
data RouterBGPPeer = RouterBGPPeer'
{ _rbpIPAddress :: !(Maybe Text)
, _rbpInterfaceName :: !(Maybe Text)
, _rbpPeerIPAddress :: !(Maybe Text)
, _rbpAdvertisedRoutePriority :: !(Maybe (Textual Word32))
, _rbpPeerASN :: !(Maybe (Textual Word32))
, _rbpName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
routerBGPPeer
:: RouterBGPPeer
routerBGPPeer =
RouterBGPPeer'
{ _rbpIPAddress = Nothing
, _rbpInterfaceName = Nothing
, _rbpPeerIPAddress = Nothing
, _rbpAdvertisedRoutePriority = Nothing
, _rbpPeerASN = Nothing
, _rbpName = Nothing
}
rbpIPAddress :: Lens' RouterBGPPeer (Maybe Text)
rbpIPAddress
= lens _rbpIPAddress (\ s a -> s{_rbpIPAddress = a})
rbpInterfaceName :: Lens' RouterBGPPeer (Maybe Text)
rbpInterfaceName
= lens _rbpInterfaceName
(\ s a -> s{_rbpInterfaceName = a})
rbpPeerIPAddress :: Lens' RouterBGPPeer (Maybe Text)
rbpPeerIPAddress
= lens _rbpPeerIPAddress
(\ s a -> s{_rbpPeerIPAddress = a})
rbpAdvertisedRoutePriority :: Lens' RouterBGPPeer (Maybe Word32)
rbpAdvertisedRoutePriority
= lens _rbpAdvertisedRoutePriority
(\ s a -> s{_rbpAdvertisedRoutePriority = a})
. mapping _Coerce
rbpPeerASN :: Lens' RouterBGPPeer (Maybe Word32)
rbpPeerASN
= lens _rbpPeerASN (\ s a -> s{_rbpPeerASN = a}) .
mapping _Coerce
rbpName :: Lens' RouterBGPPeer (Maybe Text)
rbpName = lens _rbpName (\ s a -> s{_rbpName = a})
instance FromJSON RouterBGPPeer where
parseJSON
= withObject "RouterBGPPeer"
(\ o ->
RouterBGPPeer' <$>
(o .:? "ipAddress") <*> (o .:? "interfaceName") <*>
(o .:? "peerIpAddress")
<*> (o .:? "advertisedRoutePriority")
<*> (o .:? "peerAsn")
<*> (o .:? "name"))
instance ToJSON RouterBGPPeer where
toJSON RouterBGPPeer'{..}
= object
(catMaybes
[("ipAddress" .=) <$> _rbpIPAddress,
("interfaceName" .=) <$> _rbpInterfaceName,
("peerIpAddress" .=) <$> _rbpPeerIPAddress,
("advertisedRoutePriority" .=) <$>
_rbpAdvertisedRoutePriority,
("peerAsn" .=) <$> _rbpPeerASN,
("name" .=) <$> _rbpName])
newtype SubnetworksExpandIPCIdRRangeRequest = SubnetworksExpandIPCIdRRangeRequest'
{ _seicirrrIPCIdRRange :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
subnetworksExpandIPCIdRRangeRequest
:: SubnetworksExpandIPCIdRRangeRequest
subnetworksExpandIPCIdRRangeRequest =
SubnetworksExpandIPCIdRRangeRequest'
{ _seicirrrIPCIdRRange = Nothing
}
seicirrrIPCIdRRange :: Lens' SubnetworksExpandIPCIdRRangeRequest (Maybe Text)
seicirrrIPCIdRRange
= lens _seicirrrIPCIdRRange
(\ s a -> s{_seicirrrIPCIdRRange = a})
instance FromJSON SubnetworksExpandIPCIdRRangeRequest
where
parseJSON
= withObject "SubnetworksExpandIPCIdRRangeRequest"
(\ o ->
SubnetworksExpandIPCIdRRangeRequest' <$>
(o .:? "ipCidrRange"))
instance ToJSON SubnetworksExpandIPCIdRRangeRequest
where
toJSON SubnetworksExpandIPCIdRRangeRequest'{..}
= object
(catMaybes
[("ipCidrRange" .=) <$> _seicirrrIPCIdRRange])
data ManagedInstance = ManagedInstance'
{ _miLastAttempt :: !(Maybe ManagedInstanceLastAttempt)
, _miCurrentAction :: !(Maybe ManagedInstanceCurrentAction)
, _miId :: !(Maybe (Textual Word64))
, _miInstanceStatus :: !(Maybe ManagedInstanceInstanceStatus)
, _miInstance :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
managedInstance
:: ManagedInstance
managedInstance =
ManagedInstance'
{ _miLastAttempt = Nothing
, _miCurrentAction = Nothing
, _miId = Nothing
, _miInstanceStatus = Nothing
, _miInstance = Nothing
}
miLastAttempt :: Lens' ManagedInstance (Maybe ManagedInstanceLastAttempt)
miLastAttempt
= lens _miLastAttempt
(\ s a -> s{_miLastAttempt = a})
miCurrentAction :: Lens' ManagedInstance (Maybe ManagedInstanceCurrentAction)
miCurrentAction
= lens _miCurrentAction
(\ s a -> s{_miCurrentAction = a})
miId :: Lens' ManagedInstance (Maybe Word64)
miId
= lens _miId (\ s a -> s{_miId = a}) .
mapping _Coerce
miInstanceStatus :: Lens' ManagedInstance (Maybe ManagedInstanceInstanceStatus)
miInstanceStatus
= lens _miInstanceStatus
(\ s a -> s{_miInstanceStatus = a})
miInstance :: Lens' ManagedInstance (Maybe Text)
miInstance
= lens _miInstance (\ s a -> s{_miInstance = a})
instance FromJSON ManagedInstance where
parseJSON
= withObject "ManagedInstance"
(\ o ->
ManagedInstance' <$>
(o .:? "lastAttempt") <*> (o .:? "currentAction") <*>
(o .:? "id")
<*> (o .:? "instanceStatus")
<*> (o .:? "instance"))
instance ToJSON ManagedInstance where
toJSON ManagedInstance'{..}
= object
(catMaybes
[("lastAttempt" .=) <$> _miLastAttempt,
("currentAction" .=) <$> _miCurrentAction,
("id" .=) <$> _miId,
("instanceStatus" .=) <$> _miInstanceStatus,
("instance" .=) <$> _miInstance])
newtype InstanceGroupManagerAggregatedListItems = InstanceGroupManagerAggregatedListItems'
{ _igmaliAddtional :: HashMap Text InstanceGroupManagersScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagerAggregatedListItems
:: HashMap Text InstanceGroupManagersScopedList
-> InstanceGroupManagerAggregatedListItems
instanceGroupManagerAggregatedListItems pIgmaliAddtional_ =
InstanceGroupManagerAggregatedListItems'
{ _igmaliAddtional = _Coerce # pIgmaliAddtional_
}
igmaliAddtional :: Lens' InstanceGroupManagerAggregatedListItems (HashMap Text InstanceGroupManagersScopedList)
igmaliAddtional
= lens _igmaliAddtional
(\ s a -> s{_igmaliAddtional = a})
. _Coerce
instance FromJSON
InstanceGroupManagerAggregatedListItems where
parseJSON
= withObject
"InstanceGroupManagerAggregatedListItems"
(\ o ->
InstanceGroupManagerAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON
InstanceGroupManagerAggregatedListItems where
toJSON = toJSON . _igmaliAddtional
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])
data Backend = Backend'
{ _bGroup :: !(Maybe Text)
, _bBalancingMode :: !(Maybe BackendBalancingMode)
, _bMaxUtilization :: !(Maybe (Textual Double))
, _bMaxRate :: !(Maybe (Textual Int32))
, _bMaxConnections :: !(Maybe (Textual Int32))
, _bMaxConnectionsPerInstance :: !(Maybe (Textual Int32))
, _bMaxRatePerInstance :: !(Maybe (Textual Double))
, _bDescription :: !(Maybe Text)
, _bCapacityScaler :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
backend
:: Backend
backend =
Backend'
{ _bGroup = Nothing
, _bBalancingMode = Nothing
, _bMaxUtilization = Nothing
, _bMaxRate = Nothing
, _bMaxConnections = Nothing
, _bMaxConnectionsPerInstance = Nothing
, _bMaxRatePerInstance = Nothing
, _bDescription = Nothing
, _bCapacityScaler = Nothing
}
bGroup :: Lens' Backend (Maybe Text)
bGroup = lens _bGroup (\ s a -> s{_bGroup = a})
bBalancingMode :: Lens' Backend (Maybe BackendBalancingMode)
bBalancingMode
= lens _bBalancingMode
(\ s a -> s{_bBalancingMode = a})
bMaxUtilization :: Lens' Backend (Maybe Double)
bMaxUtilization
= lens _bMaxUtilization
(\ s a -> s{_bMaxUtilization = a})
. mapping _Coerce
bMaxRate :: Lens' Backend (Maybe Int32)
bMaxRate
= lens _bMaxRate (\ s a -> s{_bMaxRate = a}) .
mapping _Coerce
bMaxConnections :: Lens' Backend (Maybe Int32)
bMaxConnections
= lens _bMaxConnections
(\ s a -> s{_bMaxConnections = a})
. mapping _Coerce
bMaxConnectionsPerInstance :: Lens' Backend (Maybe Int32)
bMaxConnectionsPerInstance
= lens _bMaxConnectionsPerInstance
(\ s a -> s{_bMaxConnectionsPerInstance = a})
. mapping _Coerce
bMaxRatePerInstance :: Lens' Backend (Maybe Double)
bMaxRatePerInstance
= lens _bMaxRatePerInstance
(\ s a -> s{_bMaxRatePerInstance = a})
. mapping _Coerce
bDescription :: Lens' Backend (Maybe Text)
bDescription
= lens _bDescription (\ s a -> s{_bDescription = a})
bCapacityScaler :: Lens' Backend (Maybe Double)
bCapacityScaler
= lens _bCapacityScaler
(\ s a -> s{_bCapacityScaler = a})
. mapping _Coerce
instance FromJSON Backend where
parseJSON
= withObject "Backend"
(\ o ->
Backend' <$>
(o .:? "group") <*> (o .:? "balancingMode") <*>
(o .:? "maxUtilization")
<*> (o .:? "maxRate")
<*> (o .:? "maxConnections")
<*> (o .:? "maxConnectionsPerInstance")
<*> (o .:? "maxRatePerInstance")
<*> (o .:? "description")
<*> (o .:? "capacityScaler"))
instance ToJSON Backend where
toJSON Backend'{..}
= object
(catMaybes
[("group" .=) <$> _bGroup,
("balancingMode" .=) <$> _bBalancingMode,
("maxUtilization" .=) <$> _bMaxUtilization,
("maxRate" .=) <$> _bMaxRate,
("maxConnections" .=) <$> _bMaxConnections,
("maxConnectionsPerInstance" .=) <$>
_bMaxConnectionsPerInstance,
("maxRatePerInstance" .=) <$> _bMaxRatePerInstance,
("description" .=) <$> _bDescription,
("capacityScaler" .=) <$> _bCapacityScaler])
data TargetVPNGatewaysScopedListWarning = TargetVPNGatewaysScopedListWarning'
{ _tvgslwData :: !(Maybe [TargetVPNGatewaysScopedListWarningDataItem])
, _tvgslwCode :: !(Maybe TargetVPNGatewaysScopedListWarningCode)
, _tvgslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetVPNGatewaysScopedListWarning
:: TargetVPNGatewaysScopedListWarning
targetVPNGatewaysScopedListWarning =
TargetVPNGatewaysScopedListWarning'
{ _tvgslwData = Nothing
, _tvgslwCode = Nothing
, _tvgslwMessage = Nothing
}
tvgslwData :: Lens' TargetVPNGatewaysScopedListWarning [TargetVPNGatewaysScopedListWarningDataItem]
tvgslwData
= lens _tvgslwData (\ s a -> s{_tvgslwData = a}) .
_Default
. _Coerce
tvgslwCode :: Lens' TargetVPNGatewaysScopedListWarning (Maybe TargetVPNGatewaysScopedListWarningCode)
tvgslwCode
= lens _tvgslwCode (\ s a -> s{_tvgslwCode = a})
tvgslwMessage :: Lens' TargetVPNGatewaysScopedListWarning (Maybe Text)
tvgslwMessage
= lens _tvgslwMessage
(\ s a -> s{_tvgslwMessage = a})
instance FromJSON TargetVPNGatewaysScopedListWarning
where
parseJSON
= withObject "TargetVPNGatewaysScopedListWarning"
(\ o ->
TargetVPNGatewaysScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON TargetVPNGatewaysScopedListWarning
where
toJSON TargetVPNGatewaysScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _tvgslwData,
("code" .=) <$> _tvgslwCode,
("message" .=) <$> _tvgslwMessage])
data AddressList = AddressList'
{ _alNextPageToken :: !(Maybe Text)
, _alKind :: !Text
, _alItems :: !(Maybe [Address])
, _alSelfLink :: !(Maybe Text)
, _alId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
addressList
:: AddressList
addressList =
AddressList'
{ _alNextPageToken = Nothing
, _alKind = "compute#addressList"
, _alItems = Nothing
, _alSelfLink = Nothing
, _alId = Nothing
}
alNextPageToken :: Lens' AddressList (Maybe Text)
alNextPageToken
= lens _alNextPageToken
(\ s a -> s{_alNextPageToken = a})
alKind :: Lens' AddressList Text
alKind = lens _alKind (\ s a -> s{_alKind = a})
alItems :: Lens' AddressList [Address]
alItems
= lens _alItems (\ s a -> s{_alItems = a}) . _Default
. _Coerce
alSelfLink :: Lens' AddressList (Maybe Text)
alSelfLink
= lens _alSelfLink (\ s a -> s{_alSelfLink = a})
alId :: Lens' AddressList (Maybe Text)
alId = lens _alId (\ s a -> s{_alId = a})
instance FromJSON AddressList where
parseJSON
= withObject "AddressList"
(\ o ->
AddressList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#addressList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON AddressList where
toJSON AddressList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _alNextPageToken,
Just ("kind" .= _alKind), ("items" .=) <$> _alItems,
("selfLink" .=) <$> _alSelfLink,
("id" .=) <$> _alId])
newtype ForwardingRuleAggregatedListItems = ForwardingRuleAggregatedListItems'
{ _fraliAddtional :: HashMap Text ForwardingRulesScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
forwardingRuleAggregatedListItems
:: HashMap Text ForwardingRulesScopedList
-> ForwardingRuleAggregatedListItems
forwardingRuleAggregatedListItems pFraliAddtional_ =
ForwardingRuleAggregatedListItems'
{ _fraliAddtional = _Coerce # pFraliAddtional_
}
fraliAddtional :: Lens' ForwardingRuleAggregatedListItems (HashMap Text ForwardingRulesScopedList)
fraliAddtional
= lens _fraliAddtional
(\ s a -> s{_fraliAddtional = a})
. _Coerce
instance FromJSON ForwardingRuleAggregatedListItems
where
parseJSON
= withObject "ForwardingRuleAggregatedListItems"
(\ o ->
ForwardingRuleAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON ForwardingRuleAggregatedListItems
where
toJSON = toJSON . _fraliAddtional
newtype OperationAggregatedListItems = OperationAggregatedListItems'
{ _oaliAddtional :: HashMap Text OperationsScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
operationAggregatedListItems
:: HashMap Text OperationsScopedList
-> OperationAggregatedListItems
operationAggregatedListItems pOaliAddtional_ =
OperationAggregatedListItems'
{ _oaliAddtional = _Coerce # pOaliAddtional_
}
oaliAddtional :: Lens' OperationAggregatedListItems (HashMap Text OperationsScopedList)
oaliAddtional
= lens _oaliAddtional
(\ s a -> s{_oaliAddtional = a})
. _Coerce
instance FromJSON OperationAggregatedListItems where
parseJSON
= withObject "OperationAggregatedListItems"
(\ o ->
OperationAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON OperationAggregatedListItems where
toJSON = toJSON . _oaliAddtional
data InstanceGroupManagerActionsSummary = InstanceGroupManagerActionsSummary'
{ _igmasDeleting :: !(Maybe (Textual Int32))
, _igmasRestarting :: !(Maybe (Textual Int32))
, _igmasNone :: !(Maybe (Textual Int32))
, _igmasCreating :: !(Maybe (Textual Int32))
, _igmasRefreshing :: !(Maybe (Textual Int32))
, _igmasCreatingWithoutRetries :: !(Maybe (Textual Int32))
, _igmasRecreating :: !(Maybe (Textual Int32))
, _igmasAbandoning :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagerActionsSummary
:: InstanceGroupManagerActionsSummary
instanceGroupManagerActionsSummary =
InstanceGroupManagerActionsSummary'
{ _igmasDeleting = Nothing
, _igmasRestarting = Nothing
, _igmasNone = Nothing
, _igmasCreating = Nothing
, _igmasRefreshing = Nothing
, _igmasCreatingWithoutRetries = Nothing
, _igmasRecreating = Nothing
, _igmasAbandoning = Nothing
}
igmasDeleting :: Lens' InstanceGroupManagerActionsSummary (Maybe Int32)
igmasDeleting
= lens _igmasDeleting
(\ s a -> s{_igmasDeleting = a})
. mapping _Coerce
igmasRestarting :: Lens' InstanceGroupManagerActionsSummary (Maybe Int32)
igmasRestarting
= lens _igmasRestarting
(\ s a -> s{_igmasRestarting = a})
. mapping _Coerce
igmasNone :: Lens' InstanceGroupManagerActionsSummary (Maybe Int32)
igmasNone
= lens _igmasNone (\ s a -> s{_igmasNone = a}) .
mapping _Coerce
igmasCreating :: Lens' InstanceGroupManagerActionsSummary (Maybe Int32)
igmasCreating
= lens _igmasCreating
(\ s a -> s{_igmasCreating = a})
. mapping _Coerce
igmasRefreshing :: Lens' InstanceGroupManagerActionsSummary (Maybe Int32)
igmasRefreshing
= lens _igmasRefreshing
(\ s a -> s{_igmasRefreshing = a})
. mapping _Coerce
igmasCreatingWithoutRetries :: Lens' InstanceGroupManagerActionsSummary (Maybe Int32)
igmasCreatingWithoutRetries
= lens _igmasCreatingWithoutRetries
(\ s a -> s{_igmasCreatingWithoutRetries = a})
. mapping _Coerce
igmasRecreating :: Lens' InstanceGroupManagerActionsSummary (Maybe Int32)
igmasRecreating
= lens _igmasRecreating
(\ s a -> s{_igmasRecreating = a})
. mapping _Coerce
igmasAbandoning :: Lens' InstanceGroupManagerActionsSummary (Maybe Int32)
igmasAbandoning
= lens _igmasAbandoning
(\ s a -> s{_igmasAbandoning = a})
. mapping _Coerce
instance FromJSON InstanceGroupManagerActionsSummary
where
parseJSON
= withObject "InstanceGroupManagerActionsSummary"
(\ o ->
InstanceGroupManagerActionsSummary' <$>
(o .:? "deleting") <*> (o .:? "restarting") <*>
(o .:? "none")
<*> (o .:? "creating")
<*> (o .:? "refreshing")
<*> (o .:? "creatingWithoutRetries")
<*> (o .:? "recreating")
<*> (o .:? "abandoning"))
instance ToJSON InstanceGroupManagerActionsSummary
where
toJSON InstanceGroupManagerActionsSummary'{..}
= object
(catMaybes
[("deleting" .=) <$> _igmasDeleting,
("restarting" .=) <$> _igmasRestarting,
("none" .=) <$> _igmasNone,
("creating" .=) <$> _igmasCreating,
("refreshing" .=) <$> _igmasRefreshing,
("creatingWithoutRetries" .=) <$>
_igmasCreatingWithoutRetries,
("recreating" .=) <$> _igmasRecreating,
("abandoning" .=) <$> _igmasAbandoning])
data ServiceAccount = ServiceAccount'
{ _saEmail :: !(Maybe Text)
, _saScopes :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
serviceAccount
:: ServiceAccount
serviceAccount =
ServiceAccount'
{ _saEmail = Nothing
, _saScopes = Nothing
}
saEmail :: Lens' ServiceAccount (Maybe Text)
saEmail = lens _saEmail (\ s a -> s{_saEmail = a})
saScopes :: Lens' ServiceAccount [Text]
saScopes
= lens _saScopes (\ s a -> s{_saScopes = a}) .
_Default
. _Coerce
instance FromJSON ServiceAccount where
parseJSON
= withObject "ServiceAccount"
(\ o ->
ServiceAccount' <$>
(o .:? "email") <*> (o .:? "scopes" .!= mempty))
instance ToJSON ServiceAccount where
toJSON ServiceAccount'{..}
= object
(catMaybes
[("email" .=) <$> _saEmail,
("scopes" .=) <$> _saScopes])
newtype RegionInstanceGroupManagersAbandonInstancesRequest = RegionInstanceGroupManagersAbandonInstancesRequest'
{ _rigmairInstances :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupManagersAbandonInstancesRequest
:: RegionInstanceGroupManagersAbandonInstancesRequest
regionInstanceGroupManagersAbandonInstancesRequest =
RegionInstanceGroupManagersAbandonInstancesRequest'
{ _rigmairInstances = Nothing
}
rigmairInstances :: Lens' RegionInstanceGroupManagersAbandonInstancesRequest [Text]
rigmairInstances
= lens _rigmairInstances
(\ s a -> s{_rigmairInstances = a})
. _Default
. _Coerce
instance FromJSON
RegionInstanceGroupManagersAbandonInstancesRequest
where
parseJSON
= withObject
"RegionInstanceGroupManagersAbandonInstancesRequest"
(\ o ->
RegionInstanceGroupManagersAbandonInstancesRequest'
<$> (o .:? "instances" .!= mempty))
instance ToJSON
RegionInstanceGroupManagersAbandonInstancesRequest
where
toJSON
RegionInstanceGroupManagersAbandonInstancesRequest'{..}
= object
(catMaybes [("instances" .=) <$> _rigmairInstances])
data NetworkList = NetworkList'
{ _nlNextPageToken :: !(Maybe Text)
, _nlKind :: !Text
, _nlItems :: !(Maybe [Network])
, _nlSelfLink :: !(Maybe Text)
, _nlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
networkList
:: NetworkList
networkList =
NetworkList'
{ _nlNextPageToken = Nothing
, _nlKind = "compute#networkList"
, _nlItems = Nothing
, _nlSelfLink = Nothing
, _nlId = Nothing
}
nlNextPageToken :: Lens' NetworkList (Maybe Text)
nlNextPageToken
= lens _nlNextPageToken
(\ s a -> s{_nlNextPageToken = a})
nlKind :: Lens' NetworkList Text
nlKind = lens _nlKind (\ s a -> s{_nlKind = a})
nlItems :: Lens' NetworkList [Network]
nlItems
= lens _nlItems (\ s a -> s{_nlItems = a}) . _Default
. _Coerce
nlSelfLink :: Lens' NetworkList (Maybe Text)
nlSelfLink
= lens _nlSelfLink (\ s a -> s{_nlSelfLink = a})
nlId :: Lens' NetworkList (Maybe Text)
nlId = lens _nlId (\ s a -> s{_nlId = a})
instance FromJSON NetworkList where
parseJSON
= withObject "NetworkList"
(\ o ->
NetworkList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#networkList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON NetworkList where
toJSON NetworkList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _nlNextPageToken,
Just ("kind" .= _nlKind), ("items" .=) <$> _nlItems,
("selfLink" .=) <$> _nlSelfLink,
("id" .=) <$> _nlId])
newtype InstanceGroupsListInstancesRequest = InstanceGroupsListInstancesRequest'
{ _iglirInstanceState :: Maybe InstanceGroupsListInstancesRequestInstanceState
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupsListInstancesRequest
:: InstanceGroupsListInstancesRequest
instanceGroupsListInstancesRequest =
InstanceGroupsListInstancesRequest'
{ _iglirInstanceState = Nothing
}
iglirInstanceState :: Lens' InstanceGroupsListInstancesRequest (Maybe InstanceGroupsListInstancesRequestInstanceState)
iglirInstanceState
= lens _iglirInstanceState
(\ s a -> s{_iglirInstanceState = a})
instance FromJSON InstanceGroupsListInstancesRequest
where
parseJSON
= withObject "InstanceGroupsListInstancesRequest"
(\ o ->
InstanceGroupsListInstancesRequest' <$>
(o .:? "instanceState"))
instance ToJSON InstanceGroupsListInstancesRequest
where
toJSON InstanceGroupsListInstancesRequest'{..}
= object
(catMaybes
[("instanceState" .=) <$> _iglirInstanceState])
data RegionInstanceGroupList = RegionInstanceGroupList'
{ _riglNextPageToken :: !(Maybe Text)
, _riglKind :: !Text
, _riglItems :: !(Maybe [InstanceGroup])
, _riglSelfLink :: !(Maybe Text)
, _riglId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupList
:: RegionInstanceGroupList
regionInstanceGroupList =
RegionInstanceGroupList'
{ _riglNextPageToken = Nothing
, _riglKind = "compute#regionInstanceGroupList"
, _riglItems = Nothing
, _riglSelfLink = Nothing
, _riglId = Nothing
}
riglNextPageToken :: Lens' RegionInstanceGroupList (Maybe Text)
riglNextPageToken
= lens _riglNextPageToken
(\ s a -> s{_riglNextPageToken = a})
riglKind :: Lens' RegionInstanceGroupList Text
riglKind = lens _riglKind (\ s a -> s{_riglKind = a})
riglItems :: Lens' RegionInstanceGroupList [InstanceGroup]
riglItems
= lens _riglItems (\ s a -> s{_riglItems = a}) .
_Default
. _Coerce
riglSelfLink :: Lens' RegionInstanceGroupList (Maybe Text)
riglSelfLink
= lens _riglSelfLink (\ s a -> s{_riglSelfLink = a})
riglId :: Lens' RegionInstanceGroupList (Maybe Text)
riglId = lens _riglId (\ s a -> s{_riglId = a})
instance FromJSON RegionInstanceGroupList where
parseJSON
= withObject "RegionInstanceGroupList"
(\ o ->
RegionInstanceGroupList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#regionInstanceGroupList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON RegionInstanceGroupList where
toJSON RegionInstanceGroupList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _riglNextPageToken,
Just ("kind" .= _riglKind),
("items" .=) <$> _riglItems,
("selfLink" .=) <$> _riglSelfLink,
("id" .=) <$> _riglId])
newtype TargetPoolAggregatedListItems = TargetPoolAggregatedListItems'
{ _tpaliAddtional :: HashMap Text TargetPoolsScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolAggregatedListItems
:: HashMap Text TargetPoolsScopedList
-> TargetPoolAggregatedListItems
targetPoolAggregatedListItems pTpaliAddtional_ =
TargetPoolAggregatedListItems'
{ _tpaliAddtional = _Coerce # pTpaliAddtional_
}
tpaliAddtional :: Lens' TargetPoolAggregatedListItems (HashMap Text TargetPoolsScopedList)
tpaliAddtional
= lens _tpaliAddtional
(\ s a -> s{_tpaliAddtional = a})
. _Coerce
instance FromJSON TargetPoolAggregatedListItems where
parseJSON
= withObject "TargetPoolAggregatedListItems"
(\ o ->
TargetPoolAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON TargetPoolAggregatedListItems where
toJSON = toJSON . _tpaliAddtional
data TargetInstancesScopedList = TargetInstancesScopedList'
{ _tislWarning :: !(Maybe TargetInstancesScopedListWarning)
, _tislTargetInstances :: !(Maybe [TargetInstance])
} deriving (Eq,Show,Data,Typeable,Generic)
targetInstancesScopedList
:: TargetInstancesScopedList
targetInstancesScopedList =
TargetInstancesScopedList'
{ _tislWarning = Nothing
, _tislTargetInstances = Nothing
}
tislWarning :: Lens' TargetInstancesScopedList (Maybe TargetInstancesScopedListWarning)
tislWarning
= lens _tislWarning (\ s a -> s{_tislWarning = a})
tislTargetInstances :: Lens' TargetInstancesScopedList [TargetInstance]
tislTargetInstances
= lens _tislTargetInstances
(\ s a -> s{_tislTargetInstances = a})
. _Default
. _Coerce
instance FromJSON TargetInstancesScopedList where
parseJSON
= withObject "TargetInstancesScopedList"
(\ o ->
TargetInstancesScopedList' <$>
(o .:? "warning") <*>
(o .:? "targetInstances" .!= mempty))
instance ToJSON TargetInstancesScopedList where
toJSON TargetInstancesScopedList'{..}
= object
(catMaybes
[("warning" .=) <$> _tislWarning,
("targetInstances" .=) <$> _tislTargetInstances])
newtype AddressAggregatedListItems = AddressAggregatedListItems'
{ _aAddtional :: HashMap Text AddressesScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
addressAggregatedListItems
:: HashMap Text AddressesScopedList
-> AddressAggregatedListItems
addressAggregatedListItems pAAddtional_ =
AddressAggregatedListItems'
{ _aAddtional = _Coerce # pAAddtional_
}
aAddtional :: Lens' AddressAggregatedListItems (HashMap Text AddressesScopedList)
aAddtional
= lens _aAddtional (\ s a -> s{_aAddtional = a}) .
_Coerce
instance FromJSON AddressAggregatedListItems where
parseJSON
= withObject "AddressAggregatedListItems"
(\ o ->
AddressAggregatedListItems' <$> (parseJSONObject o))
instance ToJSON AddressAggregatedListItems where
toJSON = toJSON . _aAddtional
data AutoscalerList = AutoscalerList'
{ _autNextPageToken :: !(Maybe Text)
, _autKind :: !Text
, _autItems :: !(Maybe [Autoscaler])
, _autSelfLink :: !(Maybe Text)
, _autId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
autoscalerList
:: AutoscalerList
autoscalerList =
AutoscalerList'
{ _autNextPageToken = Nothing
, _autKind = "compute#autoscalerList"
, _autItems = Nothing
, _autSelfLink = Nothing
, _autId = Nothing
}
autNextPageToken :: Lens' AutoscalerList (Maybe Text)
autNextPageToken
= lens _autNextPageToken
(\ s a -> s{_autNextPageToken = a})
autKind :: Lens' AutoscalerList Text
autKind = lens _autKind (\ s a -> s{_autKind = a})
autItems :: Lens' AutoscalerList [Autoscaler]
autItems
= lens _autItems (\ s a -> s{_autItems = a}) .
_Default
. _Coerce
autSelfLink :: Lens' AutoscalerList (Maybe Text)
autSelfLink
= lens _autSelfLink (\ s a -> s{_autSelfLink = a})
autId :: Lens' AutoscalerList (Maybe Text)
autId = lens _autId (\ s a -> s{_autId = a})
instance FromJSON AutoscalerList where
parseJSON
= withObject "AutoscalerList"
(\ o ->
AutoscalerList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#autoscalerList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON AutoscalerList where
toJSON AutoscalerList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _autNextPageToken,
Just ("kind" .= _autKind),
("items" .=) <$> _autItems,
("selfLink" .=) <$> _autSelfLink,
("id" .=) <$> _autId])
newtype TargetSSLProxiesSetProxyHeaderRequest = TargetSSLProxiesSetProxyHeaderRequest'
{ _tspsphrProxyHeader :: Maybe TargetSSLProxiesSetProxyHeaderRequestProxyHeader
} deriving (Eq,Show,Data,Typeable,Generic)
targetSSLProxiesSetProxyHeaderRequest
:: TargetSSLProxiesSetProxyHeaderRequest
targetSSLProxiesSetProxyHeaderRequest =
TargetSSLProxiesSetProxyHeaderRequest'
{ _tspsphrProxyHeader = Nothing
}
tspsphrProxyHeader :: Lens' TargetSSLProxiesSetProxyHeaderRequest (Maybe TargetSSLProxiesSetProxyHeaderRequestProxyHeader)
tspsphrProxyHeader
= lens _tspsphrProxyHeader
(\ s a -> s{_tspsphrProxyHeader = a})
instance FromJSON
TargetSSLProxiesSetProxyHeaderRequest where
parseJSON
= withObject "TargetSSLProxiesSetProxyHeaderRequest"
(\ o ->
TargetSSLProxiesSetProxyHeaderRequest' <$>
(o .:? "proxyHeader"))
instance ToJSON TargetSSLProxiesSetProxyHeaderRequest
where
toJSON TargetSSLProxiesSetProxyHeaderRequest'{..}
= object
(catMaybes
[("proxyHeader" .=) <$> _tspsphrProxyHeader])
data VPNTunnelAggregatedList = VPNTunnelAggregatedList'
{ _vtalNextPageToken :: !(Maybe Text)
, _vtalKind :: !Text
, _vtalItems :: !(Maybe VPNTunnelAggregatedListItems)
, _vtalSelfLink :: !(Maybe Text)
, _vtalId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
vpnTunnelAggregatedList
:: VPNTunnelAggregatedList
vpnTunnelAggregatedList =
VPNTunnelAggregatedList'
{ _vtalNextPageToken = Nothing
, _vtalKind = "compute#vpnTunnelAggregatedList"
, _vtalItems = Nothing
, _vtalSelfLink = Nothing
, _vtalId = Nothing
}
vtalNextPageToken :: Lens' VPNTunnelAggregatedList (Maybe Text)
vtalNextPageToken
= lens _vtalNextPageToken
(\ s a -> s{_vtalNextPageToken = a})
vtalKind :: Lens' VPNTunnelAggregatedList Text
vtalKind = lens _vtalKind (\ s a -> s{_vtalKind = a})
vtalItems :: Lens' VPNTunnelAggregatedList (Maybe VPNTunnelAggregatedListItems)
vtalItems
= lens _vtalItems (\ s a -> s{_vtalItems = a})
vtalSelfLink :: Lens' VPNTunnelAggregatedList (Maybe Text)
vtalSelfLink
= lens _vtalSelfLink (\ s a -> s{_vtalSelfLink = a})
vtalId :: Lens' VPNTunnelAggregatedList (Maybe Text)
vtalId = lens _vtalId (\ s a -> s{_vtalId = a})
instance FromJSON VPNTunnelAggregatedList where
parseJSON
= withObject "VPNTunnelAggregatedList"
(\ o ->
VPNTunnelAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#vpnTunnelAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON VPNTunnelAggregatedList where
toJSON VPNTunnelAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _vtalNextPageToken,
Just ("kind" .= _vtalKind),
("items" .=) <$> _vtalItems,
("selfLink" .=) <$> _vtalSelfLink,
("id" .=) <$> _vtalId])
data AttachedDisk = AttachedDisk'
{ _adDiskEncryptionKey :: !(Maybe CustomerEncryptionKey)
, _adKind :: !Text
, _adMode :: !(Maybe AttachedDiskMode)
, _adBoot :: !(Maybe Bool)
, _adAutoDelete :: !(Maybe Bool)
, _adInitializeParams :: !(Maybe AttachedDiskInitializeParams)
, _adDeviceName :: !(Maybe Text)
, _adInterface :: !(Maybe AttachedDiskInterface)
, _adSource :: !(Maybe Text)
, _adLicenses :: !(Maybe [Text])
, _adType :: !(Maybe AttachedDiskType)
, _adIndex :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
attachedDisk
:: AttachedDisk
attachedDisk =
AttachedDisk'
{ _adDiskEncryptionKey = Nothing
, _adKind = "compute#attachedDisk"
, _adMode = Nothing
, _adBoot = Nothing
, _adAutoDelete = Nothing
, _adInitializeParams = Nothing
, _adDeviceName = Nothing
, _adInterface = Nothing
, _adSource = Nothing
, _adLicenses = Nothing
, _adType = Nothing
, _adIndex = Nothing
}
adDiskEncryptionKey :: Lens' AttachedDisk (Maybe CustomerEncryptionKey)
adDiskEncryptionKey
= lens _adDiskEncryptionKey
(\ s a -> s{_adDiskEncryptionKey = a})
adKind :: Lens' AttachedDisk Text
adKind = lens _adKind (\ s a -> s{_adKind = a})
adMode :: Lens' AttachedDisk (Maybe AttachedDiskMode)
adMode = lens _adMode (\ s a -> s{_adMode = a})
adBoot :: Lens' AttachedDisk (Maybe Bool)
adBoot = lens _adBoot (\ s a -> s{_adBoot = a})
adAutoDelete :: Lens' AttachedDisk (Maybe Bool)
adAutoDelete
= lens _adAutoDelete (\ s a -> s{_adAutoDelete = a})
adInitializeParams :: Lens' AttachedDisk (Maybe AttachedDiskInitializeParams)
adInitializeParams
= lens _adInitializeParams
(\ s a -> s{_adInitializeParams = a})
adDeviceName :: Lens' AttachedDisk (Maybe Text)
adDeviceName
= lens _adDeviceName (\ s a -> s{_adDeviceName = a})
adInterface :: Lens' AttachedDisk (Maybe AttachedDiskInterface)
adInterface
= lens _adInterface (\ s a -> s{_adInterface = a})
adSource :: Lens' AttachedDisk (Maybe Text)
adSource = lens _adSource (\ s a -> s{_adSource = a})
adLicenses :: Lens' AttachedDisk [Text]
adLicenses
= lens _adLicenses (\ s a -> s{_adLicenses = a}) .
_Default
. _Coerce
adType :: Lens' AttachedDisk (Maybe AttachedDiskType)
adType = lens _adType (\ s a -> s{_adType = a})
adIndex :: Lens' AttachedDisk (Maybe Int32)
adIndex
= lens _adIndex (\ s a -> s{_adIndex = a}) .
mapping _Coerce
instance FromJSON AttachedDisk where
parseJSON
= withObject "AttachedDisk"
(\ o ->
AttachedDisk' <$>
(o .:? "diskEncryptionKey") <*>
(o .:? "kind" .!= "compute#attachedDisk")
<*> (o .:? "mode")
<*> (o .:? "boot")
<*> (o .:? "autoDelete")
<*> (o .:? "initializeParams")
<*> (o .:? "deviceName")
<*> (o .:? "interface")
<*> (o .:? "source")
<*> (o .:? "licenses" .!= mempty)
<*> (o .:? "type")
<*> (o .:? "index"))
instance ToJSON AttachedDisk where
toJSON AttachedDisk'{..}
= object
(catMaybes
[("diskEncryptionKey" .=) <$> _adDiskEncryptionKey,
Just ("kind" .= _adKind), ("mode" .=) <$> _adMode,
("boot" .=) <$> _adBoot,
("autoDelete" .=) <$> _adAutoDelete,
("initializeParams" .=) <$> _adInitializeParams,
("deviceName" .=) <$> _adDeviceName,
("interface" .=) <$> _adInterface,
("source" .=) <$> _adSource,
("licenses" .=) <$> _adLicenses,
("type" .=) <$> _adType, ("index" .=) <$> _adIndex])
data DiskTypeList = DiskTypeList'
{ _dtlNextPageToken :: !(Maybe Text)
, _dtlKind :: !Text
, _dtlItems :: !(Maybe [DiskType])
, _dtlSelfLink :: !(Maybe Text)
, _dtlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
diskTypeList
:: DiskTypeList
diskTypeList =
DiskTypeList'
{ _dtlNextPageToken = Nothing
, _dtlKind = "compute#diskTypeList"
, _dtlItems = Nothing
, _dtlSelfLink = Nothing
, _dtlId = Nothing
}
dtlNextPageToken :: Lens' DiskTypeList (Maybe Text)
dtlNextPageToken
= lens _dtlNextPageToken
(\ s a -> s{_dtlNextPageToken = a})
dtlKind :: Lens' DiskTypeList Text
dtlKind = lens _dtlKind (\ s a -> s{_dtlKind = a})
dtlItems :: Lens' DiskTypeList [DiskType]
dtlItems
= lens _dtlItems (\ s a -> s{_dtlItems = a}) .
_Default
. _Coerce
dtlSelfLink :: Lens' DiskTypeList (Maybe Text)
dtlSelfLink
= lens _dtlSelfLink (\ s a -> s{_dtlSelfLink = a})
dtlId :: Lens' DiskTypeList (Maybe Text)
dtlId = lens _dtlId (\ s a -> s{_dtlId = a})
instance FromJSON DiskTypeList where
parseJSON
= withObject "DiskTypeList"
(\ o ->
DiskTypeList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#diskTypeList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON DiskTypeList where
toJSON DiskTypeList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _dtlNextPageToken,
Just ("kind" .= _dtlKind),
("items" .=) <$> _dtlItems,
("selfLink" .=) <$> _dtlSelfLink,
("id" .=) <$> _dtlId])
data RegionInstanceGroupsSetNamedPortsRequest = RegionInstanceGroupsSetNamedPortsRequest'
{ _rigsnprFingerprint :: !(Maybe Bytes)
, _rigsnprNamedPorts :: !(Maybe [NamedPort])
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupsSetNamedPortsRequest
:: RegionInstanceGroupsSetNamedPortsRequest
regionInstanceGroupsSetNamedPortsRequest =
RegionInstanceGroupsSetNamedPortsRequest'
{ _rigsnprFingerprint = Nothing
, _rigsnprNamedPorts = Nothing
}
rigsnprFingerprint :: Lens' RegionInstanceGroupsSetNamedPortsRequest (Maybe ByteString)
rigsnprFingerprint
= lens _rigsnprFingerprint
(\ s a -> s{_rigsnprFingerprint = a})
. mapping _Bytes
rigsnprNamedPorts :: Lens' RegionInstanceGroupsSetNamedPortsRequest [NamedPort]
rigsnprNamedPorts
= lens _rigsnprNamedPorts
(\ s a -> s{_rigsnprNamedPorts = a})
. _Default
. _Coerce
instance FromJSON
RegionInstanceGroupsSetNamedPortsRequest where
parseJSON
= withObject
"RegionInstanceGroupsSetNamedPortsRequest"
(\ o ->
RegionInstanceGroupsSetNamedPortsRequest' <$>
(o .:? "fingerprint") <*>
(o .:? "namedPorts" .!= mempty))
instance ToJSON
RegionInstanceGroupsSetNamedPortsRequest where
toJSON RegionInstanceGroupsSetNamedPortsRequest'{..}
= object
(catMaybes
[("fingerprint" .=) <$> _rigsnprFingerprint,
("namedPorts" .=) <$> _rigsnprNamedPorts])
data MachineTypeList = MachineTypeList'
{ _mtlNextPageToken :: !(Maybe Text)
, _mtlKind :: !Text
, _mtlItems :: !(Maybe [MachineType])
, _mtlSelfLink :: !(Maybe Text)
, _mtlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
machineTypeList
:: MachineTypeList
machineTypeList =
MachineTypeList'
{ _mtlNextPageToken = Nothing
, _mtlKind = "compute#machineTypeList"
, _mtlItems = Nothing
, _mtlSelfLink = Nothing
, _mtlId = Nothing
}
mtlNextPageToken :: Lens' MachineTypeList (Maybe Text)
mtlNextPageToken
= lens _mtlNextPageToken
(\ s a -> s{_mtlNextPageToken = a})
mtlKind :: Lens' MachineTypeList Text
mtlKind = lens _mtlKind (\ s a -> s{_mtlKind = a})
mtlItems :: Lens' MachineTypeList [MachineType]
mtlItems
= lens _mtlItems (\ s a -> s{_mtlItems = a}) .
_Default
. _Coerce
mtlSelfLink :: Lens' MachineTypeList (Maybe Text)
mtlSelfLink
= lens _mtlSelfLink (\ s a -> s{_mtlSelfLink = a})
mtlId :: Lens' MachineTypeList (Maybe Text)
mtlId = lens _mtlId (\ s a -> s{_mtlId = a})
instance FromJSON MachineTypeList where
parseJSON
= withObject "MachineTypeList"
(\ o ->
MachineTypeList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#machineTypeList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON MachineTypeList where
toJSON MachineTypeList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _mtlNextPageToken,
Just ("kind" .= _mtlKind),
("items" .=) <$> _mtlItems,
("selfLink" .=) <$> _mtlSelfLink,
("id" .=) <$> _mtlId])
data TargetHTTPProxyList = TargetHTTPProxyList'
{ _thttpplNextPageToken :: !(Maybe Text)
, _thttpplKind :: !Text
, _thttpplItems :: !(Maybe [TargetHTTPProxy])
, _thttpplSelfLink :: !(Maybe Text)
, _thttpplId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetHTTPProxyList
:: TargetHTTPProxyList
targetHTTPProxyList =
TargetHTTPProxyList'
{ _thttpplNextPageToken = Nothing
, _thttpplKind = "compute#targetHttpProxyList"
, _thttpplItems = Nothing
, _thttpplSelfLink = Nothing
, _thttpplId = Nothing
}
thttpplNextPageToken :: Lens' TargetHTTPProxyList (Maybe Text)
thttpplNextPageToken
= lens _thttpplNextPageToken
(\ s a -> s{_thttpplNextPageToken = a})
thttpplKind :: Lens' TargetHTTPProxyList Text
thttpplKind
= lens _thttpplKind (\ s a -> s{_thttpplKind = a})
thttpplItems :: Lens' TargetHTTPProxyList [TargetHTTPProxy]
thttpplItems
= lens _thttpplItems (\ s a -> s{_thttpplItems = a})
. _Default
. _Coerce
thttpplSelfLink :: Lens' TargetHTTPProxyList (Maybe Text)
thttpplSelfLink
= lens _thttpplSelfLink
(\ s a -> s{_thttpplSelfLink = a})
thttpplId :: Lens' TargetHTTPProxyList (Maybe Text)
thttpplId
= lens _thttpplId (\ s a -> s{_thttpplId = a})
instance FromJSON TargetHTTPProxyList where
parseJSON
= withObject "TargetHTTPProxyList"
(\ o ->
TargetHTTPProxyList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#targetHttpProxyList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON TargetHTTPProxyList where
toJSON TargetHTTPProxyList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _thttpplNextPageToken,
Just ("kind" .= _thttpplKind),
("items" .=) <$> _thttpplItems,
("selfLink" .=) <$> _thttpplSelfLink,
("id" .=) <$> _thttpplId])
data RegionInstanceGroupManagerList = RegionInstanceGroupManagerList'
{ _rigmlNextPageToken :: !(Maybe Text)
, _rigmlKind :: !Text
, _rigmlItems :: !(Maybe [InstanceGroupManager])
, _rigmlSelfLink :: !(Maybe Text)
, _rigmlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupManagerList
:: RegionInstanceGroupManagerList
regionInstanceGroupManagerList =
RegionInstanceGroupManagerList'
{ _rigmlNextPageToken = Nothing
, _rigmlKind = "compute#regionInstanceGroupManagerList"
, _rigmlItems = Nothing
, _rigmlSelfLink = Nothing
, _rigmlId = Nothing
}
rigmlNextPageToken :: Lens' RegionInstanceGroupManagerList (Maybe Text)
rigmlNextPageToken
= lens _rigmlNextPageToken
(\ s a -> s{_rigmlNextPageToken = a})
rigmlKind :: Lens' RegionInstanceGroupManagerList Text
rigmlKind
= lens _rigmlKind (\ s a -> s{_rigmlKind = a})
rigmlItems :: Lens' RegionInstanceGroupManagerList [InstanceGroupManager]
rigmlItems
= lens _rigmlItems (\ s a -> s{_rigmlItems = a}) .
_Default
. _Coerce
rigmlSelfLink :: Lens' RegionInstanceGroupManagerList (Maybe Text)
rigmlSelfLink
= lens _rigmlSelfLink
(\ s a -> s{_rigmlSelfLink = a})
rigmlId :: Lens' RegionInstanceGroupManagerList (Maybe Text)
rigmlId = lens _rigmlId (\ s a -> s{_rigmlId = a})
instance FromJSON RegionInstanceGroupManagerList
where
parseJSON
= withObject "RegionInstanceGroupManagerList"
(\ o ->
RegionInstanceGroupManagerList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"compute#regionInstanceGroupManagerList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON RegionInstanceGroupManagerList where
toJSON RegionInstanceGroupManagerList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _rigmlNextPageToken,
Just ("kind" .= _rigmlKind),
("items" .=) <$> _rigmlItems,
("selfLink" .=) <$> _rigmlSelfLink,
("id" .=) <$> _rigmlId])
data DiskTypesScopedList = DiskTypesScopedList'
{ _dtslDiskTypes :: !(Maybe [DiskType])
, _dtslWarning :: !(Maybe DiskTypesScopedListWarning)
} deriving (Eq,Show,Data,Typeable,Generic)
diskTypesScopedList
:: DiskTypesScopedList
diskTypesScopedList =
DiskTypesScopedList'
{ _dtslDiskTypes = Nothing
, _dtslWarning = Nothing
}
dtslDiskTypes :: Lens' DiskTypesScopedList [DiskType]
dtslDiskTypes
= lens _dtslDiskTypes
(\ s a -> s{_dtslDiskTypes = a})
. _Default
. _Coerce
dtslWarning :: Lens' DiskTypesScopedList (Maybe DiskTypesScopedListWarning)
dtslWarning
= lens _dtslWarning (\ s a -> s{_dtslWarning = a})
instance FromJSON DiskTypesScopedList where
parseJSON
= withObject "DiskTypesScopedList"
(\ o ->
DiskTypesScopedList' <$>
(o .:? "diskTypes" .!= mempty) <*> (o .:? "warning"))
instance ToJSON DiskTypesScopedList where
toJSON DiskTypesScopedList'{..}
= object
(catMaybes
[("diskTypes" .=) <$> _dtslDiskTypes,
("warning" .=) <$> _dtslWarning])
data DiskTypeAggregatedList = DiskTypeAggregatedList'
{ _dtalNextPageToken :: !(Maybe Text)
, _dtalKind :: !Text
, _dtalItems :: !(Maybe DiskTypeAggregatedListItems)
, _dtalSelfLink :: !(Maybe Text)
, _dtalId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
diskTypeAggregatedList
:: DiskTypeAggregatedList
diskTypeAggregatedList =
DiskTypeAggregatedList'
{ _dtalNextPageToken = Nothing
, _dtalKind = "compute#diskTypeAggregatedList"
, _dtalItems = Nothing
, _dtalSelfLink = Nothing
, _dtalId = Nothing
}
dtalNextPageToken :: Lens' DiskTypeAggregatedList (Maybe Text)
dtalNextPageToken
= lens _dtalNextPageToken
(\ s a -> s{_dtalNextPageToken = a})
dtalKind :: Lens' DiskTypeAggregatedList Text
dtalKind = lens _dtalKind (\ s a -> s{_dtalKind = a})
dtalItems :: Lens' DiskTypeAggregatedList (Maybe DiskTypeAggregatedListItems)
dtalItems
= lens _dtalItems (\ s a -> s{_dtalItems = a})
dtalSelfLink :: Lens' DiskTypeAggregatedList (Maybe Text)
dtalSelfLink
= lens _dtalSelfLink (\ s a -> s{_dtalSelfLink = a})
dtalId :: Lens' DiskTypeAggregatedList (Maybe Text)
dtalId = lens _dtalId (\ s a -> s{_dtalId = a})
instance FromJSON DiskTypeAggregatedList where
parseJSON
= withObject "DiskTypeAggregatedList"
(\ o ->
DiskTypeAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#diskTypeAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON DiskTypeAggregatedList where
toJSON DiskTypeAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _dtalNextPageToken,
Just ("kind" .= _dtalKind),
("items" .=) <$> _dtalItems,
("selfLink" .=) <$> _dtalSelfLink,
("id" .=) <$> _dtalId])
data HTTPHealthCheck = HTTPHealthCheck'
{ _httphcRequestPath :: !(Maybe Text)
, _httphcHost :: !(Maybe Text)
, _httphcProxyHeader :: !(Maybe HTTPHealthCheckProxyHeader)
, _httphcPortName :: !(Maybe Text)
, _httphcPort :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
hTTPHealthCheck
:: HTTPHealthCheck
hTTPHealthCheck =
HTTPHealthCheck'
{ _httphcRequestPath = Nothing
, _httphcHost = Nothing
, _httphcProxyHeader = Nothing
, _httphcPortName = Nothing
, _httphcPort = Nothing
}
httphcRequestPath :: Lens' HTTPHealthCheck (Maybe Text)
httphcRequestPath
= lens _httphcRequestPath
(\ s a -> s{_httphcRequestPath = a})
httphcHost :: Lens' HTTPHealthCheck (Maybe Text)
httphcHost
= lens _httphcHost (\ s a -> s{_httphcHost = a})
httphcProxyHeader :: Lens' HTTPHealthCheck (Maybe HTTPHealthCheckProxyHeader)
httphcProxyHeader
= lens _httphcProxyHeader
(\ s a -> s{_httphcProxyHeader = a})
httphcPortName :: Lens' HTTPHealthCheck (Maybe Text)
httphcPortName
= lens _httphcPortName
(\ s a -> s{_httphcPortName = a})
httphcPort :: Lens' HTTPHealthCheck (Maybe Int32)
httphcPort
= lens _httphcPort (\ s a -> s{_httphcPort = a}) .
mapping _Coerce
instance FromJSON HTTPHealthCheck where
parseJSON
= withObject "HTTPHealthCheck"
(\ o ->
HTTPHealthCheck' <$>
(o .:? "requestPath") <*> (o .:? "host") <*>
(o .:? "proxyHeader")
<*> (o .:? "portName")
<*> (o .:? "port"))
instance ToJSON HTTPHealthCheck where
toJSON HTTPHealthCheck'{..}
= object
(catMaybes
[("requestPath" .=) <$> _httphcRequestPath,
("host" .=) <$> _httphcHost,
("proxyHeader" .=) <$> _httphcProxyHeader,
("portName" .=) <$> _httphcPortName,
("port" .=) <$> _httphcPort])
data BackendServiceGroupHealth = BackendServiceGroupHealth'
{ _bsghKind :: !Text
, _bsghHealthStatus :: !(Maybe [HealthStatus])
} deriving (Eq,Show,Data,Typeable,Generic)
backendServiceGroupHealth
:: BackendServiceGroupHealth
backendServiceGroupHealth =
BackendServiceGroupHealth'
{ _bsghKind = "compute#backendServiceGroupHealth"
, _bsghHealthStatus = Nothing
}
bsghKind :: Lens' BackendServiceGroupHealth Text
bsghKind = lens _bsghKind (\ s a -> s{_bsghKind = a})
bsghHealthStatus :: Lens' BackendServiceGroupHealth [HealthStatus]
bsghHealthStatus
= lens _bsghHealthStatus
(\ s a -> s{_bsghHealthStatus = a})
. _Default
. _Coerce
instance FromJSON BackendServiceGroupHealth where
parseJSON
= withObject "BackendServiceGroupHealth"
(\ o ->
BackendServiceGroupHealth' <$>
(o .:? "kind" .!=
"compute#backendServiceGroupHealth")
<*> (o .:? "healthStatus" .!= mempty))
instance ToJSON BackendServiceGroupHealth where
toJSON BackendServiceGroupHealth'{..}
= object
(catMaybes
[Just ("kind" .= _bsghKind),
("healthStatus" .=) <$> _bsghHealthStatus])
data AutoscalersScopedList = AutoscalersScopedList'
{ _aAutoscalers :: !(Maybe [Autoscaler])
, _aWarning :: !(Maybe AutoscalersScopedListWarning)
} deriving (Eq,Show,Data,Typeable,Generic)
autoscalersScopedList
:: AutoscalersScopedList
autoscalersScopedList =
AutoscalersScopedList'
{ _aAutoscalers = Nothing
, _aWarning = Nothing
}
aAutoscalers :: Lens' AutoscalersScopedList [Autoscaler]
aAutoscalers
= lens _aAutoscalers (\ s a -> s{_aAutoscalers = a})
. _Default
. _Coerce
aWarning :: Lens' AutoscalersScopedList (Maybe AutoscalersScopedListWarning)
aWarning = lens _aWarning (\ s a -> s{_aWarning = a})
instance FromJSON AutoscalersScopedList where
parseJSON
= withObject "AutoscalersScopedList"
(\ o ->
AutoscalersScopedList' <$>
(o .:? "autoscalers" .!= mempty) <*>
(o .:? "warning"))
instance ToJSON AutoscalersScopedList where
toJSON AutoscalersScopedList'{..}
= object
(catMaybes
[("autoscalers" .=) <$> _aAutoscalers,
("warning" .=) <$> _aWarning])
data AutoscalerAggregatedList = AutoscalerAggregatedList'
{ _aalNextPageToken :: !(Maybe Text)
, _aalKind :: !Text
, _aalItems :: !(Maybe AutoscalerAggregatedListItems)
, _aalSelfLink :: !(Maybe Text)
, _aalId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
autoscalerAggregatedList
:: AutoscalerAggregatedList
autoscalerAggregatedList =
AutoscalerAggregatedList'
{ _aalNextPageToken = Nothing
, _aalKind = "compute#autoscalerAggregatedList"
, _aalItems = Nothing
, _aalSelfLink = Nothing
, _aalId = Nothing
}
aalNextPageToken :: Lens' AutoscalerAggregatedList (Maybe Text)
aalNextPageToken
= lens _aalNextPageToken
(\ s a -> s{_aalNextPageToken = a})
aalKind :: Lens' AutoscalerAggregatedList Text
aalKind = lens _aalKind (\ s a -> s{_aalKind = a})
aalItems :: Lens' AutoscalerAggregatedList (Maybe AutoscalerAggregatedListItems)
aalItems = lens _aalItems (\ s a -> s{_aalItems = a})
aalSelfLink :: Lens' AutoscalerAggregatedList (Maybe Text)
aalSelfLink
= lens _aalSelfLink (\ s a -> s{_aalSelfLink = a})
aalId :: Lens' AutoscalerAggregatedList (Maybe Text)
aalId = lens _aalId (\ s a -> s{_aalId = a})
instance FromJSON AutoscalerAggregatedList where
parseJSON
= withObject "AutoscalerAggregatedList"
(\ o ->
AutoscalerAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#autoscalerAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON AutoscalerAggregatedList where
toJSON AutoscalerAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _aalNextPageToken,
Just ("kind" .= _aalKind),
("items" .=) <$> _aalItems,
("selfLink" .=) <$> _aalSelfLink,
("id" .=) <$> _aalId])
newtype RouterAggregatedListItems = RouterAggregatedListItems'
{ _raliAddtional :: HashMap Text RoutersScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
routerAggregatedListItems
:: HashMap Text RoutersScopedList
-> RouterAggregatedListItems
routerAggregatedListItems pRaliAddtional_ =
RouterAggregatedListItems'
{ _raliAddtional = _Coerce # pRaliAddtional_
}
raliAddtional :: Lens' RouterAggregatedListItems (HashMap Text RoutersScopedList)
raliAddtional
= lens _raliAddtional
(\ s a -> s{_raliAddtional = a})
. _Coerce
instance FromJSON RouterAggregatedListItems where
parseJSON
= withObject "RouterAggregatedListItems"
(\ o ->
RouterAggregatedListItems' <$> (parseJSONObject o))
instance ToJSON RouterAggregatedListItems where
toJSON = toJSON . _raliAddtional
data AutoscalingPolicy = AutoscalingPolicy'
{ _apCustomMetricUtilizations :: !(Maybe [AutoscalingPolicyCustomMetricUtilization])
, _apMaxNumReplicas :: !(Maybe (Textual Int32))
, _apCPUUtilization :: !(Maybe AutoscalingPolicyCPUUtilization)
, _apLoadBalancingUtilization :: !(Maybe AutoscalingPolicyLoadBalancingUtilization)
, _apMinNumReplicas :: !(Maybe (Textual Int32))
, _apCoolDownPeriodSec :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
autoscalingPolicy
:: AutoscalingPolicy
autoscalingPolicy =
AutoscalingPolicy'
{ _apCustomMetricUtilizations = Nothing
, _apMaxNumReplicas = Nothing
, _apCPUUtilization = Nothing
, _apLoadBalancingUtilization = Nothing
, _apMinNumReplicas = Nothing
, _apCoolDownPeriodSec = Nothing
}
apCustomMetricUtilizations :: Lens' AutoscalingPolicy [AutoscalingPolicyCustomMetricUtilization]
apCustomMetricUtilizations
= lens _apCustomMetricUtilizations
(\ s a -> s{_apCustomMetricUtilizations = a})
. _Default
. _Coerce
apMaxNumReplicas :: Lens' AutoscalingPolicy (Maybe Int32)
apMaxNumReplicas
= lens _apMaxNumReplicas
(\ s a -> s{_apMaxNumReplicas = a})
. mapping _Coerce
apCPUUtilization :: Lens' AutoscalingPolicy (Maybe AutoscalingPolicyCPUUtilization)
apCPUUtilization
= lens _apCPUUtilization
(\ s a -> s{_apCPUUtilization = a})
apLoadBalancingUtilization :: Lens' AutoscalingPolicy (Maybe AutoscalingPolicyLoadBalancingUtilization)
apLoadBalancingUtilization
= lens _apLoadBalancingUtilization
(\ s a -> s{_apLoadBalancingUtilization = a})
apMinNumReplicas :: Lens' AutoscalingPolicy (Maybe Int32)
apMinNumReplicas
= lens _apMinNumReplicas
(\ s a -> s{_apMinNumReplicas = a})
. mapping _Coerce
apCoolDownPeriodSec :: Lens' AutoscalingPolicy (Maybe Int32)
apCoolDownPeriodSec
= lens _apCoolDownPeriodSec
(\ s a -> s{_apCoolDownPeriodSec = a})
. mapping _Coerce
instance FromJSON AutoscalingPolicy where
parseJSON
= withObject "AutoscalingPolicy"
(\ o ->
AutoscalingPolicy' <$>
(o .:? "customMetricUtilizations" .!= mempty) <*>
(o .:? "maxNumReplicas")
<*> (o .:? "cpuUtilization")
<*> (o .:? "loadBalancingUtilization")
<*> (o .:? "minNumReplicas")
<*> (o .:? "coolDownPeriodSec"))
instance ToJSON AutoscalingPolicy where
toJSON AutoscalingPolicy'{..}
= object
(catMaybes
[("customMetricUtilizations" .=) <$>
_apCustomMetricUtilizations,
("maxNumReplicas" .=) <$> _apMaxNumReplicas,
("cpuUtilization" .=) <$> _apCPUUtilization,
("loadBalancingUtilization" .=) <$>
_apLoadBalancingUtilization,
("minNumReplicas" .=) <$> _apMinNumReplicas,
("coolDownPeriodSec" .=) <$> _apCoolDownPeriodSec])
data RegionList = RegionList'
{ _regNextPageToken :: !(Maybe Text)
, _regKind :: !Text
, _regItems :: !(Maybe [Region])
, _regSelfLink :: !(Maybe Text)
, _regId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
regionList
:: RegionList
regionList =
RegionList'
{ _regNextPageToken = Nothing
, _regKind = "compute#regionList"
, _regItems = Nothing
, _regSelfLink = Nothing
, _regId = Nothing
}
regNextPageToken :: Lens' RegionList (Maybe Text)
regNextPageToken
= lens _regNextPageToken
(\ s a -> s{_regNextPageToken = a})
regKind :: Lens' RegionList Text
regKind = lens _regKind (\ s a -> s{_regKind = a})
regItems :: Lens' RegionList [Region]
regItems
= lens _regItems (\ s a -> s{_regItems = a}) .
_Default
. _Coerce
regSelfLink :: Lens' RegionList (Maybe Text)
regSelfLink
= lens _regSelfLink (\ s a -> s{_regSelfLink = a})
regId :: Lens' RegionList (Maybe Text)
regId = lens _regId (\ s a -> s{_regId = a})
instance FromJSON RegionList where
parseJSON
= withObject "RegionList"
(\ o ->
RegionList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#regionList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON RegionList where
toJSON RegionList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _regNextPageToken,
Just ("kind" .= _regKind),
("items" .=) <$> _regItems,
("selfLink" .=) <$> _regSelfLink,
("id" .=) <$> _regId])
data VPNTunnelList = VPNTunnelList'
{ _vtlNextPageToken :: !(Maybe Text)
, _vtlKind :: !Text
, _vtlItems :: !(Maybe [VPNTunnel])
, _vtlSelfLink :: !(Maybe Text)
, _vtlId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
vpnTunnelList
:: VPNTunnelList
vpnTunnelList =
VPNTunnelList'
{ _vtlNextPageToken = Nothing
, _vtlKind = "compute#vpnTunnelList"
, _vtlItems = Nothing
, _vtlSelfLink = Nothing
, _vtlId = Nothing
}
vtlNextPageToken :: Lens' VPNTunnelList (Maybe Text)
vtlNextPageToken
= lens _vtlNextPageToken
(\ s a -> s{_vtlNextPageToken = a})
vtlKind :: Lens' VPNTunnelList Text
vtlKind = lens _vtlKind (\ s a -> s{_vtlKind = a})
vtlItems :: Lens' VPNTunnelList [VPNTunnel]
vtlItems
= lens _vtlItems (\ s a -> s{_vtlItems = a}) .
_Default
. _Coerce
vtlSelfLink :: Lens' VPNTunnelList (Maybe Text)
vtlSelfLink
= lens _vtlSelfLink (\ s a -> s{_vtlSelfLink = a})
vtlId :: Lens' VPNTunnelList (Maybe Text)
vtlId = lens _vtlId (\ s a -> s{_vtlId = a})
instance FromJSON VPNTunnelList where
parseJSON
= withObject "VPNTunnelList"
(\ o ->
VPNTunnelList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#vpnTunnelList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON VPNTunnelList where
toJSON VPNTunnelList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _vtlNextPageToken,
Just ("kind" .= _vtlKind),
("items" .=) <$> _vtlItems,
("selfLink" .=) <$> _vtlSelfLink,
("id" .=) <$> _vtlId])
newtype MachineTypeScratchDisksItem = MachineTypeScratchDisksItem'
{ _mtsdiDiskGb :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
machineTypeScratchDisksItem
:: MachineTypeScratchDisksItem
machineTypeScratchDisksItem =
MachineTypeScratchDisksItem'
{ _mtsdiDiskGb = Nothing
}
mtsdiDiskGb :: Lens' MachineTypeScratchDisksItem (Maybe Int32)
mtsdiDiskGb
= lens _mtsdiDiskGb (\ s a -> s{_mtsdiDiskGb = a}) .
mapping _Coerce
instance FromJSON MachineTypeScratchDisksItem where
parseJSON
= withObject "MachineTypeScratchDisksItem"
(\ o ->
MachineTypeScratchDisksItem' <$> (o .:? "diskGb"))
instance ToJSON MachineTypeScratchDisksItem where
toJSON MachineTypeScratchDisksItem'{..}
= object (catMaybes [("diskGb" .=) <$> _mtsdiDiskGb])
data SubnetworksScopedListWarningDataItem = SubnetworksScopedListWarningDataItem'
{ _sslwdiValue :: !(Maybe Text)
, _sslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
subnetworksScopedListWarningDataItem
:: SubnetworksScopedListWarningDataItem
subnetworksScopedListWarningDataItem =
SubnetworksScopedListWarningDataItem'
{ _sslwdiValue = Nothing
, _sslwdiKey = Nothing
}
sslwdiValue :: Lens' SubnetworksScopedListWarningDataItem (Maybe Text)
sslwdiValue
= lens _sslwdiValue (\ s a -> s{_sslwdiValue = a})
sslwdiKey :: Lens' SubnetworksScopedListWarningDataItem (Maybe Text)
sslwdiKey
= lens _sslwdiKey (\ s a -> s{_sslwdiKey = a})
instance FromJSON
SubnetworksScopedListWarningDataItem where
parseJSON
= withObject "SubnetworksScopedListWarningDataItem"
(\ o ->
SubnetworksScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON SubnetworksScopedListWarningDataItem
where
toJSON SubnetworksScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _sslwdiValue,
("key" .=) <$> _sslwdiKey])
data MachineTypesScopedList = MachineTypesScopedList'
{ _mtslMachineTypes :: !(Maybe [MachineType])
, _mtslWarning :: !(Maybe MachineTypesScopedListWarning)
} deriving (Eq,Show,Data,Typeable,Generic)
machineTypesScopedList
:: MachineTypesScopedList
machineTypesScopedList =
MachineTypesScopedList'
{ _mtslMachineTypes = Nothing
, _mtslWarning = Nothing
}
mtslMachineTypes :: Lens' MachineTypesScopedList [MachineType]
mtslMachineTypes
= lens _mtslMachineTypes
(\ s a -> s{_mtslMachineTypes = a})
. _Default
. _Coerce
mtslWarning :: Lens' MachineTypesScopedList (Maybe MachineTypesScopedListWarning)
mtslWarning
= lens _mtslWarning (\ s a -> s{_mtslWarning = a})
instance FromJSON MachineTypesScopedList where
parseJSON
= withObject "MachineTypesScopedList"
(\ o ->
MachineTypesScopedList' <$>
(o .:? "machineTypes" .!= mempty) <*>
(o .:? "warning"))
instance ToJSON MachineTypesScopedList where
toJSON MachineTypesScopedList'{..}
= object
(catMaybes
[("machineTypes" .=) <$> _mtslMachineTypes,
("warning" .=) <$> _mtslWarning])
data Subnetwork = Subnetwork'
{ _subKind :: !Text
, _subNetwork :: !(Maybe Text)
, _subGatewayAddress :: !(Maybe Text)
, _subSelfLink :: !(Maybe Text)
, _subName :: !(Maybe Text)
, _subCreationTimestamp :: !(Maybe Text)
, _subIPCIdRRange :: !(Maybe Text)
, _subId :: !(Maybe (Textual Word64))
, _subRegion :: !(Maybe Text)
, _subDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
subnetwork
:: Subnetwork
subnetwork =
Subnetwork'
{ _subKind = "compute#subnetwork"
, _subNetwork = Nothing
, _subGatewayAddress = Nothing
, _subSelfLink = Nothing
, _subName = Nothing
, _subCreationTimestamp = Nothing
, _subIPCIdRRange = Nothing
, _subId = Nothing
, _subRegion = Nothing
, _subDescription = Nothing
}
subKind :: Lens' Subnetwork Text
subKind = lens _subKind (\ s a -> s{_subKind = a})
subNetwork :: Lens' Subnetwork (Maybe Text)
subNetwork
= lens _subNetwork (\ s a -> s{_subNetwork = a})
subGatewayAddress :: Lens' Subnetwork (Maybe Text)
subGatewayAddress
= lens _subGatewayAddress
(\ s a -> s{_subGatewayAddress = a})
subSelfLink :: Lens' Subnetwork (Maybe Text)
subSelfLink
= lens _subSelfLink (\ s a -> s{_subSelfLink = a})
subName :: Lens' Subnetwork (Maybe Text)
subName = lens _subName (\ s a -> s{_subName = a})
subCreationTimestamp :: Lens' Subnetwork (Maybe Text)
subCreationTimestamp
= lens _subCreationTimestamp
(\ s a -> s{_subCreationTimestamp = a})
subIPCIdRRange :: Lens' Subnetwork (Maybe Text)
subIPCIdRRange
= lens _subIPCIdRRange
(\ s a -> s{_subIPCIdRRange = a})
subId :: Lens' Subnetwork (Maybe Word64)
subId
= lens _subId (\ s a -> s{_subId = a}) .
mapping _Coerce
subRegion :: Lens' Subnetwork (Maybe Text)
subRegion
= lens _subRegion (\ s a -> s{_subRegion = a})
subDescription :: Lens' Subnetwork (Maybe Text)
subDescription
= lens _subDescription
(\ s a -> s{_subDescription = a})
instance FromJSON Subnetwork where
parseJSON
= withObject "Subnetwork"
(\ o ->
Subnetwork' <$>
(o .:? "kind" .!= "compute#subnetwork") <*>
(o .:? "network")
<*> (o .:? "gatewayAddress")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "ipCidrRange")
<*> (o .:? "id")
<*> (o .:? "region")
<*> (o .:? "description"))
instance ToJSON Subnetwork where
toJSON Subnetwork'{..}
= object
(catMaybes
[Just ("kind" .= _subKind),
("network" .=) <$> _subNetwork,
("gatewayAddress" .=) <$> _subGatewayAddress,
("selfLink" .=) <$> _subSelfLink,
("name" .=) <$> _subName,
("creationTimestamp" .=) <$> _subCreationTimestamp,
("ipCidrRange" .=) <$> _subIPCIdRRange,
("id" .=) <$> _subId, ("region" .=) <$> _subRegion,
("description" .=) <$> _subDescription])
data MachineTypeAggregatedList = MachineTypeAggregatedList'
{ _mtalNextPageToken :: !(Maybe Text)
, _mtalKind :: !Text
, _mtalItems :: !(Maybe MachineTypeAggregatedListItems)
, _mtalSelfLink :: !(Maybe Text)
, _mtalId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
machineTypeAggregatedList
:: MachineTypeAggregatedList
machineTypeAggregatedList =
MachineTypeAggregatedList'
{ _mtalNextPageToken = Nothing
, _mtalKind = "compute#machineTypeAggregatedList"
, _mtalItems = Nothing
, _mtalSelfLink = Nothing
, _mtalId = Nothing
}
mtalNextPageToken :: Lens' MachineTypeAggregatedList (Maybe Text)
mtalNextPageToken
= lens _mtalNextPageToken
(\ s a -> s{_mtalNextPageToken = a})
mtalKind :: Lens' MachineTypeAggregatedList Text
mtalKind = lens _mtalKind (\ s a -> s{_mtalKind = a})
mtalItems :: Lens' MachineTypeAggregatedList (Maybe MachineTypeAggregatedListItems)
mtalItems
= lens _mtalItems (\ s a -> s{_mtalItems = a})
mtalSelfLink :: Lens' MachineTypeAggregatedList (Maybe Text)
mtalSelfLink
= lens _mtalSelfLink (\ s a -> s{_mtalSelfLink = a})
mtalId :: Lens' MachineTypeAggregatedList (Maybe Text)
mtalId = lens _mtalId (\ s a -> s{_mtalId = a})
instance FromJSON MachineTypeAggregatedList where
parseJSON
= withObject "MachineTypeAggregatedList"
(\ o ->
MachineTypeAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"compute#machineTypeAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON MachineTypeAggregatedList where
toJSON MachineTypeAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _mtalNextPageToken,
Just ("kind" .= _mtalKind),
("items" .=) <$> _mtalItems,
("selfLink" .=) <$> _mtalSelfLink,
("id" .=) <$> _mtalId])
data DiskType = DiskType'
{ _dtKind :: !Text
, _dtZone :: !(Maybe Text)
, _dtSelfLink :: !(Maybe Text)
, _dtName :: !(Maybe Text)
, _dtCreationTimestamp :: !(Maybe Text)
, _dtId :: !(Maybe (Textual Word64))
, _dtValidDiskSize :: !(Maybe Text)
, _dtDescription :: !(Maybe Text)
, _dtDefaultDiskSizeGb :: !(Maybe (Textual Int64))
, _dtDeprecated :: !(Maybe DeprecationStatus)
} deriving (Eq,Show,Data,Typeable,Generic)
diskType
:: DiskType
diskType =
DiskType'
{ _dtKind = "compute#diskType"
, _dtZone = Nothing
, _dtSelfLink = Nothing
, _dtName = Nothing
, _dtCreationTimestamp = Nothing
, _dtId = Nothing
, _dtValidDiskSize = Nothing
, _dtDescription = Nothing
, _dtDefaultDiskSizeGb = Nothing
, _dtDeprecated = Nothing
}
dtKind :: Lens' DiskType Text
dtKind = lens _dtKind (\ s a -> s{_dtKind = a})
dtZone :: Lens' DiskType (Maybe Text)
dtZone = lens _dtZone (\ s a -> s{_dtZone = a})
dtSelfLink :: Lens' DiskType (Maybe Text)
dtSelfLink
= lens _dtSelfLink (\ s a -> s{_dtSelfLink = a})
dtName :: Lens' DiskType (Maybe Text)
dtName = lens _dtName (\ s a -> s{_dtName = a})
dtCreationTimestamp :: Lens' DiskType (Maybe Text)
dtCreationTimestamp
= lens _dtCreationTimestamp
(\ s a -> s{_dtCreationTimestamp = a})
dtId :: Lens' DiskType (Maybe Word64)
dtId
= lens _dtId (\ s a -> s{_dtId = a}) .
mapping _Coerce
dtValidDiskSize :: Lens' DiskType (Maybe Text)
dtValidDiskSize
= lens _dtValidDiskSize
(\ s a -> s{_dtValidDiskSize = a})
dtDescription :: Lens' DiskType (Maybe Text)
dtDescription
= lens _dtDescription
(\ s a -> s{_dtDescription = a})
dtDefaultDiskSizeGb :: Lens' DiskType (Maybe Int64)
dtDefaultDiskSizeGb
= lens _dtDefaultDiskSizeGb
(\ s a -> s{_dtDefaultDiskSizeGb = a})
. mapping _Coerce
dtDeprecated :: Lens' DiskType (Maybe DeprecationStatus)
dtDeprecated
= lens _dtDeprecated (\ s a -> s{_dtDeprecated = a})
instance FromJSON DiskType where
parseJSON
= withObject "DiskType"
(\ o ->
DiskType' <$>
(o .:? "kind" .!= "compute#diskType") <*>
(o .:? "zone")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "validDiskSize")
<*> (o .:? "description")
<*> (o .:? "defaultDiskSizeGb")
<*> (o .:? "deprecated"))
instance ToJSON DiskType where
toJSON DiskType'{..}
= object
(catMaybes
[Just ("kind" .= _dtKind), ("zone" .=) <$> _dtZone,
("selfLink" .=) <$> _dtSelfLink,
("name" .=) <$> _dtName,
("creationTimestamp" .=) <$> _dtCreationTimestamp,
("id" .=) <$> _dtId,
("validDiskSize" .=) <$> _dtValidDiskSize,
("description" .=) <$> _dtDescription,
("defaultDiskSizeGb" .=) <$> _dtDefaultDiskSizeGb,
("deprecated" .=) <$> _dtDeprecated])
data URLMapValidationResult = URLMapValidationResult'
{ _umvrLoadErrors :: !(Maybe [Text])
, _umvrLoadSucceeded :: !(Maybe Bool)
, _umvrTestPassed :: !(Maybe Bool)
, _umvrTestFailures :: !(Maybe [TestFailure])
} deriving (Eq,Show,Data,Typeable,Generic)
urlMapValidationResult
:: URLMapValidationResult
urlMapValidationResult =
URLMapValidationResult'
{ _umvrLoadErrors = Nothing
, _umvrLoadSucceeded = Nothing
, _umvrTestPassed = Nothing
, _umvrTestFailures = Nothing
}
umvrLoadErrors :: Lens' URLMapValidationResult [Text]
umvrLoadErrors
= lens _umvrLoadErrors
(\ s a -> s{_umvrLoadErrors = a})
. _Default
. _Coerce
umvrLoadSucceeded :: Lens' URLMapValidationResult (Maybe Bool)
umvrLoadSucceeded
= lens _umvrLoadSucceeded
(\ s a -> s{_umvrLoadSucceeded = a})
umvrTestPassed :: Lens' URLMapValidationResult (Maybe Bool)
umvrTestPassed
= lens _umvrTestPassed
(\ s a -> s{_umvrTestPassed = a})
umvrTestFailures :: Lens' URLMapValidationResult [TestFailure]
umvrTestFailures
= lens _umvrTestFailures
(\ s a -> s{_umvrTestFailures = a})
. _Default
. _Coerce
instance FromJSON URLMapValidationResult where
parseJSON
= withObject "URLMapValidationResult"
(\ o ->
URLMapValidationResult' <$>
(o .:? "loadErrors" .!= mempty) <*>
(o .:? "loadSucceeded")
<*> (o .:? "testPassed")
<*> (o .:? "testFailures" .!= mempty))
instance ToJSON URLMapValidationResult where
toJSON URLMapValidationResult'{..}
= object
(catMaybes
[("loadErrors" .=) <$> _umvrLoadErrors,
("loadSucceeded" .=) <$> _umvrLoadSucceeded,
("testPassed" .=) <$> _umvrTestPassed,
("testFailures" .=) <$> _umvrTestFailures])
data Metadata = Metadata'
{ _mKind :: !Text
, _mFingerprint :: !(Maybe Bytes)
, _mItems :: !(Maybe [MetadataItemsItem])
} deriving (Eq,Show,Data,Typeable,Generic)
metadata
:: Metadata
metadata =
Metadata'
{ _mKind = "compute#metadata"
, _mFingerprint = Nothing
, _mItems = Nothing
}
mKind :: Lens' Metadata Text
mKind = lens _mKind (\ s a -> s{_mKind = a})
mFingerprint :: Lens' Metadata (Maybe ByteString)
mFingerprint
= lens _mFingerprint (\ s a -> s{_mFingerprint = a})
. mapping _Bytes
mItems :: Lens' Metadata [MetadataItemsItem]
mItems
= lens _mItems (\ s a -> s{_mItems = a}) . _Default .
_Coerce
instance FromJSON Metadata where
parseJSON
= withObject "Metadata"
(\ o ->
Metadata' <$>
(o .:? "kind" .!= "compute#metadata") <*>
(o .:? "fingerprint")
<*> (o .:? "items" .!= mempty))
instance ToJSON Metadata where
toJSON Metadata'{..}
= object
(catMaybes
[Just ("kind" .= _mKind),
("fingerprint" .=) <$> _mFingerprint,
("items" .=) <$> _mItems])
data RouteWarningsItem = RouteWarningsItem'
{ _rwiData :: !(Maybe [RouteWarningsItemDataItem])
, _rwiCode :: !(Maybe RouteWarningsItemCode)
, _rwiMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
routeWarningsItem
:: RouteWarningsItem
routeWarningsItem =
RouteWarningsItem'
{ _rwiData = Nothing
, _rwiCode = Nothing
, _rwiMessage = Nothing
}
rwiData :: Lens' RouteWarningsItem [RouteWarningsItemDataItem]
rwiData
= lens _rwiData (\ s a -> s{_rwiData = a}) . _Default
. _Coerce
rwiCode :: Lens' RouteWarningsItem (Maybe RouteWarningsItemCode)
rwiCode = lens _rwiCode (\ s a -> s{_rwiCode = a})
rwiMessage :: Lens' RouteWarningsItem (Maybe Text)
rwiMessage
= lens _rwiMessage (\ s a -> s{_rwiMessage = a})
instance FromJSON RouteWarningsItem where
parseJSON
= withObject "RouteWarningsItem"
(\ o ->
RouteWarningsItem' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON RouteWarningsItem where
toJSON RouteWarningsItem'{..}
= object
(catMaybes
[("data" .=) <$> _rwiData, ("code" .=) <$> _rwiCode,
("message" .=) <$> _rwiMessage])
data MachineTypesScopedListWarningDataItem = MachineTypesScopedListWarningDataItem'
{ _mtslwdiValue :: !(Maybe Text)
, _mtslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
machineTypesScopedListWarningDataItem
:: MachineTypesScopedListWarningDataItem
machineTypesScopedListWarningDataItem =
MachineTypesScopedListWarningDataItem'
{ _mtslwdiValue = Nothing
, _mtslwdiKey = Nothing
}
mtslwdiValue :: Lens' MachineTypesScopedListWarningDataItem (Maybe Text)
mtslwdiValue
= lens _mtslwdiValue (\ s a -> s{_mtslwdiValue = a})
mtslwdiKey :: Lens' MachineTypesScopedListWarningDataItem (Maybe Text)
mtslwdiKey
= lens _mtslwdiKey (\ s a -> s{_mtslwdiKey = a})
instance FromJSON
MachineTypesScopedListWarningDataItem where
parseJSON
= withObject "MachineTypesScopedListWarningDataItem"
(\ o ->
MachineTypesScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON MachineTypesScopedListWarningDataItem
where
toJSON MachineTypesScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _mtslwdiValue,
("key" .=) <$> _mtslwdiKey])
data InstancesSetServiceAccountRequest = InstancesSetServiceAccountRequest'
{ _issarEmail :: !(Maybe Text)
, _issarScopes :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
instancesSetServiceAccountRequest
:: InstancesSetServiceAccountRequest
instancesSetServiceAccountRequest =
InstancesSetServiceAccountRequest'
{ _issarEmail = Nothing
, _issarScopes = Nothing
}
issarEmail :: Lens' InstancesSetServiceAccountRequest (Maybe Text)
issarEmail
= lens _issarEmail (\ s a -> s{_issarEmail = a})
issarScopes :: Lens' InstancesSetServiceAccountRequest [Text]
issarScopes
= lens _issarScopes (\ s a -> s{_issarScopes = a}) .
_Default
. _Coerce
instance FromJSON InstancesSetServiceAccountRequest
where
parseJSON
= withObject "InstancesSetServiceAccountRequest"
(\ o ->
InstancesSetServiceAccountRequest' <$>
(o .:? "email") <*> (o .:? "scopes" .!= mempty))
instance ToJSON InstancesSetServiceAccountRequest
where
toJSON InstancesSetServiceAccountRequest'{..}
= object
(catMaybes
[("email" .=) <$> _issarEmail,
("scopes" .=) <$> _issarScopes])
data DiskTypesScopedListWarningDataItem = DiskTypesScopedListWarningDataItem'
{ _dtslwdiValue :: !(Maybe Text)
, _dtslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
diskTypesScopedListWarningDataItem
:: DiskTypesScopedListWarningDataItem
diskTypesScopedListWarningDataItem =
DiskTypesScopedListWarningDataItem'
{ _dtslwdiValue = Nothing
, _dtslwdiKey = Nothing
}
dtslwdiValue :: Lens' DiskTypesScopedListWarningDataItem (Maybe Text)
dtslwdiValue
= lens _dtslwdiValue (\ s a -> s{_dtslwdiValue = a})
dtslwdiKey :: Lens' DiskTypesScopedListWarningDataItem (Maybe Text)
dtslwdiKey
= lens _dtslwdiKey (\ s a -> s{_dtslwdiKey = a})
instance FromJSON DiskTypesScopedListWarningDataItem
where
parseJSON
= withObject "DiskTypesScopedListWarningDataItem"
(\ o ->
DiskTypesScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON DiskTypesScopedListWarningDataItem
where
toJSON DiskTypesScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _dtslwdiValue,
("key" .=) <$> _dtslwdiKey])
data TargetHTTPProxy = TargetHTTPProxy'
{ _thttppURLMap :: !(Maybe Text)
, _thttppKind :: !Text
, _thttppSelfLink :: !(Maybe Text)
, _thttppName :: !(Maybe Text)
, _thttppCreationTimestamp :: !(Maybe Text)
, _thttppId :: !(Maybe (Textual Word64))
, _thttppDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetHTTPProxy
:: TargetHTTPProxy
targetHTTPProxy =
TargetHTTPProxy'
{ _thttppURLMap = Nothing
, _thttppKind = "compute#targetHttpProxy"
, _thttppSelfLink = Nothing
, _thttppName = Nothing
, _thttppCreationTimestamp = Nothing
, _thttppId = Nothing
, _thttppDescription = Nothing
}
thttppURLMap :: Lens' TargetHTTPProxy (Maybe Text)
thttppURLMap
= lens _thttppURLMap (\ s a -> s{_thttppURLMap = a})
thttppKind :: Lens' TargetHTTPProxy Text
thttppKind
= lens _thttppKind (\ s a -> s{_thttppKind = a})
thttppSelfLink :: Lens' TargetHTTPProxy (Maybe Text)
thttppSelfLink
= lens _thttppSelfLink
(\ s a -> s{_thttppSelfLink = a})
thttppName :: Lens' TargetHTTPProxy (Maybe Text)
thttppName
= lens _thttppName (\ s a -> s{_thttppName = a})
thttppCreationTimestamp :: Lens' TargetHTTPProxy (Maybe Text)
thttppCreationTimestamp
= lens _thttppCreationTimestamp
(\ s a -> s{_thttppCreationTimestamp = a})
thttppId :: Lens' TargetHTTPProxy (Maybe Word64)
thttppId
= lens _thttppId (\ s a -> s{_thttppId = a}) .
mapping _Coerce
thttppDescription :: Lens' TargetHTTPProxy (Maybe Text)
thttppDescription
= lens _thttppDescription
(\ s a -> s{_thttppDescription = a})
instance FromJSON TargetHTTPProxy where
parseJSON
= withObject "TargetHTTPProxy"
(\ o ->
TargetHTTPProxy' <$>
(o .:? "urlMap") <*>
(o .:? "kind" .!= "compute#targetHttpProxy")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "description"))
instance ToJSON TargetHTTPProxy where
toJSON TargetHTTPProxy'{..}
= object
(catMaybes
[("urlMap" .=) <$> _thttppURLMap,
Just ("kind" .= _thttppKind),
("selfLink" .=) <$> _thttppSelfLink,
("name" .=) <$> _thttppName,
("creationTimestamp" .=) <$>
_thttppCreationTimestamp,
("id" .=) <$> _thttppId,
("description" .=) <$> _thttppDescription])
data MachineType = MachineType'
{ _mtIsSharedCPU :: !(Maybe Bool)
, _mtKind :: !Text
, _mtImageSpaceGb :: !(Maybe (Textual Int32))
, _mtZone :: !(Maybe Text)
, _mtSelfLink :: !(Maybe Text)
, _mtName :: !(Maybe Text)
, _mtCreationTimestamp :: !(Maybe Text)
, _mtScratchDisks :: !(Maybe [MachineTypeScratchDisksItem])
, _mtId :: !(Maybe (Textual Word64))
, _mtGuestCPUs :: !(Maybe (Textual Int32))
, _mtMaximumPersistentDisksSizeGb :: !(Maybe (Textual Int64))
, _mtMaximumPersistentDisks :: !(Maybe (Textual Int32))
, _mtMemoryMb :: !(Maybe (Textual Int32))
, _mtDescription :: !(Maybe Text)
, _mtDeprecated :: !(Maybe DeprecationStatus)
} deriving (Eq,Show,Data,Typeable,Generic)
machineType
:: MachineType
machineType =
MachineType'
{ _mtIsSharedCPU = Nothing
, _mtKind = "compute#machineType"
, _mtImageSpaceGb = Nothing
, _mtZone = Nothing
, _mtSelfLink = Nothing
, _mtName = Nothing
, _mtCreationTimestamp = Nothing
, _mtScratchDisks = Nothing
, _mtId = Nothing
, _mtGuestCPUs = Nothing
, _mtMaximumPersistentDisksSizeGb = Nothing
, _mtMaximumPersistentDisks = Nothing
, _mtMemoryMb = Nothing
, _mtDescription = Nothing
, _mtDeprecated = Nothing
}
mtIsSharedCPU :: Lens' MachineType (Maybe Bool)
mtIsSharedCPU
= lens _mtIsSharedCPU
(\ s a -> s{_mtIsSharedCPU = a})
mtKind :: Lens' MachineType Text
mtKind = lens _mtKind (\ s a -> s{_mtKind = a})
mtImageSpaceGb :: Lens' MachineType (Maybe Int32)
mtImageSpaceGb
= lens _mtImageSpaceGb
(\ s a -> s{_mtImageSpaceGb = a})
. mapping _Coerce
mtZone :: Lens' MachineType (Maybe Text)
mtZone = lens _mtZone (\ s a -> s{_mtZone = a})
mtSelfLink :: Lens' MachineType (Maybe Text)
mtSelfLink
= lens _mtSelfLink (\ s a -> s{_mtSelfLink = a})
mtName :: Lens' MachineType (Maybe Text)
mtName = lens _mtName (\ s a -> s{_mtName = a})
mtCreationTimestamp :: Lens' MachineType (Maybe Text)
mtCreationTimestamp
= lens _mtCreationTimestamp
(\ s a -> s{_mtCreationTimestamp = a})
mtScratchDisks :: Lens' MachineType [MachineTypeScratchDisksItem]
mtScratchDisks
= lens _mtScratchDisks
(\ s a -> s{_mtScratchDisks = a})
. _Default
. _Coerce
mtId :: Lens' MachineType (Maybe Word64)
mtId
= lens _mtId (\ s a -> s{_mtId = a}) .
mapping _Coerce
mtGuestCPUs :: Lens' MachineType (Maybe Int32)
mtGuestCPUs
= lens _mtGuestCPUs (\ s a -> s{_mtGuestCPUs = a}) .
mapping _Coerce
mtMaximumPersistentDisksSizeGb :: Lens' MachineType (Maybe Int64)
mtMaximumPersistentDisksSizeGb
= lens _mtMaximumPersistentDisksSizeGb
(\ s a -> s{_mtMaximumPersistentDisksSizeGb = a})
. mapping _Coerce
mtMaximumPersistentDisks :: Lens' MachineType (Maybe Int32)
mtMaximumPersistentDisks
= lens _mtMaximumPersistentDisks
(\ s a -> s{_mtMaximumPersistentDisks = a})
. mapping _Coerce
mtMemoryMb :: Lens' MachineType (Maybe Int32)
mtMemoryMb
= lens _mtMemoryMb (\ s a -> s{_mtMemoryMb = a}) .
mapping _Coerce
mtDescription :: Lens' MachineType (Maybe Text)
mtDescription
= lens _mtDescription
(\ s a -> s{_mtDescription = a})
mtDeprecated :: Lens' MachineType (Maybe DeprecationStatus)
mtDeprecated
= lens _mtDeprecated (\ s a -> s{_mtDeprecated = a})
instance FromJSON MachineType where
parseJSON
= withObject "MachineType"
(\ o ->
MachineType' <$>
(o .:? "isSharedCpu") <*>
(o .:? "kind" .!= "compute#machineType")
<*> (o .:? "imageSpaceGb")
<*> (o .:? "zone")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "scratchDisks" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "guestCpus")
<*> (o .:? "maximumPersistentDisksSizeGb")
<*> (o .:? "maximumPersistentDisks")
<*> (o .:? "memoryMb")
<*> (o .:? "description")
<*> (o .:? "deprecated"))
instance ToJSON MachineType where
toJSON MachineType'{..}
= object
(catMaybes
[("isSharedCpu" .=) <$> _mtIsSharedCPU,
Just ("kind" .= _mtKind),
("imageSpaceGb" .=) <$> _mtImageSpaceGb,
("zone" .=) <$> _mtZone,
("selfLink" .=) <$> _mtSelfLink,
("name" .=) <$> _mtName,
("creationTimestamp" .=) <$> _mtCreationTimestamp,
("scratchDisks" .=) <$> _mtScratchDisks,
("id" .=) <$> _mtId,
("guestCpus" .=) <$> _mtGuestCPUs,
("maximumPersistentDisksSizeGb" .=) <$>
_mtMaximumPersistentDisksSizeGb,
("maximumPersistentDisks" .=) <$>
_mtMaximumPersistentDisks,
("memoryMb" .=) <$> _mtMemoryMb,
("description" .=) <$> _mtDescription,
("deprecated" .=) <$> _mtDeprecated])
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 TargetInstancesScopedListWarning = TargetInstancesScopedListWarning'
{ _tislwData :: !(Maybe [TargetInstancesScopedListWarningDataItem])
, _tislwCode :: !(Maybe TargetInstancesScopedListWarningCode)
, _tislwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetInstancesScopedListWarning
:: TargetInstancesScopedListWarning
targetInstancesScopedListWarning =
TargetInstancesScopedListWarning'
{ _tislwData = Nothing
, _tislwCode = Nothing
, _tislwMessage = Nothing
}
tislwData :: Lens' TargetInstancesScopedListWarning [TargetInstancesScopedListWarningDataItem]
tislwData
= lens _tislwData (\ s a -> s{_tislwData = a}) .
_Default
. _Coerce
tislwCode :: Lens' TargetInstancesScopedListWarning (Maybe TargetInstancesScopedListWarningCode)
tislwCode
= lens _tislwCode (\ s a -> s{_tislwCode = a})
tislwMessage :: Lens' TargetInstancesScopedListWarning (Maybe Text)
tislwMessage
= lens _tislwMessage (\ s a -> s{_tislwMessage = a})
instance FromJSON TargetInstancesScopedListWarning
where
parseJSON
= withObject "TargetInstancesScopedListWarning"
(\ o ->
TargetInstancesScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON TargetInstancesScopedListWarning
where
toJSON TargetInstancesScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _tislwData,
("code" .=) <$> _tislwCode,
("message" .=) <$> _tislwMessage])
data SubnetworkAggregatedList = SubnetworkAggregatedList'
{ _salNextPageToken :: !(Maybe Text)
, _salKind :: !Text
, _salItems :: !(Maybe SubnetworkAggregatedListItems)
, _salSelfLink :: !(Maybe Text)
, _salId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
subnetworkAggregatedList
:: SubnetworkAggregatedList
subnetworkAggregatedList =
SubnetworkAggregatedList'
{ _salNextPageToken = Nothing
, _salKind = "compute#subnetworkAggregatedList"
, _salItems = Nothing
, _salSelfLink = Nothing
, _salId = Nothing
}
salNextPageToken :: Lens' SubnetworkAggregatedList (Maybe Text)
salNextPageToken
= lens _salNextPageToken
(\ s a -> s{_salNextPageToken = a})
salKind :: Lens' SubnetworkAggregatedList Text
salKind = lens _salKind (\ s a -> s{_salKind = a})
salItems :: Lens' SubnetworkAggregatedList (Maybe SubnetworkAggregatedListItems)
salItems = lens _salItems (\ s a -> s{_salItems = a})
salSelfLink :: Lens' SubnetworkAggregatedList (Maybe Text)
salSelfLink
= lens _salSelfLink (\ s a -> s{_salSelfLink = a})
salId :: Lens' SubnetworkAggregatedList (Maybe Text)
salId = lens _salId (\ s a -> s{_salId = a})
instance FromJSON SubnetworkAggregatedList where
parseJSON
= withObject "SubnetworkAggregatedList"
(\ o ->
SubnetworkAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#subnetworkAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON SubnetworkAggregatedList where
toJSON SubnetworkAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _salNextPageToken,
Just ("kind" .= _salKind),
("items" .=) <$> _salItems,
("selfLink" .=) <$> _salSelfLink,
("id" .=) <$> _salId])
newtype DisksResizeRequest = DisksResizeRequest'
{ _drrSizeGb :: Maybe (Textual Int64)
} deriving (Eq,Show,Data,Typeable,Generic)
disksResizeRequest
:: DisksResizeRequest
disksResizeRequest =
DisksResizeRequest'
{ _drrSizeGb = Nothing
}
drrSizeGb :: Lens' DisksResizeRequest (Maybe Int64)
drrSizeGb
= lens _drrSizeGb (\ s a -> s{_drrSizeGb = a}) .
mapping _Coerce
instance FromJSON DisksResizeRequest where
parseJSON
= withObject "DisksResizeRequest"
(\ o -> DisksResizeRequest' <$> (o .:? "sizeGb"))
instance ToJSON DisksResizeRequest where
toJSON DisksResizeRequest'{..}
= object (catMaybes [("sizeGb" .=) <$> _drrSizeGb])
data AutoscalersScopedListWarningDataItem = AutoscalersScopedListWarningDataItem'
{ _aValue :: !(Maybe Text)
, _aKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
autoscalersScopedListWarningDataItem
:: AutoscalersScopedListWarningDataItem
autoscalersScopedListWarningDataItem =
AutoscalersScopedListWarningDataItem'
{ _aValue = Nothing
, _aKey = Nothing
}
aValue :: Lens' AutoscalersScopedListWarningDataItem (Maybe Text)
aValue = lens _aValue (\ s a -> s{_aValue = a})
aKey :: Lens' AutoscalersScopedListWarningDataItem (Maybe Text)
aKey = lens _aKey (\ s a -> s{_aKey = a})
instance FromJSON
AutoscalersScopedListWarningDataItem where
parseJSON
= withObject "AutoscalersScopedListWarningDataItem"
(\ o ->
AutoscalersScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON AutoscalersScopedListWarningDataItem
where
toJSON AutoscalersScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _aValue, ("key" .=) <$> _aKey])
newtype RegionInstanceGroupManagersSetTemplateRequest = RegionInstanceGroupManagersSetTemplateRequest'
{ _rigmstrInstanceTemplate :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupManagersSetTemplateRequest
:: RegionInstanceGroupManagersSetTemplateRequest
regionInstanceGroupManagersSetTemplateRequest =
RegionInstanceGroupManagersSetTemplateRequest'
{ _rigmstrInstanceTemplate = Nothing
}
rigmstrInstanceTemplate :: Lens' RegionInstanceGroupManagersSetTemplateRequest (Maybe Text)
rigmstrInstanceTemplate
= lens _rigmstrInstanceTemplate
(\ s a -> s{_rigmstrInstanceTemplate = a})
instance FromJSON
RegionInstanceGroupManagersSetTemplateRequest where
parseJSON
= withObject
"RegionInstanceGroupManagersSetTemplateRequest"
(\ o ->
RegionInstanceGroupManagersSetTemplateRequest' <$>
(o .:? "instanceTemplate"))
instance ToJSON
RegionInstanceGroupManagersSetTemplateRequest where
toJSON
RegionInstanceGroupManagersSetTemplateRequest'{..}
= object
(catMaybes
[("instanceTemplate" .=) <$>
_rigmstrInstanceTemplate])
data InstanceGroupsListInstances = InstanceGroupsListInstances'
{ _igliNextPageToken :: !(Maybe Text)
, _igliKind :: !Text
, _igliItems :: !(Maybe [InstanceWithNamedPorts])
, _igliSelfLink :: !(Maybe Text)
, _igliId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupsListInstances
:: InstanceGroupsListInstances
instanceGroupsListInstances =
InstanceGroupsListInstances'
{ _igliNextPageToken = Nothing
, _igliKind = "compute#instanceGroupsListInstances"
, _igliItems = Nothing
, _igliSelfLink = Nothing
, _igliId = Nothing
}
igliNextPageToken :: Lens' InstanceGroupsListInstances (Maybe Text)
igliNextPageToken
= lens _igliNextPageToken
(\ s a -> s{_igliNextPageToken = a})
igliKind :: Lens' InstanceGroupsListInstances Text
igliKind = lens _igliKind (\ s a -> s{_igliKind = a})
igliItems :: Lens' InstanceGroupsListInstances [InstanceWithNamedPorts]
igliItems
= lens _igliItems (\ s a -> s{_igliItems = a}) .
_Default
. _Coerce
igliSelfLink :: Lens' InstanceGroupsListInstances (Maybe Text)
igliSelfLink
= lens _igliSelfLink (\ s a -> s{_igliSelfLink = a})
igliId :: Lens' InstanceGroupsListInstances (Maybe Text)
igliId = lens _igliId (\ s a -> s{_igliId = a})
instance FromJSON InstanceGroupsListInstances where
parseJSON
= withObject "InstanceGroupsListInstances"
(\ o ->
InstanceGroupsListInstances' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"compute#instanceGroupsListInstances")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON InstanceGroupsListInstances where
toJSON InstanceGroupsListInstances'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _igliNextPageToken,
Just ("kind" .= _igliKind),
("items" .=) <$> _igliItems,
("selfLink" .=) <$> _igliSelfLink,
("id" .=) <$> _igliId])
data Autoscaler = Autoscaler'
{ _aaKind :: !Text
, _aaZone :: !(Maybe Text)
, _aaSelfLink :: !(Maybe Text)
, _aaName :: !(Maybe Text)
, _aaCreationTimestamp :: !(Maybe Text)
, _aaAutoscalingPolicy :: !(Maybe AutoscalingPolicy)
, _aaId :: !(Maybe (Textual Word64))
, _aaRegion :: !(Maybe Text)
, _aaDescription :: !(Maybe Text)
, _aaTarget :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
autoscaler
:: Autoscaler
autoscaler =
Autoscaler'
{ _aaKind = "compute#autoscaler"
, _aaZone = Nothing
, _aaSelfLink = Nothing
, _aaName = Nothing
, _aaCreationTimestamp = Nothing
, _aaAutoscalingPolicy = Nothing
, _aaId = Nothing
, _aaRegion = Nothing
, _aaDescription = Nothing
, _aaTarget = Nothing
}
aaKind :: Lens' Autoscaler Text
aaKind = lens _aaKind (\ s a -> s{_aaKind = a})
aaZone :: Lens' Autoscaler (Maybe Text)
aaZone = lens _aaZone (\ s a -> s{_aaZone = a})
aaSelfLink :: Lens' Autoscaler (Maybe Text)
aaSelfLink
= lens _aaSelfLink (\ s a -> s{_aaSelfLink = a})
aaName :: Lens' Autoscaler (Maybe Text)
aaName = lens _aaName (\ s a -> s{_aaName = a})
aaCreationTimestamp :: Lens' Autoscaler (Maybe Text)
aaCreationTimestamp
= lens _aaCreationTimestamp
(\ s a -> s{_aaCreationTimestamp = a})
aaAutoscalingPolicy :: Lens' Autoscaler (Maybe AutoscalingPolicy)
aaAutoscalingPolicy
= lens _aaAutoscalingPolicy
(\ s a -> s{_aaAutoscalingPolicy = a})
aaId :: Lens' Autoscaler (Maybe Word64)
aaId
= lens _aaId (\ s a -> s{_aaId = a}) .
mapping _Coerce
aaRegion :: Lens' Autoscaler (Maybe Text)
aaRegion = lens _aaRegion (\ s a -> s{_aaRegion = a})
aaDescription :: Lens' Autoscaler (Maybe Text)
aaDescription
= lens _aaDescription
(\ s a -> s{_aaDescription = a})
aaTarget :: Lens' Autoscaler (Maybe Text)
aaTarget = lens _aaTarget (\ s a -> s{_aaTarget = a})
instance FromJSON Autoscaler where
parseJSON
= withObject "Autoscaler"
(\ o ->
Autoscaler' <$>
(o .:? "kind" .!= "compute#autoscaler") <*>
(o .:? "zone")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "autoscalingPolicy")
<*> (o .:? "id")
<*> (o .:? "region")
<*> (o .:? "description")
<*> (o .:? "target"))
instance ToJSON Autoscaler where
toJSON Autoscaler'{..}
= object
(catMaybes
[Just ("kind" .= _aaKind), ("zone" .=) <$> _aaZone,
("selfLink" .=) <$> _aaSelfLink,
("name" .=) <$> _aaName,
("creationTimestamp" .=) <$> _aaCreationTimestamp,
("autoscalingPolicy" .=) <$> _aaAutoscalingPolicy,
("id" .=) <$> _aaId, ("region" .=) <$> _aaRegion,
("description" .=) <$> _aaDescription,
("target" .=) <$> _aaTarget])
data DisksScopedListWarning = DisksScopedListWarning'
{ _dslwData :: !(Maybe [DisksScopedListWarningDataItem])
, _dslwCode :: !(Maybe DisksScopedListWarningCode)
, _dslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
disksScopedListWarning
:: DisksScopedListWarning
disksScopedListWarning =
DisksScopedListWarning'
{ _dslwData = Nothing
, _dslwCode = Nothing
, _dslwMessage = Nothing
}
dslwData :: Lens' DisksScopedListWarning [DisksScopedListWarningDataItem]
dslwData
= lens _dslwData (\ s a -> s{_dslwData = a}) .
_Default
. _Coerce
dslwCode :: Lens' DisksScopedListWarning (Maybe DisksScopedListWarningCode)
dslwCode = lens _dslwCode (\ s a -> s{_dslwCode = a})
dslwMessage :: Lens' DisksScopedListWarning (Maybe Text)
dslwMessage
= lens _dslwMessage (\ s a -> s{_dslwMessage = a})
instance FromJSON DisksScopedListWarning where
parseJSON
= withObject "DisksScopedListWarning"
(\ o ->
DisksScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON DisksScopedListWarning where
toJSON DisksScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _dslwData,
("code" .=) <$> _dslwCode,
("message" .=) <$> _dslwMessage])
newtype TargetVPNGatewayAggregatedListItems = TargetVPNGatewayAggregatedListItems'
{ _tvgaliAddtional :: HashMap Text TargetVPNGatewaysScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
targetVPNGatewayAggregatedListItems
:: HashMap Text TargetVPNGatewaysScopedList
-> TargetVPNGatewayAggregatedListItems
targetVPNGatewayAggregatedListItems pTvgaliAddtional_ =
TargetVPNGatewayAggregatedListItems'
{ _tvgaliAddtional = _Coerce # pTvgaliAddtional_
}
tvgaliAddtional :: Lens' TargetVPNGatewayAggregatedListItems (HashMap Text TargetVPNGatewaysScopedList)
tvgaliAddtional
= lens _tvgaliAddtional
(\ s a -> s{_tvgaliAddtional = a})
. _Coerce
instance FromJSON TargetVPNGatewayAggregatedListItems
where
parseJSON
= withObject "TargetVPNGatewayAggregatedListItems"
(\ o ->
TargetVPNGatewayAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON TargetVPNGatewayAggregatedListItems
where
toJSON = toJSON . _tvgaliAddtional
data TargetPoolsScopedListWarning = TargetPoolsScopedListWarning'
{ _tpslwData :: !(Maybe [TargetPoolsScopedListWarningDataItem])
, _tpslwCode :: !(Maybe TargetPoolsScopedListWarningCode)
, _tpslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolsScopedListWarning
:: TargetPoolsScopedListWarning
targetPoolsScopedListWarning =
TargetPoolsScopedListWarning'
{ _tpslwData = Nothing
, _tpslwCode = Nothing
, _tpslwMessage = Nothing
}
tpslwData :: Lens' TargetPoolsScopedListWarning [TargetPoolsScopedListWarningDataItem]
tpslwData
= lens _tpslwData (\ s a -> s{_tpslwData = a}) .
_Default
. _Coerce
tpslwCode :: Lens' TargetPoolsScopedListWarning (Maybe TargetPoolsScopedListWarningCode)
tpslwCode
= lens _tpslwCode (\ s a -> s{_tpslwCode = a})
tpslwMessage :: Lens' TargetPoolsScopedListWarning (Maybe Text)
tpslwMessage
= lens _tpslwMessage (\ s a -> s{_tpslwMessage = a})
instance FromJSON TargetPoolsScopedListWarning where
parseJSON
= withObject "TargetPoolsScopedListWarning"
(\ o ->
TargetPoolsScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON TargetPoolsScopedListWarning where
toJSON TargetPoolsScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _tpslwData,
("code" .=) <$> _tpslwCode,
("message" .=) <$> _tpslwMessage])
data HealthStatus = HealthStatus'
{ _hsIPAddress :: !(Maybe Text)
, _hsHealthState :: !(Maybe HealthStatusHealthState)
, _hsPort :: !(Maybe (Textual Int32))
, _hsInstance :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
healthStatus
:: HealthStatus
healthStatus =
HealthStatus'
{ _hsIPAddress = Nothing
, _hsHealthState = Nothing
, _hsPort = Nothing
, _hsInstance = Nothing
}
hsIPAddress :: Lens' HealthStatus (Maybe Text)
hsIPAddress
= lens _hsIPAddress (\ s a -> s{_hsIPAddress = a})
hsHealthState :: Lens' HealthStatus (Maybe HealthStatusHealthState)
hsHealthState
= lens _hsHealthState
(\ s a -> s{_hsHealthState = a})
hsPort :: Lens' HealthStatus (Maybe Int32)
hsPort
= lens _hsPort (\ s a -> s{_hsPort = a}) .
mapping _Coerce
hsInstance :: Lens' HealthStatus (Maybe Text)
hsInstance
= lens _hsInstance (\ s a -> s{_hsInstance = a})
instance FromJSON HealthStatus where
parseJSON
= withObject "HealthStatus"
(\ o ->
HealthStatus' <$>
(o .:? "ipAddress") <*> (o .:? "healthState") <*>
(o .:? "port")
<*> (o .:? "instance"))
instance ToJSON HealthStatus where
toJSON HealthStatus'{..}
= object
(catMaybes
[("ipAddress" .=) <$> _hsIPAddress,
("healthState" .=) <$> _hsHealthState,
("port" .=) <$> _hsPort,
("instance" .=) <$> _hsInstance])
data Region = Region'
{ _regeStatus :: !(Maybe RegionStatus)
, _regeZones :: !(Maybe [Text])
, _regeKind :: !Text
, _regeSelfLink :: !(Maybe Text)
, _regeName :: !(Maybe Text)
, _regeCreationTimestamp :: !(Maybe Text)
, _regeQuotas :: !(Maybe [Quota])
, _regeId :: !(Maybe (Textual Word64))
, _regeDescription :: !(Maybe Text)
, _regeDeprecated :: !(Maybe DeprecationStatus)
} deriving (Eq,Show,Data,Typeable,Generic)
region
:: Region
region =
Region'
{ _regeStatus = Nothing
, _regeZones = Nothing
, _regeKind = "compute#region"
, _regeSelfLink = Nothing
, _regeName = Nothing
, _regeCreationTimestamp = Nothing
, _regeQuotas = Nothing
, _regeId = Nothing
, _regeDescription = Nothing
, _regeDeprecated = Nothing
}
regeStatus :: Lens' Region (Maybe RegionStatus)
regeStatus
= lens _regeStatus (\ s a -> s{_regeStatus = a})
regeZones :: Lens' Region [Text]
regeZones
= lens _regeZones (\ s a -> s{_regeZones = a}) .
_Default
. _Coerce
regeKind :: Lens' Region Text
regeKind = lens _regeKind (\ s a -> s{_regeKind = a})
regeSelfLink :: Lens' Region (Maybe Text)
regeSelfLink
= lens _regeSelfLink (\ s a -> s{_regeSelfLink = a})
regeName :: Lens' Region (Maybe Text)
regeName = lens _regeName (\ s a -> s{_regeName = a})
regeCreationTimestamp :: Lens' Region (Maybe Text)
regeCreationTimestamp
= lens _regeCreationTimestamp
(\ s a -> s{_regeCreationTimestamp = a})
regeQuotas :: Lens' Region [Quota]
regeQuotas
= lens _regeQuotas (\ s a -> s{_regeQuotas = a}) .
_Default
. _Coerce
regeId :: Lens' Region (Maybe Word64)
regeId
= lens _regeId (\ s a -> s{_regeId = a}) .
mapping _Coerce
regeDescription :: Lens' Region (Maybe Text)
regeDescription
= lens _regeDescription
(\ s a -> s{_regeDescription = a})
regeDeprecated :: Lens' Region (Maybe DeprecationStatus)
regeDeprecated
= lens _regeDeprecated
(\ s a -> s{_regeDeprecated = a})
instance FromJSON Region where
parseJSON
= withObject "Region"
(\ o ->
Region' <$>
(o .:? "status") <*> (o .:? "zones" .!= mempty) <*>
(o .:? "kind" .!= "compute#region")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "quotas" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "description")
<*> (o .:? "deprecated"))
instance ToJSON Region where
toJSON Region'{..}
= object
(catMaybes
[("status" .=) <$> _regeStatus,
("zones" .=) <$> _regeZones,
Just ("kind" .= _regeKind),
("selfLink" .=) <$> _regeSelfLink,
("name" .=) <$> _regeName,
("creationTimestamp" .=) <$> _regeCreationTimestamp,
("quotas" .=) <$> _regeQuotas, ("id" .=) <$> _regeId,
("description" .=) <$> _regeDescription,
("deprecated" .=) <$> _regeDeprecated])
newtype GuestOSFeature = GuestOSFeature'
{ _gofType :: Maybe GuestOSFeatureType
} deriving (Eq,Show,Data,Typeable,Generic)
guestOSFeature
:: GuestOSFeature
guestOSFeature =
GuestOSFeature'
{ _gofType = Nothing
}
gofType :: Lens' GuestOSFeature (Maybe GuestOSFeatureType)
gofType = lens _gofType (\ s a -> s{_gofType = a})
instance FromJSON GuestOSFeature where
parseJSON
= withObject "GuestOSFeature"
(\ o -> GuestOSFeature' <$> (o .:? "type"))
instance ToJSON GuestOSFeature where
toJSON GuestOSFeature'{..}
= object (catMaybes [("type" .=) <$> _gofType])
data VPNTunnel = VPNTunnel'
{ _vtDetailedStatus :: !(Maybe Text)
, _vtStatus :: !(Maybe VPNTunnelStatus)
, _vtLocalTrafficSelector :: !(Maybe [Text])
, _vtKind :: !Text
, _vtPeerIP :: !(Maybe Text)
, _vtRouter :: !(Maybe Text)
, _vtTargetVPNGateway :: !(Maybe Text)
, _vtRemoteTrafficSelector :: !(Maybe [Text])
, _vtSelfLink :: !(Maybe Text)
, _vtSharedSecret :: !(Maybe Text)
, _vtName :: !(Maybe Text)
, _vtCreationTimestamp :: !(Maybe Text)
, _vtSharedSecretHash :: !(Maybe Text)
, _vtId :: !(Maybe (Textual Word64))
, _vtIkeVersion :: !(Maybe (Textual Int32))
, _vtRegion :: !(Maybe Text)
, _vtDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
vpnTunnel
:: VPNTunnel
vpnTunnel =
VPNTunnel'
{ _vtDetailedStatus = Nothing
, _vtStatus = Nothing
, _vtLocalTrafficSelector = Nothing
, _vtKind = "compute#vpnTunnel"
, _vtPeerIP = Nothing
, _vtRouter = Nothing
, _vtTargetVPNGateway = Nothing
, _vtRemoteTrafficSelector = Nothing
, _vtSelfLink = Nothing
, _vtSharedSecret = Nothing
, _vtName = Nothing
, _vtCreationTimestamp = Nothing
, _vtSharedSecretHash = Nothing
, _vtId = Nothing
, _vtIkeVersion = Nothing
, _vtRegion = Nothing
, _vtDescription = Nothing
}
vtDetailedStatus :: Lens' VPNTunnel (Maybe Text)
vtDetailedStatus
= lens _vtDetailedStatus
(\ s a -> s{_vtDetailedStatus = a})
vtStatus :: Lens' VPNTunnel (Maybe VPNTunnelStatus)
vtStatus = lens _vtStatus (\ s a -> s{_vtStatus = a})
vtLocalTrafficSelector :: Lens' VPNTunnel [Text]
vtLocalTrafficSelector
= lens _vtLocalTrafficSelector
(\ s a -> s{_vtLocalTrafficSelector = a})
. _Default
. _Coerce
vtKind :: Lens' VPNTunnel Text
vtKind = lens _vtKind (\ s a -> s{_vtKind = a})
vtPeerIP :: Lens' VPNTunnel (Maybe Text)
vtPeerIP = lens _vtPeerIP (\ s a -> s{_vtPeerIP = a})
vtRouter :: Lens' VPNTunnel (Maybe Text)
vtRouter = lens _vtRouter (\ s a -> s{_vtRouter = a})
vtTargetVPNGateway :: Lens' VPNTunnel (Maybe Text)
vtTargetVPNGateway
= lens _vtTargetVPNGateway
(\ s a -> s{_vtTargetVPNGateway = a})
vtRemoteTrafficSelector :: Lens' VPNTunnel [Text]
vtRemoteTrafficSelector
= lens _vtRemoteTrafficSelector
(\ s a -> s{_vtRemoteTrafficSelector = a})
. _Default
. _Coerce
vtSelfLink :: Lens' VPNTunnel (Maybe Text)
vtSelfLink
= lens _vtSelfLink (\ s a -> s{_vtSelfLink = a})
vtSharedSecret :: Lens' VPNTunnel (Maybe Text)
vtSharedSecret
= lens _vtSharedSecret
(\ s a -> s{_vtSharedSecret = a})
vtName :: Lens' VPNTunnel (Maybe Text)
vtName = lens _vtName (\ s a -> s{_vtName = a})
vtCreationTimestamp :: Lens' VPNTunnel (Maybe Text)
vtCreationTimestamp
= lens _vtCreationTimestamp
(\ s a -> s{_vtCreationTimestamp = a})
vtSharedSecretHash :: Lens' VPNTunnel (Maybe Text)
vtSharedSecretHash
= lens _vtSharedSecretHash
(\ s a -> s{_vtSharedSecretHash = a})
vtId :: Lens' VPNTunnel (Maybe Word64)
vtId
= lens _vtId (\ s a -> s{_vtId = a}) .
mapping _Coerce
vtIkeVersion :: Lens' VPNTunnel (Maybe Int32)
vtIkeVersion
= lens _vtIkeVersion (\ s a -> s{_vtIkeVersion = a})
. mapping _Coerce
vtRegion :: Lens' VPNTunnel (Maybe Text)
vtRegion = lens _vtRegion (\ s a -> s{_vtRegion = a})
vtDescription :: Lens' VPNTunnel (Maybe Text)
vtDescription
= lens _vtDescription
(\ s a -> s{_vtDescription = a})
instance FromJSON VPNTunnel where
parseJSON
= withObject "VPNTunnel"
(\ o ->
VPNTunnel' <$>
(o .:? "detailedStatus") <*> (o .:? "status") <*>
(o .:? "localTrafficSelector" .!= mempty)
<*> (o .:? "kind" .!= "compute#vpnTunnel")
<*> (o .:? "peerIp")
<*> (o .:? "router")
<*> (o .:? "targetVpnGateway")
<*> (o .:? "remoteTrafficSelector" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "sharedSecret")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "sharedSecretHash")
<*> (o .:? "id")
<*> (o .:? "ikeVersion")
<*> (o .:? "region")
<*> (o .:? "description"))
instance ToJSON VPNTunnel where
toJSON VPNTunnel'{..}
= object
(catMaybes
[("detailedStatus" .=) <$> _vtDetailedStatus,
("status" .=) <$> _vtStatus,
("localTrafficSelector" .=) <$>
_vtLocalTrafficSelector,
Just ("kind" .= _vtKind),
("peerIp" .=) <$> _vtPeerIP,
("router" .=) <$> _vtRouter,
("targetVpnGateway" .=) <$> _vtTargetVPNGateway,
("remoteTrafficSelector" .=) <$>
_vtRemoteTrafficSelector,
("selfLink" .=) <$> _vtSelfLink,
("sharedSecret" .=) <$> _vtSharedSecret,
("name" .=) <$> _vtName,
("creationTimestamp" .=) <$> _vtCreationTimestamp,
("sharedSecretHash" .=) <$> _vtSharedSecretHash,
("id" .=) <$> _vtId,
("ikeVersion" .=) <$> _vtIkeVersion,
("region" .=) <$> _vtRegion,
("description" .=) <$> _vtDescription])
data OperationsScopedListWarning = OperationsScopedListWarning'
{ _oslwData :: !(Maybe [OperationsScopedListWarningDataItem])
, _oslwCode :: !(Maybe OperationsScopedListWarningCode)
, _oslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationsScopedListWarning
:: OperationsScopedListWarning
operationsScopedListWarning =
OperationsScopedListWarning'
{ _oslwData = Nothing
, _oslwCode = Nothing
, _oslwMessage = Nothing
}
oslwData :: Lens' OperationsScopedListWarning [OperationsScopedListWarningDataItem]
oslwData
= lens _oslwData (\ s a -> s{_oslwData = a}) .
_Default
. _Coerce
oslwCode :: Lens' OperationsScopedListWarning (Maybe OperationsScopedListWarningCode)
oslwCode = lens _oslwCode (\ s a -> s{_oslwCode = a})
oslwMessage :: Lens' OperationsScopedListWarning (Maybe Text)
oslwMessage
= lens _oslwMessage (\ s a -> s{_oslwMessage = a})
instance FromJSON OperationsScopedListWarning where
parseJSON
= withObject "OperationsScopedListWarning"
(\ o ->
OperationsScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON OperationsScopedListWarning where
toJSON OperationsScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _oslwData,
("code" .=) <$> _oslwCode,
("message" .=) <$> _oslwMessage])
data Scheduling = Scheduling'
{ _sAutomaticRestart :: !(Maybe Bool)
, _sOnHostMaintenance :: !(Maybe SchedulingOnHostMaintenance)
, _sPreemptible :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
scheduling
:: Scheduling
scheduling =
Scheduling'
{ _sAutomaticRestart = Nothing
, _sOnHostMaintenance = Nothing
, _sPreemptible = Nothing
}
sAutomaticRestart :: Lens' Scheduling (Maybe Bool)
sAutomaticRestart
= lens _sAutomaticRestart
(\ s a -> s{_sAutomaticRestart = a})
sOnHostMaintenance :: Lens' Scheduling (Maybe SchedulingOnHostMaintenance)
sOnHostMaintenance
= lens _sOnHostMaintenance
(\ s a -> s{_sOnHostMaintenance = a})
sPreemptible :: Lens' Scheduling (Maybe Bool)
sPreemptible
= lens _sPreemptible (\ s a -> s{_sPreemptible = a})
instance FromJSON Scheduling where
parseJSON
= withObject "Scheduling"
(\ o ->
Scheduling' <$>
(o .:? "automaticRestart") <*>
(o .:? "onHostMaintenance")
<*> (o .:? "preemptible"))
instance ToJSON Scheduling where
toJSON Scheduling'{..}
= object
(catMaybes
[("automaticRestart" .=) <$> _sAutomaticRestart,
("onHostMaintenance" .=) <$> _sOnHostMaintenance,
("preemptible" .=) <$> _sPreemptible])
data VPNTunnelsScopedListWarningDataItem = VPNTunnelsScopedListWarningDataItem'
{ _vtslwdiValue :: !(Maybe Text)
, _vtslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
vpnTunnelsScopedListWarningDataItem
:: VPNTunnelsScopedListWarningDataItem
vpnTunnelsScopedListWarningDataItem =
VPNTunnelsScopedListWarningDataItem'
{ _vtslwdiValue = Nothing
, _vtslwdiKey = Nothing
}
vtslwdiValue :: Lens' VPNTunnelsScopedListWarningDataItem (Maybe Text)
vtslwdiValue
= lens _vtslwdiValue (\ s a -> s{_vtslwdiValue = a})
vtslwdiKey :: Lens' VPNTunnelsScopedListWarningDataItem (Maybe Text)
vtslwdiKey
= lens _vtslwdiKey (\ s a -> s{_vtslwdiKey = a})
instance FromJSON VPNTunnelsScopedListWarningDataItem
where
parseJSON
= withObject "VPNTunnelsScopedListWarningDataItem"
(\ o ->
VPNTunnelsScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON VPNTunnelsScopedListWarningDataItem
where
toJSON VPNTunnelsScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _vtslwdiValue,
("key" .=) <$> _vtslwdiKey])
data SubnetworkList = SubnetworkList'
{ _slNextPageToken :: !(Maybe Text)
, _slKind :: !Text
, _slItems :: !(Maybe [Subnetwork])
, _slSelfLink :: !(Maybe Text)
, _slId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
subnetworkList
:: SubnetworkList
subnetworkList =
SubnetworkList'
{ _slNextPageToken = Nothing
, _slKind = "compute#subnetworkList"
, _slItems = Nothing
, _slSelfLink = Nothing
, _slId = Nothing
}
slNextPageToken :: Lens' SubnetworkList (Maybe Text)
slNextPageToken
= lens _slNextPageToken
(\ s a -> s{_slNextPageToken = a})
slKind :: Lens' SubnetworkList Text
slKind = lens _slKind (\ s a -> s{_slKind = a})
slItems :: Lens' SubnetworkList [Subnetwork]
slItems
= lens _slItems (\ s a -> s{_slItems = a}) . _Default
. _Coerce
slSelfLink :: Lens' SubnetworkList (Maybe Text)
slSelfLink
= lens _slSelfLink (\ s a -> s{_slSelfLink = a})
slId :: Lens' SubnetworkList (Maybe Text)
slId = lens _slId (\ s a -> s{_slId = a})
instance FromJSON SubnetworkList where
parseJSON
= withObject "SubnetworkList"
(\ o ->
SubnetworkList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#subnetworkList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON SubnetworkList where
toJSON SubnetworkList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _slNextPageToken,
Just ("kind" .= _slKind), ("items" .=) <$> _slItems,
("selfLink" .=) <$> _slSelfLink,
("id" .=) <$> _slId])
data ForwardingRulesScopedListWarning = ForwardingRulesScopedListWarning'
{ _frslwData :: !(Maybe [ForwardingRulesScopedListWarningDataItem])
, _frslwCode :: !(Maybe ForwardingRulesScopedListWarningCode)
, _frslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
forwardingRulesScopedListWarning
:: ForwardingRulesScopedListWarning
forwardingRulesScopedListWarning =
ForwardingRulesScopedListWarning'
{ _frslwData = Nothing
, _frslwCode = Nothing
, _frslwMessage = Nothing
}
frslwData :: Lens' ForwardingRulesScopedListWarning [ForwardingRulesScopedListWarningDataItem]
frslwData
= lens _frslwData (\ s a -> s{_frslwData = a}) .
_Default
. _Coerce
frslwCode :: Lens' ForwardingRulesScopedListWarning (Maybe ForwardingRulesScopedListWarningCode)
frslwCode
= lens _frslwCode (\ s a -> s{_frslwCode = a})
frslwMessage :: Lens' ForwardingRulesScopedListWarning (Maybe Text)
frslwMessage
= lens _frslwMessage (\ s a -> s{_frslwMessage = a})
instance FromJSON ForwardingRulesScopedListWarning
where
parseJSON
= withObject "ForwardingRulesScopedListWarning"
(\ o ->
ForwardingRulesScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON ForwardingRulesScopedListWarning
where
toJSON ForwardingRulesScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _frslwData,
("code" .=) <$> _frslwCode,
("message" .=) <$> _frslwMessage])
data HTTPHealthCheckList = HTTPHealthCheckList'
{ _httphclNextPageToken :: !(Maybe Text)
, _httphclKind :: !Text
, _httphclItems :: !(Maybe [HTTPHealthCheck])
, _httphclSelfLink :: !(Maybe Text)
, _httphclId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
hTTPHealthCheckList
:: HTTPHealthCheckList
hTTPHealthCheckList =
HTTPHealthCheckList'
{ _httphclNextPageToken = Nothing
, _httphclKind = "compute#httpHealthCheckList"
, _httphclItems = Nothing
, _httphclSelfLink = Nothing
, _httphclId = Nothing
}
httphclNextPageToken :: Lens' HTTPHealthCheckList (Maybe Text)
httphclNextPageToken
= lens _httphclNextPageToken
(\ s a -> s{_httphclNextPageToken = a})
httphclKind :: Lens' HTTPHealthCheckList Text
httphclKind
= lens _httphclKind (\ s a -> s{_httphclKind = a})
httphclItems :: Lens' HTTPHealthCheckList [HTTPHealthCheck]
httphclItems
= lens _httphclItems (\ s a -> s{_httphclItems = a})
. _Default
. _Coerce
httphclSelfLink :: Lens' HTTPHealthCheckList (Maybe Text)
httphclSelfLink
= lens _httphclSelfLink
(\ s a -> s{_httphclSelfLink = a})
httphclId :: Lens' HTTPHealthCheckList (Maybe Text)
httphclId
= lens _httphclId (\ s a -> s{_httphclId = a})
instance FromJSON HTTPHealthCheckList where
parseJSON
= withObject "HTTPHealthCheckList"
(\ o ->
HTTPHealthCheckList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#httpHealthCheckList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON HTTPHealthCheckList where
toJSON HTTPHealthCheckList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _httphclNextPageToken,
Just ("kind" .= _httphclKind),
("items" .=) <$> _httphclItems,
("selfLink" .=) <$> _httphclSelfLink,
("id" .=) <$> _httphclId])
data InstanceGroupManagersScopedListWarning = InstanceGroupManagersScopedListWarning'
{ _igmslwData :: !(Maybe [InstanceGroupManagersScopedListWarningDataItem])
, _igmslwCode :: !(Maybe InstanceGroupManagersScopedListWarningCode)
, _igmslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersScopedListWarning
:: InstanceGroupManagersScopedListWarning
instanceGroupManagersScopedListWarning =
InstanceGroupManagersScopedListWarning'
{ _igmslwData = Nothing
, _igmslwCode = Nothing
, _igmslwMessage = Nothing
}
igmslwData :: Lens' InstanceGroupManagersScopedListWarning [InstanceGroupManagersScopedListWarningDataItem]
igmslwData
= lens _igmslwData (\ s a -> s{_igmslwData = a}) .
_Default
. _Coerce
igmslwCode :: Lens' InstanceGroupManagersScopedListWarning (Maybe InstanceGroupManagersScopedListWarningCode)
igmslwCode
= lens _igmslwCode (\ s a -> s{_igmslwCode = a})
igmslwMessage :: Lens' InstanceGroupManagersScopedListWarning (Maybe Text)
igmslwMessage
= lens _igmslwMessage
(\ s a -> s{_igmslwMessage = a})
instance FromJSON
InstanceGroupManagersScopedListWarning where
parseJSON
= withObject "InstanceGroupManagersScopedListWarning"
(\ o ->
InstanceGroupManagersScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON
InstanceGroupManagersScopedListWarning where
toJSON InstanceGroupManagersScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _igmslwData,
("code" .=) <$> _igmslwCode,
("message" .=) <$> _igmslwMessage])
newtype URLMapsValidateRequest = URLMapsValidateRequest'
{ _umvrResource :: Maybe URLMap
} deriving (Eq,Show,Data,Typeable,Generic)
urlMapsValidateRequest
:: URLMapsValidateRequest
urlMapsValidateRequest =
URLMapsValidateRequest'
{ _umvrResource = Nothing
}
umvrResource :: Lens' URLMapsValidateRequest (Maybe URLMap)
umvrResource
= lens _umvrResource (\ s a -> s{_umvrResource = a})
instance FromJSON URLMapsValidateRequest where
parseJSON
= withObject "URLMapsValidateRequest"
(\ o ->
URLMapsValidateRequest' <$> (o .:? "resource"))
instance ToJSON URLMapsValidateRequest where
toJSON URLMapsValidateRequest'{..}
= object
(catMaybes [("resource" .=) <$> _umvrResource])
data InstanceGroupManagersSetTargetPoolsRequest = InstanceGroupManagersSetTargetPoolsRequest'
{ _igmstprFingerprint :: !(Maybe Bytes)
, _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 _Bytes
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 HTTPSHealthCheckList = HTTPSHealthCheckList'
{ _hhclNextPageToken :: !(Maybe Text)
, _hhclKind :: !Text
, _hhclItems :: !(Maybe [HTTPSHealthCheck])
, _hhclSelfLink :: !(Maybe Text)
, _hhclId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
httpsHealthCheckList
:: HTTPSHealthCheckList
httpsHealthCheckList =
HTTPSHealthCheckList'
{ _hhclNextPageToken = Nothing
, _hhclKind = "compute#httpsHealthCheckList"
, _hhclItems = Nothing
, _hhclSelfLink = Nothing
, _hhclId = Nothing
}
hhclNextPageToken :: Lens' HTTPSHealthCheckList (Maybe Text)
hhclNextPageToken
= lens _hhclNextPageToken
(\ s a -> s{_hhclNextPageToken = a})
hhclKind :: Lens' HTTPSHealthCheckList Text
hhclKind = lens _hhclKind (\ s a -> s{_hhclKind = a})
hhclItems :: Lens' HTTPSHealthCheckList [HTTPSHealthCheck]
hhclItems
= lens _hhclItems (\ s a -> s{_hhclItems = a}) .
_Default
. _Coerce
hhclSelfLink :: Lens' HTTPSHealthCheckList (Maybe Text)
hhclSelfLink
= lens _hhclSelfLink (\ s a -> s{_hhclSelfLink = a})
hhclId :: Lens' HTTPSHealthCheckList (Maybe Text)
hhclId = lens _hhclId (\ s a -> s{_hhclId = a})
instance FromJSON HTTPSHealthCheckList where
parseJSON
= withObject "HTTPSHealthCheckList"
(\ o ->
HTTPSHealthCheckList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#httpsHealthCheckList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON HTTPSHealthCheckList where
toJSON HTTPSHealthCheckList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _hhclNextPageToken,
Just ("kind" .= _hhclKind),
("items" .=) <$> _hhclItems,
("selfLink" .=) <$> _hhclSelfLink,
("id" .=) <$> _hhclId])
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 License = License'
{ _lChargesUseFee :: !(Maybe Bool)
, _lKind :: !Text
, _lSelfLink :: !(Maybe Text)
, _lName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
license
:: License
license =
License'
{ _lChargesUseFee = Nothing
, _lKind = "compute#license"
, _lSelfLink = Nothing
, _lName = Nothing
}
lChargesUseFee :: Lens' License (Maybe Bool)
lChargesUseFee
= lens _lChargesUseFee
(\ s a -> s{_lChargesUseFee = a})
lKind :: Lens' License Text
lKind = lens _lKind (\ s a -> s{_lKind = a})
lSelfLink :: Lens' License (Maybe Text)
lSelfLink
= lens _lSelfLink (\ s a -> s{_lSelfLink = a})
lName :: Lens' License (Maybe Text)
lName = lens _lName (\ s a -> s{_lName = a})
instance FromJSON License where
parseJSON
= withObject "License"
(\ o ->
License' <$>
(o .:? "chargesUseFee") <*>
(o .:? "kind" .!= "compute#license")
<*> (o .:? "selfLink")
<*> (o .:? "name"))
instance ToJSON License where
toJSON License'{..}
= object
(catMaybes
[("chargesUseFee" .=) <$> _lChargesUseFee,
Just ("kind" .= _lKind),
("selfLink" .=) <$> _lSelfLink,
("name" .=) <$> _lName])
data PathRule = PathRule'
{ _prService :: !(Maybe Text)
, _prPaths :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
pathRule
:: PathRule
pathRule =
PathRule'
{ _prService = Nothing
, _prPaths = Nothing
}
prService :: Lens' PathRule (Maybe Text)
prService
= lens _prService (\ s a -> s{_prService = a})
prPaths :: Lens' PathRule [Text]
prPaths
= lens _prPaths (\ s a -> s{_prPaths = a}) . _Default
. _Coerce
instance FromJSON PathRule where
parseJSON
= withObject "PathRule"
(\ o ->
PathRule' <$>
(o .:? "service") <*> (o .:? "paths" .!= mempty))
instance ToJSON PathRule where
toJSON PathRule'{..}
= object
(catMaybes
[("service" .=) <$> _prService,
("paths" .=) <$> _prPaths])
data InstanceList = InstanceList'
{ _insNextPageToken :: !(Maybe Text)
, _insKind :: !Text
, _insItems :: !(Maybe [Instance])
, _insSelfLink :: !(Maybe Text)
, _insId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceList
:: InstanceList
instanceList =
InstanceList'
{ _insNextPageToken = Nothing
, _insKind = "compute#instanceList"
, _insItems = Nothing
, _insSelfLink = Nothing
, _insId = Nothing
}
insNextPageToken :: Lens' InstanceList (Maybe Text)
insNextPageToken
= lens _insNextPageToken
(\ s a -> s{_insNextPageToken = a})
insKind :: Lens' InstanceList Text
insKind = lens _insKind (\ s a -> s{_insKind = a})
insItems :: Lens' InstanceList [Instance]
insItems
= lens _insItems (\ s a -> s{_insItems = a}) .
_Default
. _Coerce
insSelfLink :: Lens' InstanceList (Maybe Text)
insSelfLink
= lens _insSelfLink (\ s a -> s{_insSelfLink = a})
insId :: Lens' InstanceList (Maybe Text)
insId = lens _insId (\ s a -> s{_insId = a})
instance FromJSON InstanceList where
parseJSON
= withObject "InstanceList"
(\ o ->
InstanceList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#instanceList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON InstanceList where
toJSON InstanceList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _insNextPageToken,
Just ("kind" .= _insKind),
("items" .=) <$> _insItems,
("selfLink" .=) <$> _insSelfLink,
("id" .=) <$> _insId])
newtype SubnetworkAggregatedListItems = SubnetworkAggregatedListItems'
{ _saliAddtional :: HashMap Text SubnetworksScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
subnetworkAggregatedListItems
:: HashMap Text SubnetworksScopedList
-> SubnetworkAggregatedListItems
subnetworkAggregatedListItems pSaliAddtional_ =
SubnetworkAggregatedListItems'
{ _saliAddtional = _Coerce # pSaliAddtional_
}
saliAddtional :: Lens' SubnetworkAggregatedListItems (HashMap Text SubnetworksScopedList)
saliAddtional
= lens _saliAddtional
(\ s a -> s{_saliAddtional = a})
. _Coerce
instance FromJSON SubnetworkAggregatedListItems where
parseJSON
= withObject "SubnetworkAggregatedListItems"
(\ o ->
SubnetworkAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON SubnetworkAggregatedListItems where
toJSON = toJSON . _saliAddtional
newtype ManagedInstanceLastAttempt = ManagedInstanceLastAttempt'
{ _milaErrors :: Maybe ManagedInstanceLastAttemptErrors
} deriving (Eq,Show,Data,Typeable,Generic)
managedInstanceLastAttempt
:: ManagedInstanceLastAttempt
managedInstanceLastAttempt =
ManagedInstanceLastAttempt'
{ _milaErrors = Nothing
}
milaErrors :: Lens' ManagedInstanceLastAttempt (Maybe ManagedInstanceLastAttemptErrors)
milaErrors
= lens _milaErrors (\ s a -> s{_milaErrors = a})
instance FromJSON ManagedInstanceLastAttempt where
parseJSON
= withObject "ManagedInstanceLastAttempt"
(\ o ->
ManagedInstanceLastAttempt' <$> (o .:? "errors"))
instance ToJSON ManagedInstanceLastAttempt where
toJSON ManagedInstanceLastAttempt'{..}
= object (catMaybes [("errors" .=) <$> _milaErrors])
data BackendServiceList = BackendServiceList'
{ _bslNextPageToken :: !(Maybe Text)
, _bslKind :: !Text
, _bslItems :: !(Maybe [BackendService])
, _bslSelfLink :: !(Maybe Text)
, _bslId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
backendServiceList
:: BackendServiceList
backendServiceList =
BackendServiceList'
{ _bslNextPageToken = Nothing
, _bslKind = "compute#backendServiceList"
, _bslItems = Nothing
, _bslSelfLink = Nothing
, _bslId = Nothing
}
bslNextPageToken :: Lens' BackendServiceList (Maybe Text)
bslNextPageToken
= lens _bslNextPageToken
(\ s a -> s{_bslNextPageToken = a})
bslKind :: Lens' BackendServiceList Text
bslKind = lens _bslKind (\ s a -> s{_bslKind = a})
bslItems :: Lens' BackendServiceList [BackendService]
bslItems
= lens _bslItems (\ s a -> s{_bslItems = a}) .
_Default
. _Coerce
bslSelfLink :: Lens' BackendServiceList (Maybe Text)
bslSelfLink
= lens _bslSelfLink (\ s a -> s{_bslSelfLink = a})
bslId :: Lens' BackendServiceList (Maybe Text)
bslId = lens _bslId (\ s a -> s{_bslId = a})
instance FromJSON BackendServiceList where
parseJSON
= withObject "BackendServiceList"
(\ o ->
BackendServiceList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#backendServiceList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON BackendServiceList where
toJSON BackendServiceList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _bslNextPageToken,
Just ("kind" .= _bslKind),
("items" .=) <$> _bslItems,
("selfLink" .=) <$> _bslSelfLink,
("id" .=) <$> _bslId])
data InstanceGroupsScopedListWarning = InstanceGroupsScopedListWarning'
{ _igslwData :: !(Maybe [InstanceGroupsScopedListWarningDataItem])
, _igslwCode :: !(Maybe InstanceGroupsScopedListWarningCode)
, _igslwMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupsScopedListWarning
:: InstanceGroupsScopedListWarning
instanceGroupsScopedListWarning =
InstanceGroupsScopedListWarning'
{ _igslwData = Nothing
, _igslwCode = Nothing
, _igslwMessage = Nothing
}
igslwData :: Lens' InstanceGroupsScopedListWarning [InstanceGroupsScopedListWarningDataItem]
igslwData
= lens _igslwData (\ s a -> s{_igslwData = a}) .
_Default
. _Coerce
igslwCode :: Lens' InstanceGroupsScopedListWarning (Maybe InstanceGroupsScopedListWarningCode)
igslwCode
= lens _igslwCode (\ s a -> s{_igslwCode = a})
igslwMessage :: Lens' InstanceGroupsScopedListWarning (Maybe Text)
igslwMessage
= lens _igslwMessage (\ s a -> s{_igslwMessage = a})
instance FromJSON InstanceGroupsScopedListWarning
where
parseJSON
= withObject "InstanceGroupsScopedListWarning"
(\ o ->
InstanceGroupsScopedListWarning' <$>
(o .:? "data" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON InstanceGroupsScopedListWarning where
toJSON InstanceGroupsScopedListWarning'{..}
= object
(catMaybes
[("data" .=) <$> _igslwData,
("code" .=) <$> _igslwCode,
("message" .=) <$> _igslwMessage])
newtype AutoscalingPolicyCPUUtilization = AutoscalingPolicyCPUUtilization'
{ _apcuUtilizationTarget :: Maybe (Textual Double)
} deriving (Eq,Show,Data,Typeable,Generic)
autoscalingPolicyCPUUtilization
:: AutoscalingPolicyCPUUtilization
autoscalingPolicyCPUUtilization =
AutoscalingPolicyCPUUtilization'
{ _apcuUtilizationTarget = Nothing
}
apcuUtilizationTarget :: Lens' AutoscalingPolicyCPUUtilization (Maybe Double)
apcuUtilizationTarget
= lens _apcuUtilizationTarget
(\ s a -> s{_apcuUtilizationTarget = a})
. mapping _Coerce
instance FromJSON AutoscalingPolicyCPUUtilization
where
parseJSON
= withObject "AutoscalingPolicyCPUUtilization"
(\ o ->
AutoscalingPolicyCPUUtilization' <$>
(o .:? "utilizationTarget"))
instance ToJSON AutoscalingPolicyCPUUtilization where
toJSON AutoscalingPolicyCPUUtilization'{..}
= object
(catMaybes
[("utilizationTarget" .=) <$>
_apcuUtilizationTarget])
data InstanceGroupsScopedListWarningDataItem = InstanceGroupsScopedListWarningDataItem'
{ _igslwdiValue :: !(Maybe Text)
, _igslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupsScopedListWarningDataItem
:: InstanceGroupsScopedListWarningDataItem
instanceGroupsScopedListWarningDataItem =
InstanceGroupsScopedListWarningDataItem'
{ _igslwdiValue = Nothing
, _igslwdiKey = Nothing
}
igslwdiValue :: Lens' InstanceGroupsScopedListWarningDataItem (Maybe Text)
igslwdiValue
= lens _igslwdiValue (\ s a -> s{_igslwdiValue = a})
igslwdiKey :: Lens' InstanceGroupsScopedListWarningDataItem (Maybe Text)
igslwdiKey
= lens _igslwdiKey (\ s a -> s{_igslwdiKey = a})
instance FromJSON
InstanceGroupsScopedListWarningDataItem where
parseJSON
= withObject
"InstanceGroupsScopedListWarningDataItem"
(\ o ->
InstanceGroupsScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON
InstanceGroupsScopedListWarningDataItem where
toJSON InstanceGroupsScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _igslwdiValue,
("key" .=) <$> _igslwdiKey])
newtype ResourceGroupReference = ResourceGroupReference'
{ _rgrGroup :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
resourceGroupReference
:: ResourceGroupReference
resourceGroupReference =
ResourceGroupReference'
{ _rgrGroup = Nothing
}
rgrGroup :: Lens' ResourceGroupReference (Maybe Text)
rgrGroup = lens _rgrGroup (\ s a -> s{_rgrGroup = a})
instance FromJSON ResourceGroupReference where
parseJSON
= withObject "ResourceGroupReference"
(\ o -> ResourceGroupReference' <$> (o .:? "group"))
instance ToJSON ResourceGroupReference where
toJSON ResourceGroupReference'{..}
= object (catMaybes [("group" .=) <$> _rgrGroup])
data Firewall = Firewall'
{ _fSourceTags :: !(Maybe [Text])
, _fKind :: !Text
, _fTargetTags :: !(Maybe [Text])
, _fNetwork :: !(Maybe Text)
, _fSourceRanges :: !(Maybe [Text])
, _fSelfLink :: !(Maybe Text)
, _fName :: !(Maybe Text)
, _fCreationTimestamp :: !(Maybe Text)
, _fId :: !(Maybe (Textual Word64))
, _fAllowed :: !(Maybe [FirewallAllowedItem])
, _fDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
firewall
:: Firewall
firewall =
Firewall'
{ _fSourceTags = Nothing
, _fKind = "compute#firewall"
, _fTargetTags = Nothing
, _fNetwork = Nothing
, _fSourceRanges = Nothing
, _fSelfLink = Nothing
, _fName = Nothing
, _fCreationTimestamp = Nothing
, _fId = Nothing
, _fAllowed = Nothing
, _fDescription = Nothing
}
fSourceTags :: Lens' Firewall [Text]
fSourceTags
= lens _fSourceTags (\ s a -> s{_fSourceTags = a}) .
_Default
. _Coerce
fKind :: Lens' Firewall Text
fKind = lens _fKind (\ s a -> s{_fKind = a})
fTargetTags :: Lens' Firewall [Text]
fTargetTags
= lens _fTargetTags (\ s a -> s{_fTargetTags = a}) .
_Default
. _Coerce
fNetwork :: Lens' Firewall (Maybe Text)
fNetwork = lens _fNetwork (\ s a -> s{_fNetwork = a})
fSourceRanges :: Lens' Firewall [Text]
fSourceRanges
= lens _fSourceRanges
(\ s a -> s{_fSourceRanges = a})
. _Default
. _Coerce
fSelfLink :: Lens' Firewall (Maybe Text)
fSelfLink
= lens _fSelfLink (\ s a -> s{_fSelfLink = a})
fName :: Lens' Firewall (Maybe Text)
fName = lens _fName (\ s a -> s{_fName = a})
fCreationTimestamp :: Lens' Firewall (Maybe Text)
fCreationTimestamp
= lens _fCreationTimestamp
(\ s a -> s{_fCreationTimestamp = a})
fId :: Lens' Firewall (Maybe Word64)
fId
= lens _fId (\ s a -> s{_fId = a}) . mapping _Coerce
fAllowed :: Lens' Firewall [FirewallAllowedItem]
fAllowed
= lens _fAllowed (\ s a -> s{_fAllowed = a}) .
_Default
. _Coerce
fDescription :: Lens' Firewall (Maybe Text)
fDescription
= lens _fDescription (\ s a -> s{_fDescription = a})
instance FromJSON Firewall where
parseJSON
= withObject "Firewall"
(\ o ->
Firewall' <$>
(o .:? "sourceTags" .!= mempty) <*>
(o .:? "kind" .!= "compute#firewall")
<*> (o .:? "targetTags" .!= mempty)
<*> (o .:? "network")
<*> (o .:? "sourceRanges" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "allowed" .!= mempty)
<*> (o .:? "description"))
instance ToJSON Firewall where
toJSON Firewall'{..}
= object
(catMaybes
[("sourceTags" .=) <$> _fSourceTags,
Just ("kind" .= _fKind),
("targetTags" .=) <$> _fTargetTags,
("network" .=) <$> _fNetwork,
("sourceRanges" .=) <$> _fSourceRanges,
("selfLink" .=) <$> _fSelfLink,
("name" .=) <$> _fName,
("creationTimestamp" .=) <$> _fCreationTimestamp,
("id" .=) <$> _fId, ("allowed" .=) <$> _fAllowed,
("description" .=) <$> _fDescription])
data HostRule = HostRule'
{ _hrHosts :: !(Maybe [Text])
, _hrDescription :: !(Maybe Text)
, _hrPathMatcher :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
hostRule
:: HostRule
hostRule =
HostRule'
{ _hrHosts = Nothing
, _hrDescription = Nothing
, _hrPathMatcher = Nothing
}
hrHosts :: Lens' HostRule [Text]
hrHosts
= lens _hrHosts (\ s a -> s{_hrHosts = a}) . _Default
. _Coerce
hrDescription :: Lens' HostRule (Maybe Text)
hrDescription
= lens _hrDescription
(\ s a -> s{_hrDescription = a})
hrPathMatcher :: Lens' HostRule (Maybe Text)
hrPathMatcher
= lens _hrPathMatcher
(\ s a -> s{_hrPathMatcher = a})
instance FromJSON HostRule where
parseJSON
= withObject "HostRule"
(\ o ->
HostRule' <$>
(o .:? "hosts" .!= mempty) <*> (o .:? "description")
<*> (o .:? "pathMatcher"))
instance ToJSON HostRule where
toJSON HostRule'{..}
= object
(catMaybes
[("hosts" .=) <$> _hrHosts,
("description" .=) <$> _hrDescription,
("pathMatcher" .=) <$> _hrPathMatcher])
data Quota = Quota'
{ _qMetric :: !(Maybe QuotaMetric)
, _qLimit :: !(Maybe (Textual Double))
, _qUsage :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
quota
:: Quota
quota =
Quota'
{ _qMetric = Nothing
, _qLimit = Nothing
, _qUsage = Nothing
}
qMetric :: Lens' Quota (Maybe QuotaMetric)
qMetric = lens _qMetric (\ s a -> s{_qMetric = a})
qLimit :: Lens' Quota (Maybe Double)
qLimit
= lens _qLimit (\ s a -> s{_qLimit = a}) .
mapping _Coerce
qUsage :: Lens' Quota (Maybe Double)
qUsage
= lens _qUsage (\ s a -> s{_qUsage = a}) .
mapping _Coerce
instance FromJSON Quota where
parseJSON
= withObject "Quota"
(\ o ->
Quota' <$>
(o .:? "metric") <*> (o .:? "limit") <*>
(o .:? "usage"))
instance ToJSON Quota where
toJSON Quota'{..}
= object
(catMaybes
[("metric" .=) <$> _qMetric,
("limit" .=) <$> _qLimit, ("usage" .=) <$> _qUsage])
data InstanceGroup = InstanceGroup'
{ _iiSize :: !(Maybe (Textual Int32))
, _iiKind :: !Text
, _iiFingerprint :: !(Maybe Bytes)
, _iiNetwork :: !(Maybe Text)
, _iiZone :: !(Maybe Text)
, _iiSelfLink :: !(Maybe Text)
, _iiName :: !(Maybe Text)
, _iiCreationTimestamp :: !(Maybe Text)
, _iiSubnetwork :: !(Maybe Text)
, _iiId :: !(Maybe (Textual Word64))
, _iiRegion :: !(Maybe Text)
, _iiDescription :: !(Maybe Text)
, _iiNamedPorts :: !(Maybe [NamedPort])
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroup
:: InstanceGroup
instanceGroup =
InstanceGroup'
{ _iiSize = Nothing
, _iiKind = "compute#instanceGroup"
, _iiFingerprint = Nothing
, _iiNetwork = Nothing
, _iiZone = Nothing
, _iiSelfLink = Nothing
, _iiName = Nothing
, _iiCreationTimestamp = Nothing
, _iiSubnetwork = Nothing
, _iiId = Nothing
, _iiRegion = Nothing
, _iiDescription = Nothing
, _iiNamedPorts = Nothing
}
iiSize :: Lens' InstanceGroup (Maybe Int32)
iiSize
= lens _iiSize (\ s a -> s{_iiSize = a}) .
mapping _Coerce
iiKind :: Lens' InstanceGroup Text
iiKind = lens _iiKind (\ s a -> s{_iiKind = a})
iiFingerprint :: Lens' InstanceGroup (Maybe ByteString)
iiFingerprint
= lens _iiFingerprint
(\ s a -> s{_iiFingerprint = a})
. mapping _Bytes
iiNetwork :: Lens' InstanceGroup (Maybe Text)
iiNetwork
= lens _iiNetwork (\ s a -> s{_iiNetwork = a})
iiZone :: Lens' InstanceGroup (Maybe Text)
iiZone = lens _iiZone (\ s a -> s{_iiZone = a})
iiSelfLink :: Lens' InstanceGroup (Maybe Text)
iiSelfLink
= lens _iiSelfLink (\ s a -> s{_iiSelfLink = a})
iiName :: Lens' InstanceGroup (Maybe Text)
iiName = lens _iiName (\ s a -> s{_iiName = a})
iiCreationTimestamp :: Lens' InstanceGroup (Maybe Text)
iiCreationTimestamp
= lens _iiCreationTimestamp
(\ s a -> s{_iiCreationTimestamp = a})
iiSubnetwork :: Lens' InstanceGroup (Maybe Text)
iiSubnetwork
= lens _iiSubnetwork (\ s a -> s{_iiSubnetwork = a})
iiId :: Lens' InstanceGroup (Maybe Word64)
iiId
= lens _iiId (\ s a -> s{_iiId = a}) .
mapping _Coerce
iiRegion :: Lens' InstanceGroup (Maybe Text)
iiRegion = lens _iiRegion (\ s a -> s{_iiRegion = a})
iiDescription :: Lens' InstanceGroup (Maybe Text)
iiDescription
= lens _iiDescription
(\ s a -> s{_iiDescription = a})
iiNamedPorts :: Lens' InstanceGroup [NamedPort]
iiNamedPorts
= lens _iiNamedPorts (\ s a -> s{_iiNamedPorts = a})
. _Default
. _Coerce
instance FromJSON InstanceGroup where
parseJSON
= withObject "InstanceGroup"
(\ o ->
InstanceGroup' <$>
(o .:? "size") <*>
(o .:? "kind" .!= "compute#instanceGroup")
<*> (o .:? "fingerprint")
<*> (o .:? "network")
<*> (o .:? "zone")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "subnetwork")
<*> (o .:? "id")
<*> (o .:? "region")
<*> (o .:? "description")
<*> (o .:? "namedPorts" .!= mempty))
instance ToJSON InstanceGroup where
toJSON InstanceGroup'{..}
= object
(catMaybes
[("size" .=) <$> _iiSize, Just ("kind" .= _iiKind),
("fingerprint" .=) <$> _iiFingerprint,
("network" .=) <$> _iiNetwork,
("zone" .=) <$> _iiZone,
("selfLink" .=) <$> _iiSelfLink,
("name" .=) <$> _iiName,
("creationTimestamp" .=) <$> _iiCreationTimestamp,
("subnetwork" .=) <$> _iiSubnetwork,
("id" .=) <$> _iiId, ("region" .=) <$> _iiRegion,
("description" .=) <$> _iiDescription,
("namedPorts" .=) <$> _iiNamedPorts])
data RouterInterface = RouterInterface'
{ _riName :: !(Maybe Text)
, _riIPRange :: !(Maybe Text)
, _riLinkedVPNTunnel :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
routerInterface
:: RouterInterface
routerInterface =
RouterInterface'
{ _riName = Nothing
, _riIPRange = Nothing
, _riLinkedVPNTunnel = Nothing
}
riName :: Lens' RouterInterface (Maybe Text)
riName = lens _riName (\ s a -> s{_riName = a})
riIPRange :: Lens' RouterInterface (Maybe Text)
riIPRange
= lens _riIPRange (\ s a -> s{_riIPRange = a})
riLinkedVPNTunnel :: Lens' RouterInterface (Maybe Text)
riLinkedVPNTunnel
= lens _riLinkedVPNTunnel
(\ s a -> s{_riLinkedVPNTunnel = a})
instance FromJSON RouterInterface where
parseJSON
= withObject "RouterInterface"
(\ o ->
RouterInterface' <$>
(o .:? "name") <*> (o .:? "ipRange") <*>
(o .:? "linkedVpnTunnel"))
instance ToJSON RouterInterface where
toJSON RouterInterface'{..}
= object
(catMaybes
[("name" .=) <$> _riName,
("ipRange" .=) <$> _riIPRange,
("linkedVpnTunnel" .=) <$> _riLinkedVPNTunnel])
data SnapshotList = SnapshotList'
{ _snaNextPageToken :: !(Maybe Text)
, _snaKind :: !Text
, _snaItems :: !(Maybe [Snapshot])
, _snaSelfLink :: !(Maybe Text)
, _snaId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
snapshotList
:: SnapshotList
snapshotList =
SnapshotList'
{ _snaNextPageToken = Nothing
, _snaKind = "compute#snapshotList"
, _snaItems = Nothing
, _snaSelfLink = Nothing
, _snaId = Nothing
}
snaNextPageToken :: Lens' SnapshotList (Maybe Text)
snaNextPageToken
= lens _snaNextPageToken
(\ s a -> s{_snaNextPageToken = a})
snaKind :: Lens' SnapshotList Text
snaKind = lens _snaKind (\ s a -> s{_snaKind = a})
snaItems :: Lens' SnapshotList [Snapshot]
snaItems
= lens _snaItems (\ s a -> s{_snaItems = a}) .
_Default
. _Coerce
snaSelfLink :: Lens' SnapshotList (Maybe Text)
snaSelfLink
= lens _snaSelfLink (\ s a -> s{_snaSelfLink = a})
snaId :: Lens' SnapshotList (Maybe Text)
snaId = lens _snaId (\ s a -> s{_snaId = a})
instance FromJSON SnapshotList where
parseJSON
= withObject "SnapshotList"
(\ o ->
SnapshotList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#snapshotList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON SnapshotList where
toJSON SnapshotList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _snaNextPageToken,
Just ("kind" .= _snaKind),
("items" .=) <$> _snaItems,
("selfLink" .=) <$> _snaSelfLink,
("id" .=) <$> _snaId])
data TestFailure = TestFailure'
{ _tfPath :: !(Maybe Text)
, _tfExpectedService :: !(Maybe Text)
, _tfHost :: !(Maybe Text)
, _tfActualService :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
testFailure
:: TestFailure
testFailure =
TestFailure'
{ _tfPath = Nothing
, _tfExpectedService = Nothing
, _tfHost = Nothing
, _tfActualService = Nothing
}
tfPath :: Lens' TestFailure (Maybe Text)
tfPath = lens _tfPath (\ s a -> s{_tfPath = a})
tfExpectedService :: Lens' TestFailure (Maybe Text)
tfExpectedService
= lens _tfExpectedService
(\ s a -> s{_tfExpectedService = a})
tfHost :: Lens' TestFailure (Maybe Text)
tfHost = lens _tfHost (\ s a -> s{_tfHost = a})
tfActualService :: Lens' TestFailure (Maybe Text)
tfActualService
= lens _tfActualService
(\ s a -> s{_tfActualService = a})
instance FromJSON TestFailure where
parseJSON
= withObject "TestFailure"
(\ o ->
TestFailure' <$>
(o .:? "path") <*> (o .:? "expectedService") <*>
(o .:? "host")
<*> (o .:? "actualService"))
instance ToJSON TestFailure where
toJSON TestFailure'{..}
= object
(catMaybes
[("path" .=) <$> _tfPath,
("expectedService" .=) <$> _tfExpectedService,
("host" .=) <$> _tfHost,
("actualService" .=) <$> _tfActualService])
data SerialPortOutput = SerialPortOutput'
{ _spoNext :: !(Maybe (Textual Int64))
, _spoContents :: !(Maybe Text)
, _spoKind :: !Text
, _spoStart :: !(Maybe (Textual Int64))
, _spoSelfLink :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
serialPortOutput
:: SerialPortOutput
serialPortOutput =
SerialPortOutput'
{ _spoNext = Nothing
, _spoContents = Nothing
, _spoKind = "compute#serialPortOutput"
, _spoStart = Nothing
, _spoSelfLink = Nothing
}
spoNext :: Lens' SerialPortOutput (Maybe Int64)
spoNext
= lens _spoNext (\ s a -> s{_spoNext = a}) .
mapping _Coerce
spoContents :: Lens' SerialPortOutput (Maybe Text)
spoContents
= lens _spoContents (\ s a -> s{_spoContents = a})
spoKind :: Lens' SerialPortOutput Text
spoKind = lens _spoKind (\ s a -> s{_spoKind = a})
spoStart :: Lens' SerialPortOutput (Maybe Int64)
spoStart
= lens _spoStart (\ s a -> s{_spoStart = a}) .
mapping _Coerce
spoSelfLink :: Lens' SerialPortOutput (Maybe Text)
spoSelfLink
= lens _spoSelfLink (\ s a -> s{_spoSelfLink = a})
instance FromJSON SerialPortOutput where
parseJSON
= withObject "SerialPortOutput"
(\ o ->
SerialPortOutput' <$>
(o .:? "next") <*> (o .:? "contents") <*>
(o .:? "kind" .!= "compute#serialPortOutput")
<*> (o .:? "start")
<*> (o .:? "selfLink"))
instance ToJSON SerialPortOutput where
toJSON SerialPortOutput'{..}
= object
(catMaybes
[("next" .=) <$> _spoNext,
("contents" .=) <$> _spoContents,
Just ("kind" .= _spoKind),
("start" .=) <$> _spoStart,
("selfLink" .=) <$> _spoSelfLink])
data TargetVPNGatewayAggregatedList = TargetVPNGatewayAggregatedList'
{ _tvgalNextPageToken :: !(Maybe Text)
, _tvgalKind :: !Text
, _tvgalItems :: !(Maybe TargetVPNGatewayAggregatedListItems)
, _tvgalSelfLink :: !(Maybe Text)
, _tvgalId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetVPNGatewayAggregatedList
:: TargetVPNGatewayAggregatedList
targetVPNGatewayAggregatedList =
TargetVPNGatewayAggregatedList'
{ _tvgalNextPageToken = Nothing
, _tvgalKind = "compute#targetVpnGatewayAggregatedList"
, _tvgalItems = Nothing
, _tvgalSelfLink = Nothing
, _tvgalId = Nothing
}
tvgalNextPageToken :: Lens' TargetVPNGatewayAggregatedList (Maybe Text)
tvgalNextPageToken
= lens _tvgalNextPageToken
(\ s a -> s{_tvgalNextPageToken = a})
tvgalKind :: Lens' TargetVPNGatewayAggregatedList Text
tvgalKind
= lens _tvgalKind (\ s a -> s{_tvgalKind = a})
tvgalItems :: Lens' TargetVPNGatewayAggregatedList (Maybe TargetVPNGatewayAggregatedListItems)
tvgalItems
= lens _tvgalItems (\ s a -> s{_tvgalItems = a})
tvgalSelfLink :: Lens' TargetVPNGatewayAggregatedList (Maybe Text)
tvgalSelfLink
= lens _tvgalSelfLink
(\ s a -> s{_tvgalSelfLink = a})
tvgalId :: Lens' TargetVPNGatewayAggregatedList (Maybe Text)
tvgalId = lens _tvgalId (\ s a -> s{_tvgalId = a})
instance FromJSON TargetVPNGatewayAggregatedList
where
parseJSON
= withObject "TargetVPNGatewayAggregatedList"
(\ o ->
TargetVPNGatewayAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"compute#targetVpnGatewayAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON TargetVPNGatewayAggregatedList where
toJSON TargetVPNGatewayAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _tvgalNextPageToken,
Just ("kind" .= _tvgalKind),
("items" .=) <$> _tvgalItems,
("selfLink" .=) <$> _tvgalSelfLink,
("id" .=) <$> _tvgalId])
data MetadataItemsItem = MetadataItemsItem'
{ _miiValue :: !(Maybe Text)
, _miiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
metadataItemsItem
:: MetadataItemsItem
metadataItemsItem =
MetadataItemsItem'
{ _miiValue = Nothing
, _miiKey = Nothing
}
miiValue :: Lens' MetadataItemsItem (Maybe Text)
miiValue = lens _miiValue (\ s a -> s{_miiValue = a})
miiKey :: Lens' MetadataItemsItem (Maybe Text)
miiKey = lens _miiKey (\ s a -> s{_miiKey = a})
instance FromJSON MetadataItemsItem where
parseJSON
= withObject "MetadataItemsItem"
(\ o ->
MetadataItemsItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON MetadataItemsItem where
toJSON MetadataItemsItem'{..}
= object
(catMaybes
[("value" .=) <$> _miiValue, ("key" .=) <$> _miiKey])
data TargetHTTPSProxy = TargetHTTPSProxy'
{ _thpURLMap :: !(Maybe Text)
, _thpSSLCertificates :: !(Maybe [Text])
, _thpKind :: !Text
, _thpSelfLink :: !(Maybe Text)
, _thpName :: !(Maybe Text)
, _thpCreationTimestamp :: !(Maybe Text)
, _thpId :: !(Maybe (Textual Word64))
, _thpDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
targetHTTPSProxy
:: TargetHTTPSProxy
targetHTTPSProxy =
TargetHTTPSProxy'
{ _thpURLMap = Nothing
, _thpSSLCertificates = Nothing
, _thpKind = "compute#targetHttpsProxy"
, _thpSelfLink = Nothing
, _thpName = Nothing
, _thpCreationTimestamp = Nothing
, _thpId = Nothing
, _thpDescription = Nothing
}
thpURLMap :: Lens' TargetHTTPSProxy (Maybe Text)
thpURLMap
= lens _thpURLMap (\ s a -> s{_thpURLMap = a})
thpSSLCertificates :: Lens' TargetHTTPSProxy [Text]
thpSSLCertificates
= lens _thpSSLCertificates
(\ s a -> s{_thpSSLCertificates = a})
. _Default
. _Coerce
thpKind :: Lens' TargetHTTPSProxy Text
thpKind = lens _thpKind (\ s a -> s{_thpKind = a})
thpSelfLink :: Lens' TargetHTTPSProxy (Maybe Text)
thpSelfLink
= lens _thpSelfLink (\ s a -> s{_thpSelfLink = a})
thpName :: Lens' TargetHTTPSProxy (Maybe Text)
thpName = lens _thpName (\ s a -> s{_thpName = a})
thpCreationTimestamp :: Lens' TargetHTTPSProxy (Maybe Text)
thpCreationTimestamp
= lens _thpCreationTimestamp
(\ s a -> s{_thpCreationTimestamp = a})
thpId :: Lens' TargetHTTPSProxy (Maybe Word64)
thpId
= lens _thpId (\ s a -> s{_thpId = a}) .
mapping _Coerce
thpDescription :: Lens' TargetHTTPSProxy (Maybe Text)
thpDescription
= lens _thpDescription
(\ s a -> s{_thpDescription = a})
instance FromJSON TargetHTTPSProxy where
parseJSON
= withObject "TargetHTTPSProxy"
(\ o ->
TargetHTTPSProxy' <$>
(o .:? "urlMap") <*>
(o .:? "sslCertificates" .!= mempty)
<*> (o .:? "kind" .!= "compute#targetHttpsProxy")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "description"))
instance ToJSON TargetHTTPSProxy where
toJSON TargetHTTPSProxy'{..}
= object
(catMaybes
[("urlMap" .=) <$> _thpURLMap,
("sslCertificates" .=) <$> _thpSSLCertificates,
Just ("kind" .= _thpKind),
("selfLink" .=) <$> _thpSelfLink,
("name" .=) <$> _thpName,
("creationTimestamp" .=) <$> _thpCreationTimestamp,
("id" .=) <$> _thpId,
("description" .=) <$> _thpDescription])
newtype ConnectionDraining = ConnectionDraining'
{ _cdDrainingTimeoutSec :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
connectionDraining
:: ConnectionDraining
connectionDraining =
ConnectionDraining'
{ _cdDrainingTimeoutSec = Nothing
}
cdDrainingTimeoutSec :: Lens' ConnectionDraining (Maybe Int32)
cdDrainingTimeoutSec
= lens _cdDrainingTimeoutSec
(\ s a -> s{_cdDrainingTimeoutSec = a})
. mapping _Coerce
instance FromJSON ConnectionDraining where
parseJSON
= withObject "ConnectionDraining"
(\ o ->
ConnectionDraining' <$> (o .:? "drainingTimeoutSec"))
instance ToJSON ConnectionDraining where
toJSON ConnectionDraining'{..}
= object
(catMaybes
[("drainingTimeoutSec" .=) <$>
_cdDrainingTimeoutSec])
data CacheInvalidationRule = CacheInvalidationRule'
{ _cirPath :: !(Maybe Text)
, _cirHost :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
cacheInvalidationRule
:: CacheInvalidationRule
cacheInvalidationRule =
CacheInvalidationRule'
{ _cirPath = Nothing
, _cirHost = Nothing
}
cirPath :: Lens' CacheInvalidationRule (Maybe Text)
cirPath = lens _cirPath (\ s a -> s{_cirPath = a})
cirHost :: Lens' CacheInvalidationRule (Maybe Text)
cirHost = lens _cirHost (\ s a -> s{_cirHost = a})
instance FromJSON CacheInvalidationRule where
parseJSON
= withObject "CacheInvalidationRule"
(\ o ->
CacheInvalidationRule' <$>
(o .:? "path") <*> (o .:? "host"))
instance ToJSON CacheInvalidationRule where
toJSON CacheInvalidationRule'{..}
= object
(catMaybes
[("path" .=) <$> _cirPath, ("host" .=) <$> _cirHost])
data TargetVPNGatewaysScopedList = TargetVPNGatewaysScopedList'
{ _tvgslTargetVPNGateways :: !(Maybe [TargetVPNGateway])
, _tvgslWarning :: !(Maybe TargetVPNGatewaysScopedListWarning)
} deriving (Eq,Show,Data,Typeable,Generic)
targetVPNGatewaysScopedList
:: TargetVPNGatewaysScopedList
targetVPNGatewaysScopedList =
TargetVPNGatewaysScopedList'
{ _tvgslTargetVPNGateways = Nothing
, _tvgslWarning = Nothing
}
tvgslTargetVPNGateways :: Lens' TargetVPNGatewaysScopedList [TargetVPNGateway]
tvgslTargetVPNGateways
= lens _tvgslTargetVPNGateways
(\ s a -> s{_tvgslTargetVPNGateways = a})
. _Default
. _Coerce
tvgslWarning :: Lens' TargetVPNGatewaysScopedList (Maybe TargetVPNGatewaysScopedListWarning)
tvgslWarning
= lens _tvgslWarning (\ s a -> s{_tvgslWarning = a})
instance FromJSON TargetVPNGatewaysScopedList where
parseJSON
= withObject "TargetVPNGatewaysScopedList"
(\ o ->
TargetVPNGatewaysScopedList' <$>
(o .:? "targetVpnGateways" .!= mempty) <*>
(o .:? "warning"))
instance ToJSON TargetVPNGatewaysScopedList where
toJSON TargetVPNGatewaysScopedList'{..}
= object
(catMaybes
[("targetVpnGateways" .=) <$>
_tvgslTargetVPNGateways,
("warning" .=) <$> _tvgslWarning])
data AccessConfig = AccessConfig'
{ _acKind :: !Text
, _acName :: !(Maybe Text)
, _acNATIP :: !(Maybe Text)
, _acType :: !AccessConfigType
} deriving (Eq,Show,Data,Typeable,Generic)
accessConfig
:: AccessConfig
accessConfig =
AccessConfig'
{ _acKind = "compute#accessConfig"
, _acName = Nothing
, _acNATIP = Nothing
, _acType = OneToOneNAT
}
acKind :: Lens' AccessConfig Text
acKind = lens _acKind (\ s a -> s{_acKind = a})
acName :: Lens' AccessConfig (Maybe Text)
acName = lens _acName (\ s a -> s{_acName = a})
acNATIP :: Lens' AccessConfig (Maybe Text)
acNATIP = lens _acNATIP (\ s a -> s{_acNATIP = a})
acType :: Lens' AccessConfig AccessConfigType
acType = lens _acType (\ s a -> s{_acType = a})
instance FromJSON AccessConfig where
parseJSON
= withObject "AccessConfig"
(\ o ->
AccessConfig' <$>
(o .:? "kind" .!= "compute#accessConfig") <*>
(o .:? "name")
<*> (o .:? "natIP")
<*> (o .:? "type" .!= OneToOneNAT))
instance ToJSON AccessConfig where
toJSON AccessConfig'{..}
= object
(catMaybes
[Just ("kind" .= _acKind), ("name" .=) <$> _acName,
("natIP" .=) <$> _acNATIP, Just ("type" .= _acType)])
data ManagedInstanceLastAttemptErrorsErrorsItem = ManagedInstanceLastAttemptErrorsErrorsItem'
{ _milaeeiLocation :: !(Maybe Text)
, _milaeeiCode :: !(Maybe Text)
, _milaeeiMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
managedInstanceLastAttemptErrorsErrorsItem
:: ManagedInstanceLastAttemptErrorsErrorsItem
managedInstanceLastAttemptErrorsErrorsItem =
ManagedInstanceLastAttemptErrorsErrorsItem'
{ _milaeeiLocation = Nothing
, _milaeeiCode = Nothing
, _milaeeiMessage = Nothing
}
milaeeiLocation :: Lens' ManagedInstanceLastAttemptErrorsErrorsItem (Maybe Text)
milaeeiLocation
= lens _milaeeiLocation
(\ s a -> s{_milaeeiLocation = a})
milaeeiCode :: Lens' ManagedInstanceLastAttemptErrorsErrorsItem (Maybe Text)
milaeeiCode
= lens _milaeeiCode (\ s a -> s{_milaeeiCode = a})
milaeeiMessage :: Lens' ManagedInstanceLastAttemptErrorsErrorsItem (Maybe Text)
milaeeiMessage
= lens _milaeeiMessage
(\ s a -> s{_milaeeiMessage = a})
instance FromJSON
ManagedInstanceLastAttemptErrorsErrorsItem where
parseJSON
= withObject
"ManagedInstanceLastAttemptErrorsErrorsItem"
(\ o ->
ManagedInstanceLastAttemptErrorsErrorsItem' <$>
(o .:? "location") <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON
ManagedInstanceLastAttemptErrorsErrorsItem where
toJSON
ManagedInstanceLastAttemptErrorsErrorsItem'{..}
= object
(catMaybes
[("location" .=) <$> _milaeeiLocation,
("code" .=) <$> _milaeeiCode,
("message" .=) <$> _milaeeiMessage])
data InstancesScopedListWarningDataItem = InstancesScopedListWarningDataItem'
{ _islwdiValue :: !(Maybe Text)
, _islwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instancesScopedListWarningDataItem
:: InstancesScopedListWarningDataItem
instancesScopedListWarningDataItem =
InstancesScopedListWarningDataItem'
{ _islwdiValue = Nothing
, _islwdiKey = Nothing
}
islwdiValue :: Lens' InstancesScopedListWarningDataItem (Maybe Text)
islwdiValue
= lens _islwdiValue (\ s a -> s{_islwdiValue = a})
islwdiKey :: Lens' InstancesScopedListWarningDataItem (Maybe Text)
islwdiKey
= lens _islwdiKey (\ s a -> s{_islwdiKey = a})
instance FromJSON InstancesScopedListWarningDataItem
where
parseJSON
= withObject "InstancesScopedListWarningDataItem"
(\ o ->
InstancesScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON InstancesScopedListWarningDataItem
where
toJSON InstancesScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _islwdiValue,
("key" .=) <$> _islwdiKey])
data BackendServicesScopedListWarningDataItem = BackendServicesScopedListWarningDataItem'
{ _bsslwdiValue :: !(Maybe Text)
, _bsslwdiKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
backendServicesScopedListWarningDataItem
:: BackendServicesScopedListWarningDataItem
backendServicesScopedListWarningDataItem =
BackendServicesScopedListWarningDataItem'
{ _bsslwdiValue = Nothing
, _bsslwdiKey = Nothing
}
bsslwdiValue :: Lens' BackendServicesScopedListWarningDataItem (Maybe Text)
bsslwdiValue
= lens _bsslwdiValue (\ s a -> s{_bsslwdiValue = a})
bsslwdiKey :: Lens' BackendServicesScopedListWarningDataItem (Maybe Text)
bsslwdiKey
= lens _bsslwdiKey (\ s a -> s{_bsslwdiKey = a})
instance FromJSON
BackendServicesScopedListWarningDataItem where
parseJSON
= withObject
"BackendServicesScopedListWarningDataItem"
(\ o ->
BackendServicesScopedListWarningDataItem' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON
BackendServicesScopedListWarningDataItem where
toJSON BackendServicesScopedListWarningDataItem'{..}
= object
(catMaybes
[("value" .=) <$> _bsslwdiValue,
("key" .=) <$> _bsslwdiKey])
data BackendService = BackendService'
{ _bsSessionAffinity :: !(Maybe BackendServiceSessionAffinity)
, _bsBackends :: !(Maybe [Backend])
, _bsAffinityCookieTtlSec :: !(Maybe (Textual Int32))
, _bsLoadBalancingScheme :: !(Maybe BackendServiceLoadBalancingScheme)
, _bsKind :: !Text
, _bsEnableCDN :: !(Maybe Bool)
, _bsFingerprint :: !(Maybe Bytes)
, _bsProtocol :: !(Maybe BackendServiceProtocol)
, _bsSelfLink :: !(Maybe Text)
, _bsName :: !(Maybe Text)
, _bsCreationTimestamp :: !(Maybe Text)
, _bsId :: !(Maybe (Textual Word64))
, _bsRegion :: !(Maybe Text)
, _bsConnectionDraining :: !(Maybe ConnectionDraining)
, _bsTimeoutSec :: !(Maybe (Textual Int32))
, _bsDescription :: !(Maybe Text)
, _bsPortName :: !(Maybe Text)
, _bsHealthChecks :: !(Maybe [Text])
, _bsPort :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
backendService
:: BackendService
backendService =
BackendService'
{ _bsSessionAffinity = Nothing
, _bsBackends = Nothing
, _bsAffinityCookieTtlSec = Nothing
, _bsLoadBalancingScheme = Nothing
, _bsKind = "compute#backendService"
, _bsEnableCDN = Nothing
, _bsFingerprint = Nothing
, _bsProtocol = Nothing
, _bsSelfLink = Nothing
, _bsName = Nothing
, _bsCreationTimestamp = Nothing
, _bsId = Nothing
, _bsRegion = Nothing
, _bsConnectionDraining = Nothing
, _bsTimeoutSec = Nothing
, _bsDescription = Nothing
, _bsPortName = Nothing
, _bsHealthChecks = Nothing
, _bsPort = Nothing
}
bsSessionAffinity :: Lens' BackendService (Maybe BackendServiceSessionAffinity)
bsSessionAffinity
= lens _bsSessionAffinity
(\ s a -> s{_bsSessionAffinity = a})
bsBackends :: Lens' BackendService [Backend]
bsBackends
= lens _bsBackends (\ s a -> s{_bsBackends = a}) .
_Default
. _Coerce
bsAffinityCookieTtlSec :: Lens' BackendService (Maybe Int32)
bsAffinityCookieTtlSec
= lens _bsAffinityCookieTtlSec
(\ s a -> s{_bsAffinityCookieTtlSec = a})
. mapping _Coerce
bsLoadBalancingScheme :: Lens' BackendService (Maybe BackendServiceLoadBalancingScheme)
bsLoadBalancingScheme
= lens _bsLoadBalancingScheme
(\ s a -> s{_bsLoadBalancingScheme = a})
bsKind :: Lens' BackendService Text
bsKind = lens _bsKind (\ s a -> s{_bsKind = a})
bsEnableCDN :: Lens' BackendService (Maybe Bool)
bsEnableCDN
= lens _bsEnableCDN (\ s a -> s{_bsEnableCDN = a})
bsFingerprint :: Lens' BackendService (Maybe ByteString)
bsFingerprint
= lens _bsFingerprint
(\ s a -> s{_bsFingerprint = a})
. mapping _Bytes
bsProtocol :: Lens' BackendService (Maybe BackendServiceProtocol)
bsProtocol
= lens _bsProtocol (\ s a -> s{_bsProtocol = a})
bsSelfLink :: Lens' BackendService (Maybe Text)
bsSelfLink
= lens _bsSelfLink (\ s a -> s{_bsSelfLink = a})
bsName :: Lens' BackendService (Maybe Text)
bsName = lens _bsName (\ s a -> s{_bsName = a})
bsCreationTimestamp :: Lens' BackendService (Maybe Text)
bsCreationTimestamp
= lens _bsCreationTimestamp
(\ s a -> s{_bsCreationTimestamp = a})
bsId :: Lens' BackendService (Maybe Word64)
bsId
= lens _bsId (\ s a -> s{_bsId = a}) .
mapping _Coerce
bsRegion :: Lens' BackendService (Maybe Text)
bsRegion = lens _bsRegion (\ s a -> s{_bsRegion = a})
bsConnectionDraining :: Lens' BackendService (Maybe ConnectionDraining)
bsConnectionDraining
= lens _bsConnectionDraining
(\ s a -> s{_bsConnectionDraining = a})
bsTimeoutSec :: Lens' BackendService (Maybe Int32)
bsTimeoutSec
= lens _bsTimeoutSec (\ s a -> s{_bsTimeoutSec = a})
. mapping _Coerce
bsDescription :: Lens' BackendService (Maybe Text)
bsDescription
= lens _bsDescription
(\ s a -> s{_bsDescription = a})
bsPortName :: Lens' BackendService (Maybe Text)
bsPortName
= lens _bsPortName (\ s a -> s{_bsPortName = a})
bsHealthChecks :: Lens' BackendService [Text]
bsHealthChecks
= lens _bsHealthChecks
(\ s a -> s{_bsHealthChecks = a})
. _Default
. _Coerce
bsPort :: Lens' BackendService (Maybe Int32)
bsPort
= lens _bsPort (\ s a -> s{_bsPort = a}) .
mapping _Coerce
instance FromJSON BackendService where
parseJSON
= withObject "BackendService"
(\ o ->
BackendService' <$>
(o .:? "sessionAffinity") <*>
(o .:? "backends" .!= mempty)
<*> (o .:? "affinityCookieTtlSec")
<*> (o .:? "loadBalancingScheme")
<*> (o .:? "kind" .!= "compute#backendService")
<*> (o .:? "enableCDN")
<*> (o .:? "fingerprint")
<*> (o .:? "protocol")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "creationTimestamp")
<*> (o .:? "id")
<*> (o .:? "region")
<*> (o .:? "connectionDraining")
<*> (o .:? "timeoutSec")
<*> (o .:? "description")
<*> (o .:? "portName")
<*> (o .:? "healthChecks" .!= mempty)
<*> (o .:? "port"))
instance ToJSON BackendService where
toJSON BackendService'{..}
= object
(catMaybes
[("sessionAffinity" .=) <$> _bsSessionAffinity,
("backends" .=) <$> _bsBackends,
("affinityCookieTtlSec" .=) <$>
_bsAffinityCookieTtlSec,
("loadBalancingScheme" .=) <$>
_bsLoadBalancingScheme,
Just ("kind" .= _bsKind),
("enableCDN" .=) <$> _bsEnableCDN,
("fingerprint" .=) <$> _bsFingerprint,
("protocol" .=) <$> _bsProtocol,
("selfLink" .=) <$> _bsSelfLink,
("name" .=) <$> _bsName,
("creationTimestamp" .=) <$> _bsCreationTimestamp,
("id" .=) <$> _bsId, ("region" .=) <$> _bsRegion,
("connectionDraining" .=) <$> _bsConnectionDraining,
("timeoutSec" .=) <$> _bsTimeoutSec,
("description" .=) <$> _bsDescription,
("portName" .=) <$> _bsPortName,
("healthChecks" .=) <$> _bsHealthChecks,
("port" .=) <$> _bsPort])
data InstanceMoveRequest = InstanceMoveRequest'
{ _imrTargetInstance :: !(Maybe Text)
, _imrDestinationZone :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceMoveRequest
:: InstanceMoveRequest
instanceMoveRequest =
InstanceMoveRequest'
{ _imrTargetInstance = Nothing
, _imrDestinationZone = Nothing
}
imrTargetInstance :: Lens' InstanceMoveRequest (Maybe Text)
imrTargetInstance
= lens _imrTargetInstance
(\ s a -> s{_imrTargetInstance = a})
imrDestinationZone :: Lens' InstanceMoveRequest (Maybe Text)
imrDestinationZone
= lens _imrDestinationZone
(\ s a -> s{_imrDestinationZone = a})
instance FromJSON InstanceMoveRequest where
parseJSON
= withObject "InstanceMoveRequest"
(\ o ->
InstanceMoveRequest' <$>
(o .:? "targetInstance") <*>
(o .:? "destinationZone"))
instance ToJSON InstanceMoveRequest where
toJSON InstanceMoveRequest'{..}
= object
(catMaybes
[("targetInstance" .=) <$> _imrTargetInstance,
("destinationZone" .=) <$> _imrDestinationZone])
data InstanceGroupsScopedList = InstanceGroupsScopedList'
{ _igslWarning :: !(Maybe InstanceGroupsScopedListWarning)
, _igslInstanceGroups :: !(Maybe [InstanceGroup])
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupsScopedList
:: InstanceGroupsScopedList
instanceGroupsScopedList =
InstanceGroupsScopedList'
{ _igslWarning = Nothing
, _igslInstanceGroups = Nothing
}
igslWarning :: Lens' InstanceGroupsScopedList (Maybe InstanceGroupsScopedListWarning)
igslWarning
= lens _igslWarning (\ s a -> s{_igslWarning = a})
igslInstanceGroups :: Lens' InstanceGroupsScopedList [InstanceGroup]
igslInstanceGroups
= lens _igslInstanceGroups
(\ s a -> s{_igslInstanceGroups = a})
. _Default
. _Coerce
instance FromJSON InstanceGroupsScopedList where
parseJSON
= withObject "InstanceGroupsScopedList"
(\ o ->
InstanceGroupsScopedList' <$>
(o .:? "warning") <*>
(o .:? "instanceGroups" .!= mempty))
instance ToJSON InstanceGroupsScopedList where
toJSON InstanceGroupsScopedList'{..}
= object
(catMaybes
[("warning" .=) <$> _igslWarning,
("instanceGroups" .=) <$> _igslInstanceGroups])
newtype InstancesStartWithEncryptionKeyRequest = InstancesStartWithEncryptionKeyRequest'
{ _iswekrDisks :: Maybe [CustomerEncryptionKeyProtectedDisk]
} deriving (Eq,Show,Data,Typeable,Generic)
instancesStartWithEncryptionKeyRequest
:: InstancesStartWithEncryptionKeyRequest
instancesStartWithEncryptionKeyRequest =
InstancesStartWithEncryptionKeyRequest'
{ _iswekrDisks = Nothing
}
iswekrDisks :: Lens' InstancesStartWithEncryptionKeyRequest [CustomerEncryptionKeyProtectedDisk]
iswekrDisks
= lens _iswekrDisks (\ s a -> s{_iswekrDisks = a}) .
_Default
. _Coerce
instance FromJSON
InstancesStartWithEncryptionKeyRequest where
parseJSON
= withObject "InstancesStartWithEncryptionKeyRequest"
(\ o ->
InstancesStartWithEncryptionKeyRequest' <$>
(o .:? "disks" .!= mempty))
instance ToJSON
InstancesStartWithEncryptionKeyRequest where
toJSON InstancesStartWithEncryptionKeyRequest'{..}
= object (catMaybes [("disks" .=) <$> _iswekrDisks])
data HTTPSHealthCheck = HTTPSHealthCheck'
{ _hhcRequestPath :: !(Maybe Text)
, _hhcHost :: !(Maybe Text)
, _hhcProxyHeader :: !(Maybe HTTPSHealthCheckProxyHeader)
, _hhcPortName :: !(Maybe Text)
, _hhcPort :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
httpsHealthCheck
:: HTTPSHealthCheck
httpsHealthCheck =
HTTPSHealthCheck'
{ _hhcRequestPath = Nothing
, _hhcHost = Nothing
, _hhcProxyHeader = Nothing
, _hhcPortName = Nothing
, _hhcPort = Nothing
}
hhcRequestPath :: Lens' HTTPSHealthCheck (Maybe Text)
hhcRequestPath
= lens _hhcRequestPath
(\ s a -> s{_hhcRequestPath = a})
hhcHost :: Lens' HTTPSHealthCheck (Maybe Text)
hhcHost = lens _hhcHost (\ s a -> s{_hhcHost = a})
hhcProxyHeader :: Lens' HTTPSHealthCheck (Maybe HTTPSHealthCheckProxyHeader)
hhcProxyHeader
= lens _hhcProxyHeader
(\ s a -> s{_hhcProxyHeader = a})
hhcPortName :: Lens' HTTPSHealthCheck (Maybe Text)
hhcPortName
= lens _hhcPortName (\ s a -> s{_hhcPortName = a})
hhcPort :: Lens' HTTPSHealthCheck (Maybe Int32)
hhcPort
= lens _hhcPort (\ s a -> s{_hhcPort = a}) .
mapping _Coerce
instance FromJSON HTTPSHealthCheck where
parseJSON
= withObject "HTTPSHealthCheck"
(\ o ->
HTTPSHealthCheck' <$>
(o .:? "requestPath") <*> (o .:? "host") <*>
(o .:? "proxyHeader")
<*> (o .:? "portName")
<*> (o .:? "port"))
instance ToJSON HTTPSHealthCheck where
toJSON HTTPSHealthCheck'{..}
= object
(catMaybes
[("requestPath" .=) <$> _hhcRequestPath,
("host" .=) <$> _hhcHost,
("proxyHeader" .=) <$> _hhcProxyHeader,
("portName" .=) <$> _hhcPortName,
("port" .=) <$> _hhcPort])
newtype VPNTunnelAggregatedListItems = VPNTunnelAggregatedListItems'
{ _vtaliAddtional :: HashMap Text VPNTunnelsScopedList
} deriving (Eq,Show,Data,Typeable,Generic)
vpnTunnelAggregatedListItems
:: HashMap Text VPNTunnelsScopedList
-> VPNTunnelAggregatedListItems
vpnTunnelAggregatedListItems pVtaliAddtional_ =
VPNTunnelAggregatedListItems'
{ _vtaliAddtional = _Coerce # pVtaliAddtional_
}
vtaliAddtional :: Lens' VPNTunnelAggregatedListItems (HashMap Text VPNTunnelsScopedList)
vtaliAddtional
= lens _vtaliAddtional
(\ s a -> s{_vtaliAddtional = a})
. _Coerce
instance FromJSON VPNTunnelAggregatedListItems where
parseJSON
= withObject "VPNTunnelAggregatedListItems"
(\ o ->
VPNTunnelAggregatedListItems' <$>
(parseJSONObject o))
instance ToJSON VPNTunnelAggregatedListItems where
toJSON = toJSON . _vtaliAddtional
data Tags = Tags'
{ _tFingerprint :: !(Maybe Bytes)
, _tItems :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
tags
:: Tags
tags =
Tags'
{ _tFingerprint = Nothing
, _tItems = Nothing
}
tFingerprint :: Lens' Tags (Maybe ByteString)
tFingerprint
= lens _tFingerprint (\ s a -> s{_tFingerprint = a})
. mapping _Bytes
tItems :: Lens' Tags [Text]
tItems
= lens _tItems (\ s a -> s{_tItems = a}) . _Default .
_Coerce
instance FromJSON Tags where
parseJSON
= withObject "Tags"
(\ o ->
Tags' <$>
(o .:? "fingerprint") <*> (o .:? "items" .!= mempty))
instance ToJSON Tags where
toJSON Tags'{..}
= object
(catMaybes
[("fingerprint" .=) <$> _tFingerprint,
("items" .=) <$> _tItems])
data AddressAggregatedList = AddressAggregatedList'
{ _addNextPageToken :: !(Maybe Text)
, _addKind :: !Text
, _addItems :: !(Maybe AddressAggregatedListItems)
, _addSelfLink :: !(Maybe Text)
, _addId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
addressAggregatedList
:: AddressAggregatedList
addressAggregatedList =
AddressAggregatedList'
{ _addNextPageToken = Nothing
, _addKind = "compute#addressAggregatedList"
, _addItems = Nothing
, _addSelfLink = Nothing
, _addId = Nothing
}
addNextPageToken :: Lens' AddressAggregatedList (Maybe Text)
addNextPageToken
= lens _addNextPageToken
(\ s a -> s{_addNextPageToken = a})
addKind :: Lens' AddressAggregatedList Text
addKind = lens _addKind (\ s a -> s{_addKind = a})
addItems :: Lens' AddressAggregatedList (Maybe AddressAggregatedListItems)
addItems = lens _addItems (\ s a -> s{_addItems = a})
addSelfLink :: Lens' AddressAggregatedList (Maybe Text)
addSelfLink
= lens _addSelfLink (\ s a -> s{_addSelfLink = a})
addId :: Lens' AddressAggregatedList (Maybe Text)
addId = lens _addId (\ s a -> s{_addId = a})
instance FromJSON AddressAggregatedList where
parseJSON
= withObject "AddressAggregatedList"
(\ o ->
AddressAggregatedList' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "compute#addressAggregatedList")
<*> (o .:? "items")
<*> (o .:? "selfLink")
<*> (o .:? "id"))
instance ToJSON AddressAggregatedList where
toJSON AddressAggregatedList'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _addNextPageToken,
Just ("kind" .= _addKind),
("items" .=) <$> _addItems,
("selfLink" .=) <$> _addSelfLink,
("id" .=) <$> _addId])
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])
data URLMapTest = URLMapTest'
{ _umtPath :: !(Maybe Text)
, _umtService :: !(Maybe Text)
, _umtHost :: !(Maybe Text)
, _umtDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
urlMapTest
:: URLMapTest
urlMapTest =
URLMapTest'
{ _umtPath = Nothing
, _umtService = Nothing
, _umtHost = Nothing
, _umtDescription = Nothing
}
umtPath :: Lens' URLMapTest (Maybe Text)
umtPath = lens _umtPath (\ s a -> s{_umtPath = a})
umtService :: Lens' URLMapTest (Maybe Text)
umtService
= lens _umtService (\ s a -> s{_umtService = a})
umtHost :: Lens' URLMapTest (Maybe Text)
umtHost = lens _umtHost (\ s a -> s{_umtHost = a})
umtDescription :: Lens' URLMapTest (Maybe Text)
umtDescription
= lens _umtDescription
(\ s a -> s{_umtDescription = a})
instance FromJSON URLMapTest where
parseJSON
= withObject "URLMapTest"
(\ o ->
URLMapTest' <$>
(o .:? "path") <*> (o .:? "service") <*>
(o .:? "host")
<*> (o .:? "description"))
instance ToJSON URLMapTest where
toJSON URLMapTest'{..}
= object
(catMaybes
[("path" .=) <$> _umtPath,
("service" .=) <$> _umtService,
("host" .=) <$> _umtHost,
("description" .=) <$> _umtDescription])
newtype RoutersPreviewResponse = RoutersPreviewResponse'
{ _rprResource :: Maybe Router
} deriving (Eq,Show,Data,Typeable,Generic)
routersPreviewResponse
:: RoutersPreviewResponse
routersPreviewResponse =
RoutersPreviewResponse'
{ _rprResource = Nothing
}
rprResource :: Lens' RoutersPreviewResponse (Maybe Router)
rprResource
= lens _rprResource (\ s a -> s{_rprResource = a})
instance FromJSON RoutersPreviewResponse where
parseJSON
= withObject "RoutersPreviewResponse"
(\ o ->
RoutersPreviewResponse' <$> (o .:? "resource"))
instance ToJSON RoutersPreviewResponse where
toJSON RoutersPreviewResponse'{..}
= object
(catMaybes [("resource" .=) <$> _rprResource])
data Instance = Instance'
{ _insnStatus :: !(Maybe InstanceStatus)
, _insnServiceAccounts :: !(Maybe [ServiceAccount])
, _insnNetworkInterfaces :: !(Maybe [NetworkInterface])
, _insnKind :: !Text
, _insnZone :: !(Maybe Text)
, _insnCPUPlatform :: !(Maybe Text)
, _insnSelfLink :: !(Maybe Text)
, _insnName :: !(Maybe Text)
, _insnStatusMessage :: !(Maybe Text)
, _insnCreationTimestamp :: !(Maybe Text)
, _insnMachineType :: !(Maybe Text)
, _insnMetadata :: !(Maybe Metadata)
, _insnId :: !(Maybe (Textual Word64))
, _insnScheduling :: !(Maybe Scheduling)
, _insnDisks :: !(Maybe [AttachedDisk])
, _insnCanIPForward :: !(Maybe Bool)
, _insnDescription :: !(Maybe Text)
, _insnTags :: !(Maybe Tags)
} deriving (Eq,Show,Data,Typeable,Generic)
instance'
:: Instance
instance' =
Instance'
{ _insnStatus = Nothing
, _insnServiceAccounts = Nothing
, _insnNetworkInterfaces = Nothing
, _insnKind = "compute#instance"
, _insnZone = Nothing
, _insnCPUPlatform = Nothing
, _insnSelfLink = Nothing
, _insnName = Nothing
, _insnStatusMessage = Nothing
, _insnCreationTimestamp = Nothing
, _insnMachineType = Nothing
, _insnMetadata = Nothing
, _insnId = Nothing
, _insnScheduling = Nothing
, _insnDisks = Nothing
, _insnCanIPForward = Nothing
, _insnDescription = Nothing
, _insnTags = Nothing
}
insnStatus :: Lens' Instance (Maybe InstanceStatus)
insnStatus
= lens _insnStatus (\ s a -> s{_insnStatus = a})
insnServiceAccounts :: Lens' Instance [ServiceAccount]
insnServiceAccounts
= lens _insnServiceAccounts
(\ s a -> s{_insnServiceAccounts = a})
. _Default
. _Coerce
insnNetworkInterfaces :: Lens' Instance [NetworkInterface]
insnNetworkInterfaces
= lens _insnNetworkInterfaces
(\ s a -> s{_insnNetworkInterfaces = a})
. _Default
. _Coerce
insnKind :: Lens' Instance Text
insnKind = lens _insnKind (\ s a -> s{_insnKind = a})
insnZone :: Lens' Instance (Maybe Text)
insnZone = lens _insnZone (\ s a -> s{_insnZone = a})
insnCPUPlatform :: Lens' Instance (Maybe Text)
insnCPUPlatform
= lens _insnCPUPlatform
(\ s a -> s{_insnCPUPlatform = a})
insnSelfLink :: Lens' Instance (Maybe Text)
insnSelfLink
= lens _insnSelfLink (\ s a -> s{_insnSelfLink = a})
insnName :: Lens' Instance (Maybe Text)
insnName = lens _insnName (\ s a -> s{_insnName = a})
insnStatusMessage :: Lens' Instance (Maybe Text)
insnStatusMessage
= lens _insnStatusMessage
(\ s a -> s{_insnStatusMessage = a})
insnCreationTimestamp :: Lens' Instance (Maybe Text)
insnCreationTimestamp
= lens _insnCreationTimestamp
(\ s a -> s{_insnCreationTimestamp = a})
insnMachineType :: Lens' Instance (Maybe Text)
insnMachineType
= lens _insnMachineType
(\ s a -> s{_insnMachineType = a})
insnMetadata :: Lens' Instance (Maybe Metadata)
insnMetadata
= lens _insnMetadata (\ s a -> s{_insnMetadata = a})
insnId :: Lens' Instance (Maybe Word64)
insnId
= lens _insnId (\ s a -> s{_insnId = a}) .
mapping _Coerce
insnScheduling :: Lens' Instance (Maybe Scheduling)
insnScheduling
= lens _insnScheduling
(\ s a -> s{_insnScheduling = a})
insnDisks :: Lens' Instance [AttachedDisk]
insnDisks
= lens _insnDisks (\ s a -> s{_insnDisks = a}) .
_Default
. _Coerce
insnCanIPForward :: Lens' Instance (Maybe Bool)
insnCanIPForward
= lens _insnCanIPForward
(\ s a -> s{_insnCanIPForward = a})
insnDescription :: Lens' Instance (Maybe Text)
insnDescription
= lens _insnDescription
(\ s a -> s{_insnDescription = a})
insnTags :: Lens' Instance (Maybe Tags)
insnTags = lens _insnTags (\ s a -> s{_insnTags = a})
instance FromJSON Instance where
parseJSON
= withObject "Instance"
(\ o ->
Instance' <$>
(o .:? "status") <*>
(o .:? "serviceAccounts" .!= mempty)
<*> (o .:? "networkInterfaces" .!= mempty)
<*> (o .:? "kind" .!= "compute#instance")
<*> (o .:? "zone")
<*> (o .:? "cpuPlatform")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "statusMessage")
<*> (o .:? "creationTimestamp")
<*> (o .:? "machineType")
<*> (o .:? "metadata")
<*> (o .:? "id")
<*> (o .:? "scheduling")
<*> (o .:? "disks" .!= mempty)
<*> (o .:? "canIpForward")
<*> (o .:? "description")
<*> (o .:? "tags"))
instance ToJSON Instance where
toJSON Instance'{..}
= object
(catMaybes
[("status" .=) <$> _insnStatus,
("serviceAccounts" .=) <$> _insnServiceAccounts,
("networkInterfaces" .=) <$> _insnNetworkInterfaces,
Just ("kind" .= _insnKind),
("zone" .=) <$> _insnZone,
("cpuPlatform" .=) <$> _insnCPUPlatform,
("selfLink" .=) <$> _insnSelfLink,
("name" .=) <$> _insnName,
("statusMessage" .=) <$> _insnStatusMessage,
("creationTimestamp" .=) <$> _insnCreationTimestamp,
("machineType" .=) <$> _insnMachineType,
("metadata" .=) <$> _insnMetadata,
("id" .=) <$> _insnId,
("scheduling" .=) <$> _insnScheduling,
("disks" .=) <$> _insnDisks,
("canIpForward" .=) <$> _insnCanIPForward,
("description" .=) <$> _insnDescription,
("tags" .=) <$> _insnTags])
data PathMatcher = PathMatcher'
{ _pmDefaultService :: !(Maybe Text)
, _pmName :: !(Maybe Text)
, _pmPathRules :: !(Maybe [PathRule])
, _pmDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
pathMatcher
:: PathMatcher
pathMatcher =
PathMatcher'
{ _pmDefaultService = Nothing
, _pmName = Nothing
, _pmPathRules = Nothing
, _pmDescription = Nothing
}
pmDefaultService :: Lens' PathMatcher (Maybe Text)
pmDefaultService
= lens _pmDefaultService
(\ s a -> s{_pmDefaultService = a})
pmName :: Lens' PathMatcher (Maybe Text)
pmName = lens _pmName (\ s a -> s{_pmName = a})
pmPathRules :: Lens' PathMatcher [PathRule]
pmPathRules
= lens _pmPathRules (\ s a -> s{_pmPathRules = a}) .
_Default
. _Coerce
pmDescription :: Lens' PathMatcher (Maybe Text)
pmDescription
= lens _pmDescription
(\ s a -> s{_pmDescription = a})
instance FromJSON PathMatcher where
parseJSON
= withObject "PathMatcher"
(\ o ->
PathMatcher' <$>
(o .:? "defaultService") <*> (o .:? "name") <*>
(o .:? "pathRules" .!= mempty)
<*> (o .:? "description"))
instance ToJSON PathMatcher where
toJSON PathMatcher'{..}
= object
(catMaybes
[("defaultService" .=) <$> _pmDefaultService,
("name" .=) <$> _pmName,
("pathRules" .=) <$> _pmPathRules,
("description" .=) <$> _pmDescription])