module Network.Google.AppEngine.Types.Product where
import Network.Google.AppEngine.Types.Sum
import Network.Google.Prelude
data OperationMetadataExperimental = OperationMetadataExperimental'
{ _omeInsertTime :: !(Maybe Text)
, _omeUser :: !(Maybe Text)
, _omeMethod :: !(Maybe Text)
, _omeEndTime :: !(Maybe Text)
, _omeTarget :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationMetadataExperimental
:: OperationMetadataExperimental
operationMetadataExperimental =
OperationMetadataExperimental'
{ _omeInsertTime = Nothing
, _omeUser = Nothing
, _omeMethod = Nothing
, _omeEndTime = Nothing
, _omeTarget = Nothing
}
omeInsertTime :: Lens' OperationMetadataExperimental (Maybe Text)
omeInsertTime
= lens _omeInsertTime
(\ s a -> s{_omeInsertTime = a})
omeUser :: Lens' OperationMetadataExperimental (Maybe Text)
omeUser = lens _omeUser (\ s a -> s{_omeUser = a})
omeMethod :: Lens' OperationMetadataExperimental (Maybe Text)
omeMethod
= lens _omeMethod (\ s a -> s{_omeMethod = a})
omeEndTime :: Lens' OperationMetadataExperimental (Maybe Text)
omeEndTime
= lens _omeEndTime (\ s a -> s{_omeEndTime = a})
omeTarget :: Lens' OperationMetadataExperimental (Maybe Text)
omeTarget
= lens _omeTarget (\ s a -> s{_omeTarget = a})
instance FromJSON OperationMetadataExperimental where
parseJSON
= withObject "OperationMetadataExperimental"
(\ o ->
OperationMetadataExperimental' <$>
(o .:? "insertTime") <*> (o .:? "user") <*>
(o .:? "method")
<*> (o .:? "endTime")
<*> (o .:? "target"))
instance ToJSON OperationMetadataExperimental where
toJSON OperationMetadataExperimental'{..}
= object
(catMaybes
[("insertTime" .=) <$> _omeInsertTime,
("user" .=) <$> _omeUser,
("method" .=) <$> _omeMethod,
("endTime" .=) <$> _omeEndTime,
("target" .=) <$> _omeTarget])
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 TrafficSplit = TrafficSplit'
{ _tsShardBy :: !(Maybe Text)
, _tsAllocations :: !(Maybe TrafficSplitAllocations)
} deriving (Eq,Show,Data,Typeable,Generic)
trafficSplit
:: TrafficSplit
trafficSplit =
TrafficSplit'
{ _tsShardBy = Nothing
, _tsAllocations = Nothing
}
tsShardBy :: Lens' TrafficSplit (Maybe Text)
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 Text)
, _umAPIEndpoint :: !(Maybe APIEndpointHandler)
, _umURLRegex :: !(Maybe Text)
, _umRedirectHTTPResponseCode :: !(Maybe Text)
, _umAuthFailAction :: !(Maybe Text)
, _umStaticFiles :: !(Maybe StaticFilesHandler)
, _umLogin :: !(Maybe Text)
} 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 Text)
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 Text)
umRedirectHTTPResponseCode
= lens _umRedirectHTTPResponseCode
(\ s a -> s{_umRedirectHTTPResponseCode = a})
umAuthFailAction :: Lens' URLMap (Maybe Text)
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 Text)
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 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 Text)
, _hcRestartThreshold :: !(Maybe (Textual Word32))
, _hcHost :: !(Maybe Text)
, _hcTimeout :: !(Maybe Text)
, _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 Text)
hcCheckInterval
= lens _hcCheckInterval
(\ s a -> s{_hcCheckInterval = a})
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 Text)
hcTimeout
= lens _hcTimeout (\ s a -> s{_hcTimeout = a})
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 APIConfigHandler = APIConfigHandler'
{ _achScript :: !(Maybe Text)
, _achSecurityLevel :: !(Maybe Text)
, _achURL :: !(Maybe Text)
, _achAuthFailAction :: !(Maybe Text)
, _achLogin :: !(Maybe Text)
} 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 Text)
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 Text)
achAuthFailAction
= lens _achAuthFailAction
(\ s a -> s{_achAuthFailAction = a})
achLogin :: Lens' APIConfigHandler (Maybe Text)
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 Text)
, _aAuthDomain :: !(Maybe Text)
, _aCodeBucket :: !(Maybe Text)
, _aName :: !(Maybe Text)
, _aDispatchRules :: !(Maybe [URLDispatchRule])
, _aDefaultBucket :: !(Maybe Text)
, _aId :: !(Maybe Text)
, _aLocationId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
application
:: Application
application =
Application'
{ _aDefaultHostname = Nothing
, _aDefaultCookieExpiration = Nothing
, _aAuthDomain = Nothing
, _aCodeBucket = Nothing
, _aName = Nothing
, _aDispatchRules = Nothing
, _aDefaultBucket = Nothing
, _aId = Nothing
, _aLocationId = Nothing
}
aDefaultHostname :: Lens' Application (Maybe Text)
aDefaultHostname
= lens _aDefaultHostname
(\ s a -> s{_aDefaultHostname = a})
aDefaultCookieExpiration :: Lens' Application (Maybe Text)
aDefaultCookieExpiration
= lens _aDefaultCookieExpiration
(\ s a -> s{_aDefaultCookieExpiration = 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})
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})
instance FromJSON Application where
parseJSON
= withObject "Application"
(\ o ->
Application' <$>
(o .:? "defaultHostname") <*>
(o .:? "defaultCookieExpiration")
<*> (o .:? "authDomain")
<*> (o .:? "codeBucket")
<*> (o .:? "name")
<*> (o .:? "dispatchRules" .!= mempty)
<*> (o .:? "defaultBucket")
<*> (o .:? "id")
<*> (o .:? "locationId"))
instance ToJSON Application where
toJSON Application'{..}
= object
(catMaybes
[("defaultHostname" .=) <$> _aDefaultHostname,
("defaultCookieExpiration" .=) <$>
_aDefaultCookieExpiration,
("authDomain" .=) <$> _aAuthDomain,
("codeBucket" .=) <$> _aCodeBucket,
("name" .=) <$> _aName,
("dispatchRules" .=) <$> _aDispatchRules,
("defaultBucket" .=) <$> _aDefaultBucket,
("id" .=) <$> _aId,
("locationId" .=) <$> _aLocationId])
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'
{ _easName :: !(Maybe Text)
, _easConfigId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
endpointsAPIService
:: EndpointsAPIService
endpointsAPIService =
EndpointsAPIService'
{ _easName = Nothing
, _easConfigId = Nothing
}
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})
instance FromJSON EndpointsAPIService where
parseJSON
= withObject "EndpointsAPIService"
(\ o ->
EndpointsAPIService' <$>
(o .:? "name") <*> (o .:? "configId"))
instance ToJSON EndpointsAPIService where
toJSON EndpointsAPIService'{..}
= object
(catMaybes
[("name" .=) <$> _easName,
("configId" .=) <$> _easConfigId])
data Location = Location'
{ _locName :: !(Maybe Text)
, _locMetadata :: !(Maybe LocationSchema)
, _locLabels :: !(Maybe LocationLabels)
, _locLocationId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
location
:: Location
location =
Location'
{ _locName = Nothing
, _locMetadata = 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})
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 .:? "labels")
<*> (o .:? "locationId"))
instance ToJSON Location where
toJSON Location'{..}
= object
(catMaybes
[("name" .=) <$> _locName,
("metadata" .=) <$> _locMetadata,
("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 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 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 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 Text)
, _asCPUUtilization :: !(Maybe CPUUtilization)
, _asMaxIdleInstances :: !(Maybe (Textual Int32))
, _asMinTotalInstances :: !(Maybe (Textual Int32))
, _asMaxConcurrentRequests :: !(Maybe (Textual Int32))
, _asCoolDownPeriod :: !(Maybe Text)
, _asRequestUtilization :: !(Maybe RequestUtilization)
, _asMaxPendingLatency :: !(Maybe Text)
} 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
}
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 Text)
asMinPendingLatency
= lens _asMinPendingLatency
(\ s a -> s{_asMinPendingLatency = a})
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 Text)
asCoolDownPeriod
= lens _asCoolDownPeriod
(\ s a -> s{_asCoolDownPeriod = a})
asRequestUtilization :: Lens' AutomaticScaling (Maybe RequestUtilization)
asRequestUtilization
= lens _asRequestUtilization
(\ s a -> s{_asRequestUtilization = a})
asMaxPendingLatency :: Lens' AutomaticScaling (Maybe Text)
asMaxPendingLatency
= lens _asMaxPendingLatency
(\ s a -> s{_asMaxPendingLatency = 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"))
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])
data OperationMetadataV1Beta5 = OperationMetadataV1Beta5'
{ _omvbInsertTime :: !(Maybe Text)
, _omvbUser :: !(Maybe Text)
, _omvbMethod :: !(Maybe Text)
, _omvbEndTime :: !(Maybe Text)
, _omvbTarget :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationMetadataV1Beta5
:: OperationMetadataV1Beta5
operationMetadataV1Beta5 =
OperationMetadataV1Beta5'
{ _omvbInsertTime = Nothing
, _omvbUser = Nothing
, _omvbMethod = Nothing
, _omvbEndTime = Nothing
, _omvbTarget = Nothing
}
omvbInsertTime :: Lens' OperationMetadataV1Beta5 (Maybe Text)
omvbInsertTime
= lens _omvbInsertTime
(\ s a -> s{_omvbInsertTime = a})
omvbUser :: Lens' OperationMetadataV1Beta5 (Maybe Text)
omvbUser = lens _omvbUser (\ s a -> s{_omvbUser = a})
omvbMethod :: Lens' OperationMetadataV1Beta5 (Maybe Text)
omvbMethod
= lens _omvbMethod (\ s a -> s{_omvbMethod = a})
omvbEndTime :: Lens' OperationMetadataV1Beta5 (Maybe Text)
omvbEndTime
= lens _omvbEndTime (\ s a -> s{_omvbEndTime = a})
omvbTarget :: Lens' OperationMetadataV1Beta5 (Maybe Text)
omvbTarget
= lens _omvbTarget (\ s a -> s{_omvbTarget = 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" .=) <$> _omvbInsertTime,
("user" .=) <$> _omvbUser,
("method" .=) <$> _omvbMethod,
("endTime" .=) <$> _omvbEndTime,
("target" .=) <$> _omvbTarget])
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 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])
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 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
data CPUUtilization = CPUUtilization'
{ _cuAggregationWindowLength :: !(Maybe Text)
, _cuTargetUtilization :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
cpuUtilization
:: CPUUtilization
cpuUtilization =
CPUUtilization'
{ _cuAggregationWindowLength = Nothing
, _cuTargetUtilization = Nothing
}
cuAggregationWindowLength :: Lens' CPUUtilization (Maybe Text)
cuAggregationWindowLength
= lens _cuAggregationWindowLength
(\ s a -> s{_cuAggregationWindowLength = a})
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 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
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 Text)
} 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 Text)
bsIdleTimeout
= lens _bsIdleTimeout
(\ s a -> s{_bsIdleTimeout = a})
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 Text)
, _omvUser :: !(Maybe Text)
, _omvMethod :: !(Maybe Text)
, _omvEndTime :: !(Maybe Text)
, _omvWarning :: !(Maybe [Text])
, _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
, _omvTarget = Nothing
}
omvEphemeralMessage :: Lens' OperationMetadataV1 (Maybe Text)
omvEphemeralMessage
= lens _omvEphemeralMessage
(\ s a -> s{_omvEphemeralMessage = a})
omvInsertTime :: Lens' OperationMetadataV1 (Maybe Text)
omvInsertTime
= lens _omvInsertTime
(\ s a -> s{_omvInsertTime = a})
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 Text)
omvEndTime
= lens _omvEndTime (\ s a -> s{_omvEndTime = a})
omvWarning :: Lens' OperationMetadataV1 [Text]
omvWarning
= lens _omvWarning (\ s a -> s{_omvWarning = a}) .
_Default
. _Coerce
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 .:? "target"))
instance ToJSON OperationMetadataV1 where
toJSON OperationMetadataV1'{..}
= object
(catMaybes
[("ephemeralMessage" .=) <$> _omvEphemeralMessage,
("insertTime" .=) <$> _omvInsertTime,
("user" .=) <$> _omvUser,
("method" .=) <$> _omvMethod,
("endTime" .=) <$> _omvEndTime,
("warning" .=) <$> _omvWarning,
("target" .=) <$> _omvTarget])
data Version = Version'
{ _verRuntime :: !(Maybe Text)
, _verNobuildFilesRegex :: !(Maybe Text)
, _verInstanceClass :: !(Maybe Text)
, _verHealthCheck :: !(Maybe HealthCheck)
, _verEndpointsAPIService :: !(Maybe EndpointsAPIService)
, _verEnv :: !(Maybe Text)
, _verDefaultExpiration :: !(Maybe Text)
, _verAutomaticScaling :: !(Maybe AutomaticScaling)
, _verErrorHandlers :: !(Maybe [ErrorHandler])
, _verCreatedBy :: !(Maybe Text)
, _verVM :: !(Maybe Bool)
, _verHandlers :: !(Maybe [URLMap])
, _verInboundServices :: !(Maybe [Text])
, _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)
, _verServingStatus :: !(Maybe Text)
, _verDiskUsageBytes :: !(Maybe (Textual Int64))
, _verCreateTime :: !(Maybe Text)
, _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
, _verHealthCheck = Nothing
, _verEndpointsAPIService = Nothing
, _verEnv = Nothing
, _verDefaultExpiration = Nothing
, _verAutomaticScaling = Nothing
, _verErrorHandlers = Nothing
, _verCreatedBy = Nothing
, _verVM = Nothing
, _verHandlers = Nothing
, _verInboundServices = Nothing
, _verNetwork = Nothing
, _verResources = Nothing
, _verName = Nothing
, _verThreadsafe = Nothing
, _verBetaSettings = Nothing
, _verBasicScaling = Nothing
, _verManualScaling = Nothing
, _verAPIConfig = Nothing
, _verId = Nothing
, _verEnvVariables = 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})
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})
verDefaultExpiration :: Lens' Version (Maybe Text)
verDefaultExpiration
= lens _verDefaultExpiration
(\ s a -> s{_verDefaultExpiration = a})
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
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})
verServingStatus :: Lens' Version (Maybe Text)
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 Text)
verCreateTime
= lens _verCreateTime
(\ s a -> s{_verCreateTime = a})
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 .:? "healthCheck")
<*> (o .:? "endpointsApiService")
<*> (o .:? "env")
<*> (o .:? "defaultExpiration")
<*> (o .:? "automaticScaling")
<*> (o .:? "errorHandlers" .!= mempty)
<*> (o .:? "createdBy")
<*> (o .:? "vm")
<*> (o .:? "handlers" .!= mempty)
<*> (o .:? "inboundServices" .!= mempty)
<*> (o .:? "network")
<*> (o .:? "resources")
<*> (o .:? "name")
<*> (o .:? "threadsafe")
<*> (o .:? "betaSettings")
<*> (o .:? "basicScaling")
<*> (o .:? "manualScaling")
<*> (o .:? "apiConfig")
<*> (o .:? "id")
<*> (o .:? "envVariables")
<*> (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,
("healthCheck" .=) <$> _verHealthCheck,
("endpointsApiService" .=) <$>
_verEndpointsAPIService,
("env" .=) <$> _verEnv,
("defaultExpiration" .=) <$> _verDefaultExpiration,
("automaticScaling" .=) <$> _verAutomaticScaling,
("errorHandlers" .=) <$> _verErrorHandlers,
("createdBy" .=) <$> _verCreatedBy,
("vm" .=) <$> _verVM,
("handlers" .=) <$> _verHandlers,
("inboundServices" .=) <$> _verInboundServices,
("network" .=) <$> _verNetwork,
("resources" .=) <$> _verResources,
("name" .=) <$> _verName,
("threadsafe" .=) <$> _verThreadsafe,
("betaSettings" .=) <$> _verBetaSettings,
("basicScaling" .=) <$> _verBasicScaling,
("manualScaling" .=) <$> _verManualScaling,
("apiConfig" .=) <$> _verAPIConfig,
("id" .=) <$> _verId,
("envVariables" .=) <$> _verEnvVariables,
("servingStatus" .=) <$> _verServingStatus,
("diskUsageBytes" .=) <$> _verDiskUsageBytes,
("createTime" .=) <$> _verCreateTime,
("libraries" .=) <$> _verLibraries,
("versionUrl" .=) <$> _verVersionURL,
("deployment" .=) <$> _verDeployment])
data StaticFilesHandler = StaticFilesHandler'
{ _sfhHTTPHeaders :: !(Maybe StaticFilesHandlerHTTPHeaders)
, _sfhPath :: !(Maybe Text)
, _sfhRequireMatchingFile :: !(Maybe Bool)
, _sfhExpiration :: !(Maybe Text)
, _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 Text)
sfhExpiration
= lens _sfhExpiration
(\ s a -> s{_sfhExpiration = a})
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 Text)
, _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 Text)
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 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])
data OperationMetadata = OperationMetadata'
{ _omInsertTime :: !(Maybe Text)
, _omUser :: !(Maybe Text)
, _omMethod :: !(Maybe Text)
, _omEndTime :: !(Maybe Text)
, _omOperationType :: !(Maybe Text)
, _omTarget :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationMetadata
:: OperationMetadata
operationMetadata =
OperationMetadata'
{ _omInsertTime = Nothing
, _omUser = Nothing
, _omMethod = Nothing
, _omEndTime = Nothing
, _omOperationType = Nothing
, _omTarget = Nothing
}
omInsertTime :: Lens' OperationMetadata (Maybe Text)
omInsertTime
= lens _omInsertTime (\ s a -> s{_omInsertTime = a})
omUser :: Lens' OperationMetadata (Maybe Text)
omUser = lens _omUser (\ s a -> s{_omUser = a})
omMethod :: Lens' OperationMetadata (Maybe Text)
omMethod = lens _omMethod (\ s a -> s{_omMethod = a})
omEndTime :: Lens' OperationMetadata (Maybe Text)
omEndTime
= lens _omEndTime (\ s a -> s{_omEndTime = a})
omOperationType :: Lens' OperationMetadata (Maybe Text)
omOperationType
= lens _omOperationType
(\ s a -> s{_omOperationType = a})
omTarget :: Lens' OperationMetadata (Maybe Text)
omTarget = lens _omTarget (\ s a -> s{_omTarget = a})
instance FromJSON OperationMetadata where
parseJSON
= withObject "OperationMetadata"
(\ o ->
OperationMetadata' <$>
(o .:? "insertTime") <*> (o .:? "user") <*>
(o .:? "method")
<*> (o .:? "endTime")
<*> (o .:? "operationType")
<*> (o .:? "target"))
instance ToJSON OperationMetadata where
toJSON OperationMetadata'{..}
= object
(catMaybes
[("insertTime" .=) <$> _omInsertTime,
("user" .=) <$> _omUser, ("method" .=) <$> _omMethod,
("endTime" .=) <$> _omEndTime,
("operationType" .=) <$> _omOperationType,
("target" .=) <$> _omTarget])
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 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 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 Text)
, _iVMId :: !(Maybe Text)
, _iAvailability :: !(Maybe Text)
, _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 Text)
iStartTime
= lens _iStartTime (\ s a -> s{_iStartTime = a})
iVMId :: Lens' Instance (Maybe Text)
iVMId = lens _iVMId (\ s a -> s{_iVMId = a})
iAvailability :: Lens' Instance (Maybe Text)
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 Deployment = Deployment'
{ _dZip :: !(Maybe ZipInfo)
, _dContainer :: !(Maybe ContainerInfo)
, _dFiles :: !(Maybe DeploymentFiles)
} deriving (Eq,Show,Data,Typeable,Generic)
deployment
:: Deployment
deployment =
Deployment'
{ _dZip = Nothing
, _dContainer = Nothing
, _dFiles = Nothing
}
dZip :: Lens' Deployment (Maybe ZipInfo)
dZip = lens _dZip (\ s a -> s{_dZip = 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 .:? "container") <*>
(o .:? "files"))
instance ToJSON Deployment where
toJSON Deployment'{..}
= object
(catMaybes
[("zip" .=) <$> _dZip,
("container" .=) <$> _dContainer,
("files" .=) <$> _dFiles])