gogol-dns 0.0.1 → 0.1.0

raw patch · 15 files changed

+153/−109 lines, 15 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +3/−3
• gen/Network/Google/DNS.hs +8/−3
• gen/Network/Google/DNS/Types.hs +12/−11
• gen/Network/Google/DNS/Types/Product.hs +35/−35
• gen/Network/Google/DNS/Types/Sum.hs +16/−16
• gen/Network/Google/Resource/DNS/Changes/Create.hs +7/−4
• gen/Network/Google/Resource/DNS/Changes/Get.hs +9/−4
• gen/Network/Google/Resource/DNS/Changes/List.hs +9/−4
• gen/Network/Google/Resource/DNS/ManagedZones/Create.hs +7/−4
• gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs +7/−4
• gen/Network/Google/Resource/DNS/ManagedZones/Get.hs +9/−4
• gen/Network/Google/Resource/DNS/ManagedZones/List.hs +9/−4
• gen/Network/Google/Resource/DNS/Projects/Get.hs +9/−4
• gen/Network/Google/Resource/DNS/ResourceRecordSets/List.hs +9/−4
• gogol-dns.cabal +4/−5

@@ -8,7 +8,7 @@  ## Version -`0.0.1`+`0.1.0`   ## Description@@ -18,9 +18,9 @@  ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).+For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information.   ## Licence

@@ -7,20 +7,25 @@  -- | -- Module      : Network.Google.DNS--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- The Google Cloud DNS API provides services for configuring and serving--- authoritative DNS records.+-- Configures and serves authoritative DNS records. -- -- /See:/ <https://developers.google.com/cloud-dns Google Cloud DNS API Reference> module Network.Google.DNS     (     -- * Service Configuration       dNSService++    -- * OAuth Scopes+    , ndevClouddnsReadOnlyScope+    , cloudPlatformReadOnlyScope+    , ndevClouddnsReadwriteScope+    , cloudPlatformScope      -- * API Declaration     , DNSAPI

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.DNS.Types--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -19,7 +20,7 @@       dNSService      -- * OAuth Scopes-    , ndevClouddnsReadonlyScope+    , ndevClouddnsReadOnlyScope     , cloudPlatformReadOnlyScope     , ndevClouddnsReadwriteScope     , cloudPlatformScope@@ -107,23 +108,23 @@ import           Network.Google.Prelude  -- | Default request referring to version 'v1' of the Google Cloud DNS API. This contains the host and root path used as a starting point for constructing service requests.-dNSService :: Service+dNSService :: ServiceConfig dNSService   = defaultService (ServiceId "dns:v1")       "www.googleapis.com"  -- | View your DNS records hosted by Google Cloud DNS-ndevClouddnsReadonlyScope :: OAuthScope-ndevClouddnsReadonlyScope = "https://www.googleapis.com/auth/ndev.clouddns.readonly";+ndevClouddnsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/ndev.clouddns.readonly"]+ndevClouddnsReadOnlyScope = Proxy;  -- | View your data across Google Cloud Platform services-cloudPlatformReadOnlyScope :: OAuthScope-cloudPlatformReadOnlyScope = "https://www.googleapis.com/auth/cloud-platform.read-only";+cloudPlatformReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform.read-only"]+cloudPlatformReadOnlyScope = Proxy;  -- | View and manage your DNS records hosted by Google Cloud DNS-ndevClouddnsReadwriteScope :: OAuthScope-ndevClouddnsReadwriteScope = "https://www.googleapis.com/auth/ndev.clouddns.readwrite";+ndevClouddnsReadwriteScope :: Proxy '["https://www.googleapis.com/auth/ndev.clouddns.readwrite"]+ndevClouddnsReadwriteScope = Proxy;  -- | View and manage your data across Google Cloud Platform services-cloudPlatformScope :: OAuthScope-cloudPlatformScope = "https://www.googleapis.com/auth/cloud-platform";+cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]+cloudPlatformScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.DNS.Types.Product--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -24,7 +24,7 @@ -- collection. -- -- /See:/ 'changesListResponse' smart constructor.-data ChangesListResponse = ChangesListResponse+data ChangesListResponse = ChangesListResponse'     { _clrNextPageToken :: !(Maybe Text)     , _clrChanges       :: !(Maybe [Change])     , _clrKind          :: !Text@@ -42,7 +42,7 @@ changesListResponse     :: ChangesListResponse changesListResponse =-    ChangesListResponse+    ChangesListResponse'     { _clrNextPageToken = Nothing     , _clrChanges = Nothing     , _clrKind = "dns#changesListResponse"@@ -77,13 +77,13 @@         parseJSON           = withObject "ChangesListResponse"               (\ o ->-                 ChangesListResponse <$>+                 ChangesListResponse' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "changes" .!= mempty)                      <*> (o .:? "kind" .!= "dns#changesListResponse"))  instance ToJSON ChangesListResponse where-        toJSON ChangesListResponse{..}+        toJSON ChangesListResponse'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _clrNextPageToken,@@ -95,7 +95,7 @@ -- APIs console. -- -- /See:/ 'project' smart constructor.-data Project = Project+data Project = Project'     { _pKind   :: !Text     , _pId     :: !(Maybe Text)     , _pNumber :: !(Maybe (Textual Word64))@@ -116,7 +116,7 @@ project     :: Project project =-    Project+    Project'     { _pKind = "dns#project"     , _pId = Nothing     , _pNumber = Nothing@@ -147,13 +147,13 @@         parseJSON           = withObject "Project"               (\ o ->-                 Project <$>+                 Project' <$>                    (o .:? "kind" .!= "dns#project") <*> (o .:? "id") <*>                      (o .:? "number")                      <*> (o .:? "quota"))  instance ToJSON Project where-        toJSON Project{..}+        toJSON Project'{..}           = object               (catMaybes                  [Just ("kind" .= _pKind), ("id" .=) <$> _pId,@@ -163,7 +163,7 @@ -- | An atomic update to a collection of ResourceRecordSets. -- -- /See:/ 'change' smart constructor.-data Change = Change+data Change = Change'     { _cStatus    :: !(Maybe ChangeStatus)     , _cAdditions :: !(Maybe [ResourceRecordSet])     , _cStartTime :: !(Maybe Text)@@ -190,7 +190,7 @@ change     :: Change change =-    Change+    Change'     { _cStatus = Nothing     , _cAdditions = Nothing     , _cStartTime = Nothing@@ -210,8 +210,8 @@       _Default       . _Coerce --- | The time that this operation was started by the server. This is in--- RFC3339 text format.+-- | The time that this operation was started by the server (output only).+-- This is in RFC3339 text format. cStartTime :: Lens' Change (Maybe Text) cStartTime   = lens _cStartTime (\ s a -> s{_cStartTime = a})@@ -236,7 +236,7 @@         parseJSON           = withObject "Change"               (\ o ->-                 Change <$>+                 Change' <$>                    (o .:? "status") <*> (o .:? "additions" .!= mempty)                      <*> (o .:? "startTime")                      <*> (o .:? "kind" .!= "dns#change")@@ -244,7 +244,7 @@                      <*> (o .:? "id"))  instance ToJSON Change where-        toJSON Change{..}+        toJSON Change'{..}           = object               (catMaybes                  [("status" .=) <$> _cStatus,@@ -256,7 +256,7 @@  -- -- /See:/ 'resourceRecordSetsListResponse' smart constructor.-data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse+data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse'     { _rrslrNextPageToken :: !(Maybe Text)     , _rrslrKind          :: !Text     , _rrslrRrSets        :: !(Maybe [ResourceRecordSet])@@ -274,7 +274,7 @@ resourceRecordSetsListResponse     :: ResourceRecordSetsListResponse resourceRecordSetsListResponse =-    ResourceRecordSetsListResponse+    ResourceRecordSetsListResponse'     { _rrslrNextPageToken = Nothing     , _rrslrKind = "dns#resourceRecordSetsListResponse"     , _rrslrRrSets = Nothing@@ -311,14 +311,14 @@         parseJSON           = withObject "ResourceRecordSetsListResponse"               (\ o ->-                 ResourceRecordSetsListResponse <$>+                 ResourceRecordSetsListResponse' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "kind" .!=                         "dns#resourceRecordSetsListResponse")                      <*> (o .:? "rrsets" .!= mempty))  instance ToJSON ResourceRecordSetsListResponse where-        toJSON ResourceRecordSetsListResponse{..}+        toJSON ResourceRecordSetsListResponse'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _rrslrNextPageToken,@@ -328,7 +328,7 @@ -- | 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     , _rrsName    :: !(Maybe Text)@@ -352,7 +352,7 @@ resourceRecordSet     :: ResourceRecordSet resourceRecordSet =-    ResourceRecordSet+    ResourceRecordSet'     { _rrsTtl = Nothing     , _rrsKind = "dns#resourceRecordSet"     , _rrsName = Nothing@@ -392,7 +392,7 @@         parseJSON           = withObject "ResourceRecordSet"               (\ o ->-                 ResourceRecordSet <$>+                 ResourceRecordSet' <$>                    (o .:? "ttl") <*>                      (o .:? "kind" .!= "dns#resourceRecordSet")                      <*> (o .:? "name")@@ -400,7 +400,7 @@                      <*> (o .:? "rrdatas" .!= mempty))  instance ToJSON ResourceRecordSet where-        toJSON ResourceRecordSet{..}+        toJSON ResourceRecordSet'{..}           = object               (catMaybes                  [("ttl" .=) <$> _rrsTtl, Just ("kind" .= _rrsKind),@@ -412,7 +412,7 @@ -- hosted by the Cloud DNS service. -- -- /See:/ 'managedZone' smart constructor.-data ManagedZone = ManagedZone+data ManagedZone = ManagedZone'     { _mzCreationTime  :: !(Maybe Text)     , _mzKind          :: !Text     , _mzNameServerSet :: !(Maybe Text)@@ -445,7 +445,7 @@ managedZone     :: ManagedZone managedZone =-    ManagedZone+    ManagedZone'     { _mzCreationTime = Nothing     , _mzKind = "dns#managedZone"     , _mzNameServerSet = Nothing@@ -515,7 +515,7 @@         parseJSON           = withObject "ManagedZone"               (\ o ->-                 ManagedZone <$>+                 ManagedZone' <$>                    (o .:? "creationTime") <*>                      (o .:? "kind" .!= "dns#managedZone")                      <*> (o .:? "nameServerSet")@@ -526,7 +526,7 @@                      <*> (o .:? "nameServers" .!= mempty))  instance ToJSON ManagedZone where-        toJSON ManagedZone{..}+        toJSON ManagedZone'{..}           = object               (catMaybes                  [("creationTime" .=) <$> _mzCreationTime,@@ -540,7 +540,7 @@ -- | Limits associated with a Project. -- -- /See:/ 'quota' smart constructor.-data Quota = Quota+data Quota = Quota'     { _qRrSetDeletionsPerChange  :: !(Maybe (Textual Int32))     , _qRrSetsPerManagedZone     :: !(Maybe (Textual Int32))     , _qKind                     :: !Text@@ -570,7 +570,7 @@ quota     :: Quota quota =-    Quota+    Quota'     { _qRrSetDeletionsPerChange = Nothing     , _qRrSetsPerManagedZone = Nothing     , _qKind = "dns#quota"@@ -634,7 +634,7 @@         parseJSON           = withObject "Quota"               (\ o ->-                 Quota <$>+                 Quota' <$>                    (o .:? "rrsetDeletionsPerChange") <*>                      (o .:? "rrsetsPerManagedZone")                      <*> (o .:? "kind" .!= "dns#quota")@@ -644,7 +644,7 @@                      <*> (o .:? "totalRrdataSizePerChange"))  instance ToJSON Quota where-        toJSON Quota{..}+        toJSON Quota'{..}           = object               (catMaybes                  [("rrsetDeletionsPerChange" .=) <$>@@ -662,7 +662,7 @@  -- -- /See:/ 'managedZonesListResponse' smart constructor.-data ManagedZonesListResponse = ManagedZonesListResponse+data ManagedZonesListResponse = ManagedZonesListResponse'     { _mzlrNextPageToken :: !(Maybe Text)     , _mzlrKind          :: !Text     , _mzlrManagedZones  :: !(Maybe [ManagedZone])@@ -680,7 +680,7 @@ managedZonesListResponse     :: ManagedZonesListResponse managedZonesListResponse =-    ManagedZonesListResponse+    ManagedZonesListResponse'     { _mzlrNextPageToken = Nothing     , _mzlrKind = "dns#managedZonesListResponse"     , _mzlrManagedZones = Nothing@@ -716,13 +716,13 @@         parseJSON           = withObject "ManagedZonesListResponse"               (\ o ->-                 ManagedZonesListResponse <$>+                 ManagedZonesListResponse' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "dns#managedZonesListResponse")                      <*> (o .:? "managedZones" .!= mempty))  instance ToJSON ManagedZonesListResponse where-        toJSON ManagedZonesListResponse{..}+        toJSON ManagedZonesListResponse'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _mzlrNextPageToken,

@@ -8,7 +8,7 @@  -- | -- Module      : Network.Google.DNS.Types.Sum--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -22,17 +22,17 @@ data ChangesListSortBy     = ChangeSequence       -- ^ @changeSequence@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable ChangesListSortBy -instance FromText ChangesListSortBy where-    fromText = \case-        "changeSequence" -> Just ChangeSequence-        _ -> Nothing+instance FromHttpApiData ChangesListSortBy where+    parseQueryParam = \case+        "changeSequence" -> Right ChangeSequence+        x -> Left ("Unable to parse ChangesListSortBy from: " <> x) -instance ToText ChangesListSortBy where-    toText = \case+instance ToHttpApiData ChangesListSortBy where+    toQueryParam = \case         ChangeSequence -> "changeSequence"  instance FromJSON ChangesListSortBy where@@ -47,18 +47,18 @@       -- ^ @done@     | Pending       -- ^ @pending@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable ChangeStatus -instance FromText ChangeStatus where-    fromText = \case-        "done" -> Just Done-        "pending" -> Just Pending-        _ -> Nothing+instance FromHttpApiData ChangeStatus where+    parseQueryParam = \case+        "done" -> Right Done+        "pending" -> Right Pending+        x -> Left ("Unable to parse ChangeStatus from: " <> x) -instance ToText ChangeStatus where-    toText = \case+instance ToHttpApiData ChangeStatus where+    toQueryParam = \case         Done -> "done"         Pending -> "pending" 

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DNS.Changes.Create--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- | Atomically update the ResourceRecordSet collection. -- -- /See:/ 'changesCreate' smart constructor.-data ChangesCreate = ChangesCreate+data ChangesCreate = ChangesCreate'     { _ccProject     :: !Text     , _ccPayload     :: !Change     , _ccManagedZone :: !Text@@ -78,7 +78,7 @@     -> Text -- ^ 'ccManagedZone'     -> ChangesCreate changesCreate pCcProject_ pCcPayload_ pCcManagedZone_ =-    ChangesCreate+    ChangesCreate'     { _ccProject = pCcProject_     , _ccPayload = pCcPayload_     , _ccManagedZone = pCcManagedZone_@@ -103,7 +103,10 @@  instance GoogleRequest ChangesCreate where         type Rs ChangesCreate = Change-        requestClient ChangesCreate{..}+        type Scopes ChangesCreate =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]+        requestClient ChangesCreate'{..}           = go _ccProject _ccManagedZone (Just AltJSON)               _ccPayload               dNSService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DNS.Changes.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- | Fetch the representation of an existing Change. -- -- /See:/ 'changesGet' smart constructor.-data ChangesGet = ChangesGet+data ChangesGet = ChangesGet'     { _cgProject     :: !Text     , _cgChangeId    :: !Text     , _cgManagedZone :: !Text@@ -78,7 +78,7 @@     -> Text -- ^ 'cgManagedZone'     -> ChangesGet changesGet pCgProject_ pCgChangeId_ pCgManagedZone_ =-    ChangesGet+    ChangesGet'     { _cgProject = pCgProject_     , _cgChangeId = pCgChangeId_     , _cgManagedZone = pCgManagedZone_@@ -104,7 +104,12 @@  instance GoogleRequest ChangesGet where         type Rs ChangesGet = Change-        requestClient ChangesGet{..}+        type Scopes ChangesGet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.clouddns.readonly",+               "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]+        requestClient ChangesGet'{..}           = go _cgProject _cgManagedZone _cgChangeId               (Just AltJSON)               dNSService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DNS.Changes.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- | Enumerate Changes to a ResourceRecordSet collection. -- -- /See:/ 'changesList' smart constructor.-data ChangesList = ChangesList+data ChangesList = ChangesList'     { _clProject     :: !Text     , _clSortOrder   :: !(Maybe Text)     , _clPageToken   :: !(Maybe Text)@@ -93,7 +93,7 @@     -> Text -- ^ 'clManagedZone'     -> ChangesList changesList pClProject_ pClManagedZone_ =-    ChangesList+    ChangesList'     { _clProject = pClProject_     , _clSortOrder = Nothing     , _clPageToken = Nothing@@ -138,7 +138,12 @@  instance GoogleRequest ChangesList where         type Rs ChangesList = ChangesListResponse-        requestClient ChangesList{..}+        type Scopes ChangesList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.clouddns.readonly",+               "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]+        requestClient ChangesList'{..}           = go _clProject _clManagedZone _clSortOrder               _clPageToken               _clMaxResults

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DNS.ManagedZones.Create--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Create a new ManagedZone. -- -- /See:/ 'managedZonesCreate' smart constructor.-data ManagedZonesCreate = ManagedZonesCreate+data ManagedZonesCreate = ManagedZonesCreate'     { _mzcProject :: !Text     , _mzcPayload :: !ManagedZone     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> ManagedZone -- ^ 'mzcPayload'     -> ManagedZonesCreate managedZonesCreate pMzcProject_ pMzcPayload_ =-    ManagedZonesCreate+    ManagedZonesCreate'     { _mzcProject = pMzcProject_     , _mzcPayload = pMzcPayload_     }@@ -89,7 +89,10 @@  instance GoogleRequest ManagedZonesCreate where         type Rs ManagedZonesCreate = ManagedZone-        requestClient ManagedZonesCreate{..}+        type Scopes ManagedZonesCreate =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]+        requestClient ManagedZonesCreate'{..}           = go _mzcProject (Just AltJSON) _mzcPayload               dNSService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DNS.ManagedZones.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Delete a previously created ManagedZone. -- -- /See:/ 'managedZonesDelete' smart constructor.-data ManagedZonesDelete = ManagedZonesDelete+data ManagedZonesDelete = ManagedZonesDelete'     { _mzdProject     :: !Text     , _mzdManagedZone :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'mzdManagedZone'     -> ManagedZonesDelete managedZonesDelete pMzdProject_ pMzdManagedZone_ =-    ManagedZonesDelete+    ManagedZonesDelete'     { _mzdProject = pMzdProject_     , _mzdManagedZone = pMzdManagedZone_     }@@ -90,7 +90,10 @@  instance GoogleRequest ManagedZonesDelete where         type Rs ManagedZonesDelete = ()-        requestClient ManagedZonesDelete{..}+        type Scopes ManagedZonesDelete =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]+        requestClient ManagedZonesDelete'{..}           = go _mzdProject _mzdManagedZone (Just AltJSON)               dNSService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DNS.ManagedZones.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Fetch the representation of an existing ManagedZone. -- -- /See:/ 'managedZonesGet' smart constructor.-data ManagedZonesGet = ManagedZonesGet+data ManagedZonesGet = ManagedZonesGet'     { _mzgProject     :: !Text     , _mzgManagedZone :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'mzgManagedZone'     -> ManagedZonesGet managedZonesGet pMzgProject_ pMzgManagedZone_ =-    ManagedZonesGet+    ManagedZonesGet'     { _mzgProject = pMzgProject_     , _mzgManagedZone = pMzgManagedZone_     }@@ -90,7 +90,12 @@  instance GoogleRequest ManagedZonesGet where         type Rs ManagedZonesGet = ManagedZone-        requestClient ManagedZonesGet{..}+        type Scopes ManagedZonesGet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.clouddns.readonly",+               "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]+        requestClient ManagedZonesGet'{..}           = go _mzgProject _mzgManagedZone (Just AltJSON)               dNSService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DNS.ManagedZones.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- | 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)@@ -81,7 +81,7 @@     :: Text -- ^ 'mzlProject'     -> ManagedZonesList managedZonesList pMzlProject_ =-    ManagedZonesList+    ManagedZonesList'     { _mzlProject = pMzlProject_     , _mzlPageToken = Nothing     , _mzlDNSName = Nothing@@ -114,7 +114,12 @@  instance GoogleRequest ManagedZonesList where         type Rs ManagedZonesList = ManagedZonesListResponse-        requestClient ManagedZonesList{..}+        type Scopes ManagedZonesList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.clouddns.readonly",+               "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]+        requestClient ManagedZonesList'{..}           = go _mzlProject _mzlPageToken _mzlDNSName               _mzlMaxResults               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DNS.Projects.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -51,7 +51,7 @@ -- | Fetch the representation of an existing Project. -- -- /See:/ 'projectsGet' smart constructor.-newtype ProjectsGet = ProjectsGet+newtype ProjectsGet = ProjectsGet'     { _pgProject :: Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@     :: Text -- ^ 'pgProject'     -> ProjectsGet projectsGet pPgProject_ =-    ProjectsGet+    ProjectsGet'     { _pgProject = pPgProject_     } @@ -75,7 +75,12 @@  instance GoogleRequest ProjectsGet where         type Rs ProjectsGet = Project-        requestClient ProjectsGet{..}+        type Scopes ProjectsGet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.clouddns.readonly",+               "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]+        requestClient ProjectsGet'{..}           = go _pgProject (Just AltJSON) dNSService           where go                   = buildClient (Proxy :: Proxy ProjectsGetResource)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DNS.ResourceRecordSets.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- | 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)@@ -93,7 +93,7 @@     -> Text -- ^ 'rrslManagedZone'     -> ResourceRecordSetsList resourceRecordSetsList pRrslProject_ pRrslManagedZone_ =-    ResourceRecordSetsList+    ResourceRecordSetsList'     { _rrslProject = pRrslProject_     , _rrslName = Nothing     , _rrslPageToken = Nothing@@ -142,7 +142,12 @@ instance GoogleRequest ResourceRecordSetsList where         type Rs ResourceRecordSetsList =              ResourceRecordSetsListResponse-        requestClient ResourceRecordSetsList{..}+        type Scopes ResourceRecordSetsList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.clouddns.readonly",+               "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]+        requestClient ResourceRecordSetsList'{..}           = go _rrslProject _rrslManagedZone _rrslName               _rrslPageToken               _rrslType

@@ -1,5 +1,5 @@ name:                  gogol-dns-version:               0.0.1+version:               0.1.0 synopsis:              Google Cloud DNS SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -7,15 +7,14 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2015 Brendan Hay+copyright:             Copyright (c) 2015-2016 Brendan Hay category:              Network, Google, Cloud build-type:            Simple cabal-version:         >= 1.10 extra-source-files:    README.md  description:-    The Google Cloud DNS API provides services for configuring and serving-    authoritative DNS records.+    Configures and serves authoritative DNS records.     .     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!@@ -51,5 +50,5 @@         , Network.Google.DNS.Types.Sum      build-depends:-          gogol-core == 0.0.1.*+          gogol-core == 0.1.0.*         , base       >= 4.7 && < 5