{-# 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.DNS.Types.Product where
import Network.Google.DNS.Types.Sum
import Network.Google.Prelude
data OperationDNSKeyContext = OperationDNSKeyContext'
{ _odkcOldValue :: !(Maybe DNSKey)
, _odkcNewValue :: !(Maybe DNSKey)
} deriving (Eq,Show,Data,Typeable,Generic)
operationDNSKeyContext
:: OperationDNSKeyContext
operationDNSKeyContext =
OperationDNSKeyContext'
{ _odkcOldValue = Nothing
, _odkcNewValue = Nothing
}
odkcOldValue :: Lens' OperationDNSKeyContext (Maybe DNSKey)
odkcOldValue
= lens _odkcOldValue (\ s a -> s{_odkcOldValue = a})
odkcNewValue :: Lens' OperationDNSKeyContext (Maybe DNSKey)
odkcNewValue
= lens _odkcNewValue (\ s a -> s{_odkcNewValue = a})
instance FromJSON OperationDNSKeyContext where
parseJSON
= withObject "OperationDNSKeyContext"
(\ o ->
OperationDNSKeyContext' <$>
(o .:? "oldValue") <*> (o .:? "newValue"))
instance ToJSON OperationDNSKeyContext where
toJSON OperationDNSKeyContext'{..}
= object
(catMaybes
[("oldValue" .=) <$> _odkcOldValue,
("newValue" .=) <$> _odkcNewValue])
data DNSKeysListResponse = DNSKeysListResponse'
{ _dklrNextPageToken :: !(Maybe Text)
, _dklrDNSKeys :: !(Maybe [DNSKey])
, _dklrKind :: !Text
, _dklrHeader :: !(Maybe ResponseHeader)
} deriving (Eq,Show,Data,Typeable,Generic)
dnsKeysListResponse
:: DNSKeysListResponse
dnsKeysListResponse =
DNSKeysListResponse'
{ _dklrNextPageToken = Nothing
, _dklrDNSKeys = Nothing
, _dklrKind = "dns#dnsKeysListResponse"
, _dklrHeader = Nothing
}
dklrNextPageToken :: Lens' DNSKeysListResponse (Maybe Text)
dklrNextPageToken
= lens _dklrNextPageToken
(\ s a -> s{_dklrNextPageToken = a})
dklrDNSKeys :: Lens' DNSKeysListResponse [DNSKey]
dklrDNSKeys
= lens _dklrDNSKeys (\ s a -> s{_dklrDNSKeys = a}) .
_Default
. _Coerce
dklrKind :: Lens' DNSKeysListResponse Text
dklrKind = lens _dklrKind (\ s a -> s{_dklrKind = a})
dklrHeader :: Lens' DNSKeysListResponse (Maybe ResponseHeader)
dklrHeader
= lens _dklrHeader (\ s a -> s{_dklrHeader = a})
instance FromJSON DNSKeysListResponse where
parseJSON
= withObject "DNSKeysListResponse"
(\ o ->
DNSKeysListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "dnsKeys" .!= mempty)
<*> (o .:? "kind" .!= "dns#dnsKeysListResponse")
<*> (o .:? "header"))
instance ToJSON DNSKeysListResponse where
toJSON DNSKeysListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _dklrNextPageToken,
("dnsKeys" .=) <$> _dklrDNSKeys,
Just ("kind" .= _dklrKind),
("header" .=) <$> _dklrHeader])
data ChangesListResponse = ChangesListResponse'
{ _clrNextPageToken :: !(Maybe Text)
, _clrChanges :: !(Maybe [Change])
, _clrKind :: !Text
, _clrHeader :: !(Maybe ResponseHeader)
} deriving (Eq,Show,Data,Typeable,Generic)
changesListResponse
:: ChangesListResponse
changesListResponse =
ChangesListResponse'
{ _clrNextPageToken = Nothing
, _clrChanges = Nothing
, _clrKind = "dns#changesListResponse"
, _clrHeader = Nothing
}
clrNextPageToken :: Lens' ChangesListResponse (Maybe Text)
clrNextPageToken
= lens _clrNextPageToken
(\ s a -> s{_clrNextPageToken = a})
clrChanges :: Lens' ChangesListResponse [Change]
clrChanges
= lens _clrChanges (\ s a -> s{_clrChanges = a}) .
_Default
. _Coerce
clrKind :: Lens' ChangesListResponse Text
clrKind = lens _clrKind (\ s a -> s{_clrKind = a})
clrHeader :: Lens' ChangesListResponse (Maybe ResponseHeader)
clrHeader
= lens _clrHeader (\ s a -> s{_clrHeader = a})
instance FromJSON ChangesListResponse where
parseJSON
= withObject "ChangesListResponse"
(\ o ->
ChangesListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "changes" .!= mempty)
<*> (o .:? "kind" .!= "dns#changesListResponse")
<*> (o .:? "header"))
instance ToJSON ChangesListResponse where
toJSON ChangesListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _clrNextPageToken,
("changes" .=) <$> _clrChanges,
Just ("kind" .= _clrKind),
("header" .=) <$> _clrHeader])
data Project = Project'
{ _pKind :: !Text
, _pId :: !(Maybe Text)
, _pNumber :: !(Maybe (Textual Word64))
, _pQuota :: !(Maybe Quota)
} deriving (Eq,Show,Data,Typeable,Generic)
project
:: Project
project =
Project'
{ _pKind = "dns#project"
, _pId = Nothing
, _pNumber = Nothing
, _pQuota = Nothing
}
pKind :: Lens' Project Text
pKind = lens _pKind (\ s a -> s{_pKind = a})
pId :: Lens' Project (Maybe Text)
pId = lens _pId (\ s a -> s{_pId = a})
pNumber :: Lens' Project (Maybe Word64)
pNumber
= lens _pNumber (\ s a -> s{_pNumber = a}) .
mapping _Coerce
pQuota :: Lens' Project (Maybe Quota)
pQuota = lens _pQuota (\ s a -> s{_pQuota = a})
instance FromJSON Project where
parseJSON
= withObject "Project"
(\ o ->
Project' <$>
(o .:? "kind" .!= "dns#project") <*> (o .:? "id") <*>
(o .:? "number")
<*> (o .:? "quota"))
instance ToJSON Project where
toJSON Project'{..}
= object
(catMaybes
[Just ("kind" .= _pKind), ("id" .=) <$> _pId,
("number" .=) <$> _pNumber,
("quota" .=) <$> _pQuota])
data Operation = Operation'
{ _oStatus :: !(Maybe OperationStatus)
, _oStartTime :: !(Maybe Text)
, _oKind :: !Text
, _oUser :: !(Maybe Text)
, _oId :: !(Maybe Text)
, _oType :: !(Maybe Text)
, _oZoneContext :: !(Maybe OperationManagedZoneContext)
, _oDNSKeyContext :: !(Maybe OperationDNSKeyContext)
} deriving (Eq,Show,Data,Typeable,Generic)
operation
:: Operation
operation =
Operation'
{ _oStatus = Nothing
, _oStartTime = Nothing
, _oKind = "dns#operation"
, _oUser = Nothing
, _oId = Nothing
, _oType = Nothing
, _oZoneContext = Nothing
, _oDNSKeyContext = Nothing
}
oStatus :: Lens' Operation (Maybe OperationStatus)
oStatus = lens _oStatus (\ s a -> s{_oStatus = a})
oStartTime :: Lens' Operation (Maybe Text)
oStartTime
= lens _oStartTime (\ s a -> s{_oStartTime = a})
oKind :: Lens' Operation Text
oKind = lens _oKind (\ s a -> s{_oKind = a})
oUser :: Lens' Operation (Maybe Text)
oUser = lens _oUser (\ s a -> s{_oUser = a})
oId :: Lens' Operation (Maybe Text)
oId = lens _oId (\ s a -> s{_oId = a})
oType :: Lens' Operation (Maybe Text)
oType = lens _oType (\ s a -> s{_oType = a})
oZoneContext :: Lens' Operation (Maybe OperationManagedZoneContext)
oZoneContext
= lens _oZoneContext (\ s a -> s{_oZoneContext = a})
oDNSKeyContext :: Lens' Operation (Maybe OperationDNSKeyContext)
oDNSKeyContext
= lens _oDNSKeyContext
(\ s a -> s{_oDNSKeyContext = a})
instance FromJSON Operation where
parseJSON
= withObject "Operation"
(\ o ->
Operation' <$>
(o .:? "status") <*> (o .:? "startTime") <*>
(o .:? "kind" .!= "dns#operation")
<*> (o .:? "user")
<*> (o .:? "id")
<*> (o .:? "type")
<*> (o .:? "zoneContext")
<*> (o .:? "dnsKeyContext"))
instance ToJSON Operation where
toJSON Operation'{..}
= object
(catMaybes
[("status" .=) <$> _oStatus,
("startTime" .=) <$> _oStartTime,
Just ("kind" .= _oKind), ("user" .=) <$> _oUser,
("id" .=) <$> _oId, ("type" .=) <$> _oType,
("zoneContext" .=) <$> _oZoneContext,
("dnsKeyContext" .=) <$> _oDNSKeyContext])
data DNSKeySpec = DNSKeySpec'
{ _dksKeyType :: !(Maybe DNSKeySpecKeyType)
, _dksKind :: !Text
, _dksAlgorithm :: !(Maybe DNSKeySpecAlgorithm)
, _dksKeyLength :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
dnsKeySpec
:: DNSKeySpec
dnsKeySpec =
DNSKeySpec'
{ _dksKeyType = Nothing
, _dksKind = "dns#dnsKeySpec"
, _dksAlgorithm = Nothing
, _dksKeyLength = Nothing
}
dksKeyType :: Lens' DNSKeySpec (Maybe DNSKeySpecKeyType)
dksKeyType
= lens _dksKeyType (\ s a -> s{_dksKeyType = a})
dksKind :: Lens' DNSKeySpec Text
dksKind = lens _dksKind (\ s a -> s{_dksKind = a})
dksAlgorithm :: Lens' DNSKeySpec (Maybe DNSKeySpecAlgorithm)
dksAlgorithm
= lens _dksAlgorithm (\ s a -> s{_dksAlgorithm = a})
dksKeyLength :: Lens' DNSKeySpec (Maybe Word32)
dksKeyLength
= lens _dksKeyLength (\ s a -> s{_dksKeyLength = a})
. mapping _Coerce
instance FromJSON DNSKeySpec where
parseJSON
= withObject "DNSKeySpec"
(\ o ->
DNSKeySpec' <$>
(o .:? "keyType") <*>
(o .:? "kind" .!= "dns#dnsKeySpec")
<*> (o .:? "algorithm")
<*> (o .:? "keyLength"))
instance ToJSON DNSKeySpec where
toJSON DNSKeySpec'{..}
= object
(catMaybes
[("keyType" .=) <$> _dksKeyType,
Just ("kind" .= _dksKind),
("algorithm" .=) <$> _dksAlgorithm,
("keyLength" .=) <$> _dksKeyLength])
data Change = Change'
{ _cStatus :: !(Maybe ChangeStatus)
, _cAdditions :: !(Maybe [ResourceRecordSet])
, _cStartTime :: !(Maybe Text)
, _cKind :: !Text
, _cDeletions :: !(Maybe [ResourceRecordSet])
, _cId :: !(Maybe Text)
, _cIsServing :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
change
:: Change
change =
Change'
{ _cStatus = Nothing
, _cAdditions = Nothing
, _cStartTime = Nothing
, _cKind = "dns#change"
, _cDeletions = Nothing
, _cId = Nothing
, _cIsServing = Nothing
}
cStatus :: Lens' Change (Maybe ChangeStatus)
cStatus = lens _cStatus (\ s a -> s{_cStatus = a})
cAdditions :: Lens' Change [ResourceRecordSet]
cAdditions
= lens _cAdditions (\ s a -> s{_cAdditions = a}) .
_Default
. _Coerce
cStartTime :: Lens' Change (Maybe Text)
cStartTime
= lens _cStartTime (\ s a -> s{_cStartTime = a})
cKind :: Lens' Change Text
cKind = lens _cKind (\ s a -> s{_cKind = a})
cDeletions :: Lens' Change [ResourceRecordSet]
cDeletions
= lens _cDeletions (\ s a -> s{_cDeletions = a}) .
_Default
. _Coerce
cId :: Lens' Change (Maybe Text)
cId = lens _cId (\ s a -> s{_cId = a})
cIsServing :: Lens' Change (Maybe Bool)
cIsServing
= lens _cIsServing (\ s a -> s{_cIsServing = a})
instance FromJSON Change where
parseJSON
= withObject "Change"
(\ o ->
Change' <$>
(o .:? "status") <*> (o .:? "additions" .!= mempty)
<*> (o .:? "startTime")
<*> (o .:? "kind" .!= "dns#change")
<*> (o .:? "deletions" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "isServing"))
instance ToJSON Change where
toJSON Change'{..}
= object
(catMaybes
[("status" .=) <$> _cStatus,
("additions" .=) <$> _cAdditions,
("startTime" .=) <$> _cStartTime,
Just ("kind" .= _cKind),
("deletions" .=) <$> _cDeletions, ("id" .=) <$> _cId,
("isServing" .=) <$> _cIsServing])
data DNSKey = DNSKey'
{ _dkCreationTime :: !(Maybe Text)
, _dkKeyTag :: !(Maybe (Textual Int32))
, _dkKind :: !Text
, _dkDigests :: !(Maybe [DNSKeyDigest])
, _dkPublicKey :: !(Maybe Text)
, _dkAlgorithm :: !(Maybe DNSKeyAlgorithm)
, _dkId :: !(Maybe Text)
, _dkType :: !(Maybe DNSKeyType)
, _dkKeyLength :: !(Maybe (Textual Word32))
, _dkIsActive :: !(Maybe Bool)
, _dkDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
dnsKey
:: DNSKey
dnsKey =
DNSKey'
{ _dkCreationTime = Nothing
, _dkKeyTag = Nothing
, _dkKind = "dns#dnsKey"
, _dkDigests = Nothing
, _dkPublicKey = Nothing
, _dkAlgorithm = Nothing
, _dkId = Nothing
, _dkType = Nothing
, _dkKeyLength = Nothing
, _dkIsActive = Nothing
, _dkDescription = Nothing
}
dkCreationTime :: Lens' DNSKey (Maybe Text)
dkCreationTime
= lens _dkCreationTime
(\ s a -> s{_dkCreationTime = a})
dkKeyTag :: Lens' DNSKey (Maybe Int32)
dkKeyTag
= lens _dkKeyTag (\ s a -> s{_dkKeyTag = a}) .
mapping _Coerce
dkKind :: Lens' DNSKey Text
dkKind = lens _dkKind (\ s a -> s{_dkKind = a})
dkDigests :: Lens' DNSKey [DNSKeyDigest]
dkDigests
= lens _dkDigests (\ s a -> s{_dkDigests = a}) .
_Default
. _Coerce
dkPublicKey :: Lens' DNSKey (Maybe Text)
dkPublicKey
= lens _dkPublicKey (\ s a -> s{_dkPublicKey = a})
dkAlgorithm :: Lens' DNSKey (Maybe DNSKeyAlgorithm)
dkAlgorithm
= lens _dkAlgorithm (\ s a -> s{_dkAlgorithm = a})
dkId :: Lens' DNSKey (Maybe Text)
dkId = lens _dkId (\ s a -> s{_dkId = a})
dkType :: Lens' DNSKey (Maybe DNSKeyType)
dkType = lens _dkType (\ s a -> s{_dkType = a})
dkKeyLength :: Lens' DNSKey (Maybe Word32)
dkKeyLength
= lens _dkKeyLength (\ s a -> s{_dkKeyLength = a}) .
mapping _Coerce
dkIsActive :: Lens' DNSKey (Maybe Bool)
dkIsActive
= lens _dkIsActive (\ s a -> s{_dkIsActive = a})
dkDescription :: Lens' DNSKey (Maybe Text)
dkDescription
= lens _dkDescription
(\ s a -> s{_dkDescription = a})
instance FromJSON DNSKey where
parseJSON
= withObject "DNSKey"
(\ o ->
DNSKey' <$>
(o .:? "creationTime") <*> (o .:? "keyTag") <*>
(o .:? "kind" .!= "dns#dnsKey")
<*> (o .:? "digests" .!= mempty)
<*> (o .:? "publicKey")
<*> (o .:? "algorithm")
<*> (o .:? "id")
<*> (o .:? "type")
<*> (o .:? "keyLength")
<*> (o .:? "isActive")
<*> (o .:? "description"))
instance ToJSON DNSKey where
toJSON DNSKey'{..}
= object
(catMaybes
[("creationTime" .=) <$> _dkCreationTime,
("keyTag" .=) <$> _dkKeyTag,
Just ("kind" .= _dkKind),
("digests" .=) <$> _dkDigests,
("publicKey" .=) <$> _dkPublicKey,
("algorithm" .=) <$> _dkAlgorithm,
("id" .=) <$> _dkId, ("type" .=) <$> _dkType,
("keyLength" .=) <$> _dkKeyLength,
("isActive" .=) <$> _dkIsActive,
("description" .=) <$> _dkDescription])
data OperationManagedZoneContext = OperationManagedZoneContext'
{ _omzcOldValue :: !(Maybe ManagedZone)
, _omzcNewValue :: !(Maybe ManagedZone)
} deriving (Eq,Show,Data,Typeable,Generic)
operationManagedZoneContext
:: OperationManagedZoneContext
operationManagedZoneContext =
OperationManagedZoneContext'
{ _omzcOldValue = Nothing
, _omzcNewValue = Nothing
}
omzcOldValue :: Lens' OperationManagedZoneContext (Maybe ManagedZone)
omzcOldValue
= lens _omzcOldValue (\ s a -> s{_omzcOldValue = a})
omzcNewValue :: Lens' OperationManagedZoneContext (Maybe ManagedZone)
omzcNewValue
= lens _omzcNewValue (\ s a -> s{_omzcNewValue = a})
instance FromJSON OperationManagedZoneContext where
parseJSON
= withObject "OperationManagedZoneContext"
(\ o ->
OperationManagedZoneContext' <$>
(o .:? "oldValue") <*> (o .:? "newValue"))
instance ToJSON OperationManagedZoneContext where
toJSON OperationManagedZoneContext'{..}
= object
(catMaybes
[("oldValue" .=) <$> _omzcOldValue,
("newValue" .=) <$> _omzcNewValue])
newtype ResponseHeader = ResponseHeader'
{ _rhOperationId :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
responseHeader
:: ResponseHeader
responseHeader =
ResponseHeader'
{ _rhOperationId = Nothing
}
rhOperationId :: Lens' ResponseHeader (Maybe Text)
rhOperationId
= lens _rhOperationId
(\ s a -> s{_rhOperationId = a})
instance FromJSON ResponseHeader where
parseJSON
= withObject "ResponseHeader"
(\ o -> ResponseHeader' <$> (o .:? "operationId"))
instance ToJSON ResponseHeader where
toJSON ResponseHeader'{..}
= object
(catMaybes [("operationId" .=) <$> _rhOperationId])
data ManagedZoneOperationsListResponse = ManagedZoneOperationsListResponse'
{ _mzolrNextPageToken :: !(Maybe Text)
, _mzolrKind :: !Text
, _mzolrHeader :: !(Maybe ResponseHeader)
, _mzolrOperations :: !(Maybe [Operation])
} deriving (Eq,Show,Data,Typeable,Generic)
managedZoneOperationsListResponse
:: ManagedZoneOperationsListResponse
managedZoneOperationsListResponse =
ManagedZoneOperationsListResponse'
{ _mzolrNextPageToken = Nothing
, _mzolrKind = "dns#managedZoneOperationsListResponse"
, _mzolrHeader = Nothing
, _mzolrOperations = Nothing
}
mzolrNextPageToken :: Lens' ManagedZoneOperationsListResponse (Maybe Text)
mzolrNextPageToken
= lens _mzolrNextPageToken
(\ s a -> s{_mzolrNextPageToken = a})
mzolrKind :: Lens' ManagedZoneOperationsListResponse Text
mzolrKind
= lens _mzolrKind (\ s a -> s{_mzolrKind = a})
mzolrHeader :: Lens' ManagedZoneOperationsListResponse (Maybe ResponseHeader)
mzolrHeader
= lens _mzolrHeader (\ s a -> s{_mzolrHeader = a})
mzolrOperations :: Lens' ManagedZoneOperationsListResponse [Operation]
mzolrOperations
= lens _mzolrOperations
(\ s a -> s{_mzolrOperations = a})
. _Default
. _Coerce
instance FromJSON ManagedZoneOperationsListResponse
where
parseJSON
= withObject "ManagedZoneOperationsListResponse"
(\ o ->
ManagedZoneOperationsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"dns#managedZoneOperationsListResponse")
<*> (o .:? "header")
<*> (o .:? "operations" .!= mempty))
instance ToJSON ManagedZoneOperationsListResponse
where
toJSON ManagedZoneOperationsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _mzolrNextPageToken,
Just ("kind" .= _mzolrKind),
("header" .=) <$> _mzolrHeader,
("operations" .=) <$> _mzolrOperations])
data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse'
{ _rrslrNextPageToken :: !(Maybe Text)
, _rrslrKind :: !Text
, _rrslrHeader :: !(Maybe ResponseHeader)
, _rrslrRrSets :: !(Maybe [ResourceRecordSet])
} deriving (Eq,Show,Data,Typeable,Generic)
resourceRecordSetsListResponse
:: ResourceRecordSetsListResponse
resourceRecordSetsListResponse =
ResourceRecordSetsListResponse'
{ _rrslrNextPageToken = Nothing
, _rrslrKind = "dns#resourceRecordSetsListResponse"
, _rrslrHeader = Nothing
, _rrslrRrSets = Nothing
}
rrslrNextPageToken :: Lens' ResourceRecordSetsListResponse (Maybe Text)
rrslrNextPageToken
= lens _rrslrNextPageToken
(\ s a -> s{_rrslrNextPageToken = a})
rrslrKind :: Lens' ResourceRecordSetsListResponse Text
rrslrKind
= lens _rrslrKind (\ s a -> s{_rrslrKind = a})
rrslrHeader :: Lens' ResourceRecordSetsListResponse (Maybe ResponseHeader)
rrslrHeader
= lens _rrslrHeader (\ s a -> s{_rrslrHeader = a})
rrslrRrSets :: Lens' ResourceRecordSetsListResponse [ResourceRecordSet]
rrslrRrSets
= lens _rrslrRrSets (\ s a -> s{_rrslrRrSets = a}) .
_Default
. _Coerce
instance FromJSON ResourceRecordSetsListResponse
where
parseJSON
= withObject "ResourceRecordSetsListResponse"
(\ o ->
ResourceRecordSetsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"dns#resourceRecordSetsListResponse")
<*> (o .:? "header")
<*> (o .:? "rrsets" .!= mempty))
instance ToJSON ResourceRecordSetsListResponse where
toJSON ResourceRecordSetsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _rrslrNextPageToken,
Just ("kind" .= _rrslrKind),
("header" .=) <$> _rrslrHeader,
("rrsets" .=) <$> _rrslrRrSets])
data ManagedZoneDNSSecConfig = ManagedZoneDNSSecConfig'
{ _mzdscState :: !(Maybe ManagedZoneDNSSecConfigState)
, _mzdscKind :: !Text
, _mzdscDefaultKeySpecs :: !(Maybe [DNSKeySpec])
, _mzdscNonExistence :: !(Maybe ManagedZoneDNSSecConfigNonExistence)
} deriving (Eq,Show,Data,Typeable,Generic)
managedZoneDNSSecConfig
:: ManagedZoneDNSSecConfig
managedZoneDNSSecConfig =
ManagedZoneDNSSecConfig'
{ _mzdscState = Nothing
, _mzdscKind = "dns#managedZoneDnsSecConfig"
, _mzdscDefaultKeySpecs = Nothing
, _mzdscNonExistence = Nothing
}
mzdscState :: Lens' ManagedZoneDNSSecConfig (Maybe ManagedZoneDNSSecConfigState)
mzdscState
= lens _mzdscState (\ s a -> s{_mzdscState = a})
mzdscKind :: Lens' ManagedZoneDNSSecConfig Text
mzdscKind
= lens _mzdscKind (\ s a -> s{_mzdscKind = a})
mzdscDefaultKeySpecs :: Lens' ManagedZoneDNSSecConfig [DNSKeySpec]
mzdscDefaultKeySpecs
= lens _mzdscDefaultKeySpecs
(\ s a -> s{_mzdscDefaultKeySpecs = a})
. _Default
. _Coerce
mzdscNonExistence :: Lens' ManagedZoneDNSSecConfig (Maybe ManagedZoneDNSSecConfigNonExistence)
mzdscNonExistence
= lens _mzdscNonExistence
(\ s a -> s{_mzdscNonExistence = a})
instance FromJSON ManagedZoneDNSSecConfig where
parseJSON
= withObject "ManagedZoneDNSSecConfig"
(\ o ->
ManagedZoneDNSSecConfig' <$>
(o .:? "state") <*>
(o .:? "kind" .!= "dns#managedZoneDnsSecConfig")
<*> (o .:? "defaultKeySpecs" .!= mempty)
<*> (o .:? "nonExistence"))
instance ToJSON ManagedZoneDNSSecConfig where
toJSON ManagedZoneDNSSecConfig'{..}
= object
(catMaybes
[("state" .=) <$> _mzdscState,
Just ("kind" .= _mzdscKind),
("defaultKeySpecs" .=) <$> _mzdscDefaultKeySpecs,
("nonExistence" .=) <$> _mzdscNonExistence])
data ResourceRecordSet = ResourceRecordSet'
{ _rrsTtl :: !(Maybe (Textual Int32))
, _rrsKind :: !Text
, _rrsSignatureRrDatas :: !(Maybe [Text])
, _rrsName :: !(Maybe Text)
, _rrsType :: !(Maybe Text)
, _rrsRrDatas :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
resourceRecordSet
:: ResourceRecordSet
resourceRecordSet =
ResourceRecordSet'
{ _rrsTtl = Nothing
, _rrsKind = "dns#resourceRecordSet"
, _rrsSignatureRrDatas = Nothing
, _rrsName = Nothing
, _rrsType = Nothing
, _rrsRrDatas = Nothing
}
rrsTtl :: Lens' ResourceRecordSet (Maybe Int32)
rrsTtl
= lens _rrsTtl (\ s a -> s{_rrsTtl = a}) .
mapping _Coerce
rrsKind :: Lens' ResourceRecordSet Text
rrsKind = lens _rrsKind (\ s a -> s{_rrsKind = a})
rrsSignatureRrDatas :: Lens' ResourceRecordSet [Text]
rrsSignatureRrDatas
= lens _rrsSignatureRrDatas
(\ s a -> s{_rrsSignatureRrDatas = a})
. _Default
. _Coerce
rrsName :: Lens' ResourceRecordSet (Maybe Text)
rrsName = lens _rrsName (\ s a -> s{_rrsName = a})
rrsType :: Lens' ResourceRecordSet (Maybe Text)
rrsType = lens _rrsType (\ s a -> s{_rrsType = a})
rrsRrDatas :: Lens' ResourceRecordSet [Text]
rrsRrDatas
= lens _rrsRrDatas (\ s a -> s{_rrsRrDatas = a}) .
_Default
. _Coerce
instance FromJSON ResourceRecordSet where
parseJSON
= withObject "ResourceRecordSet"
(\ o ->
ResourceRecordSet' <$>
(o .:? "ttl") <*>
(o .:? "kind" .!= "dns#resourceRecordSet")
<*> (o .:? "signatureRrdatas" .!= mempty)
<*> (o .:? "name")
<*> (o .:? "type")
<*> (o .:? "rrdatas" .!= mempty))
instance ToJSON ResourceRecordSet where
toJSON ResourceRecordSet'{..}
= object
(catMaybes
[("ttl" .=) <$> _rrsTtl, Just ("kind" .= _rrsKind),
("signatureRrdatas" .=) <$> _rrsSignatureRrDatas,
("name" .=) <$> _rrsName, ("type" .=) <$> _rrsType,
("rrdatas" .=) <$> _rrsRrDatas])
data ManagedZone = ManagedZone'
{ _mzCreationTime :: !(Maybe Text)
, _mzKind :: !Text
, _mzNameServerSet :: !(Maybe Text)
, _mzName :: !(Maybe Text)
, _mzId :: !(Maybe (Textual Word64))
, _mzLabels :: !(Maybe ManagedZoneLabels)
, _mzDNSName :: !(Maybe Text)
, _mzDescription :: !(Maybe Text)
, _mzDNSsecConfig :: !(Maybe ManagedZoneDNSSecConfig)
, _mzNameServers :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
managedZone
:: ManagedZone
managedZone =
ManagedZone'
{ _mzCreationTime = Nothing
, _mzKind = "dns#managedZone"
, _mzNameServerSet = Nothing
, _mzName = Nothing
, _mzId = Nothing
, _mzLabels = Nothing
, _mzDNSName = Nothing
, _mzDescription = Nothing
, _mzDNSsecConfig = Nothing
, _mzNameServers = Nothing
}
mzCreationTime :: Lens' ManagedZone (Maybe Text)
mzCreationTime
= lens _mzCreationTime
(\ s a -> s{_mzCreationTime = a})
mzKind :: Lens' ManagedZone Text
mzKind = lens _mzKind (\ s a -> s{_mzKind = a})
mzNameServerSet :: Lens' ManagedZone (Maybe Text)
mzNameServerSet
= lens _mzNameServerSet
(\ s a -> s{_mzNameServerSet = a})
mzName :: Lens' ManagedZone (Maybe Text)
mzName = lens _mzName (\ s a -> s{_mzName = a})
mzId :: Lens' ManagedZone (Maybe Word64)
mzId
= lens _mzId (\ s a -> s{_mzId = a}) .
mapping _Coerce
mzLabels :: Lens' ManagedZone (Maybe ManagedZoneLabels)
mzLabels = lens _mzLabels (\ s a -> s{_mzLabels = a})
mzDNSName :: Lens' ManagedZone (Maybe Text)
mzDNSName
= lens _mzDNSName (\ s a -> s{_mzDNSName = a})
mzDescription :: Lens' ManagedZone (Maybe Text)
mzDescription
= lens _mzDescription
(\ s a -> s{_mzDescription = a})
mzDNSsecConfig :: Lens' ManagedZone (Maybe ManagedZoneDNSSecConfig)
mzDNSsecConfig
= lens _mzDNSsecConfig
(\ s a -> s{_mzDNSsecConfig = a})
mzNameServers :: Lens' ManagedZone [Text]
mzNameServers
= lens _mzNameServers
(\ s a -> s{_mzNameServers = a})
. _Default
. _Coerce
instance FromJSON ManagedZone where
parseJSON
= withObject "ManagedZone"
(\ o ->
ManagedZone' <$>
(o .:? "creationTime") <*>
(o .:? "kind" .!= "dns#managedZone")
<*> (o .:? "nameServerSet")
<*> (o .:? "name")
<*> (o .:? "id")
<*> (o .:? "labels")
<*> (o .:? "dnsName")
<*> (o .:? "description")
<*> (o .:? "dnssecConfig")
<*> (o .:? "nameServers" .!= mempty))
instance ToJSON ManagedZone where
toJSON ManagedZone'{..}
= object
(catMaybes
[("creationTime" .=) <$> _mzCreationTime,
Just ("kind" .= _mzKind),
("nameServerSet" .=) <$> _mzNameServerSet,
("name" .=) <$> _mzName, ("id" .=) <$> _mzId,
("labels" .=) <$> _mzLabels,
("dnsName" .=) <$> _mzDNSName,
("description" .=) <$> _mzDescription,
("dnssecConfig" .=) <$> _mzDNSsecConfig,
("nameServers" .=) <$> _mzNameServers])
newtype ManagedZoneLabels = ManagedZoneLabels'
{ _mzlAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
managedZoneLabels
:: HashMap Text Text
-> ManagedZoneLabels
managedZoneLabels pMzlAddtional_ =
ManagedZoneLabels'
{ _mzlAddtional = _Coerce # pMzlAddtional_
}
mzlAddtional :: Lens' ManagedZoneLabels (HashMap Text Text)
mzlAddtional
= lens _mzlAddtional (\ s a -> s{_mzlAddtional = a})
. _Coerce
instance FromJSON ManagedZoneLabels where
parseJSON
= withObject "ManagedZoneLabels"
(\ o -> ManagedZoneLabels' <$> (parseJSONObject o))
instance ToJSON ManagedZoneLabels where
toJSON = toJSON . _mzlAddtional
data Quota = Quota'
{ _qRrSetDeletionsPerChange :: !(Maybe (Textual Int32))
, _qWhiteListedKeySpecs :: !(Maybe [DNSKeySpec])
, _qRrSetsPerManagedZone :: !(Maybe (Textual Int32))
, _qKind :: !Text
, _qResourceRecordsPerRrSet :: !(Maybe (Textual Int32))
, _qRrSetAdditionsPerChange :: !(Maybe (Textual Int32))
, _qManagedZones :: !(Maybe (Textual Int32))
, _qTotalRrDataSizePerChange :: !(Maybe (Textual Int32))
, _qDNSKeysPerManagedZone :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
quota
:: Quota
quota =
Quota'
{ _qRrSetDeletionsPerChange = Nothing
, _qWhiteListedKeySpecs = Nothing
, _qRrSetsPerManagedZone = Nothing
, _qKind = "dns#quota"
, _qResourceRecordsPerRrSet = Nothing
, _qRrSetAdditionsPerChange = Nothing
, _qManagedZones = Nothing
, _qTotalRrDataSizePerChange = Nothing
, _qDNSKeysPerManagedZone = Nothing
}
qRrSetDeletionsPerChange :: Lens' Quota (Maybe Int32)
qRrSetDeletionsPerChange
= lens _qRrSetDeletionsPerChange
(\ s a -> s{_qRrSetDeletionsPerChange = a})
. mapping _Coerce
qWhiteListedKeySpecs :: Lens' Quota [DNSKeySpec]
qWhiteListedKeySpecs
= lens _qWhiteListedKeySpecs
(\ s a -> s{_qWhiteListedKeySpecs = a})
. _Default
. _Coerce
qRrSetsPerManagedZone :: Lens' Quota (Maybe Int32)
qRrSetsPerManagedZone
= lens _qRrSetsPerManagedZone
(\ s a -> s{_qRrSetsPerManagedZone = a})
. mapping _Coerce
qKind :: Lens' Quota Text
qKind = lens _qKind (\ s a -> s{_qKind = a})
qResourceRecordsPerRrSet :: Lens' Quota (Maybe Int32)
qResourceRecordsPerRrSet
= lens _qResourceRecordsPerRrSet
(\ s a -> s{_qResourceRecordsPerRrSet = a})
. mapping _Coerce
qRrSetAdditionsPerChange :: Lens' Quota (Maybe Int32)
qRrSetAdditionsPerChange
= lens _qRrSetAdditionsPerChange
(\ s a -> s{_qRrSetAdditionsPerChange = a})
. mapping _Coerce
qManagedZones :: Lens' Quota (Maybe Int32)
qManagedZones
= lens _qManagedZones
(\ s a -> s{_qManagedZones = a})
. mapping _Coerce
qTotalRrDataSizePerChange :: Lens' Quota (Maybe Int32)
qTotalRrDataSizePerChange
= lens _qTotalRrDataSizePerChange
(\ s a -> s{_qTotalRrDataSizePerChange = a})
. mapping _Coerce
qDNSKeysPerManagedZone :: Lens' Quota (Maybe Int32)
qDNSKeysPerManagedZone
= lens _qDNSKeysPerManagedZone
(\ s a -> s{_qDNSKeysPerManagedZone = a})
. mapping _Coerce
instance FromJSON Quota where
parseJSON
= withObject "Quota"
(\ o ->
Quota' <$>
(o .:? "rrsetDeletionsPerChange") <*>
(o .:? "whitelistedKeySpecs" .!= mempty)
<*> (o .:? "rrsetsPerManagedZone")
<*> (o .:? "kind" .!= "dns#quota")
<*> (o .:? "resourceRecordsPerRrset")
<*> (o .:? "rrsetAdditionsPerChange")
<*> (o .:? "managedZones")
<*> (o .:? "totalRrdataSizePerChange")
<*> (o .:? "dnsKeysPerManagedZone"))
instance ToJSON Quota where
toJSON Quota'{..}
= object
(catMaybes
[("rrsetDeletionsPerChange" .=) <$>
_qRrSetDeletionsPerChange,
("whitelistedKeySpecs" .=) <$> _qWhiteListedKeySpecs,
("rrsetsPerManagedZone" .=) <$>
_qRrSetsPerManagedZone,
Just ("kind" .= _qKind),
("resourceRecordsPerRrset" .=) <$>
_qResourceRecordsPerRrSet,
("rrsetAdditionsPerChange" .=) <$>
_qRrSetAdditionsPerChange,
("managedZones" .=) <$> _qManagedZones,
("totalRrdataSizePerChange" .=) <$>
_qTotalRrDataSizePerChange,
("dnsKeysPerManagedZone" .=) <$>
_qDNSKeysPerManagedZone])
data DNSKeyDigest = DNSKeyDigest'
{ _dkdDigest :: !(Maybe Text)
, _dkdType :: !(Maybe DNSKeyDigestType)
} deriving (Eq,Show,Data,Typeable,Generic)
dnsKeyDigest
:: DNSKeyDigest
dnsKeyDigest =
DNSKeyDigest'
{ _dkdDigest = Nothing
, _dkdType = Nothing
}
dkdDigest :: Lens' DNSKeyDigest (Maybe Text)
dkdDigest
= lens _dkdDigest (\ s a -> s{_dkdDigest = a})
dkdType :: Lens' DNSKeyDigest (Maybe DNSKeyDigestType)
dkdType = lens _dkdType (\ s a -> s{_dkdType = a})
instance FromJSON DNSKeyDigest where
parseJSON
= withObject "DNSKeyDigest"
(\ o ->
DNSKeyDigest' <$>
(o .:? "digest") <*> (o .:? "type"))
instance ToJSON DNSKeyDigest where
toJSON DNSKeyDigest'{..}
= object
(catMaybes
[("digest" .=) <$> _dkdDigest,
("type" .=) <$> _dkdType])
data ManagedZonesListResponse = ManagedZonesListResponse'
{ _mzlrNextPageToken :: !(Maybe Text)
, _mzlrKind :: !Text
, _mzlrHeader :: !(Maybe ResponseHeader)
, _mzlrManagedZones :: !(Maybe [ManagedZone])
} deriving (Eq,Show,Data,Typeable,Generic)
managedZonesListResponse
:: ManagedZonesListResponse
managedZonesListResponse =
ManagedZonesListResponse'
{ _mzlrNextPageToken = Nothing
, _mzlrKind = "dns#managedZonesListResponse"
, _mzlrHeader = Nothing
, _mzlrManagedZones = Nothing
}
mzlrNextPageToken :: Lens' ManagedZonesListResponse (Maybe Text)
mzlrNextPageToken
= lens _mzlrNextPageToken
(\ s a -> s{_mzlrNextPageToken = a})
mzlrKind :: Lens' ManagedZonesListResponse Text
mzlrKind = lens _mzlrKind (\ s a -> s{_mzlrKind = a})
mzlrHeader :: Lens' ManagedZonesListResponse (Maybe ResponseHeader)
mzlrHeader
= lens _mzlrHeader (\ s a -> s{_mzlrHeader = a})
mzlrManagedZones :: Lens' ManagedZonesListResponse [ManagedZone]
mzlrManagedZones
= lens _mzlrManagedZones
(\ s a -> s{_mzlrManagedZones = a})
. _Default
. _Coerce
instance FromJSON ManagedZonesListResponse where
parseJSON
= withObject "ManagedZonesListResponse"
(\ o ->
ManagedZonesListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "dns#managedZonesListResponse")
<*> (o .:? "header")
<*> (o .:? "managedZones" .!= mempty))
instance ToJSON ManagedZonesListResponse where
toJSON ManagedZonesListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _mzlrNextPageToken,
Just ("kind" .= _mzlrKind),
("header" .=) <$> _mzlrHeader,
("managedZones" .=) <$> _mzlrManagedZones])