{-# 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.SQLAdmin.Types.Product where
import Network.Google.Prelude
import Network.Google.SQLAdmin.Types.Sum
data DemoteMasterMySQLReplicaConfiguration = DemoteMasterMySQLReplicaConfiguration'
{ _dmmsqlrcKind :: !Text
, _dmmsqlrcClientKey :: !(Maybe Text)
, _dmmsqlrcUsername :: !(Maybe Text)
, _dmmsqlrcClientCertificate :: !(Maybe Text)
, _dmmsqlrcCaCertificate :: !(Maybe Text)
, _dmmsqlrcPassword :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
demoteMasterMySQLReplicaConfiguration
:: DemoteMasterMySQLReplicaConfiguration
demoteMasterMySQLReplicaConfiguration =
DemoteMasterMySQLReplicaConfiguration'
{ _dmmsqlrcKind = "sql#demoteMasterMysqlReplicaConfiguration"
, _dmmsqlrcClientKey = Nothing
, _dmmsqlrcUsername = Nothing
, _dmmsqlrcClientCertificate = Nothing
, _dmmsqlrcCaCertificate = Nothing
, _dmmsqlrcPassword = Nothing
}
dmmsqlrcKind :: Lens' DemoteMasterMySQLReplicaConfiguration Text
dmmsqlrcKind
= lens _dmmsqlrcKind (\ s a -> s{_dmmsqlrcKind = a})
dmmsqlrcClientKey :: Lens' DemoteMasterMySQLReplicaConfiguration (Maybe Text)
dmmsqlrcClientKey
= lens _dmmsqlrcClientKey
(\ s a -> s{_dmmsqlrcClientKey = a})
dmmsqlrcUsername :: Lens' DemoteMasterMySQLReplicaConfiguration (Maybe Text)
dmmsqlrcUsername
= lens _dmmsqlrcUsername
(\ s a -> s{_dmmsqlrcUsername = a})
dmmsqlrcClientCertificate :: Lens' DemoteMasterMySQLReplicaConfiguration (Maybe Text)
dmmsqlrcClientCertificate
= lens _dmmsqlrcClientCertificate
(\ s a -> s{_dmmsqlrcClientCertificate = a})
dmmsqlrcCaCertificate :: Lens' DemoteMasterMySQLReplicaConfiguration (Maybe Text)
dmmsqlrcCaCertificate
= lens _dmmsqlrcCaCertificate
(\ s a -> s{_dmmsqlrcCaCertificate = a})
dmmsqlrcPassword :: Lens' DemoteMasterMySQLReplicaConfiguration (Maybe Text)
dmmsqlrcPassword
= lens _dmmsqlrcPassword
(\ s a -> s{_dmmsqlrcPassword = a})
instance FromJSON
DemoteMasterMySQLReplicaConfiguration where
parseJSON
= withObject "DemoteMasterMySQLReplicaConfiguration"
(\ o ->
DemoteMasterMySQLReplicaConfiguration' <$>
(o .:? "kind" .!=
"sql#demoteMasterMysqlReplicaConfiguration")
<*> (o .:? "clientKey")
<*> (o .:? "username")
<*> (o .:? "clientCertificate")
<*> (o .:? "caCertificate")
<*> (o .:? "password"))
instance ToJSON DemoteMasterMySQLReplicaConfiguration
where
toJSON DemoteMasterMySQLReplicaConfiguration'{..}
= object
(catMaybes
[Just ("kind" .= _dmmsqlrcKind),
("clientKey" .=) <$> _dmmsqlrcClientKey,
("username" .=) <$> _dmmsqlrcUsername,
("clientCertificate" .=) <$>
_dmmsqlrcClientCertificate,
("caCertificate" .=) <$> _dmmsqlrcCaCertificate,
("password" .=) <$> _dmmsqlrcPassword])
data SSLCert = SSLCert'
{ _scCommonName :: !(Maybe Text)
, _scKind :: !Text
, _scCertSerialNumber :: !(Maybe Text)
, _scSelfLink :: !(Maybe Text)
, _scCert :: !(Maybe Text)
, _scSha1Fingerprint :: !(Maybe Text)
, _scExpirationTime :: !(Maybe DateTime')
, _scCreateTime :: !(Maybe DateTime')
, _scInstance :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
sslCert
:: SSLCert
sslCert =
SSLCert'
{ _scCommonName = Nothing
, _scKind = "sql#sslCert"
, _scCertSerialNumber = Nothing
, _scSelfLink = Nothing
, _scCert = Nothing
, _scSha1Fingerprint = Nothing
, _scExpirationTime = Nothing
, _scCreateTime = Nothing
, _scInstance = Nothing
}
scCommonName :: Lens' SSLCert (Maybe Text)
scCommonName
= lens _scCommonName (\ s a -> s{_scCommonName = a})
scKind :: Lens' SSLCert Text
scKind = lens _scKind (\ s a -> s{_scKind = a})
scCertSerialNumber :: Lens' SSLCert (Maybe Text)
scCertSerialNumber
= lens _scCertSerialNumber
(\ s a -> s{_scCertSerialNumber = a})
scSelfLink :: Lens' SSLCert (Maybe Text)
scSelfLink
= lens _scSelfLink (\ s a -> s{_scSelfLink = a})
scCert :: Lens' SSLCert (Maybe Text)
scCert = lens _scCert (\ s a -> s{_scCert = a})
scSha1Fingerprint :: Lens' SSLCert (Maybe Text)
scSha1Fingerprint
= lens _scSha1Fingerprint
(\ s a -> s{_scSha1Fingerprint = a})
scExpirationTime :: Lens' SSLCert (Maybe UTCTime)
scExpirationTime
= lens _scExpirationTime
(\ s a -> s{_scExpirationTime = a})
. mapping _DateTime
scCreateTime :: Lens' SSLCert (Maybe UTCTime)
scCreateTime
= lens _scCreateTime (\ s a -> s{_scCreateTime = a})
. mapping _DateTime
scInstance :: Lens' SSLCert (Maybe Text)
scInstance
= lens _scInstance (\ s a -> s{_scInstance = a})
instance FromJSON SSLCert where
parseJSON
= withObject "SSLCert"
(\ o ->
SSLCert' <$>
(o .:? "commonName") <*>
(o .:? "kind" .!= "sql#sslCert")
<*> (o .:? "certSerialNumber")
<*> (o .:? "selfLink")
<*> (o .:? "cert")
<*> (o .:? "sha1Fingerprint")
<*> (o .:? "expirationTime")
<*> (o .:? "createTime")
<*> (o .:? "instance"))
instance ToJSON SSLCert where
toJSON SSLCert'{..}
= object
(catMaybes
[("commonName" .=) <$> _scCommonName,
Just ("kind" .= _scKind),
("certSerialNumber" .=) <$> _scCertSerialNumber,
("selfLink" .=) <$> _scSelfLink,
("cert" .=) <$> _scCert,
("sha1Fingerprint" .=) <$> _scSha1Fingerprint,
("expirationTime" .=) <$> _scExpirationTime,
("createTime" .=) <$> _scCreateTime,
("instance" .=) <$> _scInstance])
data DatabasesListResponse = DatabasesListResponse'
{ _dlrKind :: !Text
, _dlrItems :: !(Maybe [Database])
} deriving (Eq,Show,Data,Typeable,Generic)
databasesListResponse
:: DatabasesListResponse
databasesListResponse =
DatabasesListResponse'
{ _dlrKind = "sql#databasesList"
, _dlrItems = Nothing
}
dlrKind :: Lens' DatabasesListResponse Text
dlrKind = lens _dlrKind (\ s a -> s{_dlrKind = a})
dlrItems :: Lens' DatabasesListResponse [Database]
dlrItems
= lens _dlrItems (\ s a -> s{_dlrItems = a}) .
_Default
. _Coerce
instance FromJSON DatabasesListResponse where
parseJSON
= withObject "DatabasesListResponse"
(\ o ->
DatabasesListResponse' <$>
(o .:? "kind" .!= "sql#databasesList") <*>
(o .:? "items" .!= mempty))
instance ToJSON DatabasesListResponse where
toJSON DatabasesListResponse'{..}
= object
(catMaybes
[Just ("kind" .= _dlrKind),
("items" .=) <$> _dlrItems])
newtype InstancesExportRequest = InstancesExportRequest'
{ _ierExportContext :: Maybe ExportContext
} deriving (Eq,Show,Data,Typeable,Generic)
instancesExportRequest
:: InstancesExportRequest
instancesExportRequest =
InstancesExportRequest'
{ _ierExportContext = Nothing
}
ierExportContext :: Lens' InstancesExportRequest (Maybe ExportContext)
ierExportContext
= lens _ierExportContext
(\ s a -> s{_ierExportContext = a})
instance FromJSON InstancesExportRequest where
parseJSON
= withObject "InstancesExportRequest"
(\ o ->
InstancesExportRequest' <$> (o .:? "exportContext"))
instance ToJSON InstancesExportRequest where
toJSON InstancesExportRequest'{..}
= object
(catMaybes
[("exportContext" .=) <$> _ierExportContext])
data InstancesListServerCasResponse = InstancesListServerCasResponse'
{ _ilscrKind :: !Text
, _ilscrCerts :: !(Maybe [SSLCert])
, _ilscrActiveVersion :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instancesListServerCasResponse
:: InstancesListServerCasResponse
instancesListServerCasResponse =
InstancesListServerCasResponse'
{ _ilscrKind = "sql#instancesListServerCas"
, _ilscrCerts = Nothing
, _ilscrActiveVersion = Nothing
}
ilscrKind :: Lens' InstancesListServerCasResponse Text
ilscrKind
= lens _ilscrKind (\ s a -> s{_ilscrKind = a})
ilscrCerts :: Lens' InstancesListServerCasResponse [SSLCert]
ilscrCerts
= lens _ilscrCerts (\ s a -> s{_ilscrCerts = a}) .
_Default
. _Coerce
ilscrActiveVersion :: Lens' InstancesListServerCasResponse (Maybe Text)
ilscrActiveVersion
= lens _ilscrActiveVersion
(\ s a -> s{_ilscrActiveVersion = a})
instance FromJSON InstancesListServerCasResponse
where
parseJSON
= withObject "InstancesListServerCasResponse"
(\ o ->
InstancesListServerCasResponse' <$>
(o .:? "kind" .!= "sql#instancesListServerCas") <*>
(o .:? "certs" .!= mempty)
<*> (o .:? "activeVersion"))
instance ToJSON InstancesListServerCasResponse where
toJSON InstancesListServerCasResponse'{..}
= object
(catMaybes
[Just ("kind" .= _ilscrKind),
("certs" .=) <$> _ilscrCerts,
("activeVersion" .=) <$> _ilscrActiveVersion])
newtype ExportContextSQLExportOptionsMysqlExportOptions = ExportContextSQLExportOptionsMysqlExportOptions'
{ _ecsqleomeoMasterData :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
exportContextSQLExportOptionsMysqlExportOptions
:: ExportContextSQLExportOptionsMysqlExportOptions
exportContextSQLExportOptionsMysqlExportOptions =
ExportContextSQLExportOptionsMysqlExportOptions'
{ _ecsqleomeoMasterData = Nothing
}
ecsqleomeoMasterData :: Lens' ExportContextSQLExportOptionsMysqlExportOptions (Maybe Int32)
ecsqleomeoMasterData
= lens _ecsqleomeoMasterData
(\ s a -> s{_ecsqleomeoMasterData = a})
. mapping _Coerce
instance FromJSON
ExportContextSQLExportOptionsMysqlExportOptions where
parseJSON
= withObject
"ExportContextSQLExportOptionsMysqlExportOptions"
(\ o ->
ExportContextSQLExportOptionsMysqlExportOptions' <$>
(o .:? "masterData"))
instance ToJSON
ExportContextSQLExportOptionsMysqlExportOptions where
toJSON
ExportContextSQLExportOptionsMysqlExportOptions'{..}
= object
(catMaybes
[("masterData" .=) <$> _ecsqleomeoMasterData])
data OnPremisesConfiguration = OnPremisesConfiguration'
{ _opcKind :: !Text
, _opcHostPort :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
onPremisesConfiguration
:: OnPremisesConfiguration
onPremisesConfiguration =
OnPremisesConfiguration'
{ _opcKind = "sql#onPremisesConfiguration"
, _opcHostPort = Nothing
}
opcKind :: Lens' OnPremisesConfiguration Text
opcKind = lens _opcKind (\ s a -> s{_opcKind = a})
opcHostPort :: Lens' OnPremisesConfiguration (Maybe Text)
opcHostPort
= lens _opcHostPort (\ s a -> s{_opcHostPort = a})
instance FromJSON OnPremisesConfiguration where
parseJSON
= withObject "OnPremisesConfiguration"
(\ o ->
OnPremisesConfiguration' <$>
(o .:? "kind" .!= "sql#onPremisesConfiguration") <*>
(o .:? "hostPort"))
instance ToJSON OnPremisesConfiguration where
toJSON OnPremisesConfiguration'{..}
= object
(catMaybes
[Just ("kind" .= _opcKind),
("hostPort" .=) <$> _opcHostPort])
data OperationsListResponse = OperationsListResponse'
{ _olrNextPageToken :: !(Maybe Text)
, _olrKind :: !Text
, _olrItems :: !(Maybe [Operation])
} deriving (Eq,Show,Data,Typeable,Generic)
operationsListResponse
:: OperationsListResponse
operationsListResponse =
OperationsListResponse'
{ _olrNextPageToken = Nothing
, _olrKind = "sql#operationsList"
, _olrItems = Nothing
}
olrNextPageToken :: Lens' OperationsListResponse (Maybe Text)
olrNextPageToken
= lens _olrNextPageToken
(\ s a -> s{_olrNextPageToken = a})
olrKind :: Lens' OperationsListResponse Text
olrKind = lens _olrKind (\ s a -> s{_olrKind = a})
olrItems :: Lens' OperationsListResponse [Operation]
olrItems
= lens _olrItems (\ s a -> s{_olrItems = a}) .
_Default
. _Coerce
instance FromJSON OperationsListResponse where
parseJSON
= withObject "OperationsListResponse"
(\ o ->
OperationsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "sql#operationsList")
<*> (o .:? "items" .!= mempty))
instance ToJSON OperationsListResponse where
toJSON OperationsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _olrNextPageToken,
Just ("kind" .= _olrKind),
("items" .=) <$> _olrItems])
data APIWarning = APIWarning'
{ _awCode :: !(Maybe Text)
, _awMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
apiWarning
:: APIWarning
apiWarning =
APIWarning'
{ _awCode = Nothing
, _awMessage = Nothing
}
awCode :: Lens' APIWarning (Maybe Text)
awCode = lens _awCode (\ s a -> s{_awCode = a})
awMessage :: Lens' APIWarning (Maybe Text)
awMessage
= lens _awMessage (\ s a -> s{_awMessage = a})
instance FromJSON APIWarning where
parseJSON
= withObject "APIWarning"
(\ o ->
APIWarning' <$> (o .:? "code") <*> (o .:? "message"))
instance ToJSON APIWarning where
toJSON APIWarning'{..}
= object
(catMaybes
[("code" .=) <$> _awCode,
("message" .=) <$> _awMessage])
data ImportContext = ImportContext'
{ _icDatabase :: !(Maybe Text)
, _icKind :: !Text
, _icCSVImportOptions :: !(Maybe ImportContextCSVImportOptions)
, _icURI :: !(Maybe Text)
, _icFileType :: !(Maybe Text)
, _icImportUser :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
importContext
:: ImportContext
importContext =
ImportContext'
{ _icDatabase = Nothing
, _icKind = "sql#importContext"
, _icCSVImportOptions = Nothing
, _icURI = Nothing
, _icFileType = Nothing
, _icImportUser = Nothing
}
icDatabase :: Lens' ImportContext (Maybe Text)
icDatabase
= lens _icDatabase (\ s a -> s{_icDatabase = a})
icKind :: Lens' ImportContext Text
icKind = lens _icKind (\ s a -> s{_icKind = a})
icCSVImportOptions :: Lens' ImportContext (Maybe ImportContextCSVImportOptions)
icCSVImportOptions
= lens _icCSVImportOptions
(\ s a -> s{_icCSVImportOptions = a})
icURI :: Lens' ImportContext (Maybe Text)
icURI = lens _icURI (\ s a -> s{_icURI = a})
icFileType :: Lens' ImportContext (Maybe Text)
icFileType
= lens _icFileType (\ s a -> s{_icFileType = a})
icImportUser :: Lens' ImportContext (Maybe Text)
icImportUser
= lens _icImportUser (\ s a -> s{_icImportUser = a})
instance FromJSON ImportContext where
parseJSON
= withObject "ImportContext"
(\ o ->
ImportContext' <$>
(o .:? "database") <*>
(o .:? "kind" .!= "sql#importContext")
<*> (o .:? "csvImportOptions")
<*> (o .:? "uri")
<*> (o .:? "fileType")
<*> (o .:? "importUser"))
instance ToJSON ImportContext where
toJSON ImportContext'{..}
= object
(catMaybes
[("database" .=) <$> _icDatabase,
Just ("kind" .= _icKind),
("csvImportOptions" .=) <$> _icCSVImportOptions,
("uri" .=) <$> _icURI,
("fileType" .=) <$> _icFileType,
("importUser" .=) <$> _icImportUser])
data Operation = Operation'
{ _oTargetId :: !(Maybe Text)
, _oTargetProject :: !(Maybe Text)
, _oStatus :: !(Maybe Text)
, _oInsertTime :: !(Maybe DateTime')
, _oImportContext :: !(Maybe ImportContext)
, _oStartTime :: !(Maybe DateTime')
, _oKind :: !Text
, _oError :: !(Maybe OperationErrors)
, _oExportContext :: !(Maybe ExportContext)
, _oUser :: !(Maybe Text)
, _oSelfLink :: !(Maybe Text)
, _oName :: !(Maybe Text)
, _oEndTime :: !(Maybe DateTime')
, _oOperationType :: !(Maybe Text)
, _oTargetLink :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operation
:: Operation
operation =
Operation'
{ _oTargetId = Nothing
, _oTargetProject = Nothing
, _oStatus = Nothing
, _oInsertTime = Nothing
, _oImportContext = Nothing
, _oStartTime = Nothing
, _oKind = "sql#operation"
, _oError = Nothing
, _oExportContext = Nothing
, _oUser = Nothing
, _oSelfLink = Nothing
, _oName = Nothing
, _oEndTime = Nothing
, _oOperationType = Nothing
, _oTargetLink = Nothing
}
oTargetId :: Lens' Operation (Maybe Text)
oTargetId
= lens _oTargetId (\ s a -> s{_oTargetId = a})
oTargetProject :: Lens' Operation (Maybe Text)
oTargetProject
= lens _oTargetProject
(\ s a -> s{_oTargetProject = a})
oStatus :: Lens' Operation (Maybe Text)
oStatus = lens _oStatus (\ s a -> s{_oStatus = a})
oInsertTime :: Lens' Operation (Maybe UTCTime)
oInsertTime
= lens _oInsertTime (\ s a -> s{_oInsertTime = a}) .
mapping _DateTime
oImportContext :: Lens' Operation (Maybe ImportContext)
oImportContext
= lens _oImportContext
(\ s a -> s{_oImportContext = a})
oStartTime :: Lens' Operation (Maybe UTCTime)
oStartTime
= lens _oStartTime (\ s a -> s{_oStartTime = a}) .
mapping _DateTime
oKind :: Lens' Operation Text
oKind = lens _oKind (\ s a -> s{_oKind = a})
oError :: Lens' Operation (Maybe OperationErrors)
oError = lens _oError (\ s a -> s{_oError = a})
oExportContext :: Lens' Operation (Maybe ExportContext)
oExportContext
= lens _oExportContext
(\ s a -> s{_oExportContext = a})
oUser :: Lens' Operation (Maybe Text)
oUser = lens _oUser (\ s a -> s{_oUser = a})
oSelfLink :: Lens' Operation (Maybe Text)
oSelfLink
= lens _oSelfLink (\ s a -> s{_oSelfLink = a})
oName :: Lens' Operation (Maybe Text)
oName = lens _oName (\ s a -> s{_oName = a})
oEndTime :: Lens' Operation (Maybe UTCTime)
oEndTime
= lens _oEndTime (\ s a -> s{_oEndTime = a}) .
mapping _DateTime
oOperationType :: Lens' Operation (Maybe Text)
oOperationType
= lens _oOperationType
(\ s a -> s{_oOperationType = a})
oTargetLink :: Lens' Operation (Maybe Text)
oTargetLink
= lens _oTargetLink (\ s a -> s{_oTargetLink = a})
instance FromJSON Operation where
parseJSON
= withObject "Operation"
(\ o ->
Operation' <$>
(o .:? "targetId") <*> (o .:? "targetProject") <*>
(o .:? "status")
<*> (o .:? "insertTime")
<*> (o .:? "importContext")
<*> (o .:? "startTime")
<*> (o .:? "kind" .!= "sql#operation")
<*> (o .:? "error")
<*> (o .:? "exportContext")
<*> (o .:? "user")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "endTime")
<*> (o .:? "operationType")
<*> (o .:? "targetLink"))
instance ToJSON Operation where
toJSON Operation'{..}
= object
(catMaybes
[("targetId" .=) <$> _oTargetId,
("targetProject" .=) <$> _oTargetProject,
("status" .=) <$> _oStatus,
("insertTime" .=) <$> _oInsertTime,
("importContext" .=) <$> _oImportContext,
("startTime" .=) <$> _oStartTime,
Just ("kind" .= _oKind), ("error" .=) <$> _oError,
("exportContext" .=) <$> _oExportContext,
("user" .=) <$> _oUser,
("selfLink" .=) <$> _oSelfLink,
("name" .=) <$> _oName, ("endTime" .=) <$> _oEndTime,
("operationType" .=) <$> _oOperationType,
("targetLink" .=) <$> _oTargetLink])
data Settings = Settings'
{ _sStorageAutoResize :: !(Maybe Bool)
, _sReplicationType :: !(Maybe Text)
, _sActivationPolicy :: !(Maybe Text)
, _sSettingsVersion :: !(Maybe (Textual Int64))
, _sDataDiskSizeGb :: !(Maybe (Textual Int64))
, _sAuthorizedGaeApplications :: !(Maybe [Text])
, _sKind :: !Text
, _sPricingPlan :: !(Maybe Text)
, _sIPConfiguration :: !(Maybe IPConfiguration)
, _sMaintenanceWindow :: !(Maybe MaintenanceWindow)
, _sDatabaseReplicationEnabled :: !(Maybe Bool)
, _sUserLabels :: !(Maybe SettingsUserLabels)
, _sTier :: !(Maybe Text)
, _sDatabaseFlags :: !(Maybe [DatabaseFlags])
, _sDataDiskType :: !(Maybe Text)
, _sCrashSafeReplicationEnabled :: !(Maybe Bool)
, _sLocationPreference :: !(Maybe LocationPreference)
, _sBackupConfiguration :: !(Maybe BackupConfiguration)
, _sAvailabilityType :: !(Maybe Text)
, _sStorageAutoResizeLimit :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
settings
:: Settings
settings =
Settings'
{ _sStorageAutoResize = Nothing
, _sReplicationType = Nothing
, _sActivationPolicy = Nothing
, _sSettingsVersion = Nothing
, _sDataDiskSizeGb = Nothing
, _sAuthorizedGaeApplications = Nothing
, _sKind = "sql#settings"
, _sPricingPlan = Nothing
, _sIPConfiguration = Nothing
, _sMaintenanceWindow = Nothing
, _sDatabaseReplicationEnabled = Nothing
, _sUserLabels = Nothing
, _sTier = Nothing
, _sDatabaseFlags = Nothing
, _sDataDiskType = Nothing
, _sCrashSafeReplicationEnabled = Nothing
, _sLocationPreference = Nothing
, _sBackupConfiguration = Nothing
, _sAvailabilityType = Nothing
, _sStorageAutoResizeLimit = Nothing
}
sStorageAutoResize :: Lens' Settings (Maybe Bool)
sStorageAutoResize
= lens _sStorageAutoResize
(\ s a -> s{_sStorageAutoResize = a})
sReplicationType :: Lens' Settings (Maybe Text)
sReplicationType
= lens _sReplicationType
(\ s a -> s{_sReplicationType = a})
sActivationPolicy :: Lens' Settings (Maybe Text)
sActivationPolicy
= lens _sActivationPolicy
(\ s a -> s{_sActivationPolicy = a})
sSettingsVersion :: Lens' Settings (Maybe Int64)
sSettingsVersion
= lens _sSettingsVersion
(\ s a -> s{_sSettingsVersion = a})
. mapping _Coerce
sDataDiskSizeGb :: Lens' Settings (Maybe Int64)
sDataDiskSizeGb
= lens _sDataDiskSizeGb
(\ s a -> s{_sDataDiskSizeGb = a})
. mapping _Coerce
sAuthorizedGaeApplications :: Lens' Settings [Text]
sAuthorizedGaeApplications
= lens _sAuthorizedGaeApplications
(\ s a -> s{_sAuthorizedGaeApplications = a})
. _Default
. _Coerce
sKind :: Lens' Settings Text
sKind = lens _sKind (\ s a -> s{_sKind = a})
sPricingPlan :: Lens' Settings (Maybe Text)
sPricingPlan
= lens _sPricingPlan (\ s a -> s{_sPricingPlan = a})
sIPConfiguration :: Lens' Settings (Maybe IPConfiguration)
sIPConfiguration
= lens _sIPConfiguration
(\ s a -> s{_sIPConfiguration = a})
sMaintenanceWindow :: Lens' Settings (Maybe MaintenanceWindow)
sMaintenanceWindow
= lens _sMaintenanceWindow
(\ s a -> s{_sMaintenanceWindow = a})
sDatabaseReplicationEnabled :: Lens' Settings (Maybe Bool)
sDatabaseReplicationEnabled
= lens _sDatabaseReplicationEnabled
(\ s a -> s{_sDatabaseReplicationEnabled = a})
sUserLabels :: Lens' Settings (Maybe SettingsUserLabels)
sUserLabels
= lens _sUserLabels (\ s a -> s{_sUserLabels = a})
sTier :: Lens' Settings (Maybe Text)
sTier = lens _sTier (\ s a -> s{_sTier = a})
sDatabaseFlags :: Lens' Settings [DatabaseFlags]
sDatabaseFlags
= lens _sDatabaseFlags
(\ s a -> s{_sDatabaseFlags = a})
. _Default
. _Coerce
sDataDiskType :: Lens' Settings (Maybe Text)
sDataDiskType
= lens _sDataDiskType
(\ s a -> s{_sDataDiskType = a})
sCrashSafeReplicationEnabled :: Lens' Settings (Maybe Bool)
sCrashSafeReplicationEnabled
= lens _sCrashSafeReplicationEnabled
(\ s a -> s{_sCrashSafeReplicationEnabled = a})
sLocationPreference :: Lens' Settings (Maybe LocationPreference)
sLocationPreference
= lens _sLocationPreference
(\ s a -> s{_sLocationPreference = a})
sBackupConfiguration :: Lens' Settings (Maybe BackupConfiguration)
sBackupConfiguration
= lens _sBackupConfiguration
(\ s a -> s{_sBackupConfiguration = a})
sAvailabilityType :: Lens' Settings (Maybe Text)
sAvailabilityType
= lens _sAvailabilityType
(\ s a -> s{_sAvailabilityType = a})
sStorageAutoResizeLimit :: Lens' Settings (Maybe Int64)
sStorageAutoResizeLimit
= lens _sStorageAutoResizeLimit
(\ s a -> s{_sStorageAutoResizeLimit = a})
. mapping _Coerce
instance FromJSON Settings where
parseJSON
= withObject "Settings"
(\ o ->
Settings' <$>
(o .:? "storageAutoResize") <*>
(o .:? "replicationType")
<*> (o .:? "activationPolicy")
<*> (o .:? "settingsVersion")
<*> (o .:? "dataDiskSizeGb")
<*> (o .:? "authorizedGaeApplications" .!= mempty)
<*> (o .:? "kind" .!= "sql#settings")
<*> (o .:? "pricingPlan")
<*> (o .:? "ipConfiguration")
<*> (o .:? "maintenanceWindow")
<*> (o .:? "databaseReplicationEnabled")
<*> (o .:? "userLabels")
<*> (o .:? "tier")
<*> (o .:? "databaseFlags" .!= mempty)
<*> (o .:? "dataDiskType")
<*> (o .:? "crashSafeReplicationEnabled")
<*> (o .:? "locationPreference")
<*> (o .:? "backupConfiguration")
<*> (o .:? "availabilityType")
<*> (o .:? "storageAutoResizeLimit"))
instance ToJSON Settings where
toJSON Settings'{..}
= object
(catMaybes
[("storageAutoResize" .=) <$> _sStorageAutoResize,
("replicationType" .=) <$> _sReplicationType,
("activationPolicy" .=) <$> _sActivationPolicy,
("settingsVersion" .=) <$> _sSettingsVersion,
("dataDiskSizeGb" .=) <$> _sDataDiskSizeGb,
("authorizedGaeApplications" .=) <$>
_sAuthorizedGaeApplications,
Just ("kind" .= _sKind),
("pricingPlan" .=) <$> _sPricingPlan,
("ipConfiguration" .=) <$> _sIPConfiguration,
("maintenanceWindow" .=) <$> _sMaintenanceWindow,
("databaseReplicationEnabled" .=) <$>
_sDatabaseReplicationEnabled,
("userLabels" .=) <$> _sUserLabels,
("tier" .=) <$> _sTier,
("databaseFlags" .=) <$> _sDatabaseFlags,
("dataDiskType" .=) <$> _sDataDiskType,
("crashSafeReplicationEnabled" .=) <$>
_sCrashSafeReplicationEnabled,
("locationPreference" .=) <$> _sLocationPreference,
("backupConfiguration" .=) <$> _sBackupConfiguration,
("availabilityType" .=) <$> _sAvailabilityType,
("storageAutoResizeLimit" .=) <$>
_sStorageAutoResizeLimit])
newtype InstancesRotateServerCaRequest = InstancesRotateServerCaRequest'
{ _irscrRotateServerCaContext :: Maybe RotateServerCaContext
} deriving (Eq,Show,Data,Typeable,Generic)
instancesRotateServerCaRequest
:: InstancesRotateServerCaRequest
instancesRotateServerCaRequest =
InstancesRotateServerCaRequest'
{ _irscrRotateServerCaContext = Nothing
}
irscrRotateServerCaContext :: Lens' InstancesRotateServerCaRequest (Maybe RotateServerCaContext)
irscrRotateServerCaContext
= lens _irscrRotateServerCaContext
(\ s a -> s{_irscrRotateServerCaContext = a})
instance FromJSON InstancesRotateServerCaRequest
where
parseJSON
= withObject "InstancesRotateServerCaRequest"
(\ o ->
InstancesRotateServerCaRequest' <$>
(o .:? "rotateServerCaContext"))
instance ToJSON InstancesRotateServerCaRequest where
toJSON InstancesRotateServerCaRequest'{..}
= object
(catMaybes
[("rotateServerCaContext" .=) <$>
_irscrRotateServerCaContext])
data IPMApping = IPMApping'
{ _imaIPAddress :: !(Maybe Text)
, _imaTimeToRetire :: !(Maybe DateTime')
, _imaType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ipMApping
:: IPMApping
ipMApping =
IPMApping'
{ _imaIPAddress = Nothing
, _imaTimeToRetire = Nothing
, _imaType = Nothing
}
imaIPAddress :: Lens' IPMApping (Maybe Text)
imaIPAddress
= lens _imaIPAddress (\ s a -> s{_imaIPAddress = a})
imaTimeToRetire :: Lens' IPMApping (Maybe UTCTime)
imaTimeToRetire
= lens _imaTimeToRetire
(\ s a -> s{_imaTimeToRetire = a})
. mapping _DateTime
imaType :: Lens' IPMApping (Maybe Text)
imaType = lens _imaType (\ s a -> s{_imaType = a})
instance FromJSON IPMApping where
parseJSON
= withObject "IPMApping"
(\ o ->
IPMApping' <$>
(o .:? "ipAddress") <*> (o .:? "timeToRetire") <*>
(o .:? "type"))
instance ToJSON IPMApping where
toJSON IPMApping'{..}
= object
(catMaybes
[("ipAddress" .=) <$> _imaIPAddress,
("timeToRetire" .=) <$> _imaTimeToRetire,
("type" .=) <$> _imaType])
data Database = Database'
{ _dEtag :: !(Maybe Text)
, _dProject :: !(Maybe Text)
, _dKind :: !Text
, _dCollation :: !(Maybe Text)
, _dSelfLink :: !(Maybe Text)
, _dName :: !(Maybe Text)
, _dCharSet :: !(Maybe Text)
, _dInstance :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
database
:: Database
database =
Database'
{ _dEtag = Nothing
, _dProject = Nothing
, _dKind = "sql#database"
, _dCollation = Nothing
, _dSelfLink = Nothing
, _dName = Nothing
, _dCharSet = Nothing
, _dInstance = Nothing
}
dEtag :: Lens' Database (Maybe Text)
dEtag = lens _dEtag (\ s a -> s{_dEtag = a})
dProject :: Lens' Database (Maybe Text)
dProject = lens _dProject (\ s a -> s{_dProject = a})
dKind :: Lens' Database Text
dKind = lens _dKind (\ s a -> s{_dKind = a})
dCollation :: Lens' Database (Maybe Text)
dCollation
= lens _dCollation (\ s a -> s{_dCollation = a})
dSelfLink :: Lens' Database (Maybe Text)
dSelfLink
= lens _dSelfLink (\ s a -> s{_dSelfLink = a})
dName :: Lens' Database (Maybe Text)
dName = lens _dName (\ s a -> s{_dName = a})
dCharSet :: Lens' Database (Maybe Text)
dCharSet = lens _dCharSet (\ s a -> s{_dCharSet = a})
dInstance :: Lens' Database (Maybe Text)
dInstance
= lens _dInstance (\ s a -> s{_dInstance = a})
instance FromJSON Database where
parseJSON
= withObject "Database"
(\ o ->
Database' <$>
(o .:? "etag") <*> (o .:? "project") <*>
(o .:? "kind" .!= "sql#database")
<*> (o .:? "collation")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "charset")
<*> (o .:? "instance"))
instance ToJSON Database where
toJSON Database'{..}
= object
(catMaybes
[("etag" .=) <$> _dEtag,
("project" .=) <$> _dProject,
Just ("kind" .= _dKind),
("collation" .=) <$> _dCollation,
("selfLink" .=) <$> _dSelfLink,
("name" .=) <$> _dName, ("charset" .=) <$> _dCharSet,
("instance" .=) <$> _dInstance])
newtype SSLCertsCreateEphemeralRequest = SSLCertsCreateEphemeralRequest'
{ _sccerPublicKey :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
sslCertsCreateEphemeralRequest
:: SSLCertsCreateEphemeralRequest
sslCertsCreateEphemeralRequest =
SSLCertsCreateEphemeralRequest'
{ _sccerPublicKey = Nothing
}
sccerPublicKey :: Lens' SSLCertsCreateEphemeralRequest (Maybe Text)
sccerPublicKey
= lens _sccerPublicKey
(\ s a -> s{_sccerPublicKey = a})
instance FromJSON SSLCertsCreateEphemeralRequest
where
parseJSON
= withObject "SSLCertsCreateEphemeralRequest"
(\ o ->
SSLCertsCreateEphemeralRequest' <$>
(o .:? "public_key"))
instance ToJSON SSLCertsCreateEphemeralRequest where
toJSON SSLCertsCreateEphemeralRequest'{..}
= object
(catMaybes [("public_key" .=) <$> _sccerPublicKey])
data BinLogCoordinates = BinLogCoordinates'
{ _blcBinLogPosition :: !(Maybe (Textual Int64))
, _blcKind :: !Text
, _blcBinLogFileName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
binLogCoordinates
:: BinLogCoordinates
binLogCoordinates =
BinLogCoordinates'
{ _blcBinLogPosition = Nothing
, _blcKind = "sql#binLogCoordinates"
, _blcBinLogFileName = Nothing
}
blcBinLogPosition :: Lens' BinLogCoordinates (Maybe Int64)
blcBinLogPosition
= lens _blcBinLogPosition
(\ s a -> s{_blcBinLogPosition = a})
. mapping _Coerce
blcKind :: Lens' BinLogCoordinates Text
blcKind = lens _blcKind (\ s a -> s{_blcKind = a})
blcBinLogFileName :: Lens' BinLogCoordinates (Maybe Text)
blcBinLogFileName
= lens _blcBinLogFileName
(\ s a -> s{_blcBinLogFileName = a})
instance FromJSON BinLogCoordinates where
parseJSON
= withObject "BinLogCoordinates"
(\ o ->
BinLogCoordinates' <$>
(o .:? "binLogPosition") <*>
(o .:? "kind" .!= "sql#binLogCoordinates")
<*> (o .:? "binLogFileName"))
instance ToJSON BinLogCoordinates where
toJSON BinLogCoordinates'{..}
= object
(catMaybes
[("binLogPosition" .=) <$> _blcBinLogPosition,
Just ("kind" .= _blcKind),
("binLogFileName" .=) <$> _blcBinLogFileName])
data DatabaseInstanceFailoverReplica = DatabaseInstanceFailoverReplica'
{ _difrName :: !(Maybe Text)
, _difrAvailable :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
databaseInstanceFailoverReplica
:: DatabaseInstanceFailoverReplica
databaseInstanceFailoverReplica =
DatabaseInstanceFailoverReplica'
{ _difrName = Nothing
, _difrAvailable = Nothing
}
difrName :: Lens' DatabaseInstanceFailoverReplica (Maybe Text)
difrName = lens _difrName (\ s a -> s{_difrName = a})
difrAvailable :: Lens' DatabaseInstanceFailoverReplica (Maybe Bool)
difrAvailable
= lens _difrAvailable
(\ s a -> s{_difrAvailable = a})
instance FromJSON DatabaseInstanceFailoverReplica
where
parseJSON
= withObject "DatabaseInstanceFailoverReplica"
(\ o ->
DatabaseInstanceFailoverReplica' <$>
(o .:? "name") <*> (o .:? "available"))
instance ToJSON DatabaseInstanceFailoverReplica where
toJSON DatabaseInstanceFailoverReplica'{..}
= object
(catMaybes
[("name" .=) <$> _difrName,
("available" .=) <$> _difrAvailable])
data TiersListResponse = TiersListResponse'
{ _tlrKind :: !Text
, _tlrItems :: !(Maybe [Tier])
} deriving (Eq,Show,Data,Typeable,Generic)
tiersListResponse
:: TiersListResponse
tiersListResponse =
TiersListResponse'
{ _tlrKind = "sql#tiersList"
, _tlrItems = Nothing
}
tlrKind :: Lens' TiersListResponse Text
tlrKind = lens _tlrKind (\ s a -> s{_tlrKind = a})
tlrItems :: Lens' TiersListResponse [Tier]
tlrItems
= lens _tlrItems (\ s a -> s{_tlrItems = a}) .
_Default
. _Coerce
instance FromJSON TiersListResponse where
parseJSON
= withObject "TiersListResponse"
(\ o ->
TiersListResponse' <$>
(o .:? "kind" .!= "sql#tiersList") <*>
(o .:? "items" .!= mempty))
instance ToJSON TiersListResponse where
toJSON TiersListResponse'{..}
= object
(catMaybes
[Just ("kind" .= _tlrKind),
("items" .=) <$> _tlrItems])
data UsersListResponse = UsersListResponse'
{ _ulrNextPageToken :: !(Maybe Text)
, _ulrKind :: !Text
, _ulrItems :: !(Maybe [User])
} deriving (Eq,Show,Data,Typeable,Generic)
usersListResponse
:: UsersListResponse
usersListResponse =
UsersListResponse'
{ _ulrNextPageToken = Nothing
, _ulrKind = "sql#usersList"
, _ulrItems = Nothing
}
ulrNextPageToken :: Lens' UsersListResponse (Maybe Text)
ulrNextPageToken
= lens _ulrNextPageToken
(\ s a -> s{_ulrNextPageToken = a})
ulrKind :: Lens' UsersListResponse Text
ulrKind = lens _ulrKind (\ s a -> s{_ulrKind = a})
ulrItems :: Lens' UsersListResponse [User]
ulrItems
= lens _ulrItems (\ s a -> s{_ulrItems = a}) .
_Default
. _Coerce
instance FromJSON UsersListResponse where
parseJSON
= withObject "UsersListResponse"
(\ o ->
UsersListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "sql#usersList")
<*> (o .:? "items" .!= mempty))
instance ToJSON UsersListResponse where
toJSON UsersListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ulrNextPageToken,
Just ("kind" .= _ulrKind),
("items" .=) <$> _ulrItems])
data ExportContext = ExportContext'
{ _ecCSVExportOptions :: !(Maybe ExportContextCSVExportOptions)
, _ecKind :: !Text
, _ecURI :: !(Maybe Text)
, _ecFileType :: !(Maybe Text)
, _ecSQLExportOptions :: !(Maybe ExportContextSQLExportOptions)
, _ecDatabases :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
exportContext
:: ExportContext
exportContext =
ExportContext'
{ _ecCSVExportOptions = Nothing
, _ecKind = "sql#exportContext"
, _ecURI = Nothing
, _ecFileType = Nothing
, _ecSQLExportOptions = Nothing
, _ecDatabases = Nothing
}
ecCSVExportOptions :: Lens' ExportContext (Maybe ExportContextCSVExportOptions)
ecCSVExportOptions
= lens _ecCSVExportOptions
(\ s a -> s{_ecCSVExportOptions = a})
ecKind :: Lens' ExportContext Text
ecKind = lens _ecKind (\ s a -> s{_ecKind = a})
ecURI :: Lens' ExportContext (Maybe Text)
ecURI = lens _ecURI (\ s a -> s{_ecURI = a})
ecFileType :: Lens' ExportContext (Maybe Text)
ecFileType
= lens _ecFileType (\ s a -> s{_ecFileType = a})
ecSQLExportOptions :: Lens' ExportContext (Maybe ExportContextSQLExportOptions)
ecSQLExportOptions
= lens _ecSQLExportOptions
(\ s a -> s{_ecSQLExportOptions = a})
ecDatabases :: Lens' ExportContext [Text]
ecDatabases
= lens _ecDatabases (\ s a -> s{_ecDatabases = a}) .
_Default
. _Coerce
instance FromJSON ExportContext where
parseJSON
= withObject "ExportContext"
(\ o ->
ExportContext' <$>
(o .:? "csvExportOptions") <*>
(o .:? "kind" .!= "sql#exportContext")
<*> (o .:? "uri")
<*> (o .:? "fileType")
<*> (o .:? "sqlExportOptions")
<*> (o .:? "databases" .!= mempty))
instance ToJSON ExportContext where
toJSON ExportContext'{..}
= object
(catMaybes
[("csvExportOptions" .=) <$> _ecCSVExportOptions,
Just ("kind" .= _ecKind), ("uri" .=) <$> _ecURI,
("fileType" .=) <$> _ecFileType,
("sqlExportOptions" .=) <$> _ecSQLExportOptions,
("databases" .=) <$> _ecDatabases])
data OperationErrors = OperationErrors'
{ _oeKind :: !Text
, _oeErrors :: !(Maybe [OperationError])
} deriving (Eq,Show,Data,Typeable,Generic)
operationErrors
:: OperationErrors
operationErrors =
OperationErrors'
{ _oeKind = "sql#operationErrors"
, _oeErrors = Nothing
}
oeKind :: Lens' OperationErrors Text
oeKind = lens _oeKind (\ s a -> s{_oeKind = a})
oeErrors :: Lens' OperationErrors [OperationError]
oeErrors
= lens _oeErrors (\ s a -> s{_oeErrors = a}) .
_Default
. _Coerce
instance FromJSON OperationErrors where
parseJSON
= withObject "OperationErrors"
(\ o ->
OperationErrors' <$>
(o .:? "kind" .!= "sql#operationErrors") <*>
(o .:? "errors" .!= mempty))
instance ToJSON OperationErrors where
toJSON OperationErrors'{..}
= object
(catMaybes
[Just ("kind" .= _oeKind),
("errors" .=) <$> _oeErrors])
data SSLCertsListResponse = SSLCertsListResponse'
{ _sclrKind :: !Text
, _sclrItems :: !(Maybe [SSLCert])
} deriving (Eq,Show,Data,Typeable,Generic)
sslCertsListResponse
:: SSLCertsListResponse
sslCertsListResponse =
SSLCertsListResponse'
{ _sclrKind = "sql#sslCertsList"
, _sclrItems = Nothing
}
sclrKind :: Lens' SSLCertsListResponse Text
sclrKind = lens _sclrKind (\ s a -> s{_sclrKind = a})
sclrItems :: Lens' SSLCertsListResponse [SSLCert]
sclrItems
= lens _sclrItems (\ s a -> s{_sclrItems = a}) .
_Default
. _Coerce
instance FromJSON SSLCertsListResponse where
parseJSON
= withObject "SSLCertsListResponse"
(\ o ->
SSLCertsListResponse' <$>
(o .:? "kind" .!= "sql#sslCertsList") <*>
(o .:? "items" .!= mempty))
instance ToJSON SSLCertsListResponse where
toJSON SSLCertsListResponse'{..}
= object
(catMaybes
[Just ("kind" .= _sclrKind),
("items" .=) <$> _sclrItems])
newtype SSLCertsInsertRequest = SSLCertsInsertRequest'
{ _scirCommonName :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
sslCertsInsertRequest
:: SSLCertsInsertRequest
sslCertsInsertRequest =
SSLCertsInsertRequest'
{ _scirCommonName = Nothing
}
scirCommonName :: Lens' SSLCertsInsertRequest (Maybe Text)
scirCommonName
= lens _scirCommonName
(\ s a -> s{_scirCommonName = a})
instance FromJSON SSLCertsInsertRequest where
parseJSON
= withObject "SSLCertsInsertRequest"
(\ o ->
SSLCertsInsertRequest' <$> (o .:? "commonName"))
instance ToJSON SSLCertsInsertRequest where
toJSON SSLCertsInsertRequest'{..}
= object
(catMaybes [("commonName" .=) <$> _scirCommonName])
data IPConfiguration = IPConfiguration'
{ _icAuthorizedNetworks :: !(Maybe [ACLEntry])
, _icPrivateNetwork :: !(Maybe Text)
, _icRequireSSL :: !(Maybe Bool)
, _icIPv4Enabled :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
ipConfiguration
:: IPConfiguration
ipConfiguration =
IPConfiguration'
{ _icAuthorizedNetworks = Nothing
, _icPrivateNetwork = Nothing
, _icRequireSSL = Nothing
, _icIPv4Enabled = Nothing
}
icAuthorizedNetworks :: Lens' IPConfiguration [ACLEntry]
icAuthorizedNetworks
= lens _icAuthorizedNetworks
(\ s a -> s{_icAuthorizedNetworks = a})
. _Default
. _Coerce
icPrivateNetwork :: Lens' IPConfiguration (Maybe Text)
icPrivateNetwork
= lens _icPrivateNetwork
(\ s a -> s{_icPrivateNetwork = a})
icRequireSSL :: Lens' IPConfiguration (Maybe Bool)
icRequireSSL
= lens _icRequireSSL (\ s a -> s{_icRequireSSL = a})
icIPv4Enabled :: Lens' IPConfiguration (Maybe Bool)
icIPv4Enabled
= lens _icIPv4Enabled
(\ s a -> s{_icIPv4Enabled = a})
instance FromJSON IPConfiguration where
parseJSON
= withObject "IPConfiguration"
(\ o ->
IPConfiguration' <$>
(o .:? "authorizedNetworks" .!= mempty) <*>
(o .:? "privateNetwork")
<*> (o .:? "requireSsl")
<*> (o .:? "ipv4Enabled"))
instance ToJSON IPConfiguration where
toJSON IPConfiguration'{..}
= object
(catMaybes
[("authorizedNetworks" .=) <$> _icAuthorizedNetworks,
("privateNetwork" .=) <$> _icPrivateNetwork,
("requireSsl" .=) <$> _icRequireSSL,
("ipv4Enabled" .=) <$> _icIPv4Enabled])
data MaintenanceWindow = MaintenanceWindow'
{ _mwKind :: !Text
, _mwDay :: !(Maybe (Textual Int32))
, _mwHour :: !(Maybe (Textual Int32))
, _mwUpdateTrack :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
maintenanceWindow
:: MaintenanceWindow
maintenanceWindow =
MaintenanceWindow'
{ _mwKind = "sql#maintenanceWindow"
, _mwDay = Nothing
, _mwHour = Nothing
, _mwUpdateTrack = Nothing
}
mwKind :: Lens' MaintenanceWindow Text
mwKind = lens _mwKind (\ s a -> s{_mwKind = a})
mwDay :: Lens' MaintenanceWindow (Maybe Int32)
mwDay
= lens _mwDay (\ s a -> s{_mwDay = a}) .
mapping _Coerce
mwHour :: Lens' MaintenanceWindow (Maybe Int32)
mwHour
= lens _mwHour (\ s a -> s{_mwHour = a}) .
mapping _Coerce
mwUpdateTrack :: Lens' MaintenanceWindow (Maybe Text)
mwUpdateTrack
= lens _mwUpdateTrack
(\ s a -> s{_mwUpdateTrack = a})
instance FromJSON MaintenanceWindow where
parseJSON
= withObject "MaintenanceWindow"
(\ o ->
MaintenanceWindow' <$>
(o .:? "kind" .!= "sql#maintenanceWindow") <*>
(o .:? "day")
<*> (o .:? "hour")
<*> (o .:? "updateTrack"))
instance ToJSON MaintenanceWindow where
toJSON MaintenanceWindow'{..}
= object
(catMaybes
[Just ("kind" .= _mwKind), ("day" .=) <$> _mwDay,
("hour" .=) <$> _mwHour,
("updateTrack" .=) <$> _mwUpdateTrack])
data ImportContextCSVImportOptions = ImportContextCSVImportOptions'
{ _iccioColumns :: !(Maybe [Text])
, _iccioTable :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
importContextCSVImportOptions
:: ImportContextCSVImportOptions
importContextCSVImportOptions =
ImportContextCSVImportOptions'
{ _iccioColumns = Nothing
, _iccioTable = Nothing
}
iccioColumns :: Lens' ImportContextCSVImportOptions [Text]
iccioColumns
= lens _iccioColumns (\ s a -> s{_iccioColumns = a})
. _Default
. _Coerce
iccioTable :: Lens' ImportContextCSVImportOptions (Maybe Text)
iccioTable
= lens _iccioTable (\ s a -> s{_iccioTable = a})
instance FromJSON ImportContextCSVImportOptions where
parseJSON
= withObject "ImportContextCSVImportOptions"
(\ o ->
ImportContextCSVImportOptions' <$>
(o .:? "columns" .!= mempty) <*> (o .:? "table"))
instance ToJSON ImportContextCSVImportOptions where
toJSON ImportContextCSVImportOptions'{..}
= object
(catMaybes
[("columns" .=) <$> _iccioColumns,
("table" .=) <$> _iccioTable])
data RotateServerCaContext = RotateServerCaContext'
{ _rsccNextVersion :: !(Maybe Text)
, _rsccKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
rotateServerCaContext
:: RotateServerCaContext
rotateServerCaContext =
RotateServerCaContext'
{ _rsccNextVersion = Nothing
, _rsccKind = "sql#rotateServerCaContext"
}
rsccNextVersion :: Lens' RotateServerCaContext (Maybe Text)
rsccNextVersion
= lens _rsccNextVersion
(\ s a -> s{_rsccNextVersion = a})
rsccKind :: Lens' RotateServerCaContext Text
rsccKind = lens _rsccKind (\ s a -> s{_rsccKind = a})
instance FromJSON RotateServerCaContext where
parseJSON
= withObject "RotateServerCaContext"
(\ o ->
RotateServerCaContext' <$>
(o .:? "nextVersion") <*>
(o .:? "kind" .!= "sql#rotateServerCaContext"))
instance ToJSON RotateServerCaContext where
toJSON RotateServerCaContext'{..}
= object
(catMaybes
[("nextVersion" .=) <$> _rsccNextVersion,
Just ("kind" .= _rsccKind)])
newtype ExportContextCSVExportOptions = ExportContextCSVExportOptions'
{ _ecceoSelectQuery :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
exportContextCSVExportOptions
:: ExportContextCSVExportOptions
exportContextCSVExportOptions =
ExportContextCSVExportOptions'
{ _ecceoSelectQuery = Nothing
}
ecceoSelectQuery :: Lens' ExportContextCSVExportOptions (Maybe Text)
ecceoSelectQuery
= lens _ecceoSelectQuery
(\ s a -> s{_ecceoSelectQuery = a})
instance FromJSON ExportContextCSVExportOptions where
parseJSON
= withObject "ExportContextCSVExportOptions"
(\ o ->
ExportContextCSVExportOptions' <$>
(o .:? "selectQuery"))
instance ToJSON ExportContextCSVExportOptions where
toJSON ExportContextCSVExportOptions'{..}
= object
(catMaybes
[("selectQuery" .=) <$> _ecceoSelectQuery])
data User = User'
{ _uEtag :: !(Maybe Text)
, _uProject :: !(Maybe Text)
, _uKind :: !Text
, _uName :: !(Maybe Text)
, _uPassword :: !(Maybe Text)
, _uHost :: !(Maybe Text)
, _uInstance :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
user
:: User
user =
User'
{ _uEtag = Nothing
, _uProject = Nothing
, _uKind = "sql#user"
, _uName = Nothing
, _uPassword = Nothing
, _uHost = Nothing
, _uInstance = Nothing
}
uEtag :: Lens' User (Maybe Text)
uEtag = lens _uEtag (\ s a -> s{_uEtag = a})
uProject :: Lens' User (Maybe Text)
uProject = lens _uProject (\ s a -> s{_uProject = a})
uKind :: Lens' User Text
uKind = lens _uKind (\ s a -> s{_uKind = a})
uName :: Lens' User (Maybe Text)
uName = lens _uName (\ s a -> s{_uName = a})
uPassword :: Lens' User (Maybe Text)
uPassword
= lens _uPassword (\ s a -> s{_uPassword = a})
uHost :: Lens' User (Maybe Text)
uHost = lens _uHost (\ s a -> s{_uHost = a})
uInstance :: Lens' User (Maybe Text)
uInstance
= lens _uInstance (\ s a -> s{_uInstance = a})
instance FromJSON User where
parseJSON
= withObject "User"
(\ o ->
User' <$>
(o .:? "etag") <*> (o .:? "project") <*>
(o .:? "kind" .!= "sql#user")
<*> (o .:? "name")
<*> (o .:? "password")
<*> (o .:? "host")
<*> (o .:? "instance"))
instance ToJSON User where
toJSON User'{..}
= object
(catMaybes
[("etag" .=) <$> _uEtag,
("project" .=) <$> _uProject,
Just ("kind" .= _uKind), ("name" .=) <$> _uName,
("password" .=) <$> _uPassword,
("host" .=) <$> _uHost,
("instance" .=) <$> _uInstance])
data DatabaseInstance = DatabaseInstance'
{ _datBackendType :: !(Maybe Text)
, _datMaxDiskSize :: !(Maybe (Textual Int64))
, _datOnPremisesConfiguration :: !(Maybe OnPremisesConfiguration)
, _datGceZone :: !(Maybe Text)
, _datEtag :: !(Maybe Text)
, _datState :: !(Maybe Text)
, _datIPv6Address :: !(Maybe Text)
, _datServerCaCert :: !(Maybe SSLCert)
, _datDatabaseVersion :: !(Maybe Text)
, _datProject :: !(Maybe Text)
, _datSettings :: !(Maybe Settings)
, _datKind :: !Text
, _datConnectionName :: !(Maybe Text)
, _datCurrentDiskSize :: !(Maybe (Textual Int64))
, _datInstanceType :: !(Maybe Text)
, _datReplicaNames :: !(Maybe [Text])
, _datSelfLink :: !(Maybe Text)
, _datFailoverReplica :: !(Maybe DatabaseInstanceFailoverReplica)
, _datName :: !(Maybe Text)
, _datMasterInstanceName :: !(Maybe Text)
, _datReplicaConfiguration :: !(Maybe ReplicaConfiguration)
, _datRegion :: !(Maybe Text)
, _datServiceAccountEmailAddress :: !(Maybe Text)
, _datIPAddresses :: !(Maybe [IPMApping])
, _datSuspensionReason :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
databaseInstance
:: DatabaseInstance
databaseInstance =
DatabaseInstance'
{ _datBackendType = Nothing
, _datMaxDiskSize = Nothing
, _datOnPremisesConfiguration = Nothing
, _datGceZone = Nothing
, _datEtag = Nothing
, _datState = Nothing
, _datIPv6Address = Nothing
, _datServerCaCert = Nothing
, _datDatabaseVersion = Nothing
, _datProject = Nothing
, _datSettings = Nothing
, _datKind = "sql#instance"
, _datConnectionName = Nothing
, _datCurrentDiskSize = Nothing
, _datInstanceType = Nothing
, _datReplicaNames = Nothing
, _datSelfLink = Nothing
, _datFailoverReplica = Nothing
, _datName = Nothing
, _datMasterInstanceName = Nothing
, _datReplicaConfiguration = Nothing
, _datRegion = Nothing
, _datServiceAccountEmailAddress = Nothing
, _datIPAddresses = Nothing
, _datSuspensionReason = Nothing
}
datBackendType :: Lens' DatabaseInstance (Maybe Text)
datBackendType
= lens _datBackendType
(\ s a -> s{_datBackendType = a})
datMaxDiskSize :: Lens' DatabaseInstance (Maybe Int64)
datMaxDiskSize
= lens _datMaxDiskSize
(\ s a -> s{_datMaxDiskSize = a})
. mapping _Coerce
datOnPremisesConfiguration :: Lens' DatabaseInstance (Maybe OnPremisesConfiguration)
datOnPremisesConfiguration
= lens _datOnPremisesConfiguration
(\ s a -> s{_datOnPremisesConfiguration = a})
datGceZone :: Lens' DatabaseInstance (Maybe Text)
datGceZone
= lens _datGceZone (\ s a -> s{_datGceZone = a})
datEtag :: Lens' DatabaseInstance (Maybe Text)
datEtag = lens _datEtag (\ s a -> s{_datEtag = a})
datState :: Lens' DatabaseInstance (Maybe Text)
datState = lens _datState (\ s a -> s{_datState = a})
datIPv6Address :: Lens' DatabaseInstance (Maybe Text)
datIPv6Address
= lens _datIPv6Address
(\ s a -> s{_datIPv6Address = a})
datServerCaCert :: Lens' DatabaseInstance (Maybe SSLCert)
datServerCaCert
= lens _datServerCaCert
(\ s a -> s{_datServerCaCert = a})
datDatabaseVersion :: Lens' DatabaseInstance (Maybe Text)
datDatabaseVersion
= lens _datDatabaseVersion
(\ s a -> s{_datDatabaseVersion = a})
datProject :: Lens' DatabaseInstance (Maybe Text)
datProject
= lens _datProject (\ s a -> s{_datProject = a})
datSettings :: Lens' DatabaseInstance (Maybe Settings)
datSettings
= lens _datSettings (\ s a -> s{_datSettings = a})
datKind :: Lens' DatabaseInstance Text
datKind = lens _datKind (\ s a -> s{_datKind = a})
datConnectionName :: Lens' DatabaseInstance (Maybe Text)
datConnectionName
= lens _datConnectionName
(\ s a -> s{_datConnectionName = a})
datCurrentDiskSize :: Lens' DatabaseInstance (Maybe Int64)
datCurrentDiskSize
= lens _datCurrentDiskSize
(\ s a -> s{_datCurrentDiskSize = a})
. mapping _Coerce
datInstanceType :: Lens' DatabaseInstance (Maybe Text)
datInstanceType
= lens _datInstanceType
(\ s a -> s{_datInstanceType = a})
datReplicaNames :: Lens' DatabaseInstance [Text]
datReplicaNames
= lens _datReplicaNames
(\ s a -> s{_datReplicaNames = a})
. _Default
. _Coerce
datSelfLink :: Lens' DatabaseInstance (Maybe Text)
datSelfLink
= lens _datSelfLink (\ s a -> s{_datSelfLink = a})
datFailoverReplica :: Lens' DatabaseInstance (Maybe DatabaseInstanceFailoverReplica)
datFailoverReplica
= lens _datFailoverReplica
(\ s a -> s{_datFailoverReplica = a})
datName :: Lens' DatabaseInstance (Maybe Text)
datName = lens _datName (\ s a -> s{_datName = a})
datMasterInstanceName :: Lens' DatabaseInstance (Maybe Text)
datMasterInstanceName
= lens _datMasterInstanceName
(\ s a -> s{_datMasterInstanceName = a})
datReplicaConfiguration :: Lens' DatabaseInstance (Maybe ReplicaConfiguration)
datReplicaConfiguration
= lens _datReplicaConfiguration
(\ s a -> s{_datReplicaConfiguration = a})
datRegion :: Lens' DatabaseInstance (Maybe Text)
datRegion
= lens _datRegion (\ s a -> s{_datRegion = a})
datServiceAccountEmailAddress :: Lens' DatabaseInstance (Maybe Text)
datServiceAccountEmailAddress
= lens _datServiceAccountEmailAddress
(\ s a -> s{_datServiceAccountEmailAddress = a})
datIPAddresses :: Lens' DatabaseInstance [IPMApping]
datIPAddresses
= lens _datIPAddresses
(\ s a -> s{_datIPAddresses = a})
. _Default
. _Coerce
datSuspensionReason :: Lens' DatabaseInstance [Text]
datSuspensionReason
= lens _datSuspensionReason
(\ s a -> s{_datSuspensionReason = a})
. _Default
. _Coerce
instance FromJSON DatabaseInstance where
parseJSON
= withObject "DatabaseInstance"
(\ o ->
DatabaseInstance' <$>
(o .:? "backendType") <*> (o .:? "maxDiskSize") <*>
(o .:? "onPremisesConfiguration")
<*> (o .:? "gceZone")
<*> (o .:? "etag")
<*> (o .:? "state")
<*> (o .:? "ipv6Address")
<*> (o .:? "serverCaCert")
<*> (o .:? "databaseVersion")
<*> (o .:? "project")
<*> (o .:? "settings")
<*> (o .:? "kind" .!= "sql#instance")
<*> (o .:? "connectionName")
<*> (o .:? "currentDiskSize")
<*> (o .:? "instanceType")
<*> (o .:? "replicaNames" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "failoverReplica")
<*> (o .:? "name")
<*> (o .:? "masterInstanceName")
<*> (o .:? "replicaConfiguration")
<*> (o .:? "region")
<*> (o .:? "serviceAccountEmailAddress")
<*> (o .:? "ipAddresses" .!= mempty)
<*> (o .:? "suspensionReason" .!= mempty))
instance ToJSON DatabaseInstance where
toJSON DatabaseInstance'{..}
= object
(catMaybes
[("backendType" .=) <$> _datBackendType,
("maxDiskSize" .=) <$> _datMaxDiskSize,
("onPremisesConfiguration" .=) <$>
_datOnPremisesConfiguration,
("gceZone" .=) <$> _datGceZone,
("etag" .=) <$> _datEtag, ("state" .=) <$> _datState,
("ipv6Address" .=) <$> _datIPv6Address,
("serverCaCert" .=) <$> _datServerCaCert,
("databaseVersion" .=) <$> _datDatabaseVersion,
("project" .=) <$> _datProject,
("settings" .=) <$> _datSettings,
Just ("kind" .= _datKind),
("connectionName" .=) <$> _datConnectionName,
("currentDiskSize" .=) <$> _datCurrentDiskSize,
("instanceType" .=) <$> _datInstanceType,
("replicaNames" .=) <$> _datReplicaNames,
("selfLink" .=) <$> _datSelfLink,
("failoverReplica" .=) <$> _datFailoverReplica,
("name" .=) <$> _datName,
("masterInstanceName" .=) <$> _datMasterInstanceName,
("replicaConfiguration" .=) <$>
_datReplicaConfiguration,
("region" .=) <$> _datRegion,
("serviceAccountEmailAddress" .=) <$>
_datServiceAccountEmailAddress,
("ipAddresses" .=) <$> _datIPAddresses,
("suspensionReason" .=) <$> _datSuspensionReason])
data CloneContext = CloneContext'
{ _ccPitrTimestampMs :: !(Maybe (Textual Int64))
, _ccDestinationInstanceName :: !(Maybe Text)
, _ccBinLogCoordinates :: !(Maybe BinLogCoordinates)
, _ccKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
cloneContext
:: CloneContext
cloneContext =
CloneContext'
{ _ccPitrTimestampMs = Nothing
, _ccDestinationInstanceName = Nothing
, _ccBinLogCoordinates = Nothing
, _ccKind = "sql#cloneContext"
}
ccPitrTimestampMs :: Lens' CloneContext (Maybe Int64)
ccPitrTimestampMs
= lens _ccPitrTimestampMs
(\ s a -> s{_ccPitrTimestampMs = a})
. mapping _Coerce
ccDestinationInstanceName :: Lens' CloneContext (Maybe Text)
ccDestinationInstanceName
= lens _ccDestinationInstanceName
(\ s a -> s{_ccDestinationInstanceName = a})
ccBinLogCoordinates :: Lens' CloneContext (Maybe BinLogCoordinates)
ccBinLogCoordinates
= lens _ccBinLogCoordinates
(\ s a -> s{_ccBinLogCoordinates = a})
ccKind :: Lens' CloneContext Text
ccKind = lens _ccKind (\ s a -> s{_ccKind = a})
instance FromJSON CloneContext where
parseJSON
= withObject "CloneContext"
(\ o ->
CloneContext' <$>
(o .:? "pitrTimestampMs") <*>
(o .:? "destinationInstanceName")
<*> (o .:? "binLogCoordinates")
<*> (o .:? "kind" .!= "sql#cloneContext"))
instance ToJSON CloneContext where
toJSON CloneContext'{..}
= object
(catMaybes
[("pitrTimestampMs" .=) <$> _ccPitrTimestampMs,
("destinationInstanceName" .=) <$>
_ccDestinationInstanceName,
("binLogCoordinates" .=) <$> _ccBinLogCoordinates,
Just ("kind" .= _ccKind)])
data Flag = Flag'
{ _fMaxValue :: !(Maybe (Textual Int64))
, _fKind :: !Text
, _fAppliesTo :: !(Maybe [Text])
, _fName :: !(Maybe Text)
, _fAllowedStringValues :: !(Maybe [Text])
, _fType :: !(Maybe Text)
, _fMinValue :: !(Maybe (Textual Int64))
, _fRequiresRestart :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
flag
:: Flag
flag =
Flag'
{ _fMaxValue = Nothing
, _fKind = "sql#flag"
, _fAppliesTo = Nothing
, _fName = Nothing
, _fAllowedStringValues = Nothing
, _fType = Nothing
, _fMinValue = Nothing
, _fRequiresRestart = Nothing
}
fMaxValue :: Lens' Flag (Maybe Int64)
fMaxValue
= lens _fMaxValue (\ s a -> s{_fMaxValue = a}) .
mapping _Coerce
fKind :: Lens' Flag Text
fKind = lens _fKind (\ s a -> s{_fKind = a})
fAppliesTo :: Lens' Flag [Text]
fAppliesTo
= lens _fAppliesTo (\ s a -> s{_fAppliesTo = a}) .
_Default
. _Coerce
fName :: Lens' Flag (Maybe Text)
fName = lens _fName (\ s a -> s{_fName = a})
fAllowedStringValues :: Lens' Flag [Text]
fAllowedStringValues
= lens _fAllowedStringValues
(\ s a -> s{_fAllowedStringValues = a})
. _Default
. _Coerce
fType :: Lens' Flag (Maybe Text)
fType = lens _fType (\ s a -> s{_fType = a})
fMinValue :: Lens' Flag (Maybe Int64)
fMinValue
= lens _fMinValue (\ s a -> s{_fMinValue = a}) .
mapping _Coerce
fRequiresRestart :: Lens' Flag (Maybe Bool)
fRequiresRestart
= lens _fRequiresRestart
(\ s a -> s{_fRequiresRestart = a})
instance FromJSON Flag where
parseJSON
= withObject "Flag"
(\ o ->
Flag' <$>
(o .:? "maxValue") <*> (o .:? "kind" .!= "sql#flag")
<*> (o .:? "appliesTo" .!= mempty)
<*> (o .:? "name")
<*> (o .:? "allowedStringValues" .!= mempty)
<*> (o .:? "type")
<*> (o .:? "minValue")
<*> (o .:? "requiresRestart"))
instance ToJSON Flag where
toJSON Flag'{..}
= object
(catMaybes
[("maxValue" .=) <$> _fMaxValue,
Just ("kind" .= _fKind),
("appliesTo" .=) <$> _fAppliesTo,
("name" .=) <$> _fName,
("allowedStringValues" .=) <$> _fAllowedStringValues,
("type" .=) <$> _fType,
("minValue" .=) <$> _fMinValue,
("requiresRestart" .=) <$> _fRequiresRestart])
newtype InstancesFailoverRequest = InstancesFailoverRequest'
{ _ifrFailoverContext :: Maybe FailoverContext
} deriving (Eq,Show,Data,Typeable,Generic)
instancesFailoverRequest
:: InstancesFailoverRequest
instancesFailoverRequest =
InstancesFailoverRequest'
{ _ifrFailoverContext = Nothing
}
ifrFailoverContext :: Lens' InstancesFailoverRequest (Maybe FailoverContext)
ifrFailoverContext
= lens _ifrFailoverContext
(\ s a -> s{_ifrFailoverContext = a})
instance FromJSON InstancesFailoverRequest where
parseJSON
= withObject "InstancesFailoverRequest"
(\ o ->
InstancesFailoverRequest' <$>
(o .:? "failoverContext"))
instance ToJSON InstancesFailoverRequest where
toJSON InstancesFailoverRequest'{..}
= object
(catMaybes
[("failoverContext" .=) <$> _ifrFailoverContext])
data BackupRun = BackupRun'
{ _brStatus :: !(Maybe Text)
, _brStartTime :: !(Maybe DateTime')
, _brKind :: !Text
, _brError :: !(Maybe OperationError)
, _brWindowStartTime :: !(Maybe DateTime')
, _brSelfLink :: !(Maybe Text)
, _brEndTime :: !(Maybe DateTime')
, _brId :: !(Maybe (Textual Int64))
, _brType :: !(Maybe Text)
, _brEnQueuedTime :: !(Maybe DateTime')
, _brDescription :: !(Maybe Text)
, _brInstance :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
backupRun
:: BackupRun
backupRun =
BackupRun'
{ _brStatus = Nothing
, _brStartTime = Nothing
, _brKind = "sql#backupRun"
, _brError = Nothing
, _brWindowStartTime = Nothing
, _brSelfLink = Nothing
, _brEndTime = Nothing
, _brId = Nothing
, _brType = Nothing
, _brEnQueuedTime = Nothing
, _brDescription = Nothing
, _brInstance = Nothing
}
brStatus :: Lens' BackupRun (Maybe Text)
brStatus = lens _brStatus (\ s a -> s{_brStatus = a})
brStartTime :: Lens' BackupRun (Maybe UTCTime)
brStartTime
= lens _brStartTime (\ s a -> s{_brStartTime = a}) .
mapping _DateTime
brKind :: Lens' BackupRun Text
brKind = lens _brKind (\ s a -> s{_brKind = a})
brError :: Lens' BackupRun (Maybe OperationError)
brError = lens _brError (\ s a -> s{_brError = a})
brWindowStartTime :: Lens' BackupRun (Maybe UTCTime)
brWindowStartTime
= lens _brWindowStartTime
(\ s a -> s{_brWindowStartTime = a})
. mapping _DateTime
brSelfLink :: Lens' BackupRun (Maybe Text)
brSelfLink
= lens _brSelfLink (\ s a -> s{_brSelfLink = a})
brEndTime :: Lens' BackupRun (Maybe UTCTime)
brEndTime
= lens _brEndTime (\ s a -> s{_brEndTime = a}) .
mapping _DateTime
brId :: Lens' BackupRun (Maybe Int64)
brId
= lens _brId (\ s a -> s{_brId = a}) .
mapping _Coerce
brType :: Lens' BackupRun (Maybe Text)
brType = lens _brType (\ s a -> s{_brType = a})
brEnQueuedTime :: Lens' BackupRun (Maybe UTCTime)
brEnQueuedTime
= lens _brEnQueuedTime
(\ s a -> s{_brEnQueuedTime = a})
. mapping _DateTime
brDescription :: Lens' BackupRun (Maybe Text)
brDescription
= lens _brDescription
(\ s a -> s{_brDescription = a})
brInstance :: Lens' BackupRun (Maybe Text)
brInstance
= lens _brInstance (\ s a -> s{_brInstance = a})
instance FromJSON BackupRun where
parseJSON
= withObject "BackupRun"
(\ o ->
BackupRun' <$>
(o .:? "status") <*> (o .:? "startTime") <*>
(o .:? "kind" .!= "sql#backupRun")
<*> (o .:? "error")
<*> (o .:? "windowStartTime")
<*> (o .:? "selfLink")
<*> (o .:? "endTime")
<*> (o .:? "id")
<*> (o .:? "type")
<*> (o .:? "enqueuedTime")
<*> (o .:? "description")
<*> (o .:? "instance"))
instance ToJSON BackupRun where
toJSON BackupRun'{..}
= object
(catMaybes
[("status" .=) <$> _brStatus,
("startTime" .=) <$> _brStartTime,
Just ("kind" .= _brKind), ("error" .=) <$> _brError,
("windowStartTime" .=) <$> _brWindowStartTime,
("selfLink" .=) <$> _brSelfLink,
("endTime" .=) <$> _brEndTime, ("id" .=) <$> _brId,
("type" .=) <$> _brType,
("enqueuedTime" .=) <$> _brEnQueuedTime,
("description" .=) <$> _brDescription,
("instance" .=) <$> _brInstance])
data ACLEntry = ACLEntry'
{ _aeKind :: !Text
, _aeValue :: !(Maybe Text)
, _aeName :: !(Maybe Text)
, _aeExpirationTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
aclEntry
:: ACLEntry
aclEntry =
ACLEntry'
{ _aeKind = "sql#aclEntry"
, _aeValue = Nothing
, _aeName = Nothing
, _aeExpirationTime = Nothing
}
aeKind :: Lens' ACLEntry Text
aeKind = lens _aeKind (\ s a -> s{_aeKind = a})
aeValue :: Lens' ACLEntry (Maybe Text)
aeValue = lens _aeValue (\ s a -> s{_aeValue = a})
aeName :: Lens' ACLEntry (Maybe Text)
aeName = lens _aeName (\ s a -> s{_aeName = a})
aeExpirationTime :: Lens' ACLEntry (Maybe UTCTime)
aeExpirationTime
= lens _aeExpirationTime
(\ s a -> s{_aeExpirationTime = a})
. mapping _DateTime
instance FromJSON ACLEntry where
parseJSON
= withObject "ACLEntry"
(\ o ->
ACLEntry' <$>
(o .:? "kind" .!= "sql#aclEntry") <*> (o .:? "value")
<*> (o .:? "name")
<*> (o .:? "expirationTime"))
instance ToJSON ACLEntry where
toJSON ACLEntry'{..}
= object
(catMaybes
[Just ("kind" .= _aeKind), ("value" .=) <$> _aeValue,
("name" .=) <$> _aeName,
("expirationTime" .=) <$> _aeExpirationTime])
data DatabaseFlags = DatabaseFlags'
{ _dfValue :: !(Maybe Text)
, _dfName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
databaseFlags
:: DatabaseFlags
databaseFlags =
DatabaseFlags'
{ _dfValue = Nothing
, _dfName = Nothing
}
dfValue :: Lens' DatabaseFlags (Maybe Text)
dfValue = lens _dfValue (\ s a -> s{_dfValue = a})
dfName :: Lens' DatabaseFlags (Maybe Text)
dfName = lens _dfName (\ s a -> s{_dfName = a})
instance FromJSON DatabaseFlags where
parseJSON
= withObject "DatabaseFlags"
(\ o ->
DatabaseFlags' <$>
(o .:? "value") <*> (o .:? "name"))
instance ToJSON DatabaseFlags where
toJSON DatabaseFlags'{..}
= object
(catMaybes
[("value" .=) <$> _dfValue, ("name" .=) <$> _dfName])
data Tier = Tier'
{ _tKind :: !Text
, _tTier :: !(Maybe Text)
, _tRegion :: !(Maybe [Text])
, _tDiskQuota :: !(Maybe (Textual Int64))
, _tRAM :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
tier
:: Tier
tier =
Tier'
{ _tKind = "sql#tier"
, _tTier = Nothing
, _tRegion = Nothing
, _tDiskQuota = Nothing
, _tRAM = Nothing
}
tKind :: Lens' Tier Text
tKind = lens _tKind (\ s a -> s{_tKind = a})
tTier :: Lens' Tier (Maybe Text)
tTier = lens _tTier (\ s a -> s{_tTier = a})
tRegion :: Lens' Tier [Text]
tRegion
= lens _tRegion (\ s a -> s{_tRegion = a}) . _Default
. _Coerce
tDiskQuota :: Lens' Tier (Maybe Int64)
tDiskQuota
= lens _tDiskQuota (\ s a -> s{_tDiskQuota = a}) .
mapping _Coerce
tRAM :: Lens' Tier (Maybe Int64)
tRAM
= lens _tRAM (\ s a -> s{_tRAM = a}) .
mapping _Coerce
instance FromJSON Tier where
parseJSON
= withObject "Tier"
(\ o ->
Tier' <$>
(o .:? "kind" .!= "sql#tier") <*> (o .:? "tier") <*>
(o .:? "region" .!= mempty)
<*> (o .:? "DiskQuota")
<*> (o .:? "RAM"))
instance ToJSON Tier where
toJSON Tier'{..}
= object
(catMaybes
[Just ("kind" .= _tKind), ("tier" .=) <$> _tTier,
("region" .=) <$> _tRegion,
("DiskQuota" .=) <$> _tDiskQuota,
("RAM" .=) <$> _tRAM])
data MySQLReplicaConfiguration = MySQLReplicaConfiguration'
{ _msqlrcVerifyServerCertificate :: !(Maybe Bool)
, _msqlrcKind :: !Text
, _msqlrcClientKey :: !(Maybe Text)
, _msqlrcUsername :: !(Maybe Text)
, _msqlrcSSLCipher :: !(Maybe Text)
, _msqlrcMasterHeartbeatPeriod :: !(Maybe (Textual Int64))
, _msqlrcConnectRetryInterval :: !(Maybe (Textual Int32))
, _msqlrcClientCertificate :: !(Maybe Text)
, _msqlrcCaCertificate :: !(Maybe Text)
, _msqlrcDumpFilePath :: !(Maybe Text)
, _msqlrcPassword :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
mySQLReplicaConfiguration
:: MySQLReplicaConfiguration
mySQLReplicaConfiguration =
MySQLReplicaConfiguration'
{ _msqlrcVerifyServerCertificate = Nothing
, _msqlrcKind = "sql#mysqlReplicaConfiguration"
, _msqlrcClientKey = Nothing
, _msqlrcUsername = Nothing
, _msqlrcSSLCipher = Nothing
, _msqlrcMasterHeartbeatPeriod = Nothing
, _msqlrcConnectRetryInterval = Nothing
, _msqlrcClientCertificate = Nothing
, _msqlrcCaCertificate = Nothing
, _msqlrcDumpFilePath = Nothing
, _msqlrcPassword = Nothing
}
msqlrcVerifyServerCertificate :: Lens' MySQLReplicaConfiguration (Maybe Bool)
msqlrcVerifyServerCertificate
= lens _msqlrcVerifyServerCertificate
(\ s a -> s{_msqlrcVerifyServerCertificate = a})
msqlrcKind :: Lens' MySQLReplicaConfiguration Text
msqlrcKind
= lens _msqlrcKind (\ s a -> s{_msqlrcKind = a})
msqlrcClientKey :: Lens' MySQLReplicaConfiguration (Maybe Text)
msqlrcClientKey
= lens _msqlrcClientKey
(\ s a -> s{_msqlrcClientKey = a})
msqlrcUsername :: Lens' MySQLReplicaConfiguration (Maybe Text)
msqlrcUsername
= lens _msqlrcUsername
(\ s a -> s{_msqlrcUsername = a})
msqlrcSSLCipher :: Lens' MySQLReplicaConfiguration (Maybe Text)
msqlrcSSLCipher
= lens _msqlrcSSLCipher
(\ s a -> s{_msqlrcSSLCipher = a})
msqlrcMasterHeartbeatPeriod :: Lens' MySQLReplicaConfiguration (Maybe Int64)
msqlrcMasterHeartbeatPeriod
= lens _msqlrcMasterHeartbeatPeriod
(\ s a -> s{_msqlrcMasterHeartbeatPeriod = a})
. mapping _Coerce
msqlrcConnectRetryInterval :: Lens' MySQLReplicaConfiguration (Maybe Int32)
msqlrcConnectRetryInterval
= lens _msqlrcConnectRetryInterval
(\ s a -> s{_msqlrcConnectRetryInterval = a})
. mapping _Coerce
msqlrcClientCertificate :: Lens' MySQLReplicaConfiguration (Maybe Text)
msqlrcClientCertificate
= lens _msqlrcClientCertificate
(\ s a -> s{_msqlrcClientCertificate = a})
msqlrcCaCertificate :: Lens' MySQLReplicaConfiguration (Maybe Text)
msqlrcCaCertificate
= lens _msqlrcCaCertificate
(\ s a -> s{_msqlrcCaCertificate = a})
msqlrcDumpFilePath :: Lens' MySQLReplicaConfiguration (Maybe Text)
msqlrcDumpFilePath
= lens _msqlrcDumpFilePath
(\ s a -> s{_msqlrcDumpFilePath = a})
msqlrcPassword :: Lens' MySQLReplicaConfiguration (Maybe Text)
msqlrcPassword
= lens _msqlrcPassword
(\ s a -> s{_msqlrcPassword = a})
instance FromJSON MySQLReplicaConfiguration where
parseJSON
= withObject "MySQLReplicaConfiguration"
(\ o ->
MySQLReplicaConfiguration' <$>
(o .:? "verifyServerCertificate") <*>
(o .:? "kind" .!= "sql#mysqlReplicaConfiguration")
<*> (o .:? "clientKey")
<*> (o .:? "username")
<*> (o .:? "sslCipher")
<*> (o .:? "masterHeartbeatPeriod")
<*> (o .:? "connectRetryInterval")
<*> (o .:? "clientCertificate")
<*> (o .:? "caCertificate")
<*> (o .:? "dumpFilePath")
<*> (o .:? "password"))
instance ToJSON MySQLReplicaConfiguration where
toJSON MySQLReplicaConfiguration'{..}
= object
(catMaybes
[("verifyServerCertificate" .=) <$>
_msqlrcVerifyServerCertificate,
Just ("kind" .= _msqlrcKind),
("clientKey" .=) <$> _msqlrcClientKey,
("username" .=) <$> _msqlrcUsername,
("sslCipher" .=) <$> _msqlrcSSLCipher,
("masterHeartbeatPeriod" .=) <$>
_msqlrcMasterHeartbeatPeriod,
("connectRetryInterval" .=) <$>
_msqlrcConnectRetryInterval,
("clientCertificate" .=) <$>
_msqlrcClientCertificate,
("caCertificate" .=) <$> _msqlrcCaCertificate,
("dumpFilePath" .=) <$> _msqlrcDumpFilePath,
("password" .=) <$> _msqlrcPassword])
data SSLCertDetail = SSLCertDetail'
{ _scdCertInfo :: !(Maybe SSLCert)
, _scdCertPrivateKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
sslCertDetail
:: SSLCertDetail
sslCertDetail =
SSLCertDetail'
{ _scdCertInfo = Nothing
, _scdCertPrivateKey = Nothing
}
scdCertInfo :: Lens' SSLCertDetail (Maybe SSLCert)
scdCertInfo
= lens _scdCertInfo (\ s a -> s{_scdCertInfo = a})
scdCertPrivateKey :: Lens' SSLCertDetail (Maybe Text)
scdCertPrivateKey
= lens _scdCertPrivateKey
(\ s a -> s{_scdCertPrivateKey = a})
instance FromJSON SSLCertDetail where
parseJSON
= withObject "SSLCertDetail"
(\ o ->
SSLCertDetail' <$>
(o .:? "certInfo") <*> (o .:? "certPrivateKey"))
instance ToJSON SSLCertDetail where
toJSON SSLCertDetail'{..}
= object
(catMaybes
[("certInfo" .=) <$> _scdCertInfo,
("certPrivateKey" .=) <$> _scdCertPrivateKey])
newtype InstancesRestoreBackupRequest = InstancesRestoreBackupRequest'
{ _irbrRestoreBackupContext :: Maybe RestoreBackupContext
} deriving (Eq,Show,Data,Typeable,Generic)
instancesRestoreBackupRequest
:: InstancesRestoreBackupRequest
instancesRestoreBackupRequest =
InstancesRestoreBackupRequest'
{ _irbrRestoreBackupContext = Nothing
}
irbrRestoreBackupContext :: Lens' InstancesRestoreBackupRequest (Maybe RestoreBackupContext)
irbrRestoreBackupContext
= lens _irbrRestoreBackupContext
(\ s a -> s{_irbrRestoreBackupContext = a})
instance FromJSON InstancesRestoreBackupRequest where
parseJSON
= withObject "InstancesRestoreBackupRequest"
(\ o ->
InstancesRestoreBackupRequest' <$>
(o .:? "restoreBackupContext"))
instance ToJSON InstancesRestoreBackupRequest where
toJSON InstancesRestoreBackupRequest'{..}
= object
(catMaybes
[("restoreBackupContext" .=) <$>
_irbrRestoreBackupContext])
newtype InstancesDemoteMasterRequest = InstancesDemoteMasterRequest'
{ _idmrDemoteMasterContext :: Maybe DemoteMasterContext
} deriving (Eq,Show,Data,Typeable,Generic)
instancesDemoteMasterRequest
:: InstancesDemoteMasterRequest
instancesDemoteMasterRequest =
InstancesDemoteMasterRequest'
{ _idmrDemoteMasterContext = Nothing
}
idmrDemoteMasterContext :: Lens' InstancesDemoteMasterRequest (Maybe DemoteMasterContext)
idmrDemoteMasterContext
= lens _idmrDemoteMasterContext
(\ s a -> s{_idmrDemoteMasterContext = a})
instance FromJSON InstancesDemoteMasterRequest where
parseJSON
= withObject "InstancesDemoteMasterRequest"
(\ o ->
InstancesDemoteMasterRequest' <$>
(o .:? "demoteMasterContext"))
instance ToJSON InstancesDemoteMasterRequest where
toJSON InstancesDemoteMasterRequest'{..}
= object
(catMaybes
[("demoteMasterContext" .=) <$>
_idmrDemoteMasterContext])
data BackupRunsListResponse = BackupRunsListResponse'
{ _brlrNextPageToken :: !(Maybe Text)
, _brlrKind :: !Text
, _brlrItems :: !(Maybe [BackupRun])
} deriving (Eq,Show,Data,Typeable,Generic)
backupRunsListResponse
:: BackupRunsListResponse
backupRunsListResponse =
BackupRunsListResponse'
{ _brlrNextPageToken = Nothing
, _brlrKind = "sql#backupRunsList"
, _brlrItems = Nothing
}
brlrNextPageToken :: Lens' BackupRunsListResponse (Maybe Text)
brlrNextPageToken
= lens _brlrNextPageToken
(\ s a -> s{_brlrNextPageToken = a})
brlrKind :: Lens' BackupRunsListResponse Text
brlrKind = lens _brlrKind (\ s a -> s{_brlrKind = a})
brlrItems :: Lens' BackupRunsListResponse [BackupRun]
brlrItems
= lens _brlrItems (\ s a -> s{_brlrItems = a}) .
_Default
. _Coerce
instance FromJSON BackupRunsListResponse where
parseJSON
= withObject "BackupRunsListResponse"
(\ o ->
BackupRunsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "sql#backupRunsList")
<*> (o .:? "items" .!= mempty))
instance ToJSON BackupRunsListResponse where
toJSON BackupRunsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _brlrNextPageToken,
Just ("kind" .= _brlrKind),
("items" .=) <$> _brlrItems])
data OperationError = OperationError'
{ _opeKind :: !Text
, _opeCode :: !(Maybe Text)
, _opeMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationError
:: OperationError
operationError =
OperationError'
{ _opeKind = "sql#operationError"
, _opeCode = Nothing
, _opeMessage = Nothing
}
opeKind :: Lens' OperationError Text
opeKind = lens _opeKind (\ s a -> s{_opeKind = a})
opeCode :: Lens' OperationError (Maybe Text)
opeCode = lens _opeCode (\ s a -> s{_opeCode = a})
opeMessage :: Lens' OperationError (Maybe Text)
opeMessage
= lens _opeMessage (\ s a -> s{_opeMessage = a})
instance FromJSON OperationError where
parseJSON
= withObject "OperationError"
(\ o ->
OperationError' <$>
(o .:? "kind" .!= "sql#operationError") <*>
(o .:? "code")
<*> (o .:? "message"))
instance ToJSON OperationError where
toJSON OperationError'{..}
= object
(catMaybes
[Just ("kind" .= _opeKind), ("code" .=) <$> _opeCode,
("message" .=) <$> _opeMessage])
data TruncateLogContext = TruncateLogContext'
{ _tlcKind :: !Text
, _tlcLogType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
truncateLogContext
:: TruncateLogContext
truncateLogContext =
TruncateLogContext'
{ _tlcKind = "sql#truncateLogContext"
, _tlcLogType = Nothing
}
tlcKind :: Lens' TruncateLogContext Text
tlcKind = lens _tlcKind (\ s a -> s{_tlcKind = a})
tlcLogType :: Lens' TruncateLogContext (Maybe Text)
tlcLogType
= lens _tlcLogType (\ s a -> s{_tlcLogType = a})
instance FromJSON TruncateLogContext where
parseJSON
= withObject "TruncateLogContext"
(\ o ->
TruncateLogContext' <$>
(o .:? "kind" .!= "sql#truncateLogContext") <*>
(o .:? "logType"))
instance ToJSON TruncateLogContext where
toJSON TruncateLogContext'{..}
= object
(catMaybes
[Just ("kind" .= _tlcKind),
("logType" .=) <$> _tlcLogType])
newtype InstancesCloneRequest = InstancesCloneRequest'
{ _icrCloneContext :: Maybe CloneContext
} deriving (Eq,Show,Data,Typeable,Generic)
instancesCloneRequest
:: InstancesCloneRequest
instancesCloneRequest =
InstancesCloneRequest'
{ _icrCloneContext = Nothing
}
icrCloneContext :: Lens' InstancesCloneRequest (Maybe CloneContext)
icrCloneContext
= lens _icrCloneContext
(\ s a -> s{_icrCloneContext = a})
instance FromJSON InstancesCloneRequest where
parseJSON
= withObject "InstancesCloneRequest"
(\ o ->
InstancesCloneRequest' <$> (o .:? "cloneContext"))
instance ToJSON InstancesCloneRequest where
toJSON InstancesCloneRequest'{..}
= object
(catMaybes
[("cloneContext" .=) <$> _icrCloneContext])
data ReplicaConfiguration = ReplicaConfiguration'
{ _rcFailoverTarget :: !(Maybe Bool)
, _rcKind :: !Text
, _rcMysqlReplicaConfiguration :: !(Maybe MySQLReplicaConfiguration)
} deriving (Eq,Show,Data,Typeable,Generic)
replicaConfiguration
:: ReplicaConfiguration
replicaConfiguration =
ReplicaConfiguration'
{ _rcFailoverTarget = Nothing
, _rcKind = "sql#replicaConfiguration"
, _rcMysqlReplicaConfiguration = Nothing
}
rcFailoverTarget :: Lens' ReplicaConfiguration (Maybe Bool)
rcFailoverTarget
= lens _rcFailoverTarget
(\ s a -> s{_rcFailoverTarget = a})
rcKind :: Lens' ReplicaConfiguration Text
rcKind = lens _rcKind (\ s a -> s{_rcKind = a})
rcMysqlReplicaConfiguration :: Lens' ReplicaConfiguration (Maybe MySQLReplicaConfiguration)
rcMysqlReplicaConfiguration
= lens _rcMysqlReplicaConfiguration
(\ s a -> s{_rcMysqlReplicaConfiguration = a})
instance FromJSON ReplicaConfiguration where
parseJSON
= withObject "ReplicaConfiguration"
(\ o ->
ReplicaConfiguration' <$>
(o .:? "failoverTarget") <*>
(o .:? "kind" .!= "sql#replicaConfiguration")
<*> (o .:? "mysqlReplicaConfiguration"))
instance ToJSON ReplicaConfiguration where
toJSON ReplicaConfiguration'{..}
= object
(catMaybes
[("failoverTarget" .=) <$> _rcFailoverTarget,
Just ("kind" .= _rcKind),
("mysqlReplicaConfiguration" .=) <$>
_rcMysqlReplicaConfiguration])
data FailoverContext = FailoverContext'
{ _fcSettingsVersion :: !(Maybe (Textual Int64))
, _fcKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
failoverContext
:: FailoverContext
failoverContext =
FailoverContext'
{ _fcSettingsVersion = Nothing
, _fcKind = "sql#failoverContext"
}
fcSettingsVersion :: Lens' FailoverContext (Maybe Int64)
fcSettingsVersion
= lens _fcSettingsVersion
(\ s a -> s{_fcSettingsVersion = a})
. mapping _Coerce
fcKind :: Lens' FailoverContext Text
fcKind = lens _fcKind (\ s a -> s{_fcKind = a})
instance FromJSON FailoverContext where
parseJSON
= withObject "FailoverContext"
(\ o ->
FailoverContext' <$>
(o .:? "settingsVersion") <*>
(o .:? "kind" .!= "sql#failoverContext"))
instance ToJSON FailoverContext where
toJSON FailoverContext'{..}
= object
(catMaybes
[("settingsVersion" .=) <$> _fcSettingsVersion,
Just ("kind" .= _fcKind)])
data SSLCertsInsertResponse = SSLCertsInsertResponse'
{ _scirServerCaCert :: !(Maybe SSLCert)
, _scirOperation :: !(Maybe Operation)
, _scirKind :: !Text
, _scirClientCert :: !(Maybe SSLCertDetail)
} deriving (Eq,Show,Data,Typeable,Generic)
sslCertsInsertResponse
:: SSLCertsInsertResponse
sslCertsInsertResponse =
SSLCertsInsertResponse'
{ _scirServerCaCert = Nothing
, _scirOperation = Nothing
, _scirKind = "sql#sslCertsInsert"
, _scirClientCert = Nothing
}
scirServerCaCert :: Lens' SSLCertsInsertResponse (Maybe SSLCert)
scirServerCaCert
= lens _scirServerCaCert
(\ s a -> s{_scirServerCaCert = a})
scirOperation :: Lens' SSLCertsInsertResponse (Maybe Operation)
scirOperation
= lens _scirOperation
(\ s a -> s{_scirOperation = a})
scirKind :: Lens' SSLCertsInsertResponse Text
scirKind = lens _scirKind (\ s a -> s{_scirKind = a})
scirClientCert :: Lens' SSLCertsInsertResponse (Maybe SSLCertDetail)
scirClientCert
= lens _scirClientCert
(\ s a -> s{_scirClientCert = a})
instance FromJSON SSLCertsInsertResponse where
parseJSON
= withObject "SSLCertsInsertResponse"
(\ o ->
SSLCertsInsertResponse' <$>
(o .:? "serverCaCert") <*> (o .:? "operation") <*>
(o .:? "kind" .!= "sql#sslCertsInsert")
<*> (o .:? "clientCert"))
instance ToJSON SSLCertsInsertResponse where
toJSON SSLCertsInsertResponse'{..}
= object
(catMaybes
[("serverCaCert" .=) <$> _scirServerCaCert,
("operation" .=) <$> _scirOperation,
Just ("kind" .= _scirKind),
("clientCert" .=) <$> _scirClientCert])
data InstancesListResponse = InstancesListResponse'
{ _ilrNextPageToken :: !(Maybe Text)
, _ilrKind :: !Text
, _ilrItems :: !(Maybe [DatabaseInstance])
, _ilrWarnings :: !(Maybe [APIWarning])
} deriving (Eq,Show,Data,Typeable,Generic)
instancesListResponse
:: InstancesListResponse
instancesListResponse =
InstancesListResponse'
{ _ilrNextPageToken = Nothing
, _ilrKind = "sql#instancesList"
, _ilrItems = Nothing
, _ilrWarnings = Nothing
}
ilrNextPageToken :: Lens' InstancesListResponse (Maybe Text)
ilrNextPageToken
= lens _ilrNextPageToken
(\ s a -> s{_ilrNextPageToken = a})
ilrKind :: Lens' InstancesListResponse Text
ilrKind = lens _ilrKind (\ s a -> s{_ilrKind = a})
ilrItems :: Lens' InstancesListResponse [DatabaseInstance]
ilrItems
= lens _ilrItems (\ s a -> s{_ilrItems = a}) .
_Default
. _Coerce
ilrWarnings :: Lens' InstancesListResponse [APIWarning]
ilrWarnings
= lens _ilrWarnings (\ s a -> s{_ilrWarnings = a}) .
_Default
. _Coerce
instance FromJSON InstancesListResponse where
parseJSON
= withObject "InstancesListResponse"
(\ o ->
InstancesListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "sql#instancesList")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "warnings" .!= mempty))
instance ToJSON InstancesListResponse where
toJSON InstancesListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ilrNextPageToken,
Just ("kind" .= _ilrKind),
("items" .=) <$> _ilrItems,
("warnings" .=) <$> _ilrWarnings])
data DemoteMasterConfiguration = DemoteMasterConfiguration'
{ _dmcKind :: !Text
, _dmcMysqlReplicaConfiguration :: !(Maybe DemoteMasterMySQLReplicaConfiguration)
} deriving (Eq,Show,Data,Typeable,Generic)
demoteMasterConfiguration
:: DemoteMasterConfiguration
demoteMasterConfiguration =
DemoteMasterConfiguration'
{ _dmcKind = "sql#demoteMasterConfiguration"
, _dmcMysqlReplicaConfiguration = Nothing
}
dmcKind :: Lens' DemoteMasterConfiguration Text
dmcKind = lens _dmcKind (\ s a -> s{_dmcKind = a})
dmcMysqlReplicaConfiguration :: Lens' DemoteMasterConfiguration (Maybe DemoteMasterMySQLReplicaConfiguration)
dmcMysqlReplicaConfiguration
= lens _dmcMysqlReplicaConfiguration
(\ s a -> s{_dmcMysqlReplicaConfiguration = a})
instance FromJSON DemoteMasterConfiguration where
parseJSON
= withObject "DemoteMasterConfiguration"
(\ o ->
DemoteMasterConfiguration' <$>
(o .:? "kind" .!= "sql#demoteMasterConfiguration")
<*> (o .:? "mysqlReplicaConfiguration"))
instance ToJSON DemoteMasterConfiguration where
toJSON DemoteMasterConfiguration'{..}
= object
(catMaybes
[Just ("kind" .= _dmcKind),
("mysqlReplicaConfiguration" .=) <$>
_dmcMysqlReplicaConfiguration])
data BackupConfiguration = BackupConfiguration'
{ _bcReplicationLogArchivingEnabled :: !(Maybe Bool)
, _bcEnabled :: !(Maybe Bool)
, _bcStartTime :: !(Maybe Text)
, _bcKind :: !Text
, _bcBinaryLogEnabled :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
backupConfiguration
:: BackupConfiguration
backupConfiguration =
BackupConfiguration'
{ _bcReplicationLogArchivingEnabled = Nothing
, _bcEnabled = Nothing
, _bcStartTime = Nothing
, _bcKind = "sql#backupConfiguration"
, _bcBinaryLogEnabled = Nothing
}
bcReplicationLogArchivingEnabled :: Lens' BackupConfiguration (Maybe Bool)
bcReplicationLogArchivingEnabled
= lens _bcReplicationLogArchivingEnabled
(\ s a -> s{_bcReplicationLogArchivingEnabled = a})
bcEnabled :: Lens' BackupConfiguration (Maybe Bool)
bcEnabled
= lens _bcEnabled (\ s a -> s{_bcEnabled = a})
bcStartTime :: Lens' BackupConfiguration (Maybe Text)
bcStartTime
= lens _bcStartTime (\ s a -> s{_bcStartTime = a})
bcKind :: Lens' BackupConfiguration Text
bcKind = lens _bcKind (\ s a -> s{_bcKind = a})
bcBinaryLogEnabled :: Lens' BackupConfiguration (Maybe Bool)
bcBinaryLogEnabled
= lens _bcBinaryLogEnabled
(\ s a -> s{_bcBinaryLogEnabled = a})
instance FromJSON BackupConfiguration where
parseJSON
= withObject "BackupConfiguration"
(\ o ->
BackupConfiguration' <$>
(o .:? "replicationLogArchivingEnabled") <*>
(o .:? "enabled")
<*> (o .:? "startTime")
<*> (o .:? "kind" .!= "sql#backupConfiguration")
<*> (o .:? "binaryLogEnabled"))
instance ToJSON BackupConfiguration where
toJSON BackupConfiguration'{..}
= object
(catMaybes
[("replicationLogArchivingEnabled" .=) <$>
_bcReplicationLogArchivingEnabled,
("enabled" .=) <$> _bcEnabled,
("startTime" .=) <$> _bcStartTime,
Just ("kind" .= _bcKind),
("binaryLogEnabled" .=) <$> _bcBinaryLogEnabled])
newtype InstancesImportRequest = InstancesImportRequest'
{ _iirImportContext :: Maybe ImportContext
} deriving (Eq,Show,Data,Typeable,Generic)
instancesImportRequest
:: InstancesImportRequest
instancesImportRequest =
InstancesImportRequest'
{ _iirImportContext = Nothing
}
iirImportContext :: Lens' InstancesImportRequest (Maybe ImportContext)
iirImportContext
= lens _iirImportContext
(\ s a -> s{_iirImportContext = a})
instance FromJSON InstancesImportRequest where
parseJSON
= withObject "InstancesImportRequest"
(\ o ->
InstancesImportRequest' <$> (o .:? "importContext"))
instance ToJSON InstancesImportRequest where
toJSON InstancesImportRequest'{..}
= object
(catMaybes
[("importContext" .=) <$> _iirImportContext])
data LocationPreference = LocationPreference'
{ _lpKind :: !Text
, _lpFollowGaeApplication :: !(Maybe Text)
, _lpZone :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
locationPreference
:: LocationPreference
locationPreference =
LocationPreference'
{ _lpKind = "sql#locationPreference"
, _lpFollowGaeApplication = Nothing
, _lpZone = Nothing
}
lpKind :: Lens' LocationPreference Text
lpKind = lens _lpKind (\ s a -> s{_lpKind = a})
lpFollowGaeApplication :: Lens' LocationPreference (Maybe Text)
lpFollowGaeApplication
= lens _lpFollowGaeApplication
(\ s a -> s{_lpFollowGaeApplication = a})
lpZone :: Lens' LocationPreference (Maybe Text)
lpZone = lens _lpZone (\ s a -> s{_lpZone = a})
instance FromJSON LocationPreference where
parseJSON
= withObject "LocationPreference"
(\ o ->
LocationPreference' <$>
(o .:? "kind" .!= "sql#locationPreference") <*>
(o .:? "followGaeApplication")
<*> (o .:? "zone"))
instance ToJSON LocationPreference where
toJSON LocationPreference'{..}
= object
(catMaybes
[Just ("kind" .= _lpKind),
("followGaeApplication" .=) <$>
_lpFollowGaeApplication,
("zone" .=) <$> _lpZone])
data FlagsListResponse = FlagsListResponse'
{ _flrKind :: !Text
, _flrItems :: !(Maybe [Flag])
} deriving (Eq,Show,Data,Typeable,Generic)
flagsListResponse
:: FlagsListResponse
flagsListResponse =
FlagsListResponse'
{ _flrKind = "sql#flagsList"
, _flrItems = Nothing
}
flrKind :: Lens' FlagsListResponse Text
flrKind = lens _flrKind (\ s a -> s{_flrKind = a})
flrItems :: Lens' FlagsListResponse [Flag]
flrItems
= lens _flrItems (\ s a -> s{_flrItems = a}) .
_Default
. _Coerce
instance FromJSON FlagsListResponse where
parseJSON
= withObject "FlagsListResponse"
(\ o ->
FlagsListResponse' <$>
(o .:? "kind" .!= "sql#flagsList") <*>
(o .:? "items" .!= mempty))
instance ToJSON FlagsListResponse where
toJSON FlagsListResponse'{..}
= object
(catMaybes
[Just ("kind" .= _flrKind),
("items" .=) <$> _flrItems])
newtype InstancesTruncateLogRequest = InstancesTruncateLogRequest'
{ _itlrTruncateLogContext :: Maybe TruncateLogContext
} deriving (Eq,Show,Data,Typeable,Generic)
instancesTruncateLogRequest
:: InstancesTruncateLogRequest
instancesTruncateLogRequest =
InstancesTruncateLogRequest'
{ _itlrTruncateLogContext = Nothing
}
itlrTruncateLogContext :: Lens' InstancesTruncateLogRequest (Maybe TruncateLogContext)
itlrTruncateLogContext
= lens _itlrTruncateLogContext
(\ s a -> s{_itlrTruncateLogContext = a})
instance FromJSON InstancesTruncateLogRequest where
parseJSON
= withObject "InstancesTruncateLogRequest"
(\ o ->
InstancesTruncateLogRequest' <$>
(o .:? "truncateLogContext"))
instance ToJSON InstancesTruncateLogRequest where
toJSON InstancesTruncateLogRequest'{..}
= object
(catMaybes
[("truncateLogContext" .=) <$>
_itlrTruncateLogContext])
data ExportContextSQLExportOptions = ExportContextSQLExportOptions'
{ _ecsqleoSchemaOnly :: !(Maybe Bool)
, _ecsqleoMysqlExportOptions :: !(Maybe ExportContextSQLExportOptionsMysqlExportOptions)
, _ecsqleoTables :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
exportContextSQLExportOptions
:: ExportContextSQLExportOptions
exportContextSQLExportOptions =
ExportContextSQLExportOptions'
{ _ecsqleoSchemaOnly = Nothing
, _ecsqleoMysqlExportOptions = Nothing
, _ecsqleoTables = Nothing
}
ecsqleoSchemaOnly :: Lens' ExportContextSQLExportOptions (Maybe Bool)
ecsqleoSchemaOnly
= lens _ecsqleoSchemaOnly
(\ s a -> s{_ecsqleoSchemaOnly = a})
ecsqleoMysqlExportOptions :: Lens' ExportContextSQLExportOptions (Maybe ExportContextSQLExportOptionsMysqlExportOptions)
ecsqleoMysqlExportOptions
= lens _ecsqleoMysqlExportOptions
(\ s a -> s{_ecsqleoMysqlExportOptions = a})
ecsqleoTables :: Lens' ExportContextSQLExportOptions [Text]
ecsqleoTables
= lens _ecsqleoTables
(\ s a -> s{_ecsqleoTables = a})
. _Default
. _Coerce
instance FromJSON ExportContextSQLExportOptions where
parseJSON
= withObject "ExportContextSQLExportOptions"
(\ o ->
ExportContextSQLExportOptions' <$>
(o .:? "schemaOnly") <*> (o .:? "mysqlExportOptions")
<*> (o .:? "tables" .!= mempty))
instance ToJSON ExportContextSQLExportOptions where
toJSON ExportContextSQLExportOptions'{..}
= object
(catMaybes
[("schemaOnly" .=) <$> _ecsqleoSchemaOnly,
("mysqlExportOptions" .=) <$>
_ecsqleoMysqlExportOptions,
("tables" .=) <$> _ecsqleoTables])
data RestoreBackupContext = RestoreBackupContext'
{ _rbcInstanceId :: !(Maybe Text)
, _rbcBackupRunId :: !(Maybe (Textual Int64))
, _rbcKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
restoreBackupContext
:: RestoreBackupContext
restoreBackupContext =
RestoreBackupContext'
{ _rbcInstanceId = Nothing
, _rbcBackupRunId = Nothing
, _rbcKind = "sql#restoreBackupContext"
}
rbcInstanceId :: Lens' RestoreBackupContext (Maybe Text)
rbcInstanceId
= lens _rbcInstanceId
(\ s a -> s{_rbcInstanceId = a})
rbcBackupRunId :: Lens' RestoreBackupContext (Maybe Int64)
rbcBackupRunId
= lens _rbcBackupRunId
(\ s a -> s{_rbcBackupRunId = a})
. mapping _Coerce
rbcKind :: Lens' RestoreBackupContext Text
rbcKind = lens _rbcKind (\ s a -> s{_rbcKind = a})
instance FromJSON RestoreBackupContext where
parseJSON
= withObject "RestoreBackupContext"
(\ o ->
RestoreBackupContext' <$>
(o .:? "instanceId") <*> (o .:? "backupRunId") <*>
(o .:? "kind" .!= "sql#restoreBackupContext"))
instance ToJSON RestoreBackupContext where
toJSON RestoreBackupContext'{..}
= object
(catMaybes
[("instanceId" .=) <$> _rbcInstanceId,
("backupRunId" .=) <$> _rbcBackupRunId,
Just ("kind" .= _rbcKind)])
data DemoteMasterContext = DemoteMasterContext'
{ _demVerifyGtidConsistency :: !(Maybe Bool)
, _demKind :: !Text
, _demMasterInstanceName :: !(Maybe Text)
, _demReplicaConfiguration :: !(Maybe DemoteMasterConfiguration)
} deriving (Eq,Show,Data,Typeable,Generic)
demoteMasterContext
:: DemoteMasterContext
demoteMasterContext =
DemoteMasterContext'
{ _demVerifyGtidConsistency = Nothing
, _demKind = "sql#demoteMasterContext"
, _demMasterInstanceName = Nothing
, _demReplicaConfiguration = Nothing
}
demVerifyGtidConsistency :: Lens' DemoteMasterContext (Maybe Bool)
demVerifyGtidConsistency
= lens _demVerifyGtidConsistency
(\ s a -> s{_demVerifyGtidConsistency = a})
demKind :: Lens' DemoteMasterContext Text
demKind = lens _demKind (\ s a -> s{_demKind = a})
demMasterInstanceName :: Lens' DemoteMasterContext (Maybe Text)
demMasterInstanceName
= lens _demMasterInstanceName
(\ s a -> s{_demMasterInstanceName = a})
demReplicaConfiguration :: Lens' DemoteMasterContext (Maybe DemoteMasterConfiguration)
demReplicaConfiguration
= lens _demReplicaConfiguration
(\ s a -> s{_demReplicaConfiguration = a})
instance FromJSON DemoteMasterContext where
parseJSON
= withObject "DemoteMasterContext"
(\ o ->
DemoteMasterContext' <$>
(o .:? "verifyGtidConsistency") <*>
(o .:? "kind" .!= "sql#demoteMasterContext")
<*> (o .:? "masterInstanceName")
<*> (o .:? "replicaConfiguration"))
instance ToJSON DemoteMasterContext where
toJSON DemoteMasterContext'{..}
= object
(catMaybes
[("verifyGtidConsistency" .=) <$>
_demVerifyGtidConsistency,
Just ("kind" .= _demKind),
("masterInstanceName" .=) <$> _demMasterInstanceName,
("replicaConfiguration" .=) <$>
_demReplicaConfiguration])
newtype SettingsUserLabels = SettingsUserLabels'
{ _sulAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
settingsUserLabels
:: HashMap Text Text
-> SettingsUserLabels
settingsUserLabels pSulAddtional_ =
SettingsUserLabels'
{ _sulAddtional = _Coerce # pSulAddtional_
}
sulAddtional :: Lens' SettingsUserLabels (HashMap Text Text)
sulAddtional
= lens _sulAddtional (\ s a -> s{_sulAddtional = a})
. _Coerce
instance FromJSON SettingsUserLabels where
parseJSON
= withObject "SettingsUserLabels"
(\ o -> SettingsUserLabels' <$> (parseJSONObject o))
instance ToJSON SettingsUserLabels where
toJSON = toJSON . _sulAddtional