{-# 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 OperationSchema = OperationSchema'
{ _osAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
operationSchema
:: HashMap Text JSONValue
-> OperationSchema
operationSchema pOsAddtional_ =
OperationSchema'
{ _osAddtional = _Coerce # pOsAddtional_
}
osAddtional :: Lens' OperationSchema (HashMap Text JSONValue)
osAddtional
= lens _osAddtional (\ s a -> s{_osAddtional = a}) .
_Coerce
instance FromJSON OperationSchema where
parseJSON
= withObject "OperationSchema"
(\ o -> OperationSchema' <$> (parseJSONObject o))
instance ToJSON OperationSchema where
toJSON = toJSON . _osAddtional
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])
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 OperationSchema)
} 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 OperationSchema)
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 OperationMetadataV1Beta5 = OperationMetadataV1Beta5'
{ _oInsertTime :: !(Maybe DateTime')
, _oUser :: !(Maybe Text)
, _oMethod :: !(Maybe Text)
, _oEndTime :: !(Maybe DateTime')
, _oTarget :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationMetadataV1Beta5
:: OperationMetadataV1Beta5
operationMetadataV1Beta5 =
OperationMetadataV1Beta5'
{ _oInsertTime = Nothing
, _oUser = Nothing
, _oMethod = Nothing
, _oEndTime = Nothing
, _oTarget = Nothing
}
oInsertTime :: Lens' OperationMetadataV1Beta5 (Maybe UTCTime)
oInsertTime
= lens _oInsertTime (\ s a -> s{_oInsertTime = a}) .
mapping _DateTime
oUser :: Lens' OperationMetadataV1Beta5 (Maybe Text)
oUser = lens _oUser (\ s a -> s{_oUser = a})
oMethod :: Lens' OperationMetadataV1Beta5 (Maybe Text)
oMethod = lens _oMethod (\ s a -> s{_oMethod = a})
oEndTime :: Lens' OperationMetadataV1Beta5 (Maybe UTCTime)
oEndTime
= lens _oEndTime (\ s a -> s{_oEndTime = a}) .
mapping _DateTime
oTarget :: Lens' OperationMetadataV1Beta5 (Maybe Text)
oTarget = lens _oTarget (\ s a -> s{_oTarget = a})
instance FromJSON OperationMetadataV1Beta5 where
parseJSON
= withObject "OperationMetadataV1Beta5"
(\ o ->
OperationMetadataV1Beta5' <$>
(o .:? "insertTime") <*> (o .:? "user") <*>
(o .:? "method")
<*> (o .:? "endTime")
<*> (o .:? "target"))
instance ToJSON OperationMetadataV1Beta5 where
toJSON OperationMetadataV1Beta5'{..}
= object
(catMaybes
[("insertTime" .=) <$> _oInsertTime,
("user" .=) <$> _oUser, ("method" .=) <$> _oMethod,
("endTime" .=) <$> _oEndTime,
("target" .=) <$> _oTarget])
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'
{ _nSubnetworkName :: !(Maybe Text)
, _nForwardedPorts :: !(Maybe [Text])
, _nInstanceTag :: !(Maybe Text)
, _nName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
network
:: Network
network =
Network'
{ _nSubnetworkName = Nothing
, _nForwardedPorts = Nothing
, _nInstanceTag = Nothing
, _nName = Nothing
}
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 .:? "subnetworkName") <*>
(o .:? "forwardedPorts" .!= mempty)
<*> (o .:? "instanceTag")
<*> (o .:? "name"))
instance ToJSON Network where
toJSON Network'{..}
= object
(catMaybes
[("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])
newtype FeatureSettings = FeatureSettings'
{ _fsSplitHealthChecks :: Maybe Bool
} deriving (Eq,Show,Data,Typeable,Generic)
featureSettings
:: FeatureSettings
featureSettings =
FeatureSettings'
{ _fsSplitHealthChecks = Nothing
}
fsSplitHealthChecks :: Lens' FeatureSettings (Maybe Bool)
fsSplitHealthChecks
= lens _fsSplitHealthChecks
(\ s a -> s{_fsSplitHealthChecks = a})
instance FromJSON FeatureSettings where
parseJSON
= withObject "FeatureSettings"
(\ o ->
FeatureSettings' <$> (o .:? "splitHealthChecks"))
instance ToJSON FeatureSettings where
toJSON FeatureSettings'{..}
= object
(catMaybes
[("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)
, _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