{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.AppEngine.Types.Product where
import Network.Google.AppEngine.Types.Sum
import Network.Google.Prelude
data NetworkUtilization =
NetworkUtilization'
{ _nuTargetReceivedBytesPerSecond :: !(Maybe (Textual Int32))
, _nuTargetSentPacketsPerSecond :: !(Maybe (Textual Int32))
, _nuTargetReceivedPacketsPerSecond :: !(Maybe (Textual Int32))
, _nuTargetSentBytesPerSecond :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
networkUtilization
:: NetworkUtilization
networkUtilization =
NetworkUtilization'
{ _nuTargetReceivedBytesPerSecond = Nothing
, _nuTargetSentPacketsPerSecond = Nothing
, _nuTargetReceivedPacketsPerSecond = Nothing
, _nuTargetSentBytesPerSecond = Nothing
}
nuTargetReceivedBytesPerSecond :: Lens' NetworkUtilization (Maybe Int32)
nuTargetReceivedBytesPerSecond
= lens _nuTargetReceivedBytesPerSecond
(\ s a -> s{_nuTargetReceivedBytesPerSecond = a})
. mapping _Coerce
nuTargetSentPacketsPerSecond :: Lens' NetworkUtilization (Maybe Int32)
nuTargetSentPacketsPerSecond
= lens _nuTargetSentPacketsPerSecond
(\ s a -> s{_nuTargetSentPacketsPerSecond = a})
. mapping _Coerce
nuTargetReceivedPacketsPerSecond :: Lens' NetworkUtilization (Maybe Int32)
nuTargetReceivedPacketsPerSecond
= lens _nuTargetReceivedPacketsPerSecond
(\ s a -> s{_nuTargetReceivedPacketsPerSecond = a})
. mapping _Coerce
nuTargetSentBytesPerSecond :: Lens' NetworkUtilization (Maybe Int32)
nuTargetSentBytesPerSecond
= lens _nuTargetSentBytesPerSecond
(\ s a -> s{_nuTargetSentBytesPerSecond = a})
. mapping _Coerce
instance FromJSON NetworkUtilization where
parseJSON
= withObject "NetworkUtilization"
(\ o ->
NetworkUtilization' <$>
(o .:? "targetReceivedBytesPerSecond") <*>
(o .:? "targetSentPacketsPerSecond")
<*> (o .:? "targetReceivedPacketsPerSecond")
<*> (o .:? "targetSentBytesPerSecond"))
instance ToJSON NetworkUtilization where
toJSON NetworkUtilization'{..}
= object
(catMaybes
[("targetReceivedBytesPerSecond" .=) <$>
_nuTargetReceivedBytesPerSecond,
("targetSentPacketsPerSecond" .=) <$>
_nuTargetSentPacketsPerSecond,
("targetReceivedPacketsPerSecond" .=) <$>
_nuTargetReceivedPacketsPerSecond,
("targetSentBytesPerSecond" .=) <$>
_nuTargetSentBytesPerSecond])
data Status =
Status'
{ _sDetails :: !(Maybe [StatusDetailsItem])
, _sCode :: !(Maybe (Textual Int32))
, _sMessage :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
status
:: Status
status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing}
sDetails :: Lens' Status [StatusDetailsItem]
sDetails
= lens _sDetails (\ s a -> s{_sDetails = a}) .
_Default
. _Coerce
sCode :: Lens' Status (Maybe Int32)
sCode
= lens _sCode (\ s a -> s{_sCode = a}) .
mapping _Coerce
sMessage :: Lens' Status (Maybe Text)
sMessage = lens _sMessage (\ s a -> s{_sMessage = a})
instance FromJSON Status where
parseJSON
= withObject "Status"
(\ o ->
Status' <$>
(o .:? "details" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON Status where
toJSON Status'{..}
= object
(catMaybes
[("details" .=) <$> _sDetails,
("code" .=) <$> _sCode,
("message" .=) <$> _sMessage])
newtype LocationSchema =
LocationSchema'
{ _lsAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
locationSchema
:: HashMap Text JSONValue
-> LocationSchema
locationSchema pLsAddtional_ =
LocationSchema' {_lsAddtional = _Coerce # pLsAddtional_}
lsAddtional :: Lens' LocationSchema (HashMap Text JSONValue)
lsAddtional
= lens _lsAddtional (\ s a -> s{_lsAddtional = a}) .
_Coerce
instance FromJSON LocationSchema where
parseJSON
= withObject "LocationSchema"
(\ o -> LocationSchema' <$> (parseJSONObject o))
instance ToJSON LocationSchema where
toJSON = toJSON . _lsAddtional
data AuthorizedDomain =
AuthorizedDomain'
{ _adName :: !(Maybe Text)
, _adId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
authorizedDomain
:: AuthorizedDomain
authorizedDomain = AuthorizedDomain' {_adName = Nothing, _adId = Nothing}
adName :: Lens' AuthorizedDomain (Maybe Text)
adName = lens _adName (\ s a -> s{_adName = a})
adId :: Lens' AuthorizedDomain (Maybe Text)
adId = lens _adId (\ s a -> s{_adId = a})
instance FromJSON AuthorizedDomain where
parseJSON
= withObject "AuthorizedDomain"
(\ o ->
AuthorizedDomain' <$>
(o .:? "name") <*> (o .:? "id"))
instance ToJSON AuthorizedDomain where
toJSON AuthorizedDomain'{..}
= object
(catMaybes
[("name" .=) <$> _adName, ("id" .=) <$> _adId])
data TrafficSplit =
TrafficSplit'
{ _tsShardBy :: !(Maybe TrafficSplitShardBy)
, _tsAllocations :: !(Maybe TrafficSplitAllocations)
}
deriving (Eq, Show, Data, Typeable, Generic)
trafficSplit
:: TrafficSplit
trafficSplit = TrafficSplit' {_tsShardBy = Nothing, _tsAllocations = Nothing}
tsShardBy :: Lens' TrafficSplit (Maybe TrafficSplitShardBy)
tsShardBy
= lens _tsShardBy (\ s a -> s{_tsShardBy = a})
tsAllocations :: Lens' TrafficSplit (Maybe TrafficSplitAllocations)
tsAllocations
= lens _tsAllocations
(\ s a -> s{_tsAllocations = a})
instance FromJSON TrafficSplit where
parseJSON
= withObject "TrafficSplit"
(\ o ->
TrafficSplit' <$>
(o .:? "shardBy") <*> (o .:? "allocations"))
instance ToJSON TrafficSplit where
toJSON TrafficSplit'{..}
= object
(catMaybes
[("shardBy" .=) <$> _tsShardBy,
("allocations" .=) <$> _tsAllocations])
newtype ScriptHandler =
ScriptHandler'
{ _shScriptPath :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
scriptHandler
:: ScriptHandler
scriptHandler = ScriptHandler' {_shScriptPath = Nothing}
shScriptPath :: Lens' ScriptHandler (Maybe Text)
shScriptPath
= lens _shScriptPath (\ s a -> s{_shScriptPath = a})
instance FromJSON ScriptHandler where
parseJSON
= withObject "ScriptHandler"
(\ o -> ScriptHandler' <$> (o .:? "scriptPath"))
instance ToJSON ScriptHandler where
toJSON ScriptHandler'{..}
= object
(catMaybes [("scriptPath" .=) <$> _shScriptPath])
data ListServicesResponse =
ListServicesResponse'
{ _lsrNextPageToken :: !(Maybe Text)
, _lsrServices :: !(Maybe [Service])
}
deriving (Eq, Show, Data, Typeable, Generic)
listServicesResponse
:: ListServicesResponse
listServicesResponse =
ListServicesResponse' {_lsrNextPageToken = Nothing, _lsrServices = Nothing}
lsrNextPageToken :: Lens' ListServicesResponse (Maybe Text)
lsrNextPageToken
= lens _lsrNextPageToken
(\ s a -> s{_lsrNextPageToken = a})
lsrServices :: Lens' ListServicesResponse [Service]
lsrServices
= lens _lsrServices (\ s a -> s{_lsrServices = a}) .
_Default
. _Coerce
instance FromJSON ListServicesResponse where
parseJSON
= withObject "ListServicesResponse"
(\ o ->
ListServicesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "services" .!= mempty))
instance ToJSON ListServicesResponse where
toJSON ListServicesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lsrNextPageToken,
("services" .=) <$> _lsrServices])
data URLMap =
URLMap'
{ _umScript :: !(Maybe ScriptHandler)
, _umSecurityLevel :: !(Maybe URLMapSecurityLevel)
, _umAPIEndpoint :: !(Maybe APIEndpointHandler)
, _umURLRegex :: !(Maybe Text)
, _umRedirectHTTPResponseCode :: !(Maybe URLMapRedirectHTTPResponseCode)
, _umAuthFailAction :: !(Maybe URLMapAuthFailAction)
, _umStaticFiles :: !(Maybe StaticFilesHandler)
, _umLogin :: !(Maybe URLMapLogin)
}
deriving (Eq, Show, Data, Typeable, Generic)
urlMap
:: URLMap
urlMap =
URLMap'
{ _umScript = Nothing
, _umSecurityLevel = Nothing
, _umAPIEndpoint = Nothing
, _umURLRegex = Nothing
, _umRedirectHTTPResponseCode = Nothing
, _umAuthFailAction = Nothing
, _umStaticFiles = Nothing
, _umLogin = Nothing
}
umScript :: Lens' URLMap (Maybe ScriptHandler)
umScript = lens _umScript (\ s a -> s{_umScript = a})
umSecurityLevel :: Lens' URLMap (Maybe URLMapSecurityLevel)
umSecurityLevel
= lens _umSecurityLevel
(\ s a -> s{_umSecurityLevel = a})
umAPIEndpoint :: Lens' URLMap (Maybe APIEndpointHandler)
umAPIEndpoint
= lens _umAPIEndpoint
(\ s a -> s{_umAPIEndpoint = a})
umURLRegex :: Lens' URLMap (Maybe Text)
umURLRegex
= lens _umURLRegex (\ s a -> s{_umURLRegex = a})
umRedirectHTTPResponseCode :: Lens' URLMap (Maybe URLMapRedirectHTTPResponseCode)
umRedirectHTTPResponseCode
= lens _umRedirectHTTPResponseCode
(\ s a -> s{_umRedirectHTTPResponseCode = a})
umAuthFailAction :: Lens' URLMap (Maybe URLMapAuthFailAction)
umAuthFailAction
= lens _umAuthFailAction
(\ s a -> s{_umAuthFailAction = a})
umStaticFiles :: Lens' URLMap (Maybe StaticFilesHandler)
umStaticFiles
= lens _umStaticFiles
(\ s a -> s{_umStaticFiles = a})
umLogin :: Lens' URLMap (Maybe URLMapLogin)
umLogin = lens _umLogin (\ s a -> s{_umLogin = a})
instance FromJSON URLMap where
parseJSON
= withObject "URLMap"
(\ o ->
URLMap' <$>
(o .:? "script") <*> (o .:? "securityLevel") <*>
(o .:? "apiEndpoint")
<*> (o .:? "urlRegex")
<*> (o .:? "redirectHttpResponseCode")
<*> (o .:? "authFailAction")
<*> (o .:? "staticFiles")
<*> (o .:? "login"))
instance ToJSON URLMap where
toJSON URLMap'{..}
= object
(catMaybes
[("script" .=) <$> _umScript,
("securityLevel" .=) <$> _umSecurityLevel,
("apiEndpoint" .=) <$> _umAPIEndpoint,
("urlRegex" .=) <$> _umURLRegex,
("redirectHttpResponseCode" .=) <$>
_umRedirectHTTPResponseCode,
("authFailAction" .=) <$> _umAuthFailAction,
("staticFiles" .=) <$> _umStaticFiles,
("login" .=) <$> _umLogin])
data Library =
Library'
{ _lName :: !(Maybe Text)
, _lVersion :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
library
:: Library
library = Library' {_lName = Nothing, _lVersion = Nothing}
lName :: Lens' Library (Maybe Text)
lName = lens _lName (\ s a -> s{_lName = a})
lVersion :: Lens' Library (Maybe Text)
lVersion = lens _lVersion (\ s a -> s{_lVersion = a})
instance FromJSON Library where
parseJSON
= withObject "Library"
(\ o ->
Library' <$> (o .:? "name") <*> (o .:? "version"))
instance ToJSON Library where
toJSON Library'{..}
= object
(catMaybes
[("name" .=) <$> _lName,
("version" .=) <$> _lVersion])
data ResourceRecord =
ResourceRecord'
{ _rrRrData :: !(Maybe Text)
, _rrName :: !(Maybe Text)
, _rrType :: !(Maybe ResourceRecordType)
}
deriving (Eq, Show, Data, Typeable, Generic)
resourceRecord
:: ResourceRecord
resourceRecord =
ResourceRecord' {_rrRrData = Nothing, _rrName = Nothing, _rrType = Nothing}
rrRrData :: Lens' ResourceRecord (Maybe Text)
rrRrData = lens _rrRrData (\ s a -> s{_rrRrData = a})
rrName :: Lens' ResourceRecord (Maybe Text)
rrName = lens _rrName (\ s a -> s{_rrName = a})
rrType :: Lens' ResourceRecord (Maybe ResourceRecordType)
rrType = lens _rrType (\ s a -> s{_rrType = a})
instance FromJSON ResourceRecord where
parseJSON
= withObject "ResourceRecord"
(\ o ->
ResourceRecord' <$>
(o .:? "rrdata") <*> (o .:? "name") <*>
(o .:? "type"))
instance ToJSON ResourceRecord where
toJSON ResourceRecord'{..}
= object
(catMaybes
[("rrdata" .=) <$> _rrRrData,
("name" .=) <$> _rrName, ("type" .=) <$> _rrType])
data ListLocationsResponse =
ListLocationsResponse'
{ _llrNextPageToken :: !(Maybe Text)
, _llrLocations :: !(Maybe [Location])
}
deriving (Eq, Show, Data, Typeable, Generic)
listLocationsResponse
:: ListLocationsResponse
listLocationsResponse =
ListLocationsResponse' {_llrNextPageToken = Nothing, _llrLocations = Nothing}
llrNextPageToken :: Lens' ListLocationsResponse (Maybe Text)
llrNextPageToken
= lens _llrNextPageToken
(\ s a -> s{_llrNextPageToken = a})
llrLocations :: Lens' ListLocationsResponse [Location]
llrLocations
= lens _llrLocations (\ s a -> s{_llrLocations = a})
. _Default
. _Coerce
instance FromJSON ListLocationsResponse where
parseJSON
= withObject "ListLocationsResponse"
(\ o ->
ListLocationsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "locations" .!= mempty))
instance ToJSON ListLocationsResponse where
toJSON ListLocationsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _llrNextPageToken,
("locations" .=) <$> _llrLocations])
data DiskUtilization =
DiskUtilization'
{ _duTargetReadBytesPerSecond :: !(Maybe (Textual Int32))
, _duTargetReadOpsPerSecond :: !(Maybe (Textual Int32))
, _duTargetWriteOpsPerSecond :: !(Maybe (Textual Int32))
, _duTargetWriteBytesPerSecond :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
diskUtilization
:: DiskUtilization
diskUtilization =
DiskUtilization'
{ _duTargetReadBytesPerSecond = Nothing
, _duTargetReadOpsPerSecond = Nothing
, _duTargetWriteOpsPerSecond = Nothing
, _duTargetWriteBytesPerSecond = Nothing
}
duTargetReadBytesPerSecond :: Lens' DiskUtilization (Maybe Int32)
duTargetReadBytesPerSecond
= lens _duTargetReadBytesPerSecond
(\ s a -> s{_duTargetReadBytesPerSecond = a})
. mapping _Coerce
duTargetReadOpsPerSecond :: Lens' DiskUtilization (Maybe Int32)
duTargetReadOpsPerSecond
= lens _duTargetReadOpsPerSecond
(\ s a -> s{_duTargetReadOpsPerSecond = a})
. mapping _Coerce
duTargetWriteOpsPerSecond :: Lens' DiskUtilization (Maybe Int32)
duTargetWriteOpsPerSecond
= lens _duTargetWriteOpsPerSecond
(\ s a -> s{_duTargetWriteOpsPerSecond = a})
. mapping _Coerce
duTargetWriteBytesPerSecond :: Lens' DiskUtilization (Maybe Int32)
duTargetWriteBytesPerSecond
= lens _duTargetWriteBytesPerSecond
(\ s a -> s{_duTargetWriteBytesPerSecond = a})
. mapping _Coerce
instance FromJSON DiskUtilization where
parseJSON
= withObject "DiskUtilization"
(\ o ->
DiskUtilization' <$>
(o .:? "targetReadBytesPerSecond") <*>
(o .:? "targetReadOpsPerSecond")
<*> (o .:? "targetWriteOpsPerSecond")
<*> (o .:? "targetWriteBytesPerSecond"))
instance ToJSON DiskUtilization where
toJSON DiskUtilization'{..}
= object
(catMaybes
[("targetReadBytesPerSecond" .=) <$>
_duTargetReadBytesPerSecond,
("targetReadOpsPerSecond" .=) <$>
_duTargetReadOpsPerSecond,
("targetWriteOpsPerSecond" .=) <$>
_duTargetWriteOpsPerSecond,
("targetWriteBytesPerSecond" .=) <$>
_duTargetWriteBytesPerSecond])
data ListOperationsResponse =
ListOperationsResponse'
{ _lorNextPageToken :: !(Maybe Text)
, _lorOperations :: !(Maybe [Operation])
}
deriving (Eq, Show, Data, Typeable, Generic)
listOperationsResponse
:: ListOperationsResponse
listOperationsResponse =
ListOperationsResponse'
{_lorNextPageToken = Nothing, _lorOperations = Nothing}
lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text)
lorNextPageToken
= lens _lorNextPageToken
(\ s a -> s{_lorNextPageToken = a})
lorOperations :: Lens' ListOperationsResponse [Operation]
lorOperations
= lens _lorOperations
(\ s a -> s{_lorOperations = a})
. _Default
. _Coerce
instance FromJSON ListOperationsResponse where
parseJSON
= withObject "ListOperationsResponse"
(\ o ->
ListOperationsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "operations" .!= mempty))
instance ToJSON ListOperationsResponse where
toJSON ListOperationsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lorNextPageToken,
("operations" .=) <$> _lorOperations])
data HealthCheck =
HealthCheck'
{ _hcHealthyThreshold :: !(Maybe (Textual Word32))
, _hcDisableHealthCheck :: !(Maybe Bool)
, _hcCheckInterval :: !(Maybe GDuration)
, _hcRestartThreshold :: !(Maybe (Textual Word32))
, _hcHost :: !(Maybe Text)
, _hcTimeout :: !(Maybe GDuration)
, _hcUnhealthyThreshold :: !(Maybe (Textual Word32))
}
deriving (Eq, Show, Data, Typeable, Generic)
healthCheck
:: HealthCheck
healthCheck =
HealthCheck'
{ _hcHealthyThreshold = Nothing
, _hcDisableHealthCheck = Nothing
, _hcCheckInterval = Nothing
, _hcRestartThreshold = Nothing
, _hcHost = Nothing
, _hcTimeout = Nothing
, _hcUnhealthyThreshold = Nothing
}
hcHealthyThreshold :: Lens' HealthCheck (Maybe Word32)
hcHealthyThreshold
= lens _hcHealthyThreshold
(\ s a -> s{_hcHealthyThreshold = a})
. mapping _Coerce
hcDisableHealthCheck :: Lens' HealthCheck (Maybe Bool)
hcDisableHealthCheck
= lens _hcDisableHealthCheck
(\ s a -> s{_hcDisableHealthCheck = a})
hcCheckInterval :: Lens' HealthCheck (Maybe Scientific)
hcCheckInterval
= lens _hcCheckInterval
(\ s a -> s{_hcCheckInterval = a})
. mapping _GDuration
hcRestartThreshold :: Lens' HealthCheck (Maybe Word32)
hcRestartThreshold
= lens _hcRestartThreshold
(\ s a -> s{_hcRestartThreshold = a})
. mapping _Coerce
hcHost :: Lens' HealthCheck (Maybe Text)
hcHost = lens _hcHost (\ s a -> s{_hcHost = a})
hcTimeout :: Lens' HealthCheck (Maybe Scientific)
hcTimeout
= lens _hcTimeout (\ s a -> s{_hcTimeout = a}) .
mapping _GDuration
hcUnhealthyThreshold :: Lens' HealthCheck (Maybe Word32)
hcUnhealthyThreshold
= lens _hcUnhealthyThreshold
(\ s a -> s{_hcUnhealthyThreshold = a})
. mapping _Coerce
instance FromJSON HealthCheck where
parseJSON
= withObject "HealthCheck"
(\ o ->
HealthCheck' <$>
(o .:? "healthyThreshold") <*>
(o .:? "disableHealthCheck")
<*> (o .:? "checkInterval")
<*> (o .:? "restartThreshold")
<*> (o .:? "host")
<*> (o .:? "timeout")
<*> (o .:? "unhealthyThreshold"))
instance ToJSON HealthCheck where
toJSON HealthCheck'{..}
= object
(catMaybes
[("healthyThreshold" .=) <$> _hcHealthyThreshold,
("disableHealthCheck" .=) <$> _hcDisableHealthCheck,
("checkInterval" .=) <$> _hcCheckInterval,
("restartThreshold" .=) <$> _hcRestartThreshold,
("host" .=) <$> _hcHost,
("timeout" .=) <$> _hcTimeout,
("unhealthyThreshold" .=) <$> _hcUnhealthyThreshold])
data AuthorizedCertificate =
AuthorizedCertificate'
{ _acManagedCertificate :: !(Maybe ManagedCertificate)
, _acCertificateRawData :: !(Maybe CertificateRawData)
, _acDomainNames :: !(Maybe [Text])
, _acDomainMAppingsCount :: !(Maybe (Textual Int32))
, _acName :: !(Maybe Text)
, _acDisplayName :: !(Maybe Text)
, _acId :: !(Maybe Text)
, _acExpireTime :: !(Maybe DateTime')
, _acVisibleDomainMAppings :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
authorizedCertificate
:: AuthorizedCertificate
authorizedCertificate =
AuthorizedCertificate'
{ _acManagedCertificate = Nothing
, _acCertificateRawData = Nothing
, _acDomainNames = Nothing
, _acDomainMAppingsCount = Nothing
, _acName = Nothing
, _acDisplayName = Nothing
, _acId = Nothing
, _acExpireTime = Nothing
, _acVisibleDomainMAppings = Nothing
}
acManagedCertificate :: Lens' AuthorizedCertificate (Maybe ManagedCertificate)
acManagedCertificate
= lens _acManagedCertificate
(\ s a -> s{_acManagedCertificate = a})
acCertificateRawData :: Lens' AuthorizedCertificate (Maybe CertificateRawData)
acCertificateRawData
= lens _acCertificateRawData
(\ s a -> s{_acCertificateRawData = a})
acDomainNames :: Lens' AuthorizedCertificate [Text]
acDomainNames
= lens _acDomainNames
(\ s a -> s{_acDomainNames = a})
. _Default
. _Coerce
acDomainMAppingsCount :: Lens' AuthorizedCertificate (Maybe Int32)
acDomainMAppingsCount
= lens _acDomainMAppingsCount
(\ s a -> s{_acDomainMAppingsCount = a})
. mapping _Coerce
acName :: Lens' AuthorizedCertificate (Maybe Text)
acName = lens _acName (\ s a -> s{_acName = a})
acDisplayName :: Lens' AuthorizedCertificate (Maybe Text)
acDisplayName
= lens _acDisplayName
(\ s a -> s{_acDisplayName = a})
acId :: Lens' AuthorizedCertificate (Maybe Text)
acId = lens _acId (\ s a -> s{_acId = a})
acExpireTime :: Lens' AuthorizedCertificate (Maybe UTCTime)
acExpireTime
= lens _acExpireTime (\ s a -> s{_acExpireTime = a})
. mapping _DateTime
acVisibleDomainMAppings :: Lens' AuthorizedCertificate [Text]
acVisibleDomainMAppings
= lens _acVisibleDomainMAppings
(\ s a -> s{_acVisibleDomainMAppings = a})
. _Default
. _Coerce
instance FromJSON AuthorizedCertificate where
parseJSON
= withObject "AuthorizedCertificate"
(\ o ->
AuthorizedCertificate' <$>
(o .:? "managedCertificate") <*>
(o .:? "certificateRawData")
<*> (o .:? "domainNames" .!= mempty)
<*> (o .:? "domainMappingsCount")
<*> (o .:? "name")
<*> (o .:? "displayName")
<*> (o .:? "id")
<*> (o .:? "expireTime")
<*> (o .:? "visibleDomainMappings" .!= mempty))
instance ToJSON AuthorizedCertificate where
toJSON AuthorizedCertificate'{..}
= object
(catMaybes
[("managedCertificate" .=) <$> _acManagedCertificate,
("certificateRawData" .=) <$> _acCertificateRawData,
("domainNames" .=) <$> _acDomainNames,
("domainMappingsCount" .=) <$>
_acDomainMAppingsCount,
("name" .=) <$> _acName,
("displayName" .=) <$> _acDisplayName,
("id" .=) <$> _acId,
("expireTime" .=) <$> _acExpireTime,
("visibleDomainMappings" .=) <$>
_acVisibleDomainMAppings])
newtype VPCAccessConnector =
VPCAccessConnector'
{ _vacName :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
vpcAccessConnector
:: VPCAccessConnector
vpcAccessConnector = VPCAccessConnector' {_vacName = Nothing}
vacName :: Lens' VPCAccessConnector (Maybe Text)
vacName = lens _vacName (\ s a -> s{_vacName = a})
instance FromJSON VPCAccessConnector where
parseJSON
= withObject "VPCAccessConnector"
(\ o -> VPCAccessConnector' <$> (o .:? "name"))
instance ToJSON VPCAccessConnector where
toJSON VPCAccessConnector'{..}
= object (catMaybes [("name" .=) <$> _vacName])
data APIConfigHandler =
APIConfigHandler'
{ _achScript :: !(Maybe Text)
, _achSecurityLevel :: !(Maybe APIConfigHandlerSecurityLevel)
, _achURL :: !(Maybe Text)
, _achAuthFailAction :: !(Maybe APIConfigHandlerAuthFailAction)
, _achLogin :: !(Maybe APIConfigHandlerLogin)
}
deriving (Eq, Show, Data, Typeable, Generic)
apiConfigHandler
:: APIConfigHandler
apiConfigHandler =
APIConfigHandler'
{ _achScript = Nothing
, _achSecurityLevel = Nothing
, _achURL = Nothing
, _achAuthFailAction = Nothing
, _achLogin = Nothing
}
achScript :: Lens' APIConfigHandler (Maybe Text)
achScript
= lens _achScript (\ s a -> s{_achScript = a})
achSecurityLevel :: Lens' APIConfigHandler (Maybe APIConfigHandlerSecurityLevel)
achSecurityLevel
= lens _achSecurityLevel
(\ s a -> s{_achSecurityLevel = a})
achURL :: Lens' APIConfigHandler (Maybe Text)
achURL = lens _achURL (\ s a -> s{_achURL = a})
achAuthFailAction :: Lens' APIConfigHandler (Maybe APIConfigHandlerAuthFailAction)
achAuthFailAction
= lens _achAuthFailAction
(\ s a -> s{_achAuthFailAction = a})
achLogin :: Lens' APIConfigHandler (Maybe APIConfigHandlerLogin)
achLogin = lens _achLogin (\ s a -> s{_achLogin = a})
instance FromJSON APIConfigHandler where
parseJSON
= withObject "APIConfigHandler"
(\ o ->
APIConfigHandler' <$>
(o .:? "script") <*> (o .:? "securityLevel") <*>
(o .:? "url")
<*> (o .:? "authFailAction")
<*> (o .:? "login"))
instance ToJSON APIConfigHandler where
toJSON APIConfigHandler'{..}
= object
(catMaybes
[("script" .=) <$> _achScript,
("securityLevel" .=) <$> _achSecurityLevel,
("url" .=) <$> _achURL,
("authFailAction" .=) <$> _achAuthFailAction,
("login" .=) <$> _achLogin])
newtype VersionEnvVariables =
VersionEnvVariables'
{ _vevAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
versionEnvVariables
:: HashMap Text Text
-> VersionEnvVariables
versionEnvVariables pVevAddtional_ =
VersionEnvVariables' {_vevAddtional = _Coerce # pVevAddtional_}
vevAddtional :: Lens' VersionEnvVariables (HashMap Text Text)
vevAddtional
= lens _vevAddtional (\ s a -> s{_vevAddtional = a})
. _Coerce
instance FromJSON VersionEnvVariables where
parseJSON
= withObject "VersionEnvVariables"
(\ o -> VersionEnvVariables' <$> (parseJSONObject o))
instance ToJSON VersionEnvVariables where
toJSON = toJSON . _vevAddtional
data Application =
Application'
{ _aDefaultHostname :: !(Maybe Text)
, _aDefaultCookieExpiration :: !(Maybe GDuration)
, _aIap :: !(Maybe IdentityAwareProxy)
, _aAuthDomain :: !(Maybe Text)
, _aCodeBucket :: !(Maybe Text)
, _aGcrDomain :: !(Maybe Text)
, _aFeatureSettings :: !(Maybe FeatureSettings)
, _aName :: !(Maybe Text)
, _aDispatchRules :: !(Maybe [URLDispatchRule])
, _aDefaultBucket :: !(Maybe Text)
, _aId :: !(Maybe Text)
, _aLocationId :: !(Maybe Text)
, _aServingStatus :: !(Maybe ApplicationServingStatus)
}
deriving (Eq, Show, Data, Typeable, Generic)
application
:: Application
application =
Application'
{ _aDefaultHostname = Nothing
, _aDefaultCookieExpiration = Nothing
, _aIap = Nothing
, _aAuthDomain = Nothing
, _aCodeBucket = Nothing
, _aGcrDomain = Nothing
, _aFeatureSettings = Nothing
, _aName = Nothing
, _aDispatchRules = Nothing
, _aDefaultBucket = Nothing
, _aId = Nothing
, _aLocationId = Nothing
, _aServingStatus = Nothing
}
aDefaultHostname :: Lens' Application (Maybe Text)
aDefaultHostname
= lens _aDefaultHostname
(\ s a -> s{_aDefaultHostname = a})
aDefaultCookieExpiration :: Lens' Application (Maybe Scientific)
aDefaultCookieExpiration
= lens _aDefaultCookieExpiration
(\ s a -> s{_aDefaultCookieExpiration = a})
. mapping _GDuration
aIap :: Lens' Application (Maybe IdentityAwareProxy)
aIap = lens _aIap (\ s a -> s{_aIap = a})
aAuthDomain :: Lens' Application (Maybe Text)
aAuthDomain
= lens _aAuthDomain (\ s a -> s{_aAuthDomain = a})
aCodeBucket :: Lens' Application (Maybe Text)
aCodeBucket
= lens _aCodeBucket (\ s a -> s{_aCodeBucket = a})
aGcrDomain :: Lens' Application (Maybe Text)
aGcrDomain
= lens _aGcrDomain (\ s a -> s{_aGcrDomain = a})
aFeatureSettings :: Lens' Application (Maybe FeatureSettings)
aFeatureSettings
= lens _aFeatureSettings
(\ s a -> s{_aFeatureSettings = a})
aName :: Lens' Application (Maybe Text)
aName = lens _aName (\ s a -> s{_aName = a})
aDispatchRules :: Lens' Application [URLDispatchRule]
aDispatchRules
= lens _aDispatchRules
(\ s a -> s{_aDispatchRules = a})
. _Default
. _Coerce
aDefaultBucket :: Lens' Application (Maybe Text)
aDefaultBucket
= lens _aDefaultBucket
(\ s a -> s{_aDefaultBucket = a})
aId :: Lens' Application (Maybe Text)
aId = lens _aId (\ s a -> s{_aId = a})
aLocationId :: Lens' Application (Maybe Text)
aLocationId
= lens _aLocationId (\ s a -> s{_aLocationId = a})
aServingStatus :: Lens' Application (Maybe ApplicationServingStatus)
aServingStatus
= lens _aServingStatus
(\ s a -> s{_aServingStatus = a})
instance FromJSON Application where
parseJSON
= withObject "Application"
(\ o ->
Application' <$>
(o .:? "defaultHostname") <*>
(o .:? "defaultCookieExpiration")
<*> (o .:? "iap")
<*> (o .:? "authDomain")
<*> (o .:? "codeBucket")
<*> (o .:? "gcrDomain")
<*> (o .:? "featureSettings")
<*> (o .:? "name")
<*> (o .:? "dispatchRules" .!= mempty)
<*> (o .:? "defaultBucket")
<*> (o .:? "id")
<*> (o .:? "locationId")
<*> (o .:? "servingStatus"))
instance ToJSON Application where
toJSON Application'{..}
= object
(catMaybes
[("defaultHostname" .=) <$> _aDefaultHostname,
("defaultCookieExpiration" .=) <$>
_aDefaultCookieExpiration,
("iap" .=) <$> _aIap,
("authDomain" .=) <$> _aAuthDomain,
("codeBucket" .=) <$> _aCodeBucket,
("gcrDomain" .=) <$> _aGcrDomain,
("featureSettings" .=) <$> _aFeatureSettings,
("name" .=) <$> _aName,
("dispatchRules" .=) <$> _aDispatchRules,
("defaultBucket" .=) <$> _aDefaultBucket,
("id" .=) <$> _aId,
("locationId" .=) <$> _aLocationId,
("servingStatus" .=) <$> _aServingStatus])
newtype VersionBetaSettings =
VersionBetaSettings'
{ _vbsAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
versionBetaSettings
:: HashMap Text Text
-> VersionBetaSettings
versionBetaSettings pVbsAddtional_ =
VersionBetaSettings' {_vbsAddtional = _Coerce # pVbsAddtional_}
vbsAddtional :: Lens' VersionBetaSettings (HashMap Text Text)
vbsAddtional
= lens _vbsAddtional (\ s a -> s{_vbsAddtional = a})
. _Coerce
instance FromJSON VersionBetaSettings where
parseJSON
= withObject "VersionBetaSettings"
(\ o -> VersionBetaSettings' <$> (parseJSONObject o))
instance ToJSON VersionBetaSettings where
toJSON = toJSON . _vbsAddtional
data Service =
Service'
{ _sSplit :: !(Maybe TrafficSplit)
, _sName :: !(Maybe Text)
, _sId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
service
:: Service
service = Service' {_sSplit = Nothing, _sName = Nothing, _sId = Nothing}
sSplit :: Lens' Service (Maybe TrafficSplit)
sSplit = lens _sSplit (\ s a -> s{_sSplit = a})
sName :: Lens' Service (Maybe Text)
sName = lens _sName (\ s a -> s{_sName = a})
sId :: Lens' Service (Maybe Text)
sId = lens _sId (\ s a -> s{_sId = a})
instance FromJSON Service where
parseJSON
= withObject "Service"
(\ o ->
Service' <$>
(o .:? "split") <*> (o .:? "name") <*> (o .:? "id"))
instance ToJSON Service where
toJSON Service'{..}
= object
(catMaybes
[("split" .=) <$> _sSplit, ("name" .=) <$> _sName,
("id" .=) <$> _sId])
data EndpointsAPIService =
EndpointsAPIService'
{ _easDisableTraceSampling :: !(Maybe Bool)
, _easName :: !(Maybe Text)
, _easConfigId :: !(Maybe Text)
, _easRolloutStrategy :: !(Maybe EndpointsAPIServiceRolloutStrategy)
}
deriving (Eq, Show, Data, Typeable, Generic)
endpointsAPIService
:: EndpointsAPIService
endpointsAPIService =
EndpointsAPIService'
{ _easDisableTraceSampling = Nothing
, _easName = Nothing
, _easConfigId = Nothing
, _easRolloutStrategy = Nothing
}
easDisableTraceSampling :: Lens' EndpointsAPIService (Maybe Bool)
easDisableTraceSampling
= lens _easDisableTraceSampling
(\ s a -> s{_easDisableTraceSampling = a})
easName :: Lens' EndpointsAPIService (Maybe Text)
easName = lens _easName (\ s a -> s{_easName = a})
easConfigId :: Lens' EndpointsAPIService (Maybe Text)
easConfigId
= lens _easConfigId (\ s a -> s{_easConfigId = a})
easRolloutStrategy :: Lens' EndpointsAPIService (Maybe EndpointsAPIServiceRolloutStrategy)
easRolloutStrategy
= lens _easRolloutStrategy
(\ s a -> s{_easRolloutStrategy = a})
instance FromJSON EndpointsAPIService where
parseJSON
= withObject "EndpointsAPIService"
(\ o ->
EndpointsAPIService' <$>
(o .:? "disableTraceSampling") <*> (o .:? "name") <*>
(o .:? "configId")
<*> (o .:? "rolloutStrategy"))
instance ToJSON EndpointsAPIService where
toJSON EndpointsAPIService'{..}
= object
(catMaybes
[("disableTraceSampling" .=) <$>
_easDisableTraceSampling,
("name" .=) <$> _easName,
("configId" .=) <$> _easConfigId,
("rolloutStrategy" .=) <$> _easRolloutStrategy])
data Location =
Location'
{ _locName :: !(Maybe Text)
, _locMetadata :: !(Maybe LocationSchema)
, _locDisplayName :: !(Maybe Text)
, _locLabels :: !(Maybe LocationLabels)
, _locLocationId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
location
:: Location
location =
Location'
{ _locName = Nothing
, _locMetadata = Nothing
, _locDisplayName = Nothing
, _locLabels = Nothing
, _locLocationId = Nothing
}
locName :: Lens' Location (Maybe Text)
locName = lens _locName (\ s a -> s{_locName = a})
locMetadata :: Lens' Location (Maybe LocationSchema)
locMetadata
= lens _locMetadata (\ s a -> s{_locMetadata = a})
locDisplayName :: Lens' Location (Maybe Text)
locDisplayName
= lens _locDisplayName
(\ s a -> s{_locDisplayName = a})
locLabels :: Lens' Location (Maybe LocationLabels)
locLabels
= lens _locLabels (\ s a -> s{_locLabels = a})
locLocationId :: Lens' Location (Maybe Text)
locLocationId
= lens _locLocationId
(\ s a -> s{_locLocationId = a})
instance FromJSON Location where
parseJSON
= withObject "Location"
(\ o ->
Location' <$>
(o .:? "name") <*> (o .:? "metadata") <*>
(o .:? "displayName")
<*> (o .:? "labels")
<*> (o .:? "locationId"))
instance ToJSON Location where
toJSON Location'{..}
= object
(catMaybes
[("name" .=) <$> _locName,
("metadata" .=) <$> _locMetadata,
("displayName" .=) <$> _locDisplayName,
("labels" .=) <$> _locLabels,
("locationId" .=) <$> _locLocationId])
data Operation =
Operation'
{ _oDone :: !(Maybe Bool)
, _oError :: !(Maybe Status)
, _oResponse :: !(Maybe OperationResponse)
, _oName :: !(Maybe Text)
, _oMetadata :: !(Maybe OperationMetadata)
}
deriving (Eq, Show, Data, Typeable, Generic)
operation
:: Operation
operation =
Operation'
{ _oDone = Nothing
, _oError = Nothing
, _oResponse = Nothing
, _oName = Nothing
, _oMetadata = Nothing
}
oDone :: Lens' Operation (Maybe Bool)
oDone = lens _oDone (\ s a -> s{_oDone = a})
oError :: Lens' Operation (Maybe Status)
oError = lens _oError (\ s a -> s{_oError = a})
oResponse :: Lens' Operation (Maybe OperationResponse)
oResponse
= lens _oResponse (\ s a -> s{_oResponse = a})
oName :: Lens' Operation (Maybe Text)
oName = lens _oName (\ s a -> s{_oName = a})
oMetadata :: Lens' Operation (Maybe OperationMetadata)
oMetadata
= lens _oMetadata (\ s a -> s{_oMetadata = a})
instance FromJSON Operation where
parseJSON
= withObject "Operation"
(\ o ->
Operation' <$>
(o .:? "done") <*> (o .:? "error") <*>
(o .:? "response")
<*> (o .:? "name")
<*> (o .:? "metadata"))
instance ToJSON Operation where
toJSON Operation'{..}
= object
(catMaybes
[("done" .=) <$> _oDone, ("error" .=) <$> _oError,
("response" .=) <$> _oResponse,
("name" .=) <$> _oName,
("metadata" .=) <$> _oMetadata])
data ZipInfo =
ZipInfo'
{ _ziFilesCount :: !(Maybe (Textual Int32))
, _ziSourceURL :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
zipInfo
:: ZipInfo
zipInfo = ZipInfo' {_ziFilesCount = Nothing, _ziSourceURL = Nothing}
ziFilesCount :: Lens' ZipInfo (Maybe Int32)
ziFilesCount
= lens _ziFilesCount (\ s a -> s{_ziFilesCount = a})
. mapping _Coerce
ziSourceURL :: Lens' ZipInfo (Maybe Text)
ziSourceURL
= lens _ziSourceURL (\ s a -> s{_ziSourceURL = a})
instance FromJSON ZipInfo where
parseJSON
= withObject "ZipInfo"
(\ o ->
ZipInfo' <$>
(o .:? "filesCount") <*> (o .:? "sourceUrl"))
instance ToJSON ZipInfo where
toJSON ZipInfo'{..}
= object
(catMaybes
[("filesCount" .=) <$> _ziFilesCount,
("sourceUrl" .=) <$> _ziSourceURL])
data Empty =
Empty'
deriving (Eq, Show, Data, Typeable, Generic)
empty
:: Empty
empty = Empty'
instance FromJSON Empty where
parseJSON = withObject "Empty" (\ o -> pure Empty')
instance ToJSON Empty where
toJSON = const emptyObject
data URLDispatchRule =
URLDispatchRule'
{ _udrPath :: !(Maybe Text)
, _udrService :: !(Maybe Text)
, _udrDomain :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
urlDispatchRule
:: URLDispatchRule
urlDispatchRule =
URLDispatchRule'
{_udrPath = Nothing, _udrService = Nothing, _udrDomain = Nothing}
udrPath :: Lens' URLDispatchRule (Maybe Text)
udrPath = lens _udrPath (\ s a -> s{_udrPath = a})
udrService :: Lens' URLDispatchRule (Maybe Text)
udrService
= lens _udrService (\ s a -> s{_udrService = a})
udrDomain :: Lens' URLDispatchRule (Maybe Text)
udrDomain
= lens _udrDomain (\ s a -> s{_udrDomain = a})
instance FromJSON URLDispatchRule where
parseJSON
= withObject "URLDispatchRule"
(\ o ->
URLDispatchRule' <$>
(o .:? "path") <*> (o .:? "service") <*>
(o .:? "domain"))
instance ToJSON URLDispatchRule where
toJSON URLDispatchRule'{..}
= object
(catMaybes
[("path" .=) <$> _udrPath,
("service" .=) <$> _udrService,
("domain" .=) <$> _udrDomain])
data OperationMetadataV1Beta =
OperationMetadataV1Beta'
{ _omvbEphemeralMessage :: !(Maybe Text)
, _omvbInsertTime :: !(Maybe DateTime')
, _omvbUser :: !(Maybe Text)
, _omvbMethod :: !(Maybe Text)
, _omvbEndTime :: !(Maybe DateTime')
, _omvbWarning :: !(Maybe [Text])
, _omvbCreateVersionMetadata :: !(Maybe CreateVersionMetadataV1Beta)
, _omvbTarget :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
operationMetadataV1Beta
:: OperationMetadataV1Beta
operationMetadataV1Beta =
OperationMetadataV1Beta'
{ _omvbEphemeralMessage = Nothing
, _omvbInsertTime = Nothing
, _omvbUser = Nothing
, _omvbMethod = Nothing
, _omvbEndTime = Nothing
, _omvbWarning = Nothing
, _omvbCreateVersionMetadata = Nothing
, _omvbTarget = Nothing
}
omvbEphemeralMessage :: Lens' OperationMetadataV1Beta (Maybe Text)
omvbEphemeralMessage
= lens _omvbEphemeralMessage
(\ s a -> s{_omvbEphemeralMessage = a})
omvbInsertTime :: Lens' OperationMetadataV1Beta (Maybe UTCTime)
omvbInsertTime
= lens _omvbInsertTime
(\ s a -> s{_omvbInsertTime = a})
. mapping _DateTime
omvbUser :: Lens' OperationMetadataV1Beta (Maybe Text)
omvbUser = lens _omvbUser (\ s a -> s{_omvbUser = a})
omvbMethod :: Lens' OperationMetadataV1Beta (Maybe Text)
omvbMethod
= lens _omvbMethod (\ s a -> s{_omvbMethod = a})
omvbEndTime :: Lens' OperationMetadataV1Beta (Maybe UTCTime)
omvbEndTime
= lens _omvbEndTime (\ s a -> s{_omvbEndTime = a}) .
mapping _DateTime
omvbWarning :: Lens' OperationMetadataV1Beta [Text]
omvbWarning
= lens _omvbWarning (\ s a -> s{_omvbWarning = a}) .
_Default
. _Coerce
omvbCreateVersionMetadata :: Lens' OperationMetadataV1Beta (Maybe CreateVersionMetadataV1Beta)
omvbCreateVersionMetadata
= lens _omvbCreateVersionMetadata
(\ s a -> s{_omvbCreateVersionMetadata = a})
omvbTarget :: Lens' OperationMetadataV1Beta (Maybe Text)
omvbTarget
= lens _omvbTarget (\ s a -> s{_omvbTarget = a})
instance FromJSON OperationMetadataV1Beta where
parseJSON
= withObject "OperationMetadataV1Beta"
(\ o ->
OperationMetadataV1Beta' <$>
(o .:? "ephemeralMessage") <*> (o .:? "insertTime")
<*> (o .:? "user")
<*> (o .:? "method")
<*> (o .:? "endTime")
<*> (o .:? "warning" .!= mempty)
<*> (o .:? "createVersionMetadata")
<*> (o .:? "target"))
instance ToJSON OperationMetadataV1Beta where
toJSON OperationMetadataV1Beta'{..}
= object
(catMaybes
[("ephemeralMessage" .=) <$> _omvbEphemeralMessage,
("insertTime" .=) <$> _omvbInsertTime,
("user" .=) <$> _omvbUser,
("method" .=) <$> _omvbMethod,
("endTime" .=) <$> _omvbEndTime,
("warning" .=) <$> _omvbWarning,
("createVersionMetadata" .=) <$>
_omvbCreateVersionMetadata,
("target" .=) <$> _omvbTarget])
data ListAuthorizedDomainsResponse =
ListAuthorizedDomainsResponse'
{ _ladrNextPageToken :: !(Maybe Text)
, _ladrDomains :: !(Maybe [AuthorizedDomain])
}
deriving (Eq, Show, Data, Typeable, Generic)
listAuthorizedDomainsResponse
:: ListAuthorizedDomainsResponse
listAuthorizedDomainsResponse =
ListAuthorizedDomainsResponse'
{_ladrNextPageToken = Nothing, _ladrDomains = Nothing}
ladrNextPageToken :: Lens' ListAuthorizedDomainsResponse (Maybe Text)
ladrNextPageToken
= lens _ladrNextPageToken
(\ s a -> s{_ladrNextPageToken = a})
ladrDomains :: Lens' ListAuthorizedDomainsResponse [AuthorizedDomain]
ladrDomains
= lens _ladrDomains (\ s a -> s{_ladrDomains = a}) .
_Default
. _Coerce
instance FromJSON ListAuthorizedDomainsResponse where
parseJSON
= withObject "ListAuthorizedDomainsResponse"
(\ o ->
ListAuthorizedDomainsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "domains" .!= mempty))
instance ToJSON ListAuthorizedDomainsResponse where
toJSON ListAuthorizedDomainsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ladrNextPageToken,
("domains" .=) <$> _ladrDomains])
newtype Entrypoint =
Entrypoint'
{ _eShell :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
entrypoint
:: Entrypoint
entrypoint = Entrypoint' {_eShell = Nothing}
eShell :: Lens' Entrypoint (Maybe Text)
eShell = lens _eShell (\ s a -> s{_eShell = a})
instance FromJSON Entrypoint where
parseJSON
= withObject "Entrypoint"
(\ o -> Entrypoint' <$> (o .:? "shell"))
instance ToJSON Entrypoint where
toJSON Entrypoint'{..}
= object (catMaybes [("shell" .=) <$> _eShell])
data ListVersionsResponse =
ListVersionsResponse'
{ _lvrNextPageToken :: !(Maybe Text)
, _lvrVersions :: !(Maybe [Version])
}
deriving (Eq, Show, Data, Typeable, Generic)
listVersionsResponse
:: ListVersionsResponse
listVersionsResponse =
ListVersionsResponse' {_lvrNextPageToken = Nothing, _lvrVersions = Nothing}
lvrNextPageToken :: Lens' ListVersionsResponse (Maybe Text)
lvrNextPageToken
= lens _lvrNextPageToken
(\ s a -> s{_lvrNextPageToken = a})
lvrVersions :: Lens' ListVersionsResponse [Version]
lvrVersions
= lens _lvrVersions (\ s a -> s{_lvrVersions = a}) .
_Default
. _Coerce
instance FromJSON ListVersionsResponse where
parseJSON
= withObject "ListVersionsResponse"
(\ o ->
ListVersionsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "versions" .!= mempty))
instance ToJSON ListVersionsResponse where
toJSON ListVersionsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lvrNextPageToken,
("versions" .=) <$> _lvrVersions])
data ManagedCertificate =
ManagedCertificate'
{ _mcStatus :: !(Maybe ManagedCertificateStatus)
, _mcLastRenewalTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
managedCertificate
:: ManagedCertificate
managedCertificate =
ManagedCertificate' {_mcStatus = Nothing, _mcLastRenewalTime = Nothing}
mcStatus :: Lens' ManagedCertificate (Maybe ManagedCertificateStatus)
mcStatus = lens _mcStatus (\ s a -> s{_mcStatus = a})
mcLastRenewalTime :: Lens' ManagedCertificate (Maybe UTCTime)
mcLastRenewalTime
= lens _mcLastRenewalTime
(\ s a -> s{_mcLastRenewalTime = a})
. mapping _DateTime
instance FromJSON ManagedCertificate where
parseJSON
= withObject "ManagedCertificate"
(\ o ->
ManagedCertificate' <$>
(o .:? "status") <*> (o .:? "lastRenewalTime"))
instance ToJSON ManagedCertificate where
toJSON ManagedCertificate'{..}
= object
(catMaybes
[("status" .=) <$> _mcStatus,
("lastRenewalTime" .=) <$> _mcLastRenewalTime])
newtype CreateVersionMetadataV1Alpha =
CreateVersionMetadataV1Alpha'
{ _cvmvaCloudBuildId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
createVersionMetadataV1Alpha
:: CreateVersionMetadataV1Alpha
createVersionMetadataV1Alpha =
CreateVersionMetadataV1Alpha' {_cvmvaCloudBuildId = Nothing}
cvmvaCloudBuildId :: Lens' CreateVersionMetadataV1Alpha (Maybe Text)
cvmvaCloudBuildId
= lens _cvmvaCloudBuildId
(\ s a -> s{_cvmvaCloudBuildId = a})
instance FromJSON CreateVersionMetadataV1Alpha where
parseJSON
= withObject "CreateVersionMetadataV1Alpha"
(\ o ->
CreateVersionMetadataV1Alpha' <$>
(o .:? "cloudBuildId"))
instance ToJSON CreateVersionMetadataV1Alpha where
toJSON CreateVersionMetadataV1Alpha'{..}
= object
(catMaybes
[("cloudBuildId" .=) <$> _cvmvaCloudBuildId])
data FileInfo =
FileInfo'
{ _fiSha1Sum :: !(Maybe Text)
, _fiMimeType :: !(Maybe Text)
, _fiSourceURL :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
fileInfo
:: FileInfo
fileInfo =
FileInfo'
{_fiSha1Sum = Nothing, _fiMimeType = Nothing, _fiSourceURL = Nothing}
fiSha1Sum :: Lens' FileInfo (Maybe Text)
fiSha1Sum
= lens _fiSha1Sum (\ s a -> s{_fiSha1Sum = a})
fiMimeType :: Lens' FileInfo (Maybe Text)
fiMimeType
= lens _fiMimeType (\ s a -> s{_fiMimeType = a})
fiSourceURL :: Lens' FileInfo (Maybe Text)
fiSourceURL
= lens _fiSourceURL (\ s a -> s{_fiSourceURL = a})
instance FromJSON FileInfo where
parseJSON
= withObject "FileInfo"
(\ o ->
FileInfo' <$>
(o .:? "sha1Sum") <*> (o .:? "mimeType") <*>
(o .:? "sourceUrl"))
instance ToJSON FileInfo where
toJSON FileInfo'{..}
= object
(catMaybes
[("sha1Sum" .=) <$> _fiSha1Sum,
("mimeType" .=) <$> _fiMimeType,
("sourceUrl" .=) <$> _fiSourceURL])
data AutomaticScaling =
AutomaticScaling'
{ _asNetworkUtilization :: !(Maybe NetworkUtilization)
, _asMaxTotalInstances :: !(Maybe (Textual Int32))
, _asMinIdleInstances :: !(Maybe (Textual Int32))
, _asDiskUtilization :: !(Maybe DiskUtilization)
, _asMinPendingLatency :: !(Maybe GDuration)
, _asCPUUtilization :: !(Maybe CPUUtilization)
, _asMaxIdleInstances :: !(Maybe (Textual Int32))
, _asMinTotalInstances :: !(Maybe (Textual Int32))
, _asMaxConcurrentRequests :: !(Maybe (Textual Int32))
, _asCoolDownPeriod :: !(Maybe GDuration)
, _asRequestUtilization :: !(Maybe RequestUtilization)
, _asMaxPendingLatency :: !(Maybe GDuration)
, _asStandardSchedulerSettings :: !(Maybe StandardSchedulerSettings)
}
deriving (Eq, Show, Data, Typeable, Generic)
automaticScaling
:: AutomaticScaling
automaticScaling =
AutomaticScaling'
{ _asNetworkUtilization = Nothing
, _asMaxTotalInstances = Nothing
, _asMinIdleInstances = Nothing
, _asDiskUtilization = Nothing
, _asMinPendingLatency = Nothing
, _asCPUUtilization = Nothing
, _asMaxIdleInstances = Nothing
, _asMinTotalInstances = Nothing
, _asMaxConcurrentRequests = Nothing
, _asCoolDownPeriod = Nothing
, _asRequestUtilization = Nothing
, _asMaxPendingLatency = Nothing
, _asStandardSchedulerSettings = Nothing
}
asNetworkUtilization :: Lens' AutomaticScaling (Maybe NetworkUtilization)
asNetworkUtilization
= lens _asNetworkUtilization
(\ s a -> s{_asNetworkUtilization = a})
asMaxTotalInstances :: Lens' AutomaticScaling (Maybe Int32)
asMaxTotalInstances
= lens _asMaxTotalInstances
(\ s a -> s{_asMaxTotalInstances = a})
. mapping _Coerce
asMinIdleInstances :: Lens' AutomaticScaling (Maybe Int32)
asMinIdleInstances
= lens _asMinIdleInstances
(\ s a -> s{_asMinIdleInstances = a})
. mapping _Coerce
asDiskUtilization :: Lens' AutomaticScaling (Maybe DiskUtilization)
asDiskUtilization
= lens _asDiskUtilization
(\ s a -> s{_asDiskUtilization = a})
asMinPendingLatency :: Lens' AutomaticScaling (Maybe Scientific)
asMinPendingLatency
= lens _asMinPendingLatency
(\ s a -> s{_asMinPendingLatency = a})
. mapping _GDuration
asCPUUtilization :: Lens' AutomaticScaling (Maybe CPUUtilization)
asCPUUtilization
= lens _asCPUUtilization
(\ s a -> s{_asCPUUtilization = a})
asMaxIdleInstances :: Lens' AutomaticScaling (Maybe Int32)
asMaxIdleInstances
= lens _asMaxIdleInstances
(\ s a -> s{_asMaxIdleInstances = a})
. mapping _Coerce
asMinTotalInstances :: Lens' AutomaticScaling (Maybe Int32)
asMinTotalInstances
= lens _asMinTotalInstances
(\ s a -> s{_asMinTotalInstances = a})
. mapping _Coerce
asMaxConcurrentRequests :: Lens' AutomaticScaling (Maybe Int32)
asMaxConcurrentRequests
= lens _asMaxConcurrentRequests
(\ s a -> s{_asMaxConcurrentRequests = a})
. mapping _Coerce
asCoolDownPeriod :: Lens' AutomaticScaling (Maybe Scientific)
asCoolDownPeriod
= lens _asCoolDownPeriod
(\ s a -> s{_asCoolDownPeriod = a})
. mapping _GDuration
asRequestUtilization :: Lens' AutomaticScaling (Maybe RequestUtilization)
asRequestUtilization
= lens _asRequestUtilization
(\ s a -> s{_asRequestUtilization = a})
asMaxPendingLatency :: Lens' AutomaticScaling (Maybe Scientific)
asMaxPendingLatency
= lens _asMaxPendingLatency
(\ s a -> s{_asMaxPendingLatency = a})
. mapping _GDuration
asStandardSchedulerSettings :: Lens' AutomaticScaling (Maybe StandardSchedulerSettings)
asStandardSchedulerSettings
= lens _asStandardSchedulerSettings
(\ s a -> s{_asStandardSchedulerSettings = a})
instance FromJSON AutomaticScaling where
parseJSON
= withObject "AutomaticScaling"
(\ o ->
AutomaticScaling' <$>
(o .:? "networkUtilization") <*>
(o .:? "maxTotalInstances")
<*> (o .:? "minIdleInstances")
<*> (o .:? "diskUtilization")
<*> (o .:? "minPendingLatency")
<*> (o .:? "cpuUtilization")
<*> (o .:? "maxIdleInstances")
<*> (o .:? "minTotalInstances")
<*> (o .:? "maxConcurrentRequests")
<*> (o .:? "coolDownPeriod")
<*> (o .:? "requestUtilization")
<*> (o .:? "maxPendingLatency")
<*> (o .:? "standardSchedulerSettings"))
instance ToJSON AutomaticScaling where
toJSON AutomaticScaling'{..}
= object
(catMaybes
[("networkUtilization" .=) <$> _asNetworkUtilization,
("maxTotalInstances" .=) <$> _asMaxTotalInstances,
("minIdleInstances" .=) <$> _asMinIdleInstances,
("diskUtilization" .=) <$> _asDiskUtilization,
("minPendingLatency" .=) <$> _asMinPendingLatency,
("cpuUtilization" .=) <$> _asCPUUtilization,
("maxIdleInstances" .=) <$> _asMaxIdleInstances,
("minTotalInstances" .=) <$> _asMinTotalInstances,
("maxConcurrentRequests" .=) <$>
_asMaxConcurrentRequests,
("coolDownPeriod" .=) <$> _asCoolDownPeriod,
("requestUtilization" .=) <$> _asRequestUtilization,
("maxPendingLatency" .=) <$> _asMaxPendingLatency,
("standardSchedulerSettings" .=) <$>
_asStandardSchedulerSettings])
data Volume =
Volume'
{ _vSizeGb :: !(Maybe (Textual Double))
, _vName :: !(Maybe Text)
, _vVolumeType :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
volume
:: Volume
volume = Volume' {_vSizeGb = Nothing, _vName = Nothing, _vVolumeType = Nothing}
vSizeGb :: Lens' Volume (Maybe Double)
vSizeGb
= lens _vSizeGb (\ s a -> s{_vSizeGb = a}) .
mapping _Coerce
vName :: Lens' Volume (Maybe Text)
vName = lens _vName (\ s a -> s{_vName = a})
vVolumeType :: Lens' Volume (Maybe Text)
vVolumeType
= lens _vVolumeType (\ s a -> s{_vVolumeType = a})
instance FromJSON Volume where
parseJSON
= withObject "Volume"
(\ o ->
Volume' <$>
(o .:? "sizeGb") <*> (o .:? "name") <*>
(o .:? "volumeType"))
instance ToJSON Volume where
toJSON Volume'{..}
= object
(catMaybes
[("sizeGb" .=) <$> _vSizeGb, ("name" .=) <$> _vName,
("volumeType" .=) <$> _vVolumeType])
newtype APIEndpointHandler =
APIEndpointHandler'
{ _aehScriptPath :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
apiEndpointHandler
:: APIEndpointHandler
apiEndpointHandler = APIEndpointHandler' {_aehScriptPath = Nothing}
aehScriptPath :: Lens' APIEndpointHandler (Maybe Text)
aehScriptPath
= lens _aehScriptPath
(\ s a -> s{_aehScriptPath = a})
instance FromJSON APIEndpointHandler where
parseJSON
= withObject "APIEndpointHandler"
(\ o -> APIEndpointHandler' <$> (o .:? "scriptPath"))
instance ToJSON APIEndpointHandler where
toJSON APIEndpointHandler'{..}
= object
(catMaybes [("scriptPath" .=) <$> _aehScriptPath])
newtype StatusDetailsItem =
StatusDetailsItem'
{ _sdiAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
statusDetailsItem
:: HashMap Text JSONValue
-> StatusDetailsItem
statusDetailsItem pSdiAddtional_ =
StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_}
sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)
sdiAddtional
= lens _sdiAddtional (\ s a -> s{_sdiAddtional = a})
. _Coerce
instance FromJSON StatusDetailsItem where
parseJSON
= withObject "StatusDetailsItem"
(\ o -> StatusDetailsItem' <$> (parseJSONObject o))
instance ToJSON StatusDetailsItem where
toJSON = toJSON . _sdiAddtional
data ListIngressRulesResponse =
ListIngressRulesResponse'
{ _lirrNextPageToken :: !(Maybe Text)
, _lirrIngressRules :: !(Maybe [FirewallRule])
}
deriving (Eq, Show, Data, Typeable, Generic)
listIngressRulesResponse
:: ListIngressRulesResponse
listIngressRulesResponse =
ListIngressRulesResponse'
{_lirrNextPageToken = Nothing, _lirrIngressRules = Nothing}
lirrNextPageToken :: Lens' ListIngressRulesResponse (Maybe Text)
lirrNextPageToken
= lens _lirrNextPageToken
(\ s a -> s{_lirrNextPageToken = a})
lirrIngressRules :: Lens' ListIngressRulesResponse [FirewallRule]
lirrIngressRules
= lens _lirrIngressRules
(\ s a -> s{_lirrIngressRules = a})
. _Default
. _Coerce
instance FromJSON ListIngressRulesResponse where
parseJSON
= withObject "ListIngressRulesResponse"
(\ o ->
ListIngressRulesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "ingressRules" .!= mempty))
instance ToJSON ListIngressRulesResponse where
toJSON ListIngressRulesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lirrNextPageToken,
("ingressRules" .=) <$> _lirrIngressRules])
data Network =
Network'
{ _nSessionAffinity :: !(Maybe Bool)
, _nSubnetworkName :: !(Maybe Text)
, _nForwardedPorts :: !(Maybe [Text])
, _nInstanceTag :: !(Maybe Text)
, _nName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
network
:: Network
network =
Network'
{ _nSessionAffinity = Nothing
, _nSubnetworkName = Nothing
, _nForwardedPorts = Nothing
, _nInstanceTag = Nothing
, _nName = Nothing
}
nSessionAffinity :: Lens' Network (Maybe Bool)
nSessionAffinity
= lens _nSessionAffinity
(\ s a -> s{_nSessionAffinity = a})
nSubnetworkName :: Lens' Network (Maybe Text)
nSubnetworkName
= lens _nSubnetworkName
(\ s a -> s{_nSubnetworkName = a})
nForwardedPorts :: Lens' Network [Text]
nForwardedPorts
= lens _nForwardedPorts
(\ s a -> s{_nForwardedPorts = a})
. _Default
. _Coerce
nInstanceTag :: Lens' Network (Maybe Text)
nInstanceTag
= lens _nInstanceTag (\ s a -> s{_nInstanceTag = a})
nName :: Lens' Network (Maybe Text)
nName = lens _nName (\ s a -> s{_nName = a})
instance FromJSON Network where
parseJSON
= withObject "Network"
(\ o ->
Network' <$>
(o .:? "sessionAffinity") <*>
(o .:? "subnetworkName")
<*> (o .:? "forwardedPorts" .!= mempty)
<*> (o .:? "instanceTag")
<*> (o .:? "name"))
instance ToJSON Network where
toJSON Network'{..}
= object
(catMaybes
[("sessionAffinity" .=) <$> _nSessionAffinity,
("subnetworkName" .=) <$> _nSubnetworkName,
("forwardedPorts" .=) <$> _nForwardedPorts,
("instanceTag" .=) <$> _nInstanceTag,
("name" .=) <$> _nName])
data ReadinessCheck =
ReadinessCheck'
{ _rcSuccessThreshold :: !(Maybe (Textual Word32))
, _rcFailureThreshold :: !(Maybe (Textual Word32))
, _rcPath :: !(Maybe Text)
, _rcCheckInterval :: !(Maybe GDuration)
, _rcAppStartTimeout :: !(Maybe GDuration)
, _rcHost :: !(Maybe Text)
, _rcTimeout :: !(Maybe GDuration)
}
deriving (Eq, Show, Data, Typeable, Generic)
readinessCheck
:: ReadinessCheck
readinessCheck =
ReadinessCheck'
{ _rcSuccessThreshold = Nothing
, _rcFailureThreshold = Nothing
, _rcPath = Nothing
, _rcCheckInterval = Nothing
, _rcAppStartTimeout = Nothing
, _rcHost = Nothing
, _rcTimeout = Nothing
}
rcSuccessThreshold :: Lens' ReadinessCheck (Maybe Word32)
rcSuccessThreshold
= lens _rcSuccessThreshold
(\ s a -> s{_rcSuccessThreshold = a})
. mapping _Coerce
rcFailureThreshold :: Lens' ReadinessCheck (Maybe Word32)
rcFailureThreshold
= lens _rcFailureThreshold
(\ s a -> s{_rcFailureThreshold = a})
. mapping _Coerce
rcPath :: Lens' ReadinessCheck (Maybe Text)
rcPath = lens _rcPath (\ s a -> s{_rcPath = a})
rcCheckInterval :: Lens' ReadinessCheck (Maybe Scientific)
rcCheckInterval
= lens _rcCheckInterval
(\ s a -> s{_rcCheckInterval = a})
. mapping _GDuration
rcAppStartTimeout :: Lens' ReadinessCheck (Maybe Scientific)
rcAppStartTimeout
= lens _rcAppStartTimeout
(\ s a -> s{_rcAppStartTimeout = a})
. mapping _GDuration
rcHost :: Lens' ReadinessCheck (Maybe Text)
rcHost = lens _rcHost (\ s a -> s{_rcHost = a})
rcTimeout :: Lens' ReadinessCheck (Maybe Scientific)
rcTimeout
= lens _rcTimeout (\ s a -> s{_rcTimeout = a}) .
mapping _GDuration
instance FromJSON ReadinessCheck where
parseJSON
= withObject "ReadinessCheck"
(\ o ->
ReadinessCheck' <$>
(o .:? "successThreshold") <*>
(o .:? "failureThreshold")
<*> (o .:? "path")
<*> (o .:? "checkInterval")
<*> (o .:? "appStartTimeout")
<*> (o .:? "host")
<*> (o .:? "timeout"))
instance ToJSON ReadinessCheck where
toJSON ReadinessCheck'{..}
= object
(catMaybes
[("successThreshold" .=) <$> _rcSuccessThreshold,
("failureThreshold" .=) <$> _rcFailureThreshold,
("path" .=) <$> _rcPath,
("checkInterval" .=) <$> _rcCheckInterval,
("appStartTimeout" .=) <$> _rcAppStartTimeout,
("host" .=) <$> _rcHost,
("timeout" .=) <$> _rcTimeout])
newtype BatchUpdateIngressRulesRequest =
BatchUpdateIngressRulesRequest'
{ _buirrIngressRules :: Maybe [FirewallRule]
}
deriving (Eq, Show, Data, Typeable, Generic)
batchUpdateIngressRulesRequest
:: BatchUpdateIngressRulesRequest
batchUpdateIngressRulesRequest =
BatchUpdateIngressRulesRequest' {_buirrIngressRules = Nothing}
buirrIngressRules :: Lens' BatchUpdateIngressRulesRequest [FirewallRule]
buirrIngressRules
= lens _buirrIngressRules
(\ s a -> s{_buirrIngressRules = a})
. _Default
. _Coerce
instance FromJSON BatchUpdateIngressRulesRequest
where
parseJSON
= withObject "BatchUpdateIngressRulesRequest"
(\ o ->
BatchUpdateIngressRulesRequest' <$>
(o .:? "ingressRules" .!= mempty))
instance ToJSON BatchUpdateIngressRulesRequest where
toJSON BatchUpdateIngressRulesRequest'{..}
= object
(catMaybes
[("ingressRules" .=) <$> _buirrIngressRules])
newtype DebugInstanceRequest =
DebugInstanceRequest'
{ _dirSSHKey :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
debugInstanceRequest
:: DebugInstanceRequest
debugInstanceRequest = DebugInstanceRequest' {_dirSSHKey = Nothing}
dirSSHKey :: Lens' DebugInstanceRequest (Maybe Text)
dirSSHKey
= lens _dirSSHKey (\ s a -> s{_dirSSHKey = a})
instance FromJSON DebugInstanceRequest where
parseJSON
= withObject "DebugInstanceRequest"
(\ o -> DebugInstanceRequest' <$> (o .:? "sshKey"))
instance ToJSON DebugInstanceRequest where
toJSON DebugInstanceRequest'{..}
= object (catMaybes [("sshKey" .=) <$> _dirSSHKey])
newtype StaticFilesHandlerHTTPHeaders =
StaticFilesHandlerHTTPHeaders'
{ _sfhhttphAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
staticFilesHandlerHTTPHeaders
:: HashMap Text Text
-> StaticFilesHandlerHTTPHeaders
staticFilesHandlerHTTPHeaders pSfhhttphAddtional_ =
StaticFilesHandlerHTTPHeaders'
{_sfhhttphAddtional = _Coerce # pSfhhttphAddtional_}
sfhhttphAddtional :: Lens' StaticFilesHandlerHTTPHeaders (HashMap Text Text)
sfhhttphAddtional
= lens _sfhhttphAddtional
(\ s a -> s{_sfhhttphAddtional = a})
. _Coerce
instance FromJSON StaticFilesHandlerHTTPHeaders where
parseJSON
= withObject "StaticFilesHandlerHTTPHeaders"
(\ o ->
StaticFilesHandlerHTTPHeaders' <$>
(parseJSONObject o))
instance ToJSON StaticFilesHandlerHTTPHeaders where
toJSON = toJSON . _sfhhttphAddtional
data Resources =
Resources'
{ _rMemoryGb :: !(Maybe (Textual Double))
, _rDiskGb :: !(Maybe (Textual Double))
, _rVolumes :: !(Maybe [Volume])
, _rCPU :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
resources
:: Resources
resources =
Resources'
{ _rMemoryGb = Nothing
, _rDiskGb = Nothing
, _rVolumes = Nothing
, _rCPU = Nothing
}
rMemoryGb :: Lens' Resources (Maybe Double)
rMemoryGb
= lens _rMemoryGb (\ s a -> s{_rMemoryGb = a}) .
mapping _Coerce
rDiskGb :: Lens' Resources (Maybe Double)
rDiskGb
= lens _rDiskGb (\ s a -> s{_rDiskGb = a}) .
mapping _Coerce
rVolumes :: Lens' Resources [Volume]
rVolumes
= lens _rVolumes (\ s a -> s{_rVolumes = a}) .
_Default
. _Coerce
rCPU :: Lens' Resources (Maybe Double)
rCPU
= lens _rCPU (\ s a -> s{_rCPU = a}) .
mapping _Coerce
instance FromJSON Resources where
parseJSON
= withObject "Resources"
(\ o ->
Resources' <$>
(o .:? "memoryGb") <*> (o .:? "diskGb") <*>
(o .:? "volumes" .!= mempty)
<*> (o .:? "cpu"))
instance ToJSON Resources where
toJSON Resources'{..}
= object
(catMaybes
[("memoryGb" .=) <$> _rMemoryGb,
("diskGb" .=) <$> _rDiskGb,
("volumes" .=) <$> _rVolumes, ("cpu" .=) <$> _rCPU])
data FeatureSettings =
FeatureSettings'
{ _fsUseContainerOptimizedOS :: !(Maybe Bool)
, _fsSplitHealthChecks :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
featureSettings
:: FeatureSettings
featureSettings =
FeatureSettings'
{_fsUseContainerOptimizedOS = Nothing, _fsSplitHealthChecks = Nothing}
fsUseContainerOptimizedOS :: Lens' FeatureSettings (Maybe Bool)
fsUseContainerOptimizedOS
= lens _fsUseContainerOptimizedOS
(\ s a -> s{_fsUseContainerOptimizedOS = a})
fsSplitHealthChecks :: Lens' FeatureSettings (Maybe Bool)
fsSplitHealthChecks
= lens _fsSplitHealthChecks
(\ s a -> s{_fsSplitHealthChecks = a})
instance FromJSON FeatureSettings where
parseJSON
= withObject "FeatureSettings"
(\ o ->
FeatureSettings' <$>
(o .:? "useContainerOptimizedOs") <*>
(o .:? "splitHealthChecks"))
instance ToJSON FeatureSettings where
toJSON FeatureSettings'{..}
= object
(catMaybes
[("useContainerOptimizedOs" .=) <$>
_fsUseContainerOptimizedOS,
("splitHealthChecks" .=) <$> _fsSplitHealthChecks])
data CertificateRawData =
CertificateRawData'
{ _crdPrivateKey :: !(Maybe Text)
, _crdPublicCertificate :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
certificateRawData
:: CertificateRawData
certificateRawData =
CertificateRawData'
{_crdPrivateKey = Nothing, _crdPublicCertificate = Nothing}
crdPrivateKey :: Lens' CertificateRawData (Maybe Text)
crdPrivateKey
= lens _crdPrivateKey
(\ s a -> s{_crdPrivateKey = a})
crdPublicCertificate :: Lens' CertificateRawData (Maybe Text)
crdPublicCertificate
= lens _crdPublicCertificate
(\ s a -> s{_crdPublicCertificate = a})
instance FromJSON CertificateRawData where
parseJSON
= withObject "CertificateRawData"
(\ o ->
CertificateRawData' <$>
(o .:? "privateKey") <*> (o .:? "publicCertificate"))
instance ToJSON CertificateRawData where
toJSON CertificateRawData'{..}
= object
(catMaybes
[("privateKey" .=) <$> _crdPrivateKey,
("publicCertificate" .=) <$> _crdPublicCertificate])
data DomainMApping =
DomainMApping'
{ _dmaResourceRecords :: !(Maybe [ResourceRecord])
, _dmaName :: !(Maybe Text)
, _dmaId :: !(Maybe Text)
, _dmaSSLSettings :: !(Maybe SSLSettings)
}
deriving (Eq, Show, Data, Typeable, Generic)
domainMApping
:: DomainMApping
domainMApping =
DomainMApping'
{ _dmaResourceRecords = Nothing
, _dmaName = Nothing
, _dmaId = Nothing
, _dmaSSLSettings = Nothing
}
dmaResourceRecords :: Lens' DomainMApping [ResourceRecord]
dmaResourceRecords
= lens _dmaResourceRecords
(\ s a -> s{_dmaResourceRecords = a})
. _Default
. _Coerce
dmaName :: Lens' DomainMApping (Maybe Text)
dmaName = lens _dmaName (\ s a -> s{_dmaName = a})
dmaId :: Lens' DomainMApping (Maybe Text)
dmaId = lens _dmaId (\ s a -> s{_dmaId = a})
dmaSSLSettings :: Lens' DomainMApping (Maybe SSLSettings)
dmaSSLSettings
= lens _dmaSSLSettings
(\ s a -> s{_dmaSSLSettings = a})
instance FromJSON DomainMApping where
parseJSON
= withObject "DomainMApping"
(\ o ->
DomainMApping' <$>
(o .:? "resourceRecords" .!= mempty) <*>
(o .:? "name")
<*> (o .:? "id")
<*> (o .:? "sslSettings"))
instance ToJSON DomainMApping where
toJSON DomainMApping'{..}
= object
(catMaybes
[("resourceRecords" .=) <$> _dmaResourceRecords,
("name" .=) <$> _dmaName, ("id" .=) <$> _dmaId,
("sslSettings" .=) <$> _dmaSSLSettings])
newtype DeploymentFiles =
DeploymentFiles'
{ _dfAddtional :: HashMap Text FileInfo
}
deriving (Eq, Show, Data, Typeable, Generic)
deploymentFiles
:: HashMap Text FileInfo
-> DeploymentFiles
deploymentFiles pDfAddtional_ =
DeploymentFiles' {_dfAddtional = _Coerce # pDfAddtional_}
dfAddtional :: Lens' DeploymentFiles (HashMap Text FileInfo)
dfAddtional
= lens _dfAddtional (\ s a -> s{_dfAddtional = a}) .
_Coerce
instance FromJSON DeploymentFiles where
parseJSON
= withObject "DeploymentFiles"
(\ o -> DeploymentFiles' <$> (parseJSONObject o))
instance ToJSON DeploymentFiles where
toJSON = toJSON . _dfAddtional
newtype BatchUpdateIngressRulesResponse =
BatchUpdateIngressRulesResponse'
{ _bIngressRules :: Maybe [FirewallRule]
}
deriving (Eq, Show, Data, Typeable, Generic)
batchUpdateIngressRulesResponse
:: BatchUpdateIngressRulesResponse
batchUpdateIngressRulesResponse =
BatchUpdateIngressRulesResponse' {_bIngressRules = Nothing}
bIngressRules :: Lens' BatchUpdateIngressRulesResponse [FirewallRule]
bIngressRules
= lens _bIngressRules
(\ s a -> s{_bIngressRules = a})
. _Default
. _Coerce
instance FromJSON BatchUpdateIngressRulesResponse
where
parseJSON
= withObject "BatchUpdateIngressRulesResponse"
(\ o ->
BatchUpdateIngressRulesResponse' <$>
(o .:? "ingressRules" .!= mempty))
instance ToJSON BatchUpdateIngressRulesResponse where
toJSON BatchUpdateIngressRulesResponse'{..}
= object
(catMaybes [("ingressRules" .=) <$> _bIngressRules])
data CPUUtilization =
CPUUtilization'
{ _cuAggregationWindowLength :: !(Maybe GDuration)
, _cuTargetUtilization :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
cpuUtilization
:: CPUUtilization
cpuUtilization =
CPUUtilization'
{_cuAggregationWindowLength = Nothing, _cuTargetUtilization = Nothing}
cuAggregationWindowLength :: Lens' CPUUtilization (Maybe Scientific)
cuAggregationWindowLength
= lens _cuAggregationWindowLength
(\ s a -> s{_cuAggregationWindowLength = a})
. mapping _GDuration
cuTargetUtilization :: Lens' CPUUtilization (Maybe Double)
cuTargetUtilization
= lens _cuTargetUtilization
(\ s a -> s{_cuTargetUtilization = a})
. mapping _Coerce
instance FromJSON CPUUtilization where
parseJSON
= withObject "CPUUtilization"
(\ o ->
CPUUtilization' <$>
(o .:? "aggregationWindowLength") <*>
(o .:? "targetUtilization"))
instance ToJSON CPUUtilization where
toJSON CPUUtilization'{..}
= object
(catMaybes
[("aggregationWindowLength" .=) <$>
_cuAggregationWindowLength,
("targetUtilization" .=) <$> _cuTargetUtilization])
newtype CreateVersionMetadataV1 =
CreateVersionMetadataV1'
{ _cvmvCloudBuildId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
createVersionMetadataV1
:: CreateVersionMetadataV1
createVersionMetadataV1 = CreateVersionMetadataV1' {_cvmvCloudBuildId = Nothing}
cvmvCloudBuildId :: Lens' CreateVersionMetadataV1 (Maybe Text)
cvmvCloudBuildId
= lens _cvmvCloudBuildId
(\ s a -> s{_cvmvCloudBuildId = a})
instance FromJSON CreateVersionMetadataV1 where
parseJSON
= withObject "CreateVersionMetadataV1"
(\ o ->
CreateVersionMetadataV1' <$> (o .:? "cloudBuildId"))
instance ToJSON CreateVersionMetadataV1 where
toJSON CreateVersionMetadataV1'{..}
= object
(catMaybes
[("cloudBuildId" .=) <$> _cvmvCloudBuildId])
newtype TrafficSplitAllocations =
TrafficSplitAllocations'
{ _tsaAddtional :: HashMap Text (Textual Double)
}
deriving (Eq, Show, Data, Typeable, Generic)
trafficSplitAllocations
:: HashMap Text Double
-> TrafficSplitAllocations
trafficSplitAllocations pTsaAddtional_ =
TrafficSplitAllocations' {_tsaAddtional = _Coerce # pTsaAddtional_}
tsaAddtional :: Lens' TrafficSplitAllocations (HashMap Text Double)
tsaAddtional
= lens _tsaAddtional (\ s a -> s{_tsaAddtional = a})
. _Coerce
instance FromJSON TrafficSplitAllocations where
parseJSON
= withObject "TrafficSplitAllocations"
(\ o ->
TrafficSplitAllocations' <$> (parseJSONObject o))
instance ToJSON TrafficSplitAllocations where
toJSON = toJSON . _tsaAddtional
data CloudBuildOptions =
CloudBuildOptions'
{ _cboCloudBuildTimeout :: !(Maybe GDuration)
, _cboAppYamlPath :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
cloudBuildOptions
:: CloudBuildOptions
cloudBuildOptions =
CloudBuildOptions'
{_cboCloudBuildTimeout = Nothing, _cboAppYamlPath = Nothing}
cboCloudBuildTimeout :: Lens' CloudBuildOptions (Maybe Scientific)
cboCloudBuildTimeout
= lens _cboCloudBuildTimeout
(\ s a -> s{_cboCloudBuildTimeout = a})
. mapping _GDuration
cboAppYamlPath :: Lens' CloudBuildOptions (Maybe Text)
cboAppYamlPath
= lens _cboAppYamlPath
(\ s a -> s{_cboAppYamlPath = a})
instance FromJSON CloudBuildOptions where
parseJSON
= withObject "CloudBuildOptions"
(\ o ->
CloudBuildOptions' <$>
(o .:? "cloudBuildTimeout") <*>
(o .:? "appYamlPath"))
instance ToJSON CloudBuildOptions where
toJSON CloudBuildOptions'{..}
= object
(catMaybes
[("cloudBuildTimeout" .=) <$> _cboCloudBuildTimeout,
("appYamlPath" .=) <$> _cboAppYamlPath])
newtype ManualScaling =
ManualScaling'
{ _msInstances :: Maybe (Textual Int32)
}
deriving (Eq, Show, Data, Typeable, Generic)
manualScaling
:: ManualScaling
manualScaling = ManualScaling' {_msInstances = Nothing}
msInstances :: Lens' ManualScaling (Maybe Int32)
msInstances
= lens _msInstances (\ s a -> s{_msInstances = a}) .
mapping _Coerce
instance FromJSON ManualScaling where
parseJSON
= withObject "ManualScaling"
(\ o -> ManualScaling' <$> (o .:? "instances"))
instance ToJSON ManualScaling where
toJSON ManualScaling'{..}
= object
(catMaybes [("instances" .=) <$> _msInstances])
data BasicScaling =
BasicScaling'
{ _bsMaxInstances :: !(Maybe (Textual Int32))
, _bsIdleTimeout :: !(Maybe GDuration)
}
deriving (Eq, Show, Data, Typeable, Generic)
basicScaling
:: BasicScaling
basicScaling =
BasicScaling' {_bsMaxInstances = Nothing, _bsIdleTimeout = Nothing}
bsMaxInstances :: Lens' BasicScaling (Maybe Int32)
bsMaxInstances
= lens _bsMaxInstances
(\ s a -> s{_bsMaxInstances = a})
. mapping _Coerce
bsIdleTimeout :: Lens' BasicScaling (Maybe Scientific)
bsIdleTimeout
= lens _bsIdleTimeout
(\ s a -> s{_bsIdleTimeout = a})
. mapping _GDuration
instance FromJSON BasicScaling where
parseJSON
= withObject "BasicScaling"
(\ o ->
BasicScaling' <$>
(o .:? "maxInstances") <*> (o .:? "idleTimeout"))
instance ToJSON BasicScaling where
toJSON BasicScaling'{..}
= object
(catMaybes
[("maxInstances" .=) <$> _bsMaxInstances,
("idleTimeout" .=) <$> _bsIdleTimeout])
data OperationMetadataV1 =
OperationMetadataV1'
{ _omvEphemeralMessage :: !(Maybe Text)
, _omvInsertTime :: !(Maybe DateTime')
, _omvUser :: !(Maybe Text)
, _omvMethod :: !(Maybe Text)
, _omvEndTime :: !(Maybe DateTime')
, _omvWarning :: !(Maybe [Text])
, _omvCreateVersionMetadata :: !(Maybe CreateVersionMetadataV1)
, _omvTarget :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
operationMetadataV1
:: OperationMetadataV1
operationMetadataV1 =
OperationMetadataV1'
{ _omvEphemeralMessage = Nothing
, _omvInsertTime = Nothing
, _omvUser = Nothing
, _omvMethod = Nothing
, _omvEndTime = Nothing
, _omvWarning = Nothing
, _omvCreateVersionMetadata = Nothing
, _omvTarget = Nothing
}
omvEphemeralMessage :: Lens' OperationMetadataV1 (Maybe Text)
omvEphemeralMessage
= lens _omvEphemeralMessage
(\ s a -> s{_omvEphemeralMessage = a})
omvInsertTime :: Lens' OperationMetadataV1 (Maybe UTCTime)
omvInsertTime
= lens _omvInsertTime
(\ s a -> s{_omvInsertTime = a})
. mapping _DateTime
omvUser :: Lens' OperationMetadataV1 (Maybe Text)
omvUser = lens _omvUser (\ s a -> s{_omvUser = a})
omvMethod :: Lens' OperationMetadataV1 (Maybe Text)
omvMethod
= lens _omvMethod (\ s a -> s{_omvMethod = a})
omvEndTime :: Lens' OperationMetadataV1 (Maybe UTCTime)
omvEndTime
= lens _omvEndTime (\ s a -> s{_omvEndTime = a}) .
mapping _DateTime
omvWarning :: Lens' OperationMetadataV1 [Text]
omvWarning
= lens _omvWarning (\ s a -> s{_omvWarning = a}) .
_Default
. _Coerce
omvCreateVersionMetadata :: Lens' OperationMetadataV1 (Maybe CreateVersionMetadataV1)
omvCreateVersionMetadata
= lens _omvCreateVersionMetadata
(\ s a -> s{_omvCreateVersionMetadata = a})
omvTarget :: Lens' OperationMetadataV1 (Maybe Text)
omvTarget
= lens _omvTarget (\ s a -> s{_omvTarget = a})
instance FromJSON OperationMetadataV1 where
parseJSON
= withObject "OperationMetadataV1"
(\ o ->
OperationMetadataV1' <$>
(o .:? "ephemeralMessage") <*> (o .:? "insertTime")
<*> (o .:? "user")
<*> (o .:? "method")
<*> (o .:? "endTime")
<*> (o .:? "warning" .!= mempty)
<*> (o .:? "createVersionMetadata")
<*> (o .:? "target"))
instance ToJSON OperationMetadataV1 where
toJSON OperationMetadataV1'{..}
= object
(catMaybes
[("ephemeralMessage" .=) <$> _omvEphemeralMessage,
("insertTime" .=) <$> _omvInsertTime,
("user" .=) <$> _omvUser,
("method" .=) <$> _omvMethod,
("endTime" .=) <$> _omvEndTime,
("warning" .=) <$> _omvWarning,
("createVersionMetadata" .=) <$>
_omvCreateVersionMetadata,
("target" .=) <$> _omvTarget])
data Version =
Version'
{ _verRuntime :: !(Maybe Text)
, _verNobuildFilesRegex :: !(Maybe Text)
, _verInstanceClass :: !(Maybe Text)
, _verRuntimeChannel :: !(Maybe Text)
, _verRuntimeMainExecutablePath :: !(Maybe Text)
, _verVPCAccessConnector :: !(Maybe VPCAccessConnector)
, _verHealthCheck :: !(Maybe HealthCheck)
, _verEndpointsAPIService :: !(Maybe EndpointsAPIService)
, _verEnv :: !(Maybe Text)
, _verZones :: !(Maybe [Text])
, _verEntrypoint :: !(Maybe Entrypoint)
, _verDefaultExpiration :: !(Maybe GDuration)
, _verAutomaticScaling :: !(Maybe AutomaticScaling)
, _verErrorHandlers :: !(Maybe [ErrorHandler])
, _verCreatedBy :: !(Maybe Text)
, _verVM :: !(Maybe Bool)
, _verHandlers :: !(Maybe [URLMap])
, _verInboundServices :: !(Maybe [Text])
, _verReadinessCheck :: !(Maybe ReadinessCheck)
, _verNetwork :: !(Maybe Network)
, _verResources :: !(Maybe Resources)
, _verName :: !(Maybe Text)
, _verThreadsafe :: !(Maybe Bool)
, _verBetaSettings :: !(Maybe VersionBetaSettings)
, _verBasicScaling :: !(Maybe BasicScaling)
, _verManualScaling :: !(Maybe ManualScaling)
, _verAPIConfig :: !(Maybe APIConfigHandler)
, _verId :: !(Maybe Text)
, _verEnvVariables :: !(Maybe VersionEnvVariables)
, _verLivenessCheck :: !(Maybe LivenessCheck)
, _verRuntimeAPIVersion :: !(Maybe Text)
, _verServingStatus :: !(Maybe VersionServingStatus)
, _verDiskUsageBytes :: !(Maybe (Textual Int64))
, _verCreateTime :: !(Maybe DateTime')
, _verLibraries :: !(Maybe [Library])
, _verVersionURL :: !(Maybe Text)
, _verDeployment :: !(Maybe Deployment)
}
deriving (Eq, Show, Data, Typeable, Generic)
version
:: Version
version =
Version'
{ _verRuntime = Nothing
, _verNobuildFilesRegex = Nothing
, _verInstanceClass = Nothing
, _verRuntimeChannel = Nothing
, _verRuntimeMainExecutablePath = Nothing
, _verVPCAccessConnector = Nothing
, _verHealthCheck = Nothing
, _verEndpointsAPIService = Nothing
, _verEnv = Nothing
, _verZones = Nothing
, _verEntrypoint = Nothing
, _verDefaultExpiration = Nothing
, _verAutomaticScaling = Nothing
, _verErrorHandlers = Nothing
, _verCreatedBy = Nothing
, _verVM = Nothing
, _verHandlers = Nothing
, _verInboundServices = Nothing
, _verReadinessCheck = Nothing
, _verNetwork = Nothing
, _verResources = Nothing
, _verName = Nothing
, _verThreadsafe = Nothing
, _verBetaSettings = Nothing
, _verBasicScaling = Nothing
, _verManualScaling = Nothing
, _verAPIConfig = Nothing
, _verId = Nothing
, _verEnvVariables = Nothing
, _verLivenessCheck = Nothing
, _verRuntimeAPIVersion = Nothing
, _verServingStatus = Nothing
, _verDiskUsageBytes = Nothing
, _verCreateTime = Nothing
, _verLibraries = Nothing
, _verVersionURL = Nothing
, _verDeployment = Nothing
}
verRuntime :: Lens' Version (Maybe Text)
verRuntime
= lens _verRuntime (\ s a -> s{_verRuntime = a})
verNobuildFilesRegex :: Lens' Version (Maybe Text)
verNobuildFilesRegex
= lens _verNobuildFilesRegex
(\ s a -> s{_verNobuildFilesRegex = a})
verInstanceClass :: Lens' Version (Maybe Text)
verInstanceClass
= lens _verInstanceClass
(\ s a -> s{_verInstanceClass = a})
verRuntimeChannel :: Lens' Version (Maybe Text)
verRuntimeChannel
= lens _verRuntimeChannel
(\ s a -> s{_verRuntimeChannel = a})
verRuntimeMainExecutablePath :: Lens' Version (Maybe Text)
verRuntimeMainExecutablePath
= lens _verRuntimeMainExecutablePath
(\ s a -> s{_verRuntimeMainExecutablePath = a})
verVPCAccessConnector :: Lens' Version (Maybe VPCAccessConnector)
verVPCAccessConnector
= lens _verVPCAccessConnector
(\ s a -> s{_verVPCAccessConnector = a})
verHealthCheck :: Lens' Version (Maybe HealthCheck)
verHealthCheck
= lens _verHealthCheck
(\ s a -> s{_verHealthCheck = a})
verEndpointsAPIService :: Lens' Version (Maybe EndpointsAPIService)
verEndpointsAPIService
= lens _verEndpointsAPIService
(\ s a -> s{_verEndpointsAPIService = a})
verEnv :: Lens' Version (Maybe Text)
verEnv = lens _verEnv (\ s a -> s{_verEnv = a})
verZones :: Lens' Version [Text]
verZones
= lens _verZones (\ s a -> s{_verZones = a}) .
_Default
. _Coerce
verEntrypoint :: Lens' Version (Maybe Entrypoint)
verEntrypoint
= lens _verEntrypoint
(\ s a -> s{_verEntrypoint = a})
verDefaultExpiration :: Lens' Version (Maybe Scientific)
verDefaultExpiration
= lens _verDefaultExpiration
(\ s a -> s{_verDefaultExpiration = a})
. mapping _GDuration
verAutomaticScaling :: Lens' Version (Maybe AutomaticScaling)
verAutomaticScaling
= lens _verAutomaticScaling
(\ s a -> s{_verAutomaticScaling = a})
verErrorHandlers :: Lens' Version [ErrorHandler]
verErrorHandlers
= lens _verErrorHandlers
(\ s a -> s{_verErrorHandlers = a})
. _Default
. _Coerce
verCreatedBy :: Lens' Version (Maybe Text)
verCreatedBy
= lens _verCreatedBy (\ s a -> s{_verCreatedBy = a})
verVM :: Lens' Version (Maybe Bool)
verVM = lens _verVM (\ s a -> s{_verVM = a})
verHandlers :: Lens' Version [URLMap]
verHandlers
= lens _verHandlers (\ s a -> s{_verHandlers = a}) .
_Default
. _Coerce
verInboundServices :: Lens' Version [Text]
verInboundServices
= lens _verInboundServices
(\ s a -> s{_verInboundServices = a})
. _Default
. _Coerce
verReadinessCheck :: Lens' Version (Maybe ReadinessCheck)
verReadinessCheck
= lens _verReadinessCheck
(\ s a -> s{_verReadinessCheck = a})
verNetwork :: Lens' Version (Maybe Network)
verNetwork
= lens _verNetwork (\ s a -> s{_verNetwork = a})
verResources :: Lens' Version (Maybe Resources)
verResources
= lens _verResources (\ s a -> s{_verResources = a})
verName :: Lens' Version (Maybe Text)
verName = lens _verName (\ s a -> s{_verName = a})
verThreadsafe :: Lens' Version (Maybe Bool)
verThreadsafe
= lens _verThreadsafe
(\ s a -> s{_verThreadsafe = a})
verBetaSettings :: Lens' Version (Maybe VersionBetaSettings)
verBetaSettings
= lens _verBetaSettings
(\ s a -> s{_verBetaSettings = a})
verBasicScaling :: Lens' Version (Maybe BasicScaling)
verBasicScaling
= lens _verBasicScaling
(\ s a -> s{_verBasicScaling = a})
verManualScaling :: Lens' Version (Maybe ManualScaling)
verManualScaling
= lens _verManualScaling
(\ s a -> s{_verManualScaling = a})
verAPIConfig :: Lens' Version (Maybe APIConfigHandler)
verAPIConfig
= lens _verAPIConfig (\ s a -> s{_verAPIConfig = a})
verId :: Lens' Version (Maybe Text)
verId = lens _verId (\ s a -> s{_verId = a})
verEnvVariables :: Lens' Version (Maybe VersionEnvVariables)
verEnvVariables
= lens _verEnvVariables
(\ s a -> s{_verEnvVariables = a})
verLivenessCheck :: Lens' Version (Maybe LivenessCheck)
verLivenessCheck
= lens _verLivenessCheck
(\ s a -> s{_verLivenessCheck = a})
verRuntimeAPIVersion :: Lens' Version (Maybe Text)
verRuntimeAPIVersion
= lens _verRuntimeAPIVersion
(\ s a -> s{_verRuntimeAPIVersion = a})
verServingStatus :: Lens' Version (Maybe VersionServingStatus)
verServingStatus
= lens _verServingStatus
(\ s a -> s{_verServingStatus = a})
verDiskUsageBytes :: Lens' Version (Maybe Int64)
verDiskUsageBytes
= lens _verDiskUsageBytes
(\ s a -> s{_verDiskUsageBytes = a})
. mapping _Coerce
verCreateTime :: Lens' Version (Maybe UTCTime)
verCreateTime
= lens _verCreateTime
(\ s a -> s{_verCreateTime = a})
. mapping _DateTime
verLibraries :: Lens' Version [Library]
verLibraries
= lens _verLibraries (\ s a -> s{_verLibraries = a})
. _Default
. _Coerce
verVersionURL :: Lens' Version (Maybe Text)
verVersionURL
= lens _verVersionURL
(\ s a -> s{_verVersionURL = a})
verDeployment :: Lens' Version (Maybe Deployment)
verDeployment
= lens _verDeployment
(\ s a -> s{_verDeployment = a})
instance FromJSON Version where
parseJSON
= withObject "Version"
(\ o ->
Version' <$>
(o .:? "runtime") <*> (o .:? "nobuildFilesRegex") <*>
(o .:? "instanceClass")
<*> (o .:? "runtimeChannel")
<*> (o .:? "runtimeMainExecutablePath")
<*> (o .:? "vpcAccessConnector")
<*> (o .:? "healthCheck")
<*> (o .:? "endpointsApiService")
<*> (o .:? "env")
<*> (o .:? "zones" .!= mempty)
<*> (o .:? "entrypoint")
<*> (o .:? "defaultExpiration")
<*> (o .:? "automaticScaling")
<*> (o .:? "errorHandlers" .!= mempty)
<*> (o .:? "createdBy")
<*> (o .:? "vm")
<*> (o .:? "handlers" .!= mempty)
<*> (o .:? "inboundServices" .!= mempty)
<*> (o .:? "readinessCheck")
<*> (o .:? "network")
<*> (o .:? "resources")
<*> (o .:? "name")
<*> (o .:? "threadsafe")
<*> (o .:? "betaSettings")
<*> (o .:? "basicScaling")
<*> (o .:? "manualScaling")
<*> (o .:? "apiConfig")
<*> (o .:? "id")
<*> (o .:? "envVariables")
<*> (o .:? "livenessCheck")
<*> (o .:? "runtimeApiVersion")
<*> (o .:? "servingStatus")
<*> (o .:? "diskUsageBytes")
<*> (o .:? "createTime")
<*> (o .:? "libraries" .!= mempty)
<*> (o .:? "versionUrl")
<*> (o .:? "deployment"))
instance ToJSON Version where
toJSON Version'{..}
= object
(catMaybes
[("runtime" .=) <$> _verRuntime,
("nobuildFilesRegex" .=) <$> _verNobuildFilesRegex,
("instanceClass" .=) <$> _verInstanceClass,
("runtimeChannel" .=) <$> _verRuntimeChannel,
("runtimeMainExecutablePath" .=) <$>
_verRuntimeMainExecutablePath,
("vpcAccessConnector" .=) <$> _verVPCAccessConnector,
("healthCheck" .=) <$> _verHealthCheck,
("endpointsApiService" .=) <$>
_verEndpointsAPIService,
("env" .=) <$> _verEnv, ("zones" .=) <$> _verZones,
("entrypoint" .=) <$> _verEntrypoint,
("defaultExpiration" .=) <$> _verDefaultExpiration,
("automaticScaling" .=) <$> _verAutomaticScaling,
("errorHandlers" .=) <$> _verErrorHandlers,
("createdBy" .=) <$> _verCreatedBy,
("vm" .=) <$> _verVM,
("handlers" .=) <$> _verHandlers,
("inboundServices" .=) <$> _verInboundServices,
("readinessCheck" .=) <$> _verReadinessCheck,
("network" .=) <$> _verNetwork,
("resources" .=) <$> _verResources,
("name" .=) <$> _verName,
("threadsafe" .=) <$> _verThreadsafe,
("betaSettings" .=) <$> _verBetaSettings,
("basicScaling" .=) <$> _verBasicScaling,
("manualScaling" .=) <$> _verManualScaling,
("apiConfig" .=) <$> _verAPIConfig,
("id" .=) <$> _verId,
("envVariables" .=) <$> _verEnvVariables,
("livenessCheck" .=) <$> _verLivenessCheck,
("runtimeApiVersion" .=) <$> _verRuntimeAPIVersion,
("servingStatus" .=) <$> _verServingStatus,
("diskUsageBytes" .=) <$> _verDiskUsageBytes,
("createTime" .=) <$> _verCreateTime,
("libraries" .=) <$> _verLibraries,
("versionUrl" .=) <$> _verVersionURL,
("deployment" .=) <$> _verDeployment])
data IdentityAwareProxy =
IdentityAwareProxy'
{ _iapEnabled :: !(Maybe Bool)
, _iapOAuth2ClientSecretSha256 :: !(Maybe Text)
, _iapOAuth2ClientSecret :: !(Maybe Text)
, _iapOAuth2ClientId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identityAwareProxy
:: IdentityAwareProxy
identityAwareProxy =
IdentityAwareProxy'
{ _iapEnabled = Nothing
, _iapOAuth2ClientSecretSha256 = Nothing
, _iapOAuth2ClientSecret = Nothing
, _iapOAuth2ClientId = Nothing
}
iapEnabled :: Lens' IdentityAwareProxy (Maybe Bool)
iapEnabled
= lens _iapEnabled (\ s a -> s{_iapEnabled = a})
iapOAuth2ClientSecretSha256 :: Lens' IdentityAwareProxy (Maybe Text)
iapOAuth2ClientSecretSha256
= lens _iapOAuth2ClientSecretSha256
(\ s a -> s{_iapOAuth2ClientSecretSha256 = a})
iapOAuth2ClientSecret :: Lens' IdentityAwareProxy (Maybe Text)
iapOAuth2ClientSecret
= lens _iapOAuth2ClientSecret
(\ s a -> s{_iapOAuth2ClientSecret = a})
iapOAuth2ClientId :: Lens' IdentityAwareProxy (Maybe Text)
iapOAuth2ClientId
= lens _iapOAuth2ClientId
(\ s a -> s{_iapOAuth2ClientId = a})
instance FromJSON IdentityAwareProxy where
parseJSON
= withObject "IdentityAwareProxy"
(\ o ->
IdentityAwareProxy' <$>
(o .:? "enabled") <*>
(o .:? "oauth2ClientSecretSha256")
<*> (o .:? "oauth2ClientSecret")
<*> (o .:? "oauth2ClientId"))
instance ToJSON IdentityAwareProxy where
toJSON IdentityAwareProxy'{..}
= object
(catMaybes
[("enabled" .=) <$> _iapEnabled,
("oauth2ClientSecretSha256" .=) <$>
_iapOAuth2ClientSecretSha256,
("oauth2ClientSecret" .=) <$> _iapOAuth2ClientSecret,
("oauth2ClientId" .=) <$> _iapOAuth2ClientId])
data StaticFilesHandler =
StaticFilesHandler'
{ _sfhHTTPHeaders :: !(Maybe StaticFilesHandlerHTTPHeaders)
, _sfhPath :: !(Maybe Text)
, _sfhRequireMatchingFile :: !(Maybe Bool)
, _sfhExpiration :: !(Maybe GDuration)
, _sfhMimeType :: !(Maybe Text)
, _sfhApplicationReadable :: !(Maybe Bool)
, _sfhUploadPathRegex :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
staticFilesHandler
:: StaticFilesHandler
staticFilesHandler =
StaticFilesHandler'
{ _sfhHTTPHeaders = Nothing
, _sfhPath = Nothing
, _sfhRequireMatchingFile = Nothing
, _sfhExpiration = Nothing
, _sfhMimeType = Nothing
, _sfhApplicationReadable = Nothing
, _sfhUploadPathRegex = Nothing
}
sfhHTTPHeaders :: Lens' StaticFilesHandler (Maybe StaticFilesHandlerHTTPHeaders)
sfhHTTPHeaders
= lens _sfhHTTPHeaders
(\ s a -> s{_sfhHTTPHeaders = a})
sfhPath :: Lens' StaticFilesHandler (Maybe Text)
sfhPath = lens _sfhPath (\ s a -> s{_sfhPath = a})
sfhRequireMatchingFile :: Lens' StaticFilesHandler (Maybe Bool)
sfhRequireMatchingFile
= lens _sfhRequireMatchingFile
(\ s a -> s{_sfhRequireMatchingFile = a})
sfhExpiration :: Lens' StaticFilesHandler (Maybe Scientific)
sfhExpiration
= lens _sfhExpiration
(\ s a -> s{_sfhExpiration = a})
. mapping _GDuration
sfhMimeType :: Lens' StaticFilesHandler (Maybe Text)
sfhMimeType
= lens _sfhMimeType (\ s a -> s{_sfhMimeType = a})
sfhApplicationReadable :: Lens' StaticFilesHandler (Maybe Bool)
sfhApplicationReadable
= lens _sfhApplicationReadable
(\ s a -> s{_sfhApplicationReadable = a})
sfhUploadPathRegex :: Lens' StaticFilesHandler (Maybe Text)
sfhUploadPathRegex
= lens _sfhUploadPathRegex
(\ s a -> s{_sfhUploadPathRegex = a})
instance FromJSON StaticFilesHandler where
parseJSON
= withObject "StaticFilesHandler"
(\ o ->
StaticFilesHandler' <$>
(o .:? "httpHeaders") <*> (o .:? "path") <*>
(o .:? "requireMatchingFile")
<*> (o .:? "expiration")
<*> (o .:? "mimeType")
<*> (o .:? "applicationReadable")
<*> (o .:? "uploadPathRegex"))
instance ToJSON StaticFilesHandler where
toJSON StaticFilesHandler'{..}
= object
(catMaybes
[("httpHeaders" .=) <$> _sfhHTTPHeaders,
("path" .=) <$> _sfhPath,
("requireMatchingFile" .=) <$>
_sfhRequireMatchingFile,
("expiration" .=) <$> _sfhExpiration,
("mimeType" .=) <$> _sfhMimeType,
("applicationReadable" .=) <$>
_sfhApplicationReadable,
("uploadPathRegex" .=) <$> _sfhUploadPathRegex])
data ErrorHandler =
ErrorHandler'
{ _ehMimeType :: !(Maybe Text)
, _ehErrorCode :: !(Maybe ErrorHandlerErrorCode)
, _ehStaticFile :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
errorHandler
:: ErrorHandler
errorHandler =
ErrorHandler'
{_ehMimeType = Nothing, _ehErrorCode = Nothing, _ehStaticFile = Nothing}
ehMimeType :: Lens' ErrorHandler (Maybe Text)
ehMimeType
= lens _ehMimeType (\ s a -> s{_ehMimeType = a})
ehErrorCode :: Lens' ErrorHandler (Maybe ErrorHandlerErrorCode)
ehErrorCode
= lens _ehErrorCode (\ s a -> s{_ehErrorCode = a})
ehStaticFile :: Lens' ErrorHandler (Maybe Text)
ehStaticFile
= lens _ehStaticFile (\ s a -> s{_ehStaticFile = a})
instance FromJSON ErrorHandler where
parseJSON
= withObject "ErrorHandler"
(\ o ->
ErrorHandler' <$>
(o .:? "mimeType") <*> (o .:? "errorCode") <*>
(o .:? "staticFile"))
instance ToJSON ErrorHandler where
toJSON ErrorHandler'{..}
= object
(catMaybes
[("mimeType" .=) <$> _ehMimeType,
("errorCode" .=) <$> _ehErrorCode,
("staticFile" .=) <$> _ehStaticFile])
newtype LocationLabels =
LocationLabels'
{ _llAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
locationLabels
:: HashMap Text Text
-> LocationLabels
locationLabels pLlAddtional_ =
LocationLabels' {_llAddtional = _Coerce # pLlAddtional_}
llAddtional :: Lens' LocationLabels (HashMap Text Text)
llAddtional
= lens _llAddtional (\ s a -> s{_llAddtional = a}) .
_Coerce
instance FromJSON LocationLabels where
parseJSON
= withObject "LocationLabels"
(\ o -> LocationLabels' <$> (parseJSONObject o))
instance ToJSON LocationLabels where
toJSON = toJSON . _llAddtional
data ListAuthorizedCertificatesResponse =
ListAuthorizedCertificatesResponse'
{ _lacrNextPageToken :: !(Maybe Text)
, _lacrCertificates :: !(Maybe [AuthorizedCertificate])
}
deriving (Eq, Show, Data, Typeable, Generic)
listAuthorizedCertificatesResponse
:: ListAuthorizedCertificatesResponse
listAuthorizedCertificatesResponse =
ListAuthorizedCertificatesResponse'
{_lacrNextPageToken = Nothing, _lacrCertificates = Nothing}
lacrNextPageToken :: Lens' ListAuthorizedCertificatesResponse (Maybe Text)
lacrNextPageToken
= lens _lacrNextPageToken
(\ s a -> s{_lacrNextPageToken = a})
lacrCertificates :: Lens' ListAuthorizedCertificatesResponse [AuthorizedCertificate]
lacrCertificates
= lens _lacrCertificates
(\ s a -> s{_lacrCertificates = a})
. _Default
. _Coerce
instance FromJSON ListAuthorizedCertificatesResponse
where
parseJSON
= withObject "ListAuthorizedCertificatesResponse"
(\ o ->
ListAuthorizedCertificatesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "certificates" .!= mempty))
instance ToJSON ListAuthorizedCertificatesResponse
where
toJSON ListAuthorizedCertificatesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lacrNextPageToken,
("certificates" .=) <$> _lacrCertificates])
data FirewallRule =
FirewallRule'
{ _frPriority :: !(Maybe (Textual Int32))
, _frAction :: !(Maybe FirewallRuleAction)
, _frSourceRange :: !(Maybe Text)
, _frDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
firewallRule
:: FirewallRule
firewallRule =
FirewallRule'
{ _frPriority = Nothing
, _frAction = Nothing
, _frSourceRange = Nothing
, _frDescription = Nothing
}
frPriority :: Lens' FirewallRule (Maybe Int32)
frPriority
= lens _frPriority (\ s a -> s{_frPriority = a}) .
mapping _Coerce
frAction :: Lens' FirewallRule (Maybe FirewallRuleAction)
frAction = lens _frAction (\ s a -> s{_frAction = a})
frSourceRange :: Lens' FirewallRule (Maybe Text)
frSourceRange
= lens _frSourceRange
(\ s a -> s{_frSourceRange = a})
frDescription :: Lens' FirewallRule (Maybe Text)
frDescription
= lens _frDescription
(\ s a -> s{_frDescription = a})
instance FromJSON FirewallRule where
parseJSON
= withObject "FirewallRule"
(\ o ->
FirewallRule' <$>
(o .:? "priority") <*> (o .:? "action") <*>
(o .:? "sourceRange")
<*> (o .:? "description"))
instance ToJSON FirewallRule where
toJSON FirewallRule'{..}
= object
(catMaybes
[("priority" .=) <$> _frPriority,
("action" .=) <$> _frAction,
("sourceRange" .=) <$> _frSourceRange,
("description" .=) <$> _frDescription])
data LocationMetadata =
LocationMetadata'
{ _lmStandardEnvironmentAvailable :: !(Maybe Bool)
, _lmFlexibleEnvironmentAvailable :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
locationMetadata
:: LocationMetadata
locationMetadata =
LocationMetadata'
{ _lmStandardEnvironmentAvailable = Nothing
, _lmFlexibleEnvironmentAvailable = Nothing
}
lmStandardEnvironmentAvailable :: Lens' LocationMetadata (Maybe Bool)
lmStandardEnvironmentAvailable
= lens _lmStandardEnvironmentAvailable
(\ s a -> s{_lmStandardEnvironmentAvailable = a})
lmFlexibleEnvironmentAvailable :: Lens' LocationMetadata (Maybe Bool)
lmFlexibleEnvironmentAvailable
= lens _lmFlexibleEnvironmentAvailable
(\ s a -> s{_lmFlexibleEnvironmentAvailable = a})
instance FromJSON LocationMetadata where
parseJSON
= withObject "LocationMetadata"
(\ o ->
LocationMetadata' <$>
(o .:? "standardEnvironmentAvailable") <*>
(o .:? "flexibleEnvironmentAvailable"))
instance ToJSON LocationMetadata where
toJSON LocationMetadata'{..}
= object
(catMaybes
[("standardEnvironmentAvailable" .=) <$>
_lmStandardEnvironmentAvailable,
("flexibleEnvironmentAvailable" .=) <$>
_lmFlexibleEnvironmentAvailable])
newtype OperationMetadata =
OperationMetadata'
{ _omAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
operationMetadata
:: HashMap Text JSONValue
-> OperationMetadata
operationMetadata pOmAddtional_ =
OperationMetadata' {_omAddtional = _Coerce # pOmAddtional_}
omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue)
omAddtional
= lens _omAddtional (\ s a -> s{_omAddtional = a}) .
_Coerce
instance FromJSON OperationMetadata where
parseJSON
= withObject "OperationMetadata"
(\ o -> OperationMetadata' <$> (parseJSONObject o))
instance ToJSON OperationMetadata where
toJSON = toJSON . _omAddtional
data ListInstancesResponse =
ListInstancesResponse'
{ _lirNextPageToken :: !(Maybe Text)
, _lirInstances :: !(Maybe [Instance])
}
deriving (Eq, Show, Data, Typeable, Generic)
listInstancesResponse
:: ListInstancesResponse
listInstancesResponse =
ListInstancesResponse' {_lirNextPageToken = Nothing, _lirInstances = Nothing}
lirNextPageToken :: Lens' ListInstancesResponse (Maybe Text)
lirNextPageToken
= lens _lirNextPageToken
(\ s a -> s{_lirNextPageToken = a})
lirInstances :: Lens' ListInstancesResponse [Instance]
lirInstances
= lens _lirInstances (\ s a -> s{_lirInstances = a})
. _Default
. _Coerce
instance FromJSON ListInstancesResponse where
parseJSON
= withObject "ListInstancesResponse"
(\ o ->
ListInstancesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "instances" .!= mempty))
instance ToJSON ListInstancesResponse where
toJSON ListInstancesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lirNextPageToken,
("instances" .=) <$> _lirInstances])
data OperationMetadataV1Alpha =
OperationMetadataV1Alpha'
{ _omvaEphemeralMessage :: !(Maybe Text)
, _omvaInsertTime :: !(Maybe DateTime')
, _omvaUser :: !(Maybe Text)
, _omvaMethod :: !(Maybe Text)
, _omvaEndTime :: !(Maybe DateTime')
, _omvaWarning :: !(Maybe [Text])
, _omvaCreateVersionMetadata :: !(Maybe CreateVersionMetadataV1Alpha)
, _omvaTarget :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
operationMetadataV1Alpha
:: OperationMetadataV1Alpha
operationMetadataV1Alpha =
OperationMetadataV1Alpha'
{ _omvaEphemeralMessage = Nothing
, _omvaInsertTime = Nothing
, _omvaUser = Nothing
, _omvaMethod = Nothing
, _omvaEndTime = Nothing
, _omvaWarning = Nothing
, _omvaCreateVersionMetadata = Nothing
, _omvaTarget = Nothing
}
omvaEphemeralMessage :: Lens' OperationMetadataV1Alpha (Maybe Text)
omvaEphemeralMessage
= lens _omvaEphemeralMessage
(\ s a -> s{_omvaEphemeralMessage = a})
omvaInsertTime :: Lens' OperationMetadataV1Alpha (Maybe UTCTime)
omvaInsertTime
= lens _omvaInsertTime
(\ s a -> s{_omvaInsertTime = a})
. mapping _DateTime
omvaUser :: Lens' OperationMetadataV1Alpha (Maybe Text)
omvaUser = lens _omvaUser (\ s a -> s{_omvaUser = a})
omvaMethod :: Lens' OperationMetadataV1Alpha (Maybe Text)
omvaMethod
= lens _omvaMethod (\ s a -> s{_omvaMethod = a})
omvaEndTime :: Lens' OperationMetadataV1Alpha (Maybe UTCTime)
omvaEndTime
= lens _omvaEndTime (\ s a -> s{_omvaEndTime = a}) .
mapping _DateTime
omvaWarning :: Lens' OperationMetadataV1Alpha [Text]
omvaWarning
= lens _omvaWarning (\ s a -> s{_omvaWarning = a}) .
_Default
. _Coerce
omvaCreateVersionMetadata :: Lens' OperationMetadataV1Alpha (Maybe CreateVersionMetadataV1Alpha)
omvaCreateVersionMetadata
= lens _omvaCreateVersionMetadata
(\ s a -> s{_omvaCreateVersionMetadata = a})
omvaTarget :: Lens' OperationMetadataV1Alpha (Maybe Text)
omvaTarget
= lens _omvaTarget (\ s a -> s{_omvaTarget = a})
instance FromJSON OperationMetadataV1Alpha where
parseJSON
= withObject "OperationMetadataV1Alpha"
(\ o ->
OperationMetadataV1Alpha' <$>
(o .:? "ephemeralMessage") <*> (o .:? "insertTime")
<*> (o .:? "user")
<*> (o .:? "method")
<*> (o .:? "endTime")
<*> (o .:? "warning" .!= mempty)
<*> (o .:? "createVersionMetadata")
<*> (o .:? "target"))
instance ToJSON OperationMetadataV1Alpha where
toJSON OperationMetadataV1Alpha'{..}
= object
(catMaybes
[("ephemeralMessage" .=) <$> _omvaEphemeralMessage,
("insertTime" .=) <$> _omvaInsertTime,
("user" .=) <$> _omvaUser,
("method" .=) <$> _omvaMethod,
("endTime" .=) <$> _omvaEndTime,
("warning" .=) <$> _omvaWarning,
("createVersionMetadata" .=) <$>
_omvaCreateVersionMetadata,
("target" .=) <$> _omvaTarget])
data LivenessCheck =
LivenessCheck'
{ _lcSuccessThreshold :: !(Maybe (Textual Word32))
, _lcFailureThreshold :: !(Maybe (Textual Word32))
, _lcPath :: !(Maybe Text)
, _lcCheckInterval :: !(Maybe GDuration)
, _lcHost :: !(Maybe Text)
, _lcInitialDelay :: !(Maybe GDuration)
, _lcTimeout :: !(Maybe GDuration)
}
deriving (Eq, Show, Data, Typeable, Generic)
livenessCheck
:: LivenessCheck
livenessCheck =
LivenessCheck'
{ _lcSuccessThreshold = Nothing
, _lcFailureThreshold = Nothing
, _lcPath = Nothing
, _lcCheckInterval = Nothing
, _lcHost = Nothing
, _lcInitialDelay = Nothing
, _lcTimeout = Nothing
}
lcSuccessThreshold :: Lens' LivenessCheck (Maybe Word32)
lcSuccessThreshold
= lens _lcSuccessThreshold
(\ s a -> s{_lcSuccessThreshold = a})
. mapping _Coerce
lcFailureThreshold :: Lens' LivenessCheck (Maybe Word32)
lcFailureThreshold
= lens _lcFailureThreshold
(\ s a -> s{_lcFailureThreshold = a})
. mapping _Coerce
lcPath :: Lens' LivenessCheck (Maybe Text)
lcPath = lens _lcPath (\ s a -> s{_lcPath = a})
lcCheckInterval :: Lens' LivenessCheck (Maybe Scientific)
lcCheckInterval
= lens _lcCheckInterval
(\ s a -> s{_lcCheckInterval = a})
. mapping _GDuration
lcHost :: Lens' LivenessCheck (Maybe Text)
lcHost = lens _lcHost (\ s a -> s{_lcHost = a})
lcInitialDelay :: Lens' LivenessCheck (Maybe Scientific)
lcInitialDelay
= lens _lcInitialDelay
(\ s a -> s{_lcInitialDelay = a})
. mapping _GDuration
lcTimeout :: Lens' LivenessCheck (Maybe Scientific)
lcTimeout
= lens _lcTimeout (\ s a -> s{_lcTimeout = a}) .
mapping _GDuration
instance FromJSON LivenessCheck where
parseJSON
= withObject "LivenessCheck"
(\ o ->
LivenessCheck' <$>
(o .:? "successThreshold") <*>
(o .:? "failureThreshold")
<*> (o .:? "path")
<*> (o .:? "checkInterval")
<*> (o .:? "host")
<*> (o .:? "initialDelay")
<*> (o .:? "timeout"))
instance ToJSON LivenessCheck where
toJSON LivenessCheck'{..}
= object
(catMaybes
[("successThreshold" .=) <$> _lcSuccessThreshold,
("failureThreshold" .=) <$> _lcFailureThreshold,
("path" .=) <$> _lcPath,
("checkInterval" .=) <$> _lcCheckInterval,
("host" .=) <$> _lcHost,
("initialDelay" .=) <$> _lcInitialDelay,
("timeout" .=) <$> _lcTimeout])
data RequestUtilization =
RequestUtilization'
{ _ruTargetConcurrentRequests :: !(Maybe (Textual Int32))
, _ruTargetRequestCountPerSecond :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
requestUtilization
:: RequestUtilization
requestUtilization =
RequestUtilization'
{ _ruTargetConcurrentRequests = Nothing
, _ruTargetRequestCountPerSecond = Nothing
}
ruTargetConcurrentRequests :: Lens' RequestUtilization (Maybe Int32)
ruTargetConcurrentRequests
= lens _ruTargetConcurrentRequests
(\ s a -> s{_ruTargetConcurrentRequests = a})
. mapping _Coerce
ruTargetRequestCountPerSecond :: Lens' RequestUtilization (Maybe Int32)
ruTargetRequestCountPerSecond
= lens _ruTargetRequestCountPerSecond
(\ s a -> s{_ruTargetRequestCountPerSecond = a})
. mapping _Coerce
instance FromJSON RequestUtilization where
parseJSON
= withObject "RequestUtilization"
(\ o ->
RequestUtilization' <$>
(o .:? "targetConcurrentRequests") <*>
(o .:? "targetRequestCountPerSecond"))
instance ToJSON RequestUtilization where
toJSON RequestUtilization'{..}
= object
(catMaybes
[("targetConcurrentRequests" .=) <$>
_ruTargetConcurrentRequests,
("targetRequestCountPerSecond" .=) <$>
_ruTargetRequestCountPerSecond])
data RepairApplicationRequest =
RepairApplicationRequest'
deriving (Eq, Show, Data, Typeable, Generic)
repairApplicationRequest
:: RepairApplicationRequest
repairApplicationRequest = RepairApplicationRequest'
instance FromJSON RepairApplicationRequest where
parseJSON
= withObject "RepairApplicationRequest"
(\ o -> pure RepairApplicationRequest')
instance ToJSON RepairApplicationRequest where
toJSON = const emptyObject
newtype OperationResponse =
OperationResponse'
{ _orAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
operationResponse
:: HashMap Text JSONValue
-> OperationResponse
operationResponse pOrAddtional_ =
OperationResponse' {_orAddtional = _Coerce # pOrAddtional_}
orAddtional :: Lens' OperationResponse (HashMap Text JSONValue)
orAddtional
= lens _orAddtional (\ s a -> s{_orAddtional = a}) .
_Coerce
instance FromJSON OperationResponse where
parseJSON
= withObject "OperationResponse"
(\ o -> OperationResponse' <$> (parseJSONObject o))
instance ToJSON OperationResponse where
toJSON = toJSON . _orAddtional
newtype CreateVersionMetadataV1Beta =
CreateVersionMetadataV1Beta'
{ _cvmvbCloudBuildId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
createVersionMetadataV1Beta
:: CreateVersionMetadataV1Beta
createVersionMetadataV1Beta =
CreateVersionMetadataV1Beta' {_cvmvbCloudBuildId = Nothing}
cvmvbCloudBuildId :: Lens' CreateVersionMetadataV1Beta (Maybe Text)
cvmvbCloudBuildId
= lens _cvmvbCloudBuildId
(\ s a -> s{_cvmvbCloudBuildId = a})
instance FromJSON CreateVersionMetadataV1Beta where
parseJSON
= withObject "CreateVersionMetadataV1Beta"
(\ o ->
CreateVersionMetadataV1Beta' <$>
(o .:? "cloudBuildId"))
instance ToJSON CreateVersionMetadataV1Beta where
toJSON CreateVersionMetadataV1Beta'{..}
= object
(catMaybes
[("cloudBuildId" .=) <$> _cvmvbCloudBuildId])
data ListDomainMAppingsResponse =
ListDomainMAppingsResponse'
{ _ldmarDomainMAppings :: !(Maybe [DomainMApping])
, _ldmarNextPageToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
listDomainMAppingsResponse
:: ListDomainMAppingsResponse
listDomainMAppingsResponse =
ListDomainMAppingsResponse'
{_ldmarDomainMAppings = Nothing, _ldmarNextPageToken = Nothing}
ldmarDomainMAppings :: Lens' ListDomainMAppingsResponse [DomainMApping]
ldmarDomainMAppings
= lens _ldmarDomainMAppings
(\ s a -> s{_ldmarDomainMAppings = a})
. _Default
. _Coerce
ldmarNextPageToken :: Lens' ListDomainMAppingsResponse (Maybe Text)
ldmarNextPageToken
= lens _ldmarNextPageToken
(\ s a -> s{_ldmarNextPageToken = a})
instance FromJSON ListDomainMAppingsResponse where
parseJSON
= withObject "ListDomainMAppingsResponse"
(\ o ->
ListDomainMAppingsResponse' <$>
(o .:? "domainMappings" .!= mempty) <*>
(o .:? "nextPageToken"))
instance ToJSON ListDomainMAppingsResponse where
toJSON ListDomainMAppingsResponse'{..}
= object
(catMaybes
[("domainMappings" .=) <$> _ldmarDomainMAppings,
("nextPageToken" .=) <$> _ldmarNextPageToken])
data StandardSchedulerSettings =
StandardSchedulerSettings'
{ _sssTargetCPUUtilization :: !(Maybe (Textual Double))
, _sssMinInstances :: !(Maybe (Textual Int32))
, _sssMaxInstances :: !(Maybe (Textual Int32))
, _sssTargetThroughputUtilization :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
standardSchedulerSettings
:: StandardSchedulerSettings
standardSchedulerSettings =
StandardSchedulerSettings'
{ _sssTargetCPUUtilization = Nothing
, _sssMinInstances = Nothing
, _sssMaxInstances = Nothing
, _sssTargetThroughputUtilization = Nothing
}
sssTargetCPUUtilization :: Lens' StandardSchedulerSettings (Maybe Double)
sssTargetCPUUtilization
= lens _sssTargetCPUUtilization
(\ s a -> s{_sssTargetCPUUtilization = a})
. mapping _Coerce
sssMinInstances :: Lens' StandardSchedulerSettings (Maybe Int32)
sssMinInstances
= lens _sssMinInstances
(\ s a -> s{_sssMinInstances = a})
. mapping _Coerce
sssMaxInstances :: Lens' StandardSchedulerSettings (Maybe Int32)
sssMaxInstances
= lens _sssMaxInstances
(\ s a -> s{_sssMaxInstances = a})
. mapping _Coerce
sssTargetThroughputUtilization :: Lens' StandardSchedulerSettings (Maybe Double)
sssTargetThroughputUtilization
= lens _sssTargetThroughputUtilization
(\ s a -> s{_sssTargetThroughputUtilization = a})
. mapping _Coerce
instance FromJSON StandardSchedulerSettings where
parseJSON
= withObject "StandardSchedulerSettings"
(\ o ->
StandardSchedulerSettings' <$>
(o .:? "targetCpuUtilization") <*>
(o .:? "minInstances")
<*> (o .:? "maxInstances")
<*> (o .:? "targetThroughputUtilization"))
instance ToJSON StandardSchedulerSettings where
toJSON StandardSchedulerSettings'{..}
= object
(catMaybes
[("targetCpuUtilization" .=) <$>
_sssTargetCPUUtilization,
("minInstances" .=) <$> _sssMinInstances,
("maxInstances" .=) <$> _sssMaxInstances,
("targetThroughputUtilization" .=) <$>
_sssTargetThroughputUtilization])
newtype ContainerInfo =
ContainerInfo'
{ _ciImage :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
containerInfo
:: ContainerInfo
containerInfo = ContainerInfo' {_ciImage = Nothing}
ciImage :: Lens' ContainerInfo (Maybe Text)
ciImage = lens _ciImage (\ s a -> s{_ciImage = a})
instance FromJSON ContainerInfo where
parseJSON
= withObject "ContainerInfo"
(\ o -> ContainerInfo' <$> (o .:? "image"))
instance ToJSON ContainerInfo where
toJSON ContainerInfo'{..}
= object (catMaybes [("image" .=) <$> _ciImage])
data Instance =
Instance'
{ _iMemoryUsage :: !(Maybe (Textual Int64))
, _iVMStatus :: !(Maybe Text)
, _iVMZoneName :: !(Maybe Text)
, _iVMIP :: !(Maybe Text)
, _iStartTime :: !(Maybe DateTime')
, _iVMId :: !(Maybe Text)
, _iAvailability :: !(Maybe InstanceAvailability)
, _iVMName :: !(Maybe Text)
, _iName :: !(Maybe Text)
, _iVMDebugEnabled :: !(Maybe Bool)
, _iRequests :: !(Maybe (Textual Int32))
, _iQps :: !(Maybe (Textual Double))
, _iId :: !(Maybe Text)
, _iErrors :: !(Maybe (Textual Int32))
, _iAverageLatency :: !(Maybe (Textual Int32))
, _iAppEngineRelease :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
instance'
:: Instance
instance' =
Instance'
{ _iMemoryUsage = Nothing
, _iVMStatus = Nothing
, _iVMZoneName = Nothing
, _iVMIP = Nothing
, _iStartTime = Nothing
, _iVMId = Nothing
, _iAvailability = Nothing
, _iVMName = Nothing
, _iName = Nothing
, _iVMDebugEnabled = Nothing
, _iRequests = Nothing
, _iQps = Nothing
, _iId = Nothing
, _iErrors = Nothing
, _iAverageLatency = Nothing
, _iAppEngineRelease = Nothing
}
iMemoryUsage :: Lens' Instance (Maybe Int64)
iMemoryUsage
= lens _iMemoryUsage (\ s a -> s{_iMemoryUsage = a})
. mapping _Coerce
iVMStatus :: Lens' Instance (Maybe Text)
iVMStatus
= lens _iVMStatus (\ s a -> s{_iVMStatus = a})
iVMZoneName :: Lens' Instance (Maybe Text)
iVMZoneName
= lens _iVMZoneName (\ s a -> s{_iVMZoneName = a})
iVMIP :: Lens' Instance (Maybe Text)
iVMIP = lens _iVMIP (\ s a -> s{_iVMIP = a})
iStartTime :: Lens' Instance (Maybe UTCTime)
iStartTime
= lens _iStartTime (\ s a -> s{_iStartTime = a}) .
mapping _DateTime
iVMId :: Lens' Instance (Maybe Text)
iVMId = lens _iVMId (\ s a -> s{_iVMId = a})
iAvailability :: Lens' Instance (Maybe InstanceAvailability)
iAvailability
= lens _iAvailability
(\ s a -> s{_iAvailability = a})
iVMName :: Lens' Instance (Maybe Text)
iVMName = lens _iVMName (\ s a -> s{_iVMName = a})
iName :: Lens' Instance (Maybe Text)
iName = lens _iName (\ s a -> s{_iName = a})
iVMDebugEnabled :: Lens' Instance (Maybe Bool)
iVMDebugEnabled
= lens _iVMDebugEnabled
(\ s a -> s{_iVMDebugEnabled = a})
iRequests :: Lens' Instance (Maybe Int32)
iRequests
= lens _iRequests (\ s a -> s{_iRequests = a}) .
mapping _Coerce
iQps :: Lens' Instance (Maybe Double)
iQps
= lens _iQps (\ s a -> s{_iQps = a}) .
mapping _Coerce
iId :: Lens' Instance (Maybe Text)
iId = lens _iId (\ s a -> s{_iId = a})
iErrors :: Lens' Instance (Maybe Int32)
iErrors
= lens _iErrors (\ s a -> s{_iErrors = a}) .
mapping _Coerce
iAverageLatency :: Lens' Instance (Maybe Int32)
iAverageLatency
= lens _iAverageLatency
(\ s a -> s{_iAverageLatency = a})
. mapping _Coerce
iAppEngineRelease :: Lens' Instance (Maybe Text)
iAppEngineRelease
= lens _iAppEngineRelease
(\ s a -> s{_iAppEngineRelease = a})
instance FromJSON Instance where
parseJSON
= withObject "Instance"
(\ o ->
Instance' <$>
(o .:? "memoryUsage") <*> (o .:? "vmStatus") <*>
(o .:? "vmZoneName")
<*> (o .:? "vmIp")
<*> (o .:? "startTime")
<*> (o .:? "vmId")
<*> (o .:? "availability")
<*> (o .:? "vmName")
<*> (o .:? "name")
<*> (o .:? "vmDebugEnabled")
<*> (o .:? "requests")
<*> (o .:? "qps")
<*> (o .:? "id")
<*> (o .:? "errors")
<*> (o .:? "averageLatency")
<*> (o .:? "appEngineRelease"))
instance ToJSON Instance where
toJSON Instance'{..}
= object
(catMaybes
[("memoryUsage" .=) <$> _iMemoryUsage,
("vmStatus" .=) <$> _iVMStatus,
("vmZoneName" .=) <$> _iVMZoneName,
("vmIp" .=) <$> _iVMIP,
("startTime" .=) <$> _iStartTime,
("vmId" .=) <$> _iVMId,
("availability" .=) <$> _iAvailability,
("vmName" .=) <$> _iVMName, ("name" .=) <$> _iName,
("vmDebugEnabled" .=) <$> _iVMDebugEnabled,
("requests" .=) <$> _iRequests, ("qps" .=) <$> _iQps,
("id" .=) <$> _iId, ("errors" .=) <$> _iErrors,
("averageLatency" .=) <$> _iAverageLatency,
("appEngineRelease" .=) <$> _iAppEngineRelease])
data SSLSettings =
SSLSettings'
{ _ssSSLManagementType :: !(Maybe SSLSettingsSSLManagementType)
, _ssCertificateId :: !(Maybe Text)
, _ssPendingManagedCertificateId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
sslSettings
:: SSLSettings
sslSettings =
SSLSettings'
{ _ssSSLManagementType = Nothing
, _ssCertificateId = Nothing
, _ssPendingManagedCertificateId = Nothing
}
ssSSLManagementType :: Lens' SSLSettings (Maybe SSLSettingsSSLManagementType)
ssSSLManagementType
= lens _ssSSLManagementType
(\ s a -> s{_ssSSLManagementType = a})
ssCertificateId :: Lens' SSLSettings (Maybe Text)
ssCertificateId
= lens _ssCertificateId
(\ s a -> s{_ssCertificateId = a})
ssPendingManagedCertificateId :: Lens' SSLSettings (Maybe Text)
ssPendingManagedCertificateId
= lens _ssPendingManagedCertificateId
(\ s a -> s{_ssPendingManagedCertificateId = a})
instance FromJSON SSLSettings where
parseJSON
= withObject "SSLSettings"
(\ o ->
SSLSettings' <$>
(o .:? "sslManagementType") <*>
(o .:? "certificateId")
<*> (o .:? "pendingManagedCertificateId"))
instance ToJSON SSLSettings where
toJSON SSLSettings'{..}
= object
(catMaybes
[("sslManagementType" .=) <$> _ssSSLManagementType,
("certificateId" .=) <$> _ssCertificateId,
("pendingManagedCertificateId" .=) <$>
_ssPendingManagedCertificateId])
data Deployment =
Deployment'
{ _dZip :: !(Maybe ZipInfo)
, _dCloudBuildOptions :: !(Maybe CloudBuildOptions)
, _dContainer :: !(Maybe ContainerInfo)
, _dFiles :: !(Maybe DeploymentFiles)
}
deriving (Eq, Show, Data, Typeable, Generic)
deployment
:: Deployment
deployment =
Deployment'
{ _dZip = Nothing
, _dCloudBuildOptions = Nothing
, _dContainer = Nothing
, _dFiles = Nothing
}
dZip :: Lens' Deployment (Maybe ZipInfo)
dZip = lens _dZip (\ s a -> s{_dZip = a})
dCloudBuildOptions :: Lens' Deployment (Maybe CloudBuildOptions)
dCloudBuildOptions
= lens _dCloudBuildOptions
(\ s a -> s{_dCloudBuildOptions = a})
dContainer :: Lens' Deployment (Maybe ContainerInfo)
dContainer
= lens _dContainer (\ s a -> s{_dContainer = a})
dFiles :: Lens' Deployment (Maybe DeploymentFiles)
dFiles = lens _dFiles (\ s a -> s{_dFiles = a})
instance FromJSON Deployment where
parseJSON
= withObject "Deployment"
(\ o ->
Deployment' <$>
(o .:? "zip") <*> (o .:? "cloudBuildOptions") <*>
(o .:? "container")
<*> (o .:? "files"))
instance ToJSON Deployment where
toJSON Deployment'{..}
= object
(catMaybes
[("zip" .=) <$> _dZip,
("cloudBuildOptions" .=) <$> _dCloudBuildOptions,
("container" .=) <$> _dContainer,
("files" .=) <$> _dFiles])