gogol-dns 0.4.0 → 0.5.0

raw patch · 21 files changed

+534/−159 lines, 21 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/DNS.hs +19/−0
• gen/Network/Google/DNS/Types.hs +23/−4
• gen/Network/Google/DNS/Types/Product.hs +345/−97
• gen/Network/Google/DNS/Types/Sum.hs +39/−7
• gen/Network/Google/Resource/DNS/Changes/Create.hs +7/−3
• gen/Network/Google/Resource/DNS/Changes/Get.hs +7/−3
• gen/Network/Google/Resource/DNS/Changes/List.hs +7/−3
• gen/Network/Google/Resource/DNS/DNSKeys/Get.hs +7/−3
• gen/Network/Google/Resource/DNS/DNSKeys/List.hs +7/−3
• gen/Network/Google/Resource/DNS/ManagedZoneOperations/Get.hs +7/−3
• gen/Network/Google/Resource/DNS/ManagedZoneOperations/List.hs +7/−3
• gen/Network/Google/Resource/DNS/ManagedZones/Create.hs +7/−3
• gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs +7/−3
• gen/Network/Google/Resource/DNS/ManagedZones/Get.hs +7/−3
• gen/Network/Google/Resource/DNS/ManagedZones/List.hs +7/−3
• gen/Network/Google/Resource/DNS/ManagedZones/Patch.hs +7/−3
• gen/Network/Google/Resource/DNS/ManagedZones/Update.hs +7/−3
• gen/Network/Google/Resource/DNS/Projects/Get.hs +7/−6
• gen/Network/Google/Resource/DNS/ResourceRecordSets/List.hs +7/−3
• gogol-dns.cabal +2/−2

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -91,6 +91,12 @@     , odkcOldValue     , odkcNewValue +    -- ** ManagedZonePrivateVisibilityConfigNetwork+    , ManagedZonePrivateVisibilityConfigNetwork+    , managedZonePrivateVisibilityConfigNetwork+    , mzpvcnKind+    , mzpvcnNetworkURL+     -- ** DNSKeysListResponse     , DNSKeysListResponse     , dnsKeysListResponse@@ -110,6 +116,9 @@     -- ** ManagedZoneDNSSecConfigState     , ManagedZoneDNSSecConfigState (..) +    -- ** ManagedZoneVisibility+    , ManagedZoneVisibility (..)+     -- ** Project     , Project     , project@@ -209,6 +218,12 @@     -- ** ChangeStatus     , ChangeStatus (..) +    -- ** ManagedZonePrivateVisibilityConfig+    , ManagedZonePrivateVisibilityConfig+    , managedZonePrivateVisibilityConfig+    , mzpvcNetworks+    , mzpvcKind+     -- ** ManagedZoneDNSSecConfig     , ManagedZoneDNSSecConfig     , managedZoneDNSSecConfig@@ -233,6 +248,7 @@     , mzCreationTime     , mzKind     , mzNameServerSet+    , mzVisibility     , mzName     , mzId     , mzLabels@@ -240,6 +256,7 @@     , mzDescription     , mzDNSsecConfig     , mzNameServers+    , mzPrivateVisibilityConfig      -- ** ManagedZoneLabels     , ManagedZoneLabels@@ -254,10 +271,12 @@     , qRrSetsPerManagedZone     , qKind     , qResourceRecordsPerRrSet+    , qManagedZonesPerNetwork     , qRrSetAdditionsPerChange     , qManagedZones     , qTotalRrDataSizePerChange     , qDNSKeysPerManagedZone+    , qNetworksPerManagedZone      -- ** DNSKeyType     , DNSKeyType (..)

@@ -37,6 +37,12 @@     , odkcOldValue     , odkcNewValue +    -- * ManagedZonePrivateVisibilityConfigNetwork+    , ManagedZonePrivateVisibilityConfigNetwork+    , managedZonePrivateVisibilityConfigNetwork+    , mzpvcnKind+    , mzpvcnNetworkURL+     -- * DNSKeysListResponse     , DNSKeysListResponse     , dnsKeysListResponse@@ -56,6 +62,9 @@     -- * ManagedZoneDNSSecConfigState     , ManagedZoneDNSSecConfigState (..) +    -- * ManagedZoneVisibility+    , ManagedZoneVisibility (..)+     -- * Project     , Project     , project@@ -155,6 +164,12 @@     -- * ChangeStatus     , ChangeStatus (..) +    -- * ManagedZonePrivateVisibilityConfig+    , ManagedZonePrivateVisibilityConfig+    , managedZonePrivateVisibilityConfig+    , mzpvcNetworks+    , mzpvcKind+     -- * ManagedZoneDNSSecConfig     , ManagedZoneDNSSecConfig     , managedZoneDNSSecConfig@@ -179,6 +194,7 @@     , mzCreationTime     , mzKind     , mzNameServerSet+    , mzVisibility     , mzName     , mzId     , mzLabels@@ -186,6 +202,7 @@     , mzDescription     , mzDNSsecConfig     , mzNameServers+    , mzPrivateVisibilityConfig      -- * ManagedZoneLabels     , ManagedZoneLabels@@ -200,10 +217,12 @@     , qRrSetsPerManagedZone     , qKind     , qResourceRecordsPerRrSet+    , qManagedZonesPerNetwork     , qRrSetAdditionsPerChange     , qManagedZones     , qTotalRrDataSizePerChange     , qDNSKeysPerManagedZone+    , qNetworksPerManagedZone      -- * DNSKeyType     , DNSKeyType (..)@@ -238,16 +257,16 @@  -- | View your DNS records hosted by Google Cloud DNS ndevClouddnsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/ndev.clouddns.readonly"]-ndevClouddnsReadOnlyScope = Proxy;+ndevClouddnsReadOnlyScope = Proxy  -- | View your data across Google Cloud Platform services cloudPlatformReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform.read-only"]-cloudPlatformReadOnlyScope = Proxy;+cloudPlatformReadOnlyScope = Proxy  -- | View and manage your DNS records hosted by Google Cloud DNS ndevClouddnsReadwriteScope :: Proxy '["https://www.googleapis.com/auth/ndev.clouddns.readwrite"]-ndevClouddnsReadwriteScope = Proxy;+ndevClouddnsReadwriteScope = Proxy  -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy;+cloudPlatformScope = Proxy

@@ -22,11 +22,14 @@  -- -- /See:/ 'operationDNSKeyContext' smart constructor.-data OperationDNSKeyContext = OperationDNSKeyContext'+data OperationDNSKeyContext =+  OperationDNSKeyContext'     { _odkcOldValue :: !(Maybe DNSKey)     , _odkcNewValue :: !(Maybe DNSKey)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationDNSKeyContext' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -37,11 +40,9 @@ operationDNSKeyContext     :: OperationDNSKeyContext operationDNSKeyContext =-    OperationDNSKeyContext'-    { _odkcOldValue = Nothing-    , _odkcNewValue = Nothing-    }+  OperationDNSKeyContext' {_odkcOldValue = Nothing, _odkcNewValue = Nothing} + -- | The pre-operation DnsKey resource. odkcOldValue :: Lens' OperationDNSKeyContext (Maybe DNSKey) odkcOldValue@@ -66,16 +67,80 @@                  [("oldValue" .=) <$> _odkcOldValue,                   ("newValue" .=) <$> _odkcNewValue]) +--+-- /See:/ 'managedZonePrivateVisibilityConfigNetwork' smart constructor.+data ManagedZonePrivateVisibilityConfigNetwork =+  ManagedZonePrivateVisibilityConfigNetwork'+    { _mzpvcnKind       :: !Text+    , _mzpvcnNetworkURL :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ManagedZonePrivateVisibilityConfigNetwork' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mzpvcnKind'+--+-- * 'mzpvcnNetworkURL'+managedZonePrivateVisibilityConfigNetwork+    :: ManagedZonePrivateVisibilityConfigNetwork+managedZonePrivateVisibilityConfigNetwork =+  ManagedZonePrivateVisibilityConfigNetwork'+    { _mzpvcnKind = "dns#managedZonePrivateVisibilityConfigNetwork"+    , _mzpvcnNetworkURL = Nothing+    }+++-- | Identifies what kind of resource this is. Value: the fixed string+-- \"dns#managedZonePrivateVisibilityConfigNetwork\".+mzpvcnKind :: Lens' ManagedZonePrivateVisibilityConfigNetwork Text+mzpvcnKind+  = lens _mzpvcnKind (\ s a -> s{_mzpvcnKind = a})++-- | The fully qualified URL of the VPC network to bind to. This should be+-- formatted like+-- https:\/\/www.googleapis.com\/compute\/v1\/projects\/{project}\/global\/networks\/{network}+mzpvcnNetworkURL :: Lens' ManagedZonePrivateVisibilityConfigNetwork (Maybe Text)+mzpvcnNetworkURL+  = lens _mzpvcnNetworkURL+      (\ s a -> s{_mzpvcnNetworkURL = a})++instance FromJSON+           ManagedZonePrivateVisibilityConfigNetwork+         where+        parseJSON+          = withObject+              "ManagedZonePrivateVisibilityConfigNetwork"+              (\ o ->+                 ManagedZonePrivateVisibilityConfigNetwork' <$>+                   (o .:? "kind" .!=+                      "dns#managedZonePrivateVisibilityConfigNetwork")+                     <*> (o .:? "networkUrl"))++instance ToJSON+           ManagedZonePrivateVisibilityConfigNetwork+         where+        toJSON ManagedZonePrivateVisibilityConfigNetwork'{..}+          = object+              (catMaybes+                 [Just ("kind" .= _mzpvcnKind),+                  ("networkUrl" .=) <$> _mzpvcnNetworkURL])+ -- | The response to a request to enumerate DnsKeys in a ManagedZone. -- -- /See:/ 'dnsKeysListResponse' smart constructor.-data DNSKeysListResponse = DNSKeysListResponse'+data DNSKeysListResponse =+  DNSKeysListResponse'     { _dklrNextPageToken :: !(Maybe Text)     , _dklrDNSKeys       :: !(Maybe [DNSKey])     , _dklrKind          :: !Text     , _dklrHeader        :: !(Maybe ResponseHeader)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DNSKeysListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -90,13 +155,14 @@ dnsKeysListResponse     :: DNSKeysListResponse dnsKeysListResponse =-    DNSKeysListResponse'+  DNSKeysListResponse'     { _dklrNextPageToken = Nothing     , _dklrDNSKeys = Nothing     , _dklrKind = "dns#dnsKeysListResponse"     , _dklrHeader = Nothing     } + -- | The presence of this field indicates that there exist more results -- following your last page of results in pagination order. To fetch them, -- make another list request using this value as your pagination token. In@@ -149,13 +215,16 @@ -- collection. -- -- /See:/ 'changesListResponse' smart constructor.-data ChangesListResponse = ChangesListResponse'+data ChangesListResponse =+  ChangesListResponse'     { _clrNextPageToken :: !(Maybe Text)     , _clrChanges       :: !(Maybe [Change])     , _clrKind          :: !Text     , _clrHeader        :: !(Maybe ResponseHeader)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangesListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -170,13 +239,14 @@ changesListResponse     :: ChangesListResponse changesListResponse =-    ChangesListResponse'+  ChangesListResponse'     { _clrNextPageToken = Nothing     , _clrChanges = Nothing     , _clrKind = "dns#changesListResponse"     , _clrHeader = Nothing     } + -- | The presence of this field indicates that there exist more results -- following your last page of results in pagination order. To fetch them, -- make another list request using this value as your pagination token. In@@ -230,13 +300,16 @@ -- APIs console. -- -- /See:/ 'project' smart constructor.-data Project = Project'+data Project =+  Project'     { _pKind   :: !Text     , _pId     :: !(Maybe Text)     , _pNumber :: !(Maybe (Textual Word64))     , _pQuota  :: !(Maybe Quota)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Project' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -251,13 +324,14 @@ project     :: Project project =-    Project'+  Project'     { _pKind = "dns#project"     , _pId = Nothing     , _pNumber = Nothing     , _pQuota = Nothing     } + -- | Identifies what kind of resource this is. Value: the fixed string -- \"dns#project\". pKind :: Lens' Project Text@@ -302,7 +376,8 @@ -- client_operation_id. -- -- /See:/ 'operation' smart constructor.-data Operation = Operation'+data Operation =+  Operation'     { _oStatus        :: !(Maybe OperationStatus)     , _oStartTime     :: !(Maybe Text)     , _oKind          :: !Text@@ -311,8 +386,10 @@     , _oType          :: !(Maybe Text)     , _oZoneContext   :: !(Maybe OperationManagedZoneContext)     , _oDNSKeyContext :: !(Maybe OperationDNSKeyContext)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Operation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -335,7 +412,7 @@ operation     :: Operation operation =-    Operation'+  Operation'     { _oStatus = Nothing     , _oStartTime = Nothing     , _oKind = "dns#operation"@@ -346,8 +423,11 @@     , _oDNSKeyContext = Nothing     } + -- | Status of the operation. Can be one of the following: \"PENDING\" or--- \"DONE\" (output only).+-- \"DONE\" (output only). A status of \"DONE\" means that the request to+-- update the authoritative servers has been sent, but the servers might+-- not be updated yet. oStatus :: Lens' Operation (Maybe OperationStatus) oStatus = lens _oStatus (\ s a -> s{_oStatus = a}) @@ -419,13 +499,16 @@ -- for a new ManagedZone and as default when adding a new DnsKey. -- -- /See:/ 'dnsKeySpec' smart constructor.-data DNSKeySpec = DNSKeySpec'+data DNSKeySpec =+  DNSKeySpec'     { _dksKeyType   :: !(Maybe DNSKeySpecKeyType)     , _dksKind      :: !Text     , _dksAlgorithm :: !(Maybe DNSKeySpecAlgorithm)     , _dksKeyLength :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DNSKeySpec' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -440,18 +523,19 @@ dnsKeySpec     :: DNSKeySpec dnsKeySpec =-    DNSKeySpec'+  DNSKeySpec'     { _dksKeyType = Nothing     , _dksKind = "dns#dnsKeySpec"     , _dksAlgorithm = Nothing     , _dksKeyLength = Nothing     } --- | One of \"KEY_SIGNING\" or \"ZONE_SIGNING\". Keys of type KEY_SIGNING--- have the Secure Entry Point flag set and, when active, will be used to--- sign only resource record sets of type DNSKEY. Otherwise, the Secure--- Entry Point flag will be cleared and this key will be used to sign only--- resource record sets of other types.++-- | Specifies whether this is a key signing key (KSK) or a zone signing key+-- (ZSK). Key signing keys have the Secure Entry Point flag set and, when+-- active, will only be used to sign resource record sets of type DNSKEY.+-- Zone signing keys do not have the Secure Entry Point flag set and will+-- be used to sign all other types of resource record sets. dksKeyType :: Lens' DNSKeySpec (Maybe DNSKeySpecKeyType) dksKeyType   = lens _dksKeyType (\ s a -> s{_dksKeyType = a})@@ -491,10 +575,17 @@                   ("algorithm" .=) <$> _dksAlgorithm,                   ("keyLength" .=) <$> _dksKeyLength]) --- | An atomic update to a collection of ResourceRecordSets.+-- | A Change represents a set of ResourceRecordSet additions and deletions+-- applied atomically to a ManagedZone. ResourceRecordSets within a+-- ManagedZone are modified by creating a new Change element in the Changes+-- collection. In turn the Changes collection also records the past+-- modifications to the ResourceRecordSets in a ManagedZone. The current+-- state of the ManagedZone is the sum effect of applying all Change+-- elements in the Changes collection in sequence. -- -- /See:/ 'change' smart constructor.-data Change = Change'+data Change =+  Change'     { _cStatus    :: !(Maybe ChangeStatus)     , _cAdditions :: !(Maybe [ResourceRecordSet])     , _cStartTime :: !(Maybe Text)@@ -502,8 +593,10 @@     , _cDeletions :: !(Maybe [ResourceRecordSet])     , _cId        :: !(Maybe Text)     , _cIsServing :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Change' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -524,7 +617,7 @@ change     :: Change change =-    Change'+  Change'     { _cStatus = Nothing     , _cAdditions = Nothing     , _cStartTime = Nothing@@ -534,7 +627,10 @@     , _cIsServing = Nothing     } --- | Status of the operation (output only).++-- | Status of the operation (output only). A status of \"done\" means that+-- the request to update the authoritative servers has been sent, but the+-- servers might not be updated yet. cStatus :: Lens' Change (Maybe ChangeStatus) cStatus = lens _cStatus (\ s a -> s{_cStatus = a}) @@ -598,7 +694,8 @@ -- | A DNSSEC key pair. -- -- /See:/ 'dnsKey' smart constructor.-data DNSKey = DNSKey'+data DNSKey =+  DNSKey'     { _dkCreationTime :: !(Maybe Text)     , _dkKeyTag       :: !(Maybe (Textual Int32))     , _dkKind         :: !Text@@ -610,8 +707,10 @@     , _dkKeyLength    :: !(Maybe (Textual Word32))     , _dkIsActive     :: !(Maybe Bool)     , _dkDescription  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DNSKey' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -640,7 +739,7 @@ dnsKey     :: DNSKey dnsKey =-    DNSKey'+  DNSKey'     { _dkCreationTime = Nothing     , _dkKeyTag = Nothing     , _dkKind = "dns#dnsKey"@@ -654,6 +753,7 @@     , _dkDescription = Nothing     } + -- | The time that this resource was created in the control plane. This is in -- RFC3339 text format. Output only. dkCreationTime :: Lens' DNSKey (Maybe Text)@@ -764,11 +864,14 @@  -- -- /See:/ 'operationManagedZoneContext' smart constructor.-data OperationManagedZoneContext = OperationManagedZoneContext'+data OperationManagedZoneContext =+  OperationManagedZoneContext'     { _omzcOldValue :: !(Maybe ManagedZone)     , _omzcNewValue :: !(Maybe ManagedZone)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationManagedZoneContext' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -779,11 +882,10 @@ operationManagedZoneContext     :: OperationManagedZoneContext operationManagedZoneContext =-    OperationManagedZoneContext'-    { _omzcOldValue = Nothing-    , _omzcNewValue = Nothing-    }+  OperationManagedZoneContext'+    {_omzcOldValue = Nothing, _omzcNewValue = Nothing} + -- | The pre-operation ManagedZone resource. omzcOldValue :: Lens' OperationManagedZoneContext (Maybe ManagedZone) omzcOldValue@@ -811,10 +913,13 @@ -- | Elements common to every response. -- -- /See:/ 'responseHeader' smart constructor.-newtype ResponseHeader = ResponseHeader'+newtype ResponseHeader =+  ResponseHeader'     { _rhOperationId :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResponseHeader' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -822,11 +927,9 @@ -- * 'rhOperationId' responseHeader     :: ResponseHeader-responseHeader =-    ResponseHeader'-    { _rhOperationId = Nothing-    }+responseHeader = ResponseHeader' {_rhOperationId = Nothing} + -- | For mutating operation requests that completed successfully. This is the -- client_operation_id if the client specified it, otherwise it is -- generated by the server (output only).@@ -847,13 +950,16 @@  -- -- /See:/ 'managedZoneOperationsListResponse' smart constructor.-data ManagedZoneOperationsListResponse = ManagedZoneOperationsListResponse'+data ManagedZoneOperationsListResponse =+  ManagedZoneOperationsListResponse'     { _mzolrNextPageToken :: !(Maybe Text)     , _mzolrKind          :: !Text     , _mzolrHeader        :: !(Maybe ResponseHeader)     , _mzolrOperations    :: !(Maybe [Operation])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZoneOperationsListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -868,13 +974,14 @@ managedZoneOperationsListResponse     :: ManagedZoneOperationsListResponse managedZoneOperationsListResponse =-    ManagedZoneOperationsListResponse'+  ManagedZoneOperationsListResponse'     { _mzolrNextPageToken = Nothing     , _mzolrKind = "dns#managedZoneOperationsListResponse"     , _mzolrHeader = Nothing     , _mzolrOperations = Nothing     } + -- | The presence of this field indicates that there exist more results -- following your last page of results in pagination order. To fetch them, -- make another list request using this value as your page token. In this@@ -930,13 +1037,16 @@  -- -- /See:/ 'resourceRecordSetsListResponse' smart constructor.-data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse'+data ResourceRecordSetsListResponse =+  ResourceRecordSetsListResponse'     { _rrslrNextPageToken :: !(Maybe Text)     , _rrslrKind          :: !Text     , _rrslrHeader        :: !(Maybe ResponseHeader)     , _rrslrRrSets        :: !(Maybe [ResourceRecordSet])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResourceRecordSetsListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -951,13 +1061,14 @@ resourceRecordSetsListResponse     :: ResourceRecordSetsListResponse resourceRecordSetsListResponse =-    ResourceRecordSetsListResponse'+  ResourceRecordSetsListResponse'     { _rrslrNextPageToken = Nothing     , _rrslrKind = "dns#resourceRecordSetsListResponse"     , _rrslrHeader = Nothing     , _rrslrRrSets = Nothing     } + -- | The presence of this field indicates that there exist more results -- following your last page of results in pagination order. To fetch them, -- make another list request using this value as your pagination token. In@@ -1010,14 +1121,75 @@                   ("rrsets" .=) <$> _rrslrRrSets])  --+-- /See:/ 'managedZonePrivateVisibilityConfig' smart constructor.+data ManagedZonePrivateVisibilityConfig =+  ManagedZonePrivateVisibilityConfig'+    { _mzpvcNetworks :: !(Maybe [ManagedZonePrivateVisibilityConfigNetwork])+    , _mzpvcKind     :: !Text+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ManagedZonePrivateVisibilityConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mzpvcNetworks'+--+-- * 'mzpvcKind'+managedZonePrivateVisibilityConfig+    :: ManagedZonePrivateVisibilityConfig+managedZonePrivateVisibilityConfig =+  ManagedZonePrivateVisibilityConfig'+    { _mzpvcNetworks = Nothing+    , _mzpvcKind = "dns#managedZonePrivateVisibilityConfig"+    }+++-- | The list of VPC networks that can see this zone.+mzpvcNetworks :: Lens' ManagedZonePrivateVisibilityConfig [ManagedZonePrivateVisibilityConfigNetwork]+mzpvcNetworks+  = lens _mzpvcNetworks+      (\ s a -> s{_mzpvcNetworks = a})+      . _Default+      . _Coerce++-- | Identifies what kind of resource this is. Value: the fixed string+-- \"dns#managedZonePrivateVisibilityConfig\".+mzpvcKind :: Lens' ManagedZonePrivateVisibilityConfig Text+mzpvcKind+  = lens _mzpvcKind (\ s a -> s{_mzpvcKind = a})++instance FromJSON ManagedZonePrivateVisibilityConfig+         where+        parseJSON+          = withObject "ManagedZonePrivateVisibilityConfig"+              (\ o ->+                 ManagedZonePrivateVisibilityConfig' <$>+                   (o .:? "networks" .!= mempty) <*>+                     (o .:? "kind" .!=+                        "dns#managedZonePrivateVisibilityConfig"))++instance ToJSON ManagedZonePrivateVisibilityConfig+         where+        toJSON ManagedZonePrivateVisibilityConfig'{..}+          = object+              (catMaybes+                 [("networks" .=) <$> _mzpvcNetworks,+                  Just ("kind" .= _mzpvcKind)])++-- -- /See:/ 'managedZoneDNSSecConfig' smart constructor.-data ManagedZoneDNSSecConfig = ManagedZoneDNSSecConfig'+data ManagedZoneDNSSecConfig =+  ManagedZoneDNSSecConfig'     { _mzdscState           :: !(Maybe ManagedZoneDNSSecConfigState)     , _mzdscKind            :: !Text     , _mzdscDefaultKeySpecs :: !(Maybe [DNSKeySpec])     , _mzdscNonExistence    :: !(Maybe ManagedZoneDNSSecConfigNonExistence)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZoneDNSSecConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1032,13 +1204,14 @@ managedZoneDNSSecConfig     :: ManagedZoneDNSSecConfig managedZoneDNSSecConfig =-    ManagedZoneDNSSecConfig'+  ManagedZoneDNSSecConfig'     { _mzdscState = Nothing     , _mzdscKind = "dns#managedZoneDnsSecConfig"     , _mzdscDefaultKeySpecs = Nothing     , _mzdscNonExistence = Nothing     } + -- | Specifies whether DNSSEC is enabled, and what mode it is in. mzdscState :: Lens' ManagedZoneDNSSecConfig (Maybe ManagedZoneDNSSecConfigState) mzdscState@@ -1088,15 +1261,18 @@ -- | A unit of data that will be returned by the DNS servers. -- -- /See:/ 'resourceRecordSet' smart constructor.-data ResourceRecordSet = ResourceRecordSet'+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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResourceRecordSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1115,7 +1291,7 @@ resourceRecordSet     :: ResourceRecordSet resourceRecordSet =-    ResourceRecordSet'+  ResourceRecordSet'     { _rrsTtl = Nothing     , _rrsKind = "dns#resourceRecordSet"     , _rrsSignatureRrDatas = Nothing@@ -1124,6 +1300,7 @@     , _rrsRrDatas = Nothing     } + -- | Number of seconds that this ResourceRecordSet can be cached by -- resolvers. rrsTtl :: Lens' ResourceRecordSet (Maybe Int32)@@ -1148,12 +1325,13 @@ rrsName :: Lens' ResourceRecordSet (Maybe Text) rrsName = lens _rrsName (\ s a -> s{_rrsName = a}) --- | The identifier of a supported record type, for example, A, AAAA, MX,--- TXT, and so on.+-- | The identifier of a supported record type. See the list of Supported DNS+-- record types. rrsType :: Lens' ResourceRecordSet (Maybe Text) rrsType = lens _rrsType (\ s a -> s{_rrsType = a}) --- | As defined in RFC 1035 (section 5) and RFC 1034 (section 3.6.1).+-- | As defined in RFC 1035 (section 5) and RFC 1034 (section 3.6.1) -- see+-- examples. rrsRrDatas :: Lens' ResourceRecordSet [Text] rrsRrDatas   = lens _rrsRrDatas (\ s a -> s{_rrsRrDatas = a}) .@@ -1186,19 +1364,24 @@ -- hosted by the Cloud DNS service. -- -- /See:/ 'managedZone' smart constructor.-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)+data ManagedZone =+  ManagedZone'+    { _mzCreationTime            :: !(Maybe Text)+    , _mzKind                    :: !Text+    , _mzNameServerSet           :: !(Maybe Text)+    , _mzVisibility              :: !(Maybe ManagedZoneVisibility)+    , _mzName                    :: !(Maybe Text)+    , _mzId                      :: !(Maybe (Textual Word64))+    , _mzLabels                  :: !(Maybe ManagedZoneLabels)+    , _mzDNSName                 :: !(Maybe Text)+    , _mzDescription             :: !(Maybe Text)+    , _mzDNSsecConfig            :: !(Maybe ManagedZoneDNSSecConfig)+    , _mzNameServers             :: !(Maybe [Text])+    , _mzPrivateVisibilityConfig :: !(Maybe ManagedZonePrivateVisibilityConfig)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZone' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1209,6 +1392,8 @@ -- -- * 'mzNameServerSet' --+-- * 'mzVisibility'+-- -- * 'mzName' -- -- * 'mzId'@@ -1222,13 +1407,16 @@ -- * 'mzDNSsecConfig' -- -- * 'mzNameServers'+--+-- * 'mzPrivateVisibilityConfig' managedZone     :: ManagedZone managedZone =-    ManagedZone'+  ManagedZone'     { _mzCreationTime = Nothing     , _mzKind = "dns#managedZone"     , _mzNameServerSet = Nothing+    , _mzVisibility = Nothing     , _mzName = Nothing     , _mzId = Nothing     , _mzLabels = Nothing@@ -1236,8 +1424,10 @@     , _mzDescription = Nothing     , _mzDNSsecConfig = Nothing     , _mzNameServers = Nothing+    , _mzPrivateVisibilityConfig = Nothing     } + -- | The time that this resource was created on the server. This is in -- RFC3339 text format. Output only. mzCreationTime :: Lens' ManagedZone (Maybe Text)@@ -1258,6 +1448,12 @@   = lens _mzNameServerSet       (\ s a -> s{_mzNameServerSet = a}) +-- | The zone\'s visibility: public zones are exposed to the Internet, while+-- private zones are visible only to Virtual Private Cloud resources.+mzVisibility :: Lens' ManagedZone (Maybe ManagedZoneVisibility)+mzVisibility+  = lens _mzVisibility (\ s a -> s{_mzVisibility = a})+ -- | User assigned name for this resource. Must be unique within the project. -- The name must be 1-63 characters long, must begin with a letter, end -- with a letter or digit, and only contain lowercase letters, digits or@@ -1303,6 +1499,13 @@       . _Default       . _Coerce +-- | For privately visible zones, the set of Virtual Private Cloud resources+-- that the zone is visible from.+mzPrivateVisibilityConfig :: Lens' ManagedZone (Maybe ManagedZonePrivateVisibilityConfig)+mzPrivateVisibilityConfig+  = lens _mzPrivateVisibilityConfig+      (\ s a -> s{_mzPrivateVisibilityConfig = a})+ instance FromJSON ManagedZone where         parseJSON           = withObject "ManagedZone"@@ -1311,13 +1514,15 @@                    (o .:? "creationTime") <*>                      (o .:? "kind" .!= "dns#managedZone")                      <*> (o .:? "nameServerSet")+                     <*> (o .:? "visibility")                      <*> (o .:? "name")                      <*> (o .:? "id")                      <*> (o .:? "labels")                      <*> (o .:? "dnsName")                      <*> (o .:? "description")                      <*> (o .:? "dnssecConfig")-                     <*> (o .:? "nameServers" .!= mempty))+                     <*> (o .:? "nameServers" .!= mempty)+                     <*> (o .:? "privateVisibilityConfig"))  instance ToJSON ManagedZone where         toJSON ManagedZone'{..}@@ -1326,20 +1531,26 @@                  [("creationTime" .=) <$> _mzCreationTime,                   Just ("kind" .= _mzKind),                   ("nameServerSet" .=) <$> _mzNameServerSet,+                  ("visibility" .=) <$> _mzVisibility,                   ("name" .=) <$> _mzName, ("id" .=) <$> _mzId,                   ("labels" .=) <$> _mzLabels,                   ("dnsName" .=) <$> _mzDNSName,                   ("description" .=) <$> _mzDescription,                   ("dnssecConfig" .=) <$> _mzDNSsecConfig,-                  ("nameServers" .=) <$> _mzNameServers])+                  ("nameServers" .=) <$> _mzNameServers,+                  ("privateVisibilityConfig" .=) <$>+                    _mzPrivateVisibilityConfig])  -- | User labels. -- -- /See:/ 'managedZoneLabels' smart constructor.-newtype ManagedZoneLabels = ManagedZoneLabels'+newtype ManagedZoneLabels =+  ManagedZoneLabels'     { _mzlAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZoneLabels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1349,10 +1560,9 @@     :: HashMap Text Text -- ^ 'mzlAddtional'     -> ManagedZoneLabels managedZoneLabels pMzlAddtional_ =-    ManagedZoneLabels'-    { _mzlAddtional = _Coerce # pMzlAddtional_-    }+  ManagedZoneLabels' {_mzlAddtional = _Coerce # pMzlAddtional_} + mzlAddtional :: Lens' ManagedZoneLabels (HashMap Text Text) mzlAddtional   = lens _mzlAddtional (\ s a -> s{_mzlAddtional = a})@@ -1369,18 +1579,23 @@ -- | Limits associated with a Project. -- -- /See:/ 'quota' smart constructor.-data Quota = Quota'+data Quota =+  Quota'     { _qRrSetDeletionsPerChange  :: !(Maybe (Textual Int32))     , _qWhiteListedKeySpecs      :: !(Maybe [DNSKeySpec])     , _qRrSetsPerManagedZone     :: !(Maybe (Textual Int32))     , _qKind                     :: !Text     , _qResourceRecordsPerRrSet  :: !(Maybe (Textual Int32))+    , _qManagedZonesPerNetwork   :: !(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)+    , _qNetworksPerManagedZone   :: !(Maybe (Textual Int32))+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Quota' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1395,6 +1610,8 @@ -- -- * 'qResourceRecordsPerRrSet' --+-- * 'qManagedZonesPerNetwork'+-- -- * 'qRrSetAdditionsPerChange' -- -- * 'qManagedZones'@@ -1402,21 +1619,26 @@ -- * 'qTotalRrDataSizePerChange' -- -- * 'qDNSKeysPerManagedZone'+--+-- * 'qNetworksPerManagedZone' quota     :: Quota quota =-    Quota'+  Quota'     { _qRrSetDeletionsPerChange = Nothing     , _qWhiteListedKeySpecs = Nothing     , _qRrSetsPerManagedZone = Nothing     , _qKind = "dns#quota"     , _qResourceRecordsPerRrSet = Nothing+    , _qManagedZonesPerNetwork = Nothing     , _qRrSetAdditionsPerChange = Nothing     , _qManagedZones = Nothing     , _qTotalRrDataSizePerChange = Nothing     , _qDNSKeysPerManagedZone = Nothing+    , _qNetworksPerManagedZone = Nothing     } + -- | Maximum allowed number of ResourceRecordSets to delete per -- ChangesCreateRequest. qRrSetDeletionsPerChange :: Lens' Quota (Maybe Int32)@@ -1452,6 +1674,14 @@       (\ s a -> s{_qResourceRecordsPerRrSet = a})       . mapping _Coerce +-- | Maximum allowed number of managed zones which can be attached to a+-- network.+qManagedZonesPerNetwork :: Lens' Quota (Maybe Int32)+qManagedZonesPerNetwork+  = lens _qManagedZonesPerNetwork+      (\ s a -> s{_qManagedZonesPerNetwork = a})+      . mapping _Coerce+ -- | Maximum allowed number of ResourceRecordSets to add per -- ChangesCreateRequest. qRrSetAdditionsPerChange :: Lens' Quota (Maybe Int32)@@ -1482,6 +1712,14 @@       (\ s a -> s{_qDNSKeysPerManagedZone = a})       . mapping _Coerce +-- | Maximum allowed number of networks to which a privately scoped zone can+-- be attached.+qNetworksPerManagedZone :: Lens' Quota (Maybe Int32)+qNetworksPerManagedZone+  = lens _qNetworksPerManagedZone+      (\ s a -> s{_qNetworksPerManagedZone = a})+      . mapping _Coerce+ instance FromJSON Quota where         parseJSON           = withObject "Quota"@@ -1492,10 +1730,12 @@                      <*> (o .:? "rrsetsPerManagedZone")                      <*> (o .:? "kind" .!= "dns#quota")                      <*> (o .:? "resourceRecordsPerRrset")+                     <*> (o .:? "managedZonesPerNetwork")                      <*> (o .:? "rrsetAdditionsPerChange")                      <*> (o .:? "managedZones")                      <*> (o .:? "totalRrdataSizePerChange")-                     <*> (o .:? "dnsKeysPerManagedZone"))+                     <*> (o .:? "dnsKeysPerManagedZone")+                     <*> (o .:? "networksPerManagedZone"))  instance ToJSON Quota where         toJSON Quota'{..}@@ -1509,21 +1749,28 @@                   Just ("kind" .= _qKind),                   ("resourceRecordsPerRrset" .=) <$>                     _qResourceRecordsPerRrSet,+                  ("managedZonesPerNetwork" .=) <$>+                    _qManagedZonesPerNetwork,                   ("rrsetAdditionsPerChange" .=) <$>                     _qRrSetAdditionsPerChange,                   ("managedZones" .=) <$> _qManagedZones,                   ("totalRrdataSizePerChange" .=) <$>                     _qTotalRrDataSizePerChange,                   ("dnsKeysPerManagedZone" .=) <$>-                    _qDNSKeysPerManagedZone])+                    _qDNSKeysPerManagedZone,+                  ("networksPerManagedZone" .=) <$>+                    _qNetworksPerManagedZone])  -- -- /See:/ 'dnsKeyDigest' smart constructor.-data DNSKeyDigest = DNSKeyDigest'+data DNSKeyDigest =+  DNSKeyDigest'     { _dkdDigest :: !(Maybe Text)     , _dkdType   :: !(Maybe DNSKeyDigestType)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DNSKeyDigest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1533,12 +1780,9 @@ -- * 'dkdType' dnsKeyDigest     :: DNSKeyDigest-dnsKeyDigest =-    DNSKeyDigest'-    { _dkdDigest = Nothing-    , _dkdType = Nothing-    }+dnsKeyDigest = DNSKeyDigest' {_dkdDigest = Nothing, _dkdType = Nothing} + -- | The base-16 encoded bytes of this digest. Suitable for use in a DS -- resource record. dkdDigest :: Lens' DNSKeyDigest (Maybe Text)@@ -1565,13 +1809,16 @@  -- -- /See:/ 'managedZonesListResponse' smart constructor.-data ManagedZonesListResponse = ManagedZonesListResponse'+data ManagedZonesListResponse =+  ManagedZonesListResponse'     { _mzlrNextPageToken :: !(Maybe Text)     , _mzlrKind          :: !Text     , _mzlrHeader        :: !(Maybe ResponseHeader)     , _mzlrManagedZones  :: !(Maybe [ManagedZone])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1586,12 +1833,13 @@ managedZonesListResponse     :: ManagedZonesListResponse managedZonesListResponse =-    ManagedZonesListResponse'+  ManagedZonesListResponse'     { _mzlrNextPageToken = Nothing     , _mzlrKind = "dns#managedZonesListResponse"     , _mzlrHeader = Nothing     , _mzlrManagedZones = Nothing     }+  -- | The presence of this field indicates that there exist more results -- following your last page of results in pagination order. To fetch them,

@@ -116,6 +116,34 @@ instance ToJSON ManagedZoneDNSSecConfigState where     toJSON = toJSONText +-- | The zone\'s visibility: public zones are exposed to the Internet, while+-- private zones are visible only to Virtual Private Cloud resources.+data ManagedZoneVisibility+    = Private+      -- ^ @PRIVATE@+    | Public+      -- ^ @PUBLIC@+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable ManagedZoneVisibility++instance FromHttpApiData ManagedZoneVisibility where+    parseQueryParam = \case+        "PRIVATE" -> Right Private+        "PUBLIC" -> Right Public+        x -> Left ("Unable to parse ManagedZoneVisibility from: " <> x)++instance ToHttpApiData ManagedZoneVisibility where+    toQueryParam = \case+        Private -> "PRIVATE"+        Public -> "PUBLIC"++instance FromJSON ManagedZoneVisibility where+    parseJSON = parseJSONText "ManagedZoneVisibility"++instance ToJSON ManagedZoneVisibility where+    toJSON = toJSONText+ -- | Sorting criterion. The only supported value is change sequence. data ChangesListSortBy     = ChangeSequence@@ -171,7 +199,9 @@     toJSON = toJSONText  -- | Status of the operation. Can be one of the following: \"PENDING\" or--- \"DONE\" (output only).+-- \"DONE\" (output only). A status of \"DONE\" means that the request to+-- update the authoritative servers has been sent, but the servers might+-- not be updated yet. data OperationStatus     = Done       -- ^ @DONE@@@ -238,11 +268,11 @@ instance ToJSON DNSKeyAlgorithm where     toJSON = toJSONText --- | One of \"KEY_SIGNING\" or \"ZONE_SIGNING\". Keys of type KEY_SIGNING--- have the Secure Entry Point flag set and, when active, will be used to--- sign only resource record sets of type DNSKEY. Otherwise, the Secure--- Entry Point flag will be cleared and this key will be used to sign only--- resource record sets of other types.+-- | Specifies whether this is a key signing key (KSK) or a zone signing key+-- (ZSK). Key signing keys have the Secure Entry Point flag set and, when+-- active, will only be used to sign resource record sets of type DNSKEY.+-- Zone signing keys do not have the Secure Entry Point flag set and will+-- be used to sign all other types of resource record sets. data DNSKeySpecKeyType     = KeySigning       -- ^ @KEY_SIGNING@@@ -269,7 +299,9 @@ instance ToJSON DNSKeySpecKeyType where     toJSON = toJSONText --- | Status of the operation (output only).+-- | Status of the operation (output only). A status of \"done\" means that+-- the request to update the authoritative servers has been sent, but the+-- servers might not be updated yet. data ChangeStatus     = CSDone       -- ^ @DONE@

@@ -59,13 +59,16 @@ -- | Atomically update the ResourceRecordSet collection. -- -- /See:/ 'changesCreate' smart constructor.-data ChangesCreate = ChangesCreate'+data ChangesCreate =+  ChangesCreate'     { _ccProject           :: !Text     , _ccPayload           :: !Change     , _ccManagedZone       :: !Text     , _ccClientOperationId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -83,12 +86,13 @@     -> Text -- ^ 'ccManagedZone'     -> ChangesCreate changesCreate pCcProject_ pCcPayload_ pCcManagedZone_ =-    ChangesCreate'+  ChangesCreate'     { _ccProject = pCcProject_     , _ccPayload = pCcPayload_     , _ccManagedZone = pCcManagedZone_     , _ccClientOperationId = Nothing     }+  -- | Identifies the project addressed by this request. ccProject :: Lens' ChangesCreate Text

@@ -59,13 +59,16 @@ -- | Fetch the representation of an existing Change. -- -- /See:/ 'changesGet' smart constructor.-data ChangesGet = ChangesGet'+data ChangesGet =+  ChangesGet'     { _cgProject           :: !Text     , _cgChangeId          :: !Text     , _cgManagedZone       :: !Text     , _cgClientOperationId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -83,12 +86,13 @@     -> Text -- ^ 'cgManagedZone'     -> ChangesGet changesGet pCgProject_ pCgChangeId_ pCgManagedZone_ =-    ChangesGet'+  ChangesGet'     { _cgProject = pCgProject_     , _cgChangeId = pCgChangeId_     , _cgManagedZone = pCgManagedZone_     , _cgClientOperationId = Nothing     }+  -- | Identifies the project addressed by this request. cgProject :: Lens' ChangesGet Text

@@ -64,15 +64,18 @@ -- | Enumerate Changes to a ResourceRecordSet collection. -- -- /See:/ 'changesList' smart constructor.-data ChangesList = ChangesList'+data ChangesList =+  ChangesList'     { _clProject     :: !Text     , _clSortOrder   :: !(Maybe Text)     , _clPageToken   :: !(Maybe Text)     , _clManagedZone :: !Text     , _clMaxResults  :: !(Maybe (Textual Int32))     , _clSortBy      :: !ChangesListSortBy-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -93,7 +96,7 @@     -> Text -- ^ 'clManagedZone'     -> ChangesList changesList pClProject_ pClManagedZone_ =-    ChangesList'+  ChangesList'     { _clProject = pClProject_     , _clSortOrder = Nothing     , _clPageToken = Nothing@@ -101,6 +104,7 @@     , _clMaxResults = Nothing     , _clSortBy = ChangeSequence     }+  -- | Identifies the project addressed by this request. clProject :: Lens' ChangesList Text

@@ -61,14 +61,17 @@ -- | Fetch the representation of an existing DnsKey. -- -- /See:/ 'dnsKeysGet' smart constructor.-data DNSKeysGet = DNSKeysGet'+data DNSKeysGet =+  DNSKeysGet'     { _dkgProject           :: !Text     , _dkgDigestType        :: !(Maybe Text)     , _dkgDNSKeyId          :: !Text     , _dkgManagedZone       :: !Text     , _dkgClientOperationId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DNSKeysGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -88,13 +91,14 @@     -> Text -- ^ 'dkgManagedZone'     -> DNSKeysGet dnsKeysGet pDkgProject_ pDkgDNSKeyId_ pDkgManagedZone_ =-    DNSKeysGet'+  DNSKeysGet'     { _dkgProject = pDkgProject_     , _dkgDigestType = Nothing     , _dkgDNSKeyId = pDkgDNSKeyId_     , _dkgManagedZone = pDkgManagedZone_     , _dkgClientOperationId = Nothing     }+  -- | Identifies the project addressed by this request. dkgProject :: Lens' DNSKeysGet Text

@@ -62,14 +62,17 @@ -- | Enumerate DnsKeys to a ResourceRecordSet collection. -- -- /See:/ 'dnsKeysList' smart constructor.-data DNSKeysList = DNSKeysList'+data DNSKeysList =+  DNSKeysList'     { _dklProject     :: !Text     , _dklDigestType  :: !(Maybe Text)     , _dklPageToken   :: !(Maybe Text)     , _dklManagedZone :: !Text     , _dklMaxResults  :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DNSKeysList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -88,13 +91,14 @@     -> Text -- ^ 'dklManagedZone'     -> DNSKeysList dnsKeysList pDklProject_ pDklManagedZone_ =-    DNSKeysList'+  DNSKeysList'     { _dklProject = pDklProject_     , _dklDigestType = Nothing     , _dklPageToken = Nothing     , _dklManagedZone = pDklManagedZone_     , _dklMaxResults = Nothing     }+  -- | Identifies the project addressed by this request. dklProject :: Lens' DNSKeysList Text

@@ -59,13 +59,16 @@ -- | Fetch the representation of an existing Operation. -- -- /See:/ 'managedZoneOperationsGet' smart constructor.-data ManagedZoneOperationsGet = ManagedZoneOperationsGet'+data ManagedZoneOperationsGet =+  ManagedZoneOperationsGet'     { _mzogProject           :: !Text     , _mzogOperation         :: !Text     , _mzogManagedZone       :: !Text     , _mzogClientOperationId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZoneOperationsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -83,12 +86,13 @@     -> Text -- ^ 'mzogManagedZone'     -> ManagedZoneOperationsGet managedZoneOperationsGet pMzogProject_ pMzogOperation_ pMzogManagedZone_ =-    ManagedZoneOperationsGet'+  ManagedZoneOperationsGet'     { _mzogProject = pMzogProject_     , _mzogOperation = pMzogOperation_     , _mzogManagedZone = pMzogManagedZone_     , _mzogClientOperationId = Nothing     }+  -- | Identifies the project addressed by this request. mzogProject :: Lens' ManagedZoneOperationsGet Text

@@ -63,14 +63,17 @@ -- | Enumerate Operations for the given ManagedZone. -- -- /See:/ 'managedZoneOperationsList' smart constructor.-data ManagedZoneOperationsList = ManagedZoneOperationsList'+data ManagedZoneOperationsList =+  ManagedZoneOperationsList'     { _mzolProject     :: !Text     , _mzolPageToken   :: !(Maybe Text)     , _mzolManagedZone :: !Text     , _mzolMaxResults  :: !(Maybe (Textual Int32))     , _mzolSortBy      :: !ManagedZoneOperationsListSortBy-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZoneOperationsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -89,13 +92,14 @@     -> Text -- ^ 'mzolManagedZone'     -> ManagedZoneOperationsList managedZoneOperationsList pMzolProject_ pMzolManagedZone_ =-    ManagedZoneOperationsList'+  ManagedZoneOperationsList'     { _mzolProject = pMzolProject_     , _mzolPageToken = Nothing     , _mzolManagedZone = pMzolManagedZone_     , _mzolMaxResults = Nothing     , _mzolSortBy = StartTime     }+  -- | Identifies the project addressed by this request. mzolProject :: Lens' ManagedZoneOperationsList Text

@@ -57,12 +57,15 @@ -- | Create a new ManagedZone. -- -- /See:/ 'managedZonesCreate' smart constructor.-data ManagedZonesCreate = ManagedZonesCreate'+data ManagedZonesCreate =+  ManagedZonesCreate'     { _mzcProject           :: !Text     , _mzcPayload           :: !ManagedZone     , _mzcClientOperationId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,11 +80,12 @@     -> ManagedZone -- ^ 'mzcPayload'     -> ManagedZonesCreate managedZonesCreate pMzcProject_ pMzcPayload_ =-    ManagedZonesCreate'+  ManagedZonesCreate'     { _mzcProject = pMzcProject_     , _mzcPayload = pMzcPayload_     , _mzcClientOperationId = Nothing     }+  -- | Identifies the project addressed by this request. mzcProject :: Lens' ManagedZonesCreate Text

@@ -56,12 +56,15 @@ -- | Delete a previously created ManagedZone. -- -- /See:/ 'managedZonesDelete' smart constructor.-data ManagedZonesDelete = ManagedZonesDelete'+data ManagedZonesDelete =+  ManagedZonesDelete'     { _mzdProject           :: !Text     , _mzdManagedZone       :: !Text     , _mzdClientOperationId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,11 +79,12 @@     -> Text -- ^ 'mzdManagedZone'     -> ManagedZonesDelete managedZonesDelete pMzdProject_ pMzdManagedZone_ =-    ManagedZonesDelete'+  ManagedZonesDelete'     { _mzdProject = pMzdProject_     , _mzdManagedZone = pMzdManagedZone_     , _mzdClientOperationId = Nothing     }+  -- | Identifies the project addressed by this request. mzdProject :: Lens' ManagedZonesDelete Text

@@ -56,12 +56,15 @@ -- | Fetch the representation of an existing ManagedZone. -- -- /See:/ 'managedZonesGet' smart constructor.-data ManagedZonesGet = ManagedZonesGet'+data ManagedZonesGet =+  ManagedZonesGet'     { _mzgProject           :: !Text     , _mzgManagedZone       :: !Text     , _mzgClientOperationId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,11 +79,12 @@     -> Text -- ^ 'mzgManagedZone'     -> ManagedZonesGet managedZonesGet pMzgProject_ pMzgManagedZone_ =-    ManagedZonesGet'+  ManagedZonesGet'     { _mzgProject = pMzgProject_     , _mzgManagedZone = pMzgManagedZone_     , _mzgClientOperationId = Nothing     }+  -- | Identifies the project addressed by this request. mzgProject :: Lens' ManagedZonesGet Text

@@ -59,13 +59,16 @@ -- | Enumerate ManagedZones that have been created but not yet deleted. -- -- /See:/ 'managedZonesList' smart constructor.-data ManagedZonesList = ManagedZonesList'+data ManagedZonesList =+  ManagedZonesList'     { _mzlProject    :: !Text     , _mzlPageToken  :: !(Maybe Text)     , _mzlDNSName    :: !(Maybe Text)     , _mzlMaxResults :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,12 +84,13 @@     :: Text -- ^ 'mzlProject'     -> ManagedZonesList managedZonesList pMzlProject_ =-    ManagedZonesList'+  ManagedZonesList'     { _mzlProject = pMzlProject_     , _mzlPageToken = Nothing     , _mzlDNSName = Nothing     , _mzlMaxResults = Nothing     }+  -- | Identifies the project addressed by this request. mzlProject :: Lens' ManagedZonesList Text

@@ -59,13 +59,16 @@ -- | Apply a partial update to an existing ManagedZone. -- -- /See:/ 'managedZonesPatch' smart constructor.-data ManagedZonesPatch = ManagedZonesPatch'+data ManagedZonesPatch =+  ManagedZonesPatch'     { _mzpProject           :: !Text     , _mzpPayload           :: !ManagedZone     , _mzpManagedZone       :: !Text     , _mzpClientOperationId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -83,12 +86,13 @@     -> Text -- ^ 'mzpManagedZone'     -> ManagedZonesPatch managedZonesPatch pMzpProject_ pMzpPayload_ pMzpManagedZone_ =-    ManagedZonesPatch'+  ManagedZonesPatch'     { _mzpProject = pMzpProject_     , _mzpPayload = pMzpPayload_     , _mzpManagedZone = pMzpManagedZone_     , _mzpClientOperationId = Nothing     }+  -- | Identifies the project addressed by this request. mzpProject :: Lens' ManagedZonesPatch Text

@@ -58,13 +58,16 @@ -- | Update an existing ManagedZone. -- -- /See:/ 'managedZonesUpdate' smart constructor.-data ManagedZonesUpdate = ManagedZonesUpdate'+data ManagedZonesUpdate =+  ManagedZonesUpdate'     { _mzuProject           :: !Text     , _mzuPayload           :: !ManagedZone     , _mzuManagedZone       :: !Text     , _mzuClientOperationId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,12 +85,13 @@     -> Text -- ^ 'mzuManagedZone'     -> ManagedZonesUpdate managedZonesUpdate pMzuProject_ pMzuPayload_ pMzuManagedZone_ =-    ManagedZonesUpdate'+  ManagedZonesUpdate'     { _mzuProject = pMzuProject_     , _mzuPayload = pMzuPayload_     , _mzuManagedZone = pMzuManagedZone_     , _mzuClientOperationId = Nothing     }+  -- | Identifies the project addressed by this request. mzuProject :: Lens' ManagedZonesUpdate Text

@@ -53,11 +53,14 @@ -- | Fetch the representation of an existing Project. -- -- /See:/ 'projectsGet' smart constructor.-data ProjectsGet = ProjectsGet'+data ProjectsGet =+  ProjectsGet'     { _pgProject           :: !Text     , _pgClientOperationId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,10 +72,8 @@     :: Text -- ^ 'pgProject'     -> ProjectsGet projectsGet pPgProject_ =-    ProjectsGet'-    { _pgProject = pPgProject_-    , _pgClientOperationId = Nothing-    }+  ProjectsGet' {_pgProject = pPgProject_, _pgClientOperationId = Nothing}+  -- | Identifies the project addressed by this request. pgProject :: Lens' ProjectsGet Text

@@ -64,15 +64,18 @@ -- | Enumerate ResourceRecordSets that have been created but not yet deleted. -- -- /See:/ 'resourceRecordSetsList' smart constructor.-data ResourceRecordSetsList = ResourceRecordSetsList'+data ResourceRecordSetsList =+  ResourceRecordSetsList'     { _rrslProject     :: !Text     , _rrslName        :: !(Maybe Text)     , _rrslPageToken   :: !(Maybe Text)     , _rrslType        :: !(Maybe Text)     , _rrslManagedZone :: !Text     , _rrslMaxResults  :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResourceRecordSetsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -93,7 +96,7 @@     -> Text -- ^ 'rrslManagedZone'     -> ResourceRecordSetsList resourceRecordSetsList pRrslProject_ pRrslManagedZone_ =-    ResourceRecordSetsList'+  ResourceRecordSetsList'     { _rrslProject = pRrslProject_     , _rrslName = Nothing     , _rrslPageToken = Nothing@@ -101,6 +104,7 @@     , _rrslManagedZone = pRrslManagedZone_     , _rrslMaxResults = Nothing     }+  -- | Identifies the project addressed by this request. rrslProject :: Lens' ResourceRecordSetsList Text

@@ -1,5 +1,5 @@ name:                  gogol-dns-version:               0.4.0+version:               0.5.0 synopsis:              Google Cloud DNS SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -56,5 +56,5 @@         , Network.Google.DNS.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5