module Network.Google.DNS.Types.Product where
import Network.Google.DNS.Types.Sum
import Network.Google.Prelude
data ChangesListResponse = ChangesListResponse'
{ _clrNextPageToken :: !(Maybe Text)
, _clrChanges :: !(Maybe [Change])
, _clrKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
changesListResponse
:: ChangesListResponse
changesListResponse =
ChangesListResponse'
{ _clrNextPageToken = Nothing
, _clrChanges = Nothing
, _clrKind = "dns#changesListResponse"
}
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})
instance FromJSON ChangesListResponse where
parseJSON
= withObject "ChangesListResponse"
(\ o ->
ChangesListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "changes" .!= mempty)
<*> (o .:? "kind" .!= "dns#changesListResponse"))
instance ToJSON ChangesListResponse where
toJSON ChangesListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _clrNextPageToken,
("changes" .=) <$> _clrChanges,
Just ("kind" .= _clrKind)])
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 Change = Change'
{ _cStatus :: !(Maybe ChangeStatus)
, _cAdditions :: !(Maybe [ResourceRecordSet])
, _cStartTime :: !(Maybe Text)
, _cKind :: !Text
, _cDeletions :: !(Maybe [ResourceRecordSet])
, _cId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
change
:: Change
change =
Change'
{ _cStatus = Nothing
, _cAdditions = Nothing
, _cStartTime = Nothing
, _cKind = "dns#change"
, _cDeletions = Nothing
, _cId = 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})
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"))
instance ToJSON Change where
toJSON Change'{..}
= object
(catMaybes
[("status" .=) <$> _cStatus,
("additions" .=) <$> _cAdditions,
("startTime" .=) <$> _cStartTime,
Just ("kind" .= _cKind),
("deletions" .=) <$> _cDeletions,
("id" .=) <$> _cId])
data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse'
{ _rrslrNextPageToken :: !(Maybe Text)
, _rrslrKind :: !Text
, _rrslrRrSets :: !(Maybe [ResourceRecordSet])
} deriving (Eq,Show,Data,Typeable,Generic)
resourceRecordSetsListResponse
:: ResourceRecordSetsListResponse
resourceRecordSetsListResponse =
ResourceRecordSetsListResponse'
{ _rrslrNextPageToken = Nothing
, _rrslrKind = "dns#resourceRecordSetsListResponse"
, _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})
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 .:? "rrsets" .!= mempty))
instance ToJSON ResourceRecordSetsListResponse where
toJSON ResourceRecordSetsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _rrslrNextPageToken,
Just ("kind" .= _rrslrKind),
("rrsets" .=) <$> _rrslrRrSets])
data ResourceRecordSet = ResourceRecordSet'
{ _rrsTtl :: !(Maybe (Textual Int32))
, _rrsKind :: !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"
, _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})
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 .:? "name")
<*> (o .:? "type")
<*> (o .:? "rrdatas" .!= mempty))
instance ToJSON ResourceRecordSet where
toJSON ResourceRecordSet'{..}
= object
(catMaybes
[("ttl" .=) <$> _rrsTtl, Just ("kind" .= _rrsKind),
("name" .=) <$> _rrsName, ("type" .=) <$> _rrsType,
("rrdatas" .=) <$> _rrsRrDatas])
data ManagedZone = ManagedZone'
{ _mzCreationTime :: !(Maybe Text)
, _mzKind :: !Text
, _mzNameServerSet :: !(Maybe Text)
, _mzName :: !(Maybe Text)
, _mzId :: !(Maybe (Textual Word64))
, _mzDNSName :: !(Maybe Text)
, _mzDescription :: !(Maybe Text)
, _mzNameServers :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
managedZone
:: ManagedZone
managedZone =
ManagedZone'
{ _mzCreationTime = Nothing
, _mzKind = "dns#managedZone"
, _mzNameServerSet = Nothing
, _mzName = Nothing
, _mzId = Nothing
, _mzDNSName = Nothing
, _mzDescription = 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
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})
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 .:? "dnsName")
<*> (o .:? "description")
<*> (o .:? "nameServers" .!= mempty))
instance ToJSON ManagedZone where
toJSON ManagedZone'{..}
= object
(catMaybes
[("creationTime" .=) <$> _mzCreationTime,
Just ("kind" .= _mzKind),
("nameServerSet" .=) <$> _mzNameServerSet,
("name" .=) <$> _mzName, ("id" .=) <$> _mzId,
("dnsName" .=) <$> _mzDNSName,
("description" .=) <$> _mzDescription,
("nameServers" .=) <$> _mzNameServers])
data Quota = Quota'
{ _qRrSetDeletionsPerChange :: !(Maybe (Textual Int32))
, _qRrSetsPerManagedZone :: !(Maybe (Textual Int32))
, _qKind :: !Text
, _qResourceRecordsPerRrSet :: !(Maybe (Textual Int32))
, _qRrSetAdditionsPerChange :: !(Maybe (Textual Int32))
, _qManagedZones :: !(Maybe (Textual Int32))
, _qTotalRrDataSizePerChange :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
quota
:: Quota
quota =
Quota'
{ _qRrSetDeletionsPerChange = Nothing
, _qRrSetsPerManagedZone = Nothing
, _qKind = "dns#quota"
, _qResourceRecordsPerRrSet = Nothing
, _qRrSetAdditionsPerChange = Nothing
, _qManagedZones = Nothing
, _qTotalRrDataSizePerChange = Nothing
}
qRrSetDeletionsPerChange :: Lens' Quota (Maybe Int32)
qRrSetDeletionsPerChange
= lens _qRrSetDeletionsPerChange
(\ s a -> s{_qRrSetDeletionsPerChange = a})
. mapping _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
instance FromJSON Quota where
parseJSON
= withObject "Quota"
(\ o ->
Quota' <$>
(o .:? "rrsetDeletionsPerChange") <*>
(o .:? "rrsetsPerManagedZone")
<*> (o .:? "kind" .!= "dns#quota")
<*> (o .:? "resourceRecordsPerRrset")
<*> (o .:? "rrsetAdditionsPerChange")
<*> (o .:? "managedZones")
<*> (o .:? "totalRrdataSizePerChange"))
instance ToJSON Quota where
toJSON Quota'{..}
= object
(catMaybes
[("rrsetDeletionsPerChange" .=) <$>
_qRrSetDeletionsPerChange,
("rrsetsPerManagedZone" .=) <$>
_qRrSetsPerManagedZone,
Just ("kind" .= _qKind),
("resourceRecordsPerRrset" .=) <$>
_qResourceRecordsPerRrSet,
("rrsetAdditionsPerChange" .=) <$>
_qRrSetAdditionsPerChange,
("managedZones" .=) <$> _qManagedZones,
("totalRrdataSizePerChange" .=) <$>
_qTotalRrDataSizePerChange])
data ManagedZonesListResponse = ManagedZonesListResponse'
{ _mzlrNextPageToken :: !(Maybe Text)
, _mzlrKind :: !Text
, _mzlrManagedZones :: !(Maybe [ManagedZone])
} deriving (Eq,Show,Data,Typeable,Generic)
managedZonesListResponse
:: ManagedZonesListResponse
managedZonesListResponse =
ManagedZonesListResponse'
{ _mzlrNextPageToken = Nothing
, _mzlrKind = "dns#managedZonesListResponse"
, _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})
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 .:? "managedZones" .!= mempty))
instance ToJSON ManagedZonesListResponse where
toJSON ManagedZonesListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _mzlrNextPageToken,
Just ("kind" .= _mzlrKind),
("managedZones" .=) <$> _mzlrManagedZones])