packages feed

gogol-dns 0.1.1 → 0.2.0

raw patch · 7 files changed

+307/−304 lines, 7 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

- Network.Google.Resource.DNS.DNSkeys.Get: data DNSkeysGet
- Network.Google.Resource.DNS.DNSkeys.Get: dgClientOperationId :: Lens' DNSkeysGet (Maybe Text)
- Network.Google.Resource.DNS.DNSkeys.Get: dgDNSKeyId :: Lens' DNSkeysGet Text
- Network.Google.Resource.DNS.DNSkeys.Get: dgDigestType :: Lens' DNSkeysGet (Maybe Text)
- Network.Google.Resource.DNS.DNSkeys.Get: dgManagedZone :: Lens' DNSkeysGet Text
- Network.Google.Resource.DNS.DNSkeys.Get: dgProject :: Lens' DNSkeysGet Text
- Network.Google.Resource.DNS.DNSkeys.Get: dnskeysGet :: Text -> Text -> Text -> DNSkeysGet
- Network.Google.Resource.DNS.DNSkeys.Get: instance Data.Data.Data Network.Google.Resource.DNS.DNSkeys.Get.DNSkeysGet
- Network.Google.Resource.DNS.DNSkeys.Get: instance GHC.Classes.Eq Network.Google.Resource.DNS.DNSkeys.Get.DNSkeysGet
- Network.Google.Resource.DNS.DNSkeys.Get: instance GHC.Generics.Generic Network.Google.Resource.DNS.DNSkeys.Get.DNSkeysGet
- Network.Google.Resource.DNS.DNSkeys.Get: instance GHC.Show.Show Network.Google.Resource.DNS.DNSkeys.Get.DNSkeysGet
- Network.Google.Resource.DNS.DNSkeys.Get: instance Network.Google.Types.GoogleRequest Network.Google.Resource.DNS.DNSkeys.Get.DNSkeysGet
- Network.Google.Resource.DNS.DNSkeys.Get: type DNSkeysGetResource = "dns" :> ("v2beta1" :> ("projects" :> (Capture "project" Text :> ("managedZones" :> (Capture "managedZone" Text :> ("dnsKeys" :> (Capture "dnsKeyId" Text :> (QueryParam "digestType" Text :> (QueryParam "clientOperationId" Text :> (QueryParam "alt" AltJSON :> Get '[JSON] DNSKey))))))))))
- Network.Google.Resource.DNS.DNSkeys.List: data DNSkeysList
- Network.Google.Resource.DNS.DNSkeys.List: dlDigestType :: Lens' DNSkeysList (Maybe Text)
- Network.Google.Resource.DNS.DNSkeys.List: dlManagedZone :: Lens' DNSkeysList Text
- Network.Google.Resource.DNS.DNSkeys.List: dlMaxResults :: Lens' DNSkeysList (Maybe Int32)
- Network.Google.Resource.DNS.DNSkeys.List: dlPageToken :: Lens' DNSkeysList (Maybe Text)
- Network.Google.Resource.DNS.DNSkeys.List: dlProject :: Lens' DNSkeysList Text
- Network.Google.Resource.DNS.DNSkeys.List: dnskeysList :: Text -> Text -> DNSkeysList
- Network.Google.Resource.DNS.DNSkeys.List: instance Data.Data.Data Network.Google.Resource.DNS.DNSkeys.List.DNSkeysList
- Network.Google.Resource.DNS.DNSkeys.List: instance GHC.Classes.Eq Network.Google.Resource.DNS.DNSkeys.List.DNSkeysList
- Network.Google.Resource.DNS.DNSkeys.List: instance GHC.Generics.Generic Network.Google.Resource.DNS.DNSkeys.List.DNSkeysList
- Network.Google.Resource.DNS.DNSkeys.List: instance GHC.Show.Show Network.Google.Resource.DNS.DNSkeys.List.DNSkeysList
- Network.Google.Resource.DNS.DNSkeys.List: instance Network.Google.Types.GoogleRequest Network.Google.Resource.DNS.DNSkeys.List.DNSkeysList
- Network.Google.Resource.DNS.DNSkeys.List: type DNSkeysListResource = "dns" :> ("v2beta1" :> ("projects" :> (Capture "project" Text :> ("managedZones" :> (Capture "managedZone" Text :> ("dnsKeys" :> (QueryParam "digestType" Text :> (QueryParam "pageToken" Text :> (QueryParam "maxResults" (Textual Int32) :> (QueryParam "alt" AltJSON :> Get '[JSON] DNSKeysListResponse))))))))))
+ Network.Google.Resource.DNS.DNSKeys.Get: data DNSKeysGet
+ Network.Google.Resource.DNS.DNSKeys.Get: dkgClientOperationId :: Lens' DNSKeysGet (Maybe Text)
+ Network.Google.Resource.DNS.DNSKeys.Get: dkgDNSKeyId :: Lens' DNSKeysGet Text
+ Network.Google.Resource.DNS.DNSKeys.Get: dkgDigestType :: Lens' DNSKeysGet (Maybe Text)
+ Network.Google.Resource.DNS.DNSKeys.Get: dkgManagedZone :: Lens' DNSKeysGet Text
+ Network.Google.Resource.DNS.DNSKeys.Get: dkgProject :: Lens' DNSKeysGet Text
+ Network.Google.Resource.DNS.DNSKeys.Get: dnsKeysGet :: Text -> Text -> Text -> DNSKeysGet
+ Network.Google.Resource.DNS.DNSKeys.Get: instance Data.Data.Data Network.Google.Resource.DNS.DNSKeys.Get.DNSKeysGet
+ Network.Google.Resource.DNS.DNSKeys.Get: instance GHC.Classes.Eq Network.Google.Resource.DNS.DNSKeys.Get.DNSKeysGet
+ Network.Google.Resource.DNS.DNSKeys.Get: instance GHC.Generics.Generic Network.Google.Resource.DNS.DNSKeys.Get.DNSKeysGet
+ Network.Google.Resource.DNS.DNSKeys.Get: instance GHC.Show.Show Network.Google.Resource.DNS.DNSKeys.Get.DNSKeysGet
+ Network.Google.Resource.DNS.DNSKeys.Get: instance Network.Google.Types.GoogleRequest Network.Google.Resource.DNS.DNSKeys.Get.DNSKeysGet
+ Network.Google.Resource.DNS.DNSKeys.Get: type DNSKeysGetResource = "dns" :> ("v2beta1" :> ("projects" :> (Capture "project" Text :> ("managedZones" :> (Capture "managedZone" Text :> ("dnsKeys" :> (Capture "dnsKeyId" Text :> (QueryParam "digestType" Text :> (QueryParam "clientOperationId" Text :> (QueryParam "alt" AltJSON :> Get '[JSON] DNSKey))))))))))
+ Network.Google.Resource.DNS.DNSKeys.List: data DNSKeysList
+ Network.Google.Resource.DNS.DNSKeys.List: dklDigestType :: Lens' DNSKeysList (Maybe Text)
+ Network.Google.Resource.DNS.DNSKeys.List: dklManagedZone :: Lens' DNSKeysList Text
+ Network.Google.Resource.DNS.DNSKeys.List: dklMaxResults :: Lens' DNSKeysList (Maybe Int32)
+ Network.Google.Resource.DNS.DNSKeys.List: dklPageToken :: Lens' DNSKeysList (Maybe Text)
+ Network.Google.Resource.DNS.DNSKeys.List: dklProject :: Lens' DNSKeysList Text
+ Network.Google.Resource.DNS.DNSKeys.List: dnsKeysList :: Text -> Text -> DNSKeysList
+ Network.Google.Resource.DNS.DNSKeys.List: instance Data.Data.Data Network.Google.Resource.DNS.DNSKeys.List.DNSKeysList
+ Network.Google.Resource.DNS.DNSKeys.List: instance GHC.Classes.Eq Network.Google.Resource.DNS.DNSKeys.List.DNSKeysList
+ Network.Google.Resource.DNS.DNSKeys.List: instance GHC.Generics.Generic Network.Google.Resource.DNS.DNSKeys.List.DNSKeysList
+ Network.Google.Resource.DNS.DNSKeys.List: instance GHC.Show.Show Network.Google.Resource.DNS.DNSKeys.List.DNSKeysList
+ Network.Google.Resource.DNS.DNSKeys.List: instance Network.Google.Types.GoogleRequest Network.Google.Resource.DNS.DNSKeys.List.DNSKeysList
+ Network.Google.Resource.DNS.DNSKeys.List: type DNSKeysListResource = "dns" :> ("v2beta1" :> ("projects" :> (Capture "project" Text :> ("managedZones" :> (Capture "managedZone" Text :> ("dnsKeys" :> (QueryParam "digestType" Text :> (QueryParam "pageToken" Text :> (QueryParam "maxResults" (Textual Int32) :> (QueryParam "alt" AltJSON :> Get '[JSON] DNSKeysListResponse))))))))))
- Network.Google.DNS: type DNSAPI = DNSkeysListResource :<|> (DNSkeysGetResource :<|> (ChangesListResource :<|> (ChangesGetResource :<|> (ChangesCreateResource :<|> (ResourceRecordSetsListResource :<|> (ManagedZoneOperationsListResource :<|> (ManagedZoneOperationsGetResource :<|> (ManagedZonesListResource :<|> (ManagedZonesPatchResource :<|> (ManagedZonesGetResource :<|> (ManagedZonesCreateResource :<|> (ManagedZonesDeleteResource :<|> (ManagedZonesUpdateResource :<|> ProjectsGetResource)))))))))))))
+ Network.Google.DNS: type DNSAPI = DNSKeysListResource :<|> (DNSKeysGetResource :<|> (ChangesListResource :<|> (ChangesGetResource :<|> (ChangesCreateResource :<|> (ResourceRecordSetsListResource :<|> (ManagedZoneOperationsListResource :<|> (ManagedZoneOperationsGetResource :<|> (ManagedZonesListResource :<|> (ManagedZonesPatchResource :<|> (ManagedZonesGetResource :<|> (ManagedZonesCreateResource :<|> (ManagedZonesDeleteResource :<|> (ManagedZonesUpdateResource :<|> ProjectsGetResource)))))))))))))

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.1.1`+`0.2.0`   ## Description
gen/Network/Google/DNS.hs view
@@ -41,11 +41,11 @@     -- ** dns.changes.list     , module Network.Google.Resource.DNS.Changes.List -    -- ** dns.dnskeys.get-    , module Network.Google.Resource.DNS.DNSkeys.Get+    -- ** dns.dnsKeys.get+    , module Network.Google.Resource.DNS.DNSKeys.Get -    -- ** dns.dnskeys.list-    , module Network.Google.Resource.DNS.DNSkeys.List+    -- ** dns.dnsKeys.list+    , module Network.Google.Resource.DNS.DNSKeys.List      -- ** dns.managedZoneOperations.get     , module Network.Google.Resource.DNS.ManagedZoneOperations.Get@@ -284,8 +284,8 @@ import           Network.Google.Resource.DNS.Changes.Create import           Network.Google.Resource.DNS.Changes.Get import           Network.Google.Resource.DNS.Changes.List-import           Network.Google.Resource.DNS.DNSkeys.Get-import           Network.Google.Resource.DNS.DNSkeys.List+import           Network.Google.Resource.DNS.DNSKeys.Get+import           Network.Google.Resource.DNS.DNSKeys.List import           Network.Google.Resource.DNS.ManagedZoneOperations.Get import           Network.Google.Resource.DNS.ManagedZoneOperations.List import           Network.Google.Resource.DNS.ManagedZones.Create@@ -303,7 +303,7 @@  -- | Represents the entirety of the methods and resources available for the Google Cloud DNS API service. type DNSAPI =-     DNSkeysListResource :<|> DNSkeysGetResource :<|>+     DNSKeysListResource :<|> DNSKeysGetResource :<|>        ChangesListResource        :<|> ChangesGetResource        :<|> ChangesCreateResource
+ gen/Network/Google/Resource/DNS/DNSKeys/Get.hs view
@@ -0,0 +1,147 @@+{-# LANGUAGE DataKinds          #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE FlexibleInstances  #-}+{-# LANGUAGE NoImplicitPrelude  #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}+{-# LANGUAGE TypeOperators      #-}++{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds      #-}+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}++-- |+-- Module      : Network.Google.Resource.DNS.DNSKeys.Get+-- 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)+--+-- Fetch the representation of an existing DnsKey.+--+-- /See:/ <https://developers.google.com/cloud-dns Google Cloud DNS API Reference> for @dns.dnsKeys.get@.+module Network.Google.Resource.DNS.DNSKeys.Get+    (+    -- * REST Resource+      DNSKeysGetResource++    -- * Creating a Request+    , dnsKeysGet+    , DNSKeysGet++    -- * Request Lenses+    , dkgProject+    , dkgDigestType+    , dkgDNSKeyId+    , dkgManagedZone+    , dkgClientOperationId+    ) where++import           Network.Google.DNS.Types+import           Network.Google.Prelude++-- | A resource alias for @dns.dnsKeys.get@ method which the+-- 'DNSKeysGet' request conforms to.+type DNSKeysGetResource =+     "dns" :>+       "v2beta1" :>+         "projects" :>+           Capture "project" Text :>+             "managedZones" :>+               Capture "managedZone" Text :>+                 "dnsKeys" :>+                   Capture "dnsKeyId" Text :>+                     QueryParam "digestType" Text :>+                       QueryParam "clientOperationId" Text :>+                         QueryParam "alt" AltJSON :> Get '[JSON] DNSKey++-- | Fetch the representation of an existing DnsKey.+--+-- /See:/ 'dnsKeysGet' smart constructor.+data DNSKeysGet = DNSKeysGet'+    { _dkgProject           :: !Text+    , _dkgDigestType        :: !(Maybe Text)+    , _dkgDNSKeyId          :: !Text+    , _dkgManagedZone       :: !Text+    , _dkgClientOperationId :: !(Maybe Text)+    } 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:+--+-- * 'dkgProject'+--+-- * 'dkgDigestType'+--+-- * 'dkgDNSKeyId'+--+-- * 'dkgManagedZone'+--+-- * 'dkgClientOperationId'+dnsKeysGet+    :: Text -- ^ 'dkgProject'+    -> Text -- ^ 'dkgDNSKeyId'+    -> Text -- ^ 'dkgManagedZone'+    -> DNSKeysGet+dnsKeysGet pDkgProject_ pDkgDNSKeyId_ pDkgManagedZone_ =+    DNSKeysGet'+    { _dkgProject = pDkgProject_+    , _dkgDigestType = Nothing+    , _dkgDNSKeyId = pDkgDNSKeyId_+    , _dkgManagedZone = pDkgManagedZone_+    , _dkgClientOperationId = Nothing+    }++-- | Identifies the project addressed by this request.+dkgProject :: Lens' DNSKeysGet Text+dkgProject+  = lens _dkgProject (\ s a -> s{_dkgProject = a})++-- | An optional comma-separated list of digest types to compute and display+-- for key signing keys. If omitted, the recommended digest type will be+-- computed and displayed.+dkgDigestType :: Lens' DNSKeysGet (Maybe Text)+dkgDigestType+  = lens _dkgDigestType+      (\ s a -> s{_dkgDigestType = a})++-- | The identifier of the requested DnsKey.+dkgDNSKeyId :: Lens' DNSKeysGet Text+dkgDNSKeyId+  = lens _dkgDNSKeyId (\ s a -> s{_dkgDNSKeyId = a})++-- | Identifies the managed zone addressed by this request. Can be the+-- managed zone name or id.+dkgManagedZone :: Lens' DNSKeysGet Text+dkgManagedZone+  = lens _dkgManagedZone+      (\ s a -> s{_dkgManagedZone = a})++-- | For mutating operation requests only. An optional identifier specified+-- by the client. Must be unique for operation resources in the Operations+-- collection.+dkgClientOperationId :: Lens' DNSKeysGet (Maybe Text)+dkgClientOperationId+  = lens _dkgClientOperationId+      (\ s a -> s{_dkgClientOperationId = a})++instance GoogleRequest DNSKeysGet where+        type Rs DNSKeysGet = DNSKey+        type Scopes DNSKeysGet =+             '["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 DNSKeysGet'{..}+          = go _dkgProject _dkgManagedZone _dkgDNSKeyId+              _dkgDigestType+              _dkgClientOperationId+              (Just AltJSON)+              dNSService+          where go+                  = buildClient (Proxy :: Proxy DNSKeysGetResource)+                      mempty
+ gen/Network/Google/Resource/DNS/DNSKeys/List.hs view
@@ -0,0 +1,148 @@+{-# LANGUAGE DataKinds          #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE FlexibleInstances  #-}+{-# LANGUAGE NoImplicitPrelude  #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}+{-# LANGUAGE TypeOperators      #-}++{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds      #-}+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}++-- |+-- Module      : Network.Google.Resource.DNS.DNSKeys.List+-- 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)+--+-- Enumerate DnsKeys to a ResourceRecordSet collection.+--+-- /See:/ <https://developers.google.com/cloud-dns Google Cloud DNS API Reference> for @dns.dnsKeys.list@.+module Network.Google.Resource.DNS.DNSKeys.List+    (+    -- * REST Resource+      DNSKeysListResource++    -- * Creating a Request+    , dnsKeysList+    , DNSKeysList++    -- * Request Lenses+    , dklProject+    , dklDigestType+    , dklPageToken+    , dklManagedZone+    , dklMaxResults+    ) where++import           Network.Google.DNS.Types+import           Network.Google.Prelude++-- | A resource alias for @dns.dnsKeys.list@ method which the+-- 'DNSKeysList' request conforms to.+type DNSKeysListResource =+     "dns" :>+       "v2beta1" :>+         "projects" :>+           Capture "project" Text :>+             "managedZones" :>+               Capture "managedZone" Text :>+                 "dnsKeys" :>+                   QueryParam "digestType" Text :>+                     QueryParam "pageToken" Text :>+                       QueryParam "maxResults" (Textual Int32) :>+                         QueryParam "alt" AltJSON :>+                           Get '[JSON] DNSKeysListResponse++-- | Enumerate DnsKeys to a ResourceRecordSet collection.+--+-- /See:/ 'dnsKeysList' smart constructor.+data DNSKeysList = DNSKeysList'+    { _dklProject     :: !Text+    , _dklDigestType  :: !(Maybe Text)+    , _dklPageToken   :: !(Maybe Text)+    , _dklManagedZone :: !Text+    , _dklMaxResults  :: !(Maybe (Textual Int32))+    } 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:+--+-- * 'dklProject'+--+-- * 'dklDigestType'+--+-- * 'dklPageToken'+--+-- * 'dklManagedZone'+--+-- * 'dklMaxResults'+dnsKeysList+    :: Text -- ^ 'dklProject'+    -> Text -- ^ 'dklManagedZone'+    -> DNSKeysList+dnsKeysList pDklProject_ pDklManagedZone_ =+    DNSKeysList'+    { _dklProject = pDklProject_+    , _dklDigestType = Nothing+    , _dklPageToken = Nothing+    , _dklManagedZone = pDklManagedZone_+    , _dklMaxResults = Nothing+    }++-- | Identifies the project addressed by this request.+dklProject :: Lens' DNSKeysList Text+dklProject+  = lens _dklProject (\ s a -> s{_dklProject = a})++-- | An optional comma-separated list of digest types to compute and display+-- for key signing keys. If omitted, the recommended digest type will be+-- computed and displayed.+dklDigestType :: Lens' DNSKeysList (Maybe Text)+dklDigestType+  = lens _dklDigestType+      (\ s a -> s{_dklDigestType = a})++-- | Optional. A tag returned by a previous list request that was truncated.+-- Use this parameter to continue a previous list request.+dklPageToken :: Lens' DNSKeysList (Maybe Text)+dklPageToken+  = lens _dklPageToken (\ s a -> s{_dklPageToken = a})++-- | Identifies the managed zone addressed by this request. Can be the+-- managed zone name or id.+dklManagedZone :: Lens' DNSKeysList Text+dklManagedZone+  = lens _dklManagedZone+      (\ s a -> s{_dklManagedZone = a})++-- | Optional. Maximum number of results to be returned. If unspecified, the+-- server will decide how many results to return.+dklMaxResults :: Lens' DNSKeysList (Maybe Int32)+dklMaxResults+  = lens _dklMaxResults+      (\ s a -> s{_dklMaxResults = a})+      . mapping _Coerce++instance GoogleRequest DNSKeysList where+        type Rs DNSKeysList = DNSKeysListResponse+        type Scopes DNSKeysList =+             '["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 DNSKeysList'{..}+          = go _dklProject _dklManagedZone _dklDigestType+              _dklPageToken+              _dklMaxResults+              (Just AltJSON)+              dNSService+          where go+                  = buildClient (Proxy :: Proxy DNSKeysListResource)+                      mempty
− gen/Network/Google/Resource/DNS/DNSkeys/Get.hs
@@ -1,146 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.DNS.DNSkeys.Get--- 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)------ Fetch the representation of an existing DnsKey.------ /See:/ <https://developers.google.com/cloud-dns Google Cloud DNS API Reference> for @dns.dnskeys.get@.-module Network.Google.Resource.DNS.DNSkeys.Get-    (-    -- * REST Resource-      DNSkeysGetResource--    -- * Creating a Request-    , dnskeysGet-    , DNSkeysGet--    -- * Request Lenses-    , dgProject-    , dgDigestType-    , dgDNSKeyId-    , dgManagedZone-    , dgClientOperationId-    ) where--import           Network.Google.DNS.Types-import           Network.Google.Prelude---- | A resource alias for @dns.dnskeys.get@ method which the--- 'DNSkeysGet' request conforms to.-type DNSkeysGetResource =-     "dns" :>-       "v2beta1" :>-         "projects" :>-           Capture "project" Text :>-             "managedZones" :>-               Capture "managedZone" Text :>-                 "dnsKeys" :>-                   Capture "dnsKeyId" Text :>-                     QueryParam "digestType" Text :>-                       QueryParam "clientOperationId" Text :>-                         QueryParam "alt" AltJSON :> Get '[JSON] DNSKey---- | Fetch the representation of an existing DnsKey.------ /See:/ 'dnskeysGet' smart constructor.-data DNSkeysGet = DNSkeysGet'-    { _dgProject           :: !Text-    , _dgDigestType        :: !(Maybe Text)-    , _dgDNSKeyId          :: !Text-    , _dgManagedZone       :: !Text-    , _dgClientOperationId :: !(Maybe Text)-    } 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:------ * 'dgProject'------ * 'dgDigestType'------ * 'dgDNSKeyId'------ * 'dgManagedZone'------ * 'dgClientOperationId'-dnskeysGet-    :: Text -- ^ 'dgProject'-    -> Text -- ^ 'dgDNSKeyId'-    -> Text -- ^ 'dgManagedZone'-    -> DNSkeysGet-dnskeysGet pDgProject_ pDgDNSKeyId_ pDgManagedZone_ =-    DNSkeysGet'-    { _dgProject = pDgProject_-    , _dgDigestType = Nothing-    , _dgDNSKeyId = pDgDNSKeyId_-    , _dgManagedZone = pDgManagedZone_-    , _dgClientOperationId = Nothing-    }---- | Identifies the project addressed by this request.-dgProject :: Lens' DNSkeysGet Text-dgProject-  = lens _dgProject (\ s a -> s{_dgProject = a})---- | An optional comma-separated list of digest types to compute and display--- for key signing keys. If omitted, the recommended digest type will be--- computed and displayed.-dgDigestType :: Lens' DNSkeysGet (Maybe Text)-dgDigestType-  = lens _dgDigestType (\ s a -> s{_dgDigestType = a})---- | The identifier of the requested DnsKey.-dgDNSKeyId :: Lens' DNSkeysGet Text-dgDNSKeyId-  = lens _dgDNSKeyId (\ s a -> s{_dgDNSKeyId = a})---- | Identifies the managed zone addressed by this request. Can be the--- managed zone name or id.-dgManagedZone :: Lens' DNSkeysGet Text-dgManagedZone-  = lens _dgManagedZone-      (\ s a -> s{_dgManagedZone = a})---- | For mutating operation requests only. An optional identifier specified--- by the client. Must be unique for operation resources in the Operations--- collection.-dgClientOperationId :: Lens' DNSkeysGet (Maybe Text)-dgClientOperationId-  = lens _dgClientOperationId-      (\ s a -> s{_dgClientOperationId = a})--instance GoogleRequest DNSkeysGet where-        type Rs DNSkeysGet = DNSKey-        type Scopes DNSkeysGet =-             '["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 DNSkeysGet'{..}-          = go _dgProject _dgManagedZone _dgDNSKeyId-              _dgDigestType-              _dgClientOperationId-              (Just AltJSON)-              dNSService-          where go-                  = buildClient (Proxy :: Proxy DNSkeysGetResource)-                      mempty
− gen/Network/Google/Resource/DNS/DNSkeys/List.hs
@@ -1,146 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.DNS.DNSkeys.List--- 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)------ Enumerate DnsKeys to a ResourceRecordSet collection.------ /See:/ <https://developers.google.com/cloud-dns Google Cloud DNS API Reference> for @dns.dnskeys.list@.-module Network.Google.Resource.DNS.DNSkeys.List-    (-    -- * REST Resource-      DNSkeysListResource--    -- * Creating a Request-    , dnskeysList-    , DNSkeysList--    -- * Request Lenses-    , dlProject-    , dlDigestType-    , dlPageToken-    , dlManagedZone-    , dlMaxResults-    ) where--import           Network.Google.DNS.Types-import           Network.Google.Prelude---- | A resource alias for @dns.dnskeys.list@ method which the--- 'DNSkeysList' request conforms to.-type DNSkeysListResource =-     "dns" :>-       "v2beta1" :>-         "projects" :>-           Capture "project" Text :>-             "managedZones" :>-               Capture "managedZone" Text :>-                 "dnsKeys" :>-                   QueryParam "digestType" Text :>-                     QueryParam "pageToken" Text :>-                       QueryParam "maxResults" (Textual Int32) :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] DNSKeysListResponse---- | Enumerate DnsKeys to a ResourceRecordSet collection.------ /See:/ 'dnskeysList' smart constructor.-data DNSkeysList = DNSkeysList'-    { _dlProject     :: !Text-    , _dlDigestType  :: !(Maybe Text)-    , _dlPageToken   :: !(Maybe Text)-    , _dlManagedZone :: !Text-    , _dlMaxResults  :: !(Maybe (Textual Int32))-    } 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:------ * 'dlProject'------ * 'dlDigestType'------ * 'dlPageToken'------ * 'dlManagedZone'------ * 'dlMaxResults'-dnskeysList-    :: Text -- ^ 'dlProject'-    -> Text -- ^ 'dlManagedZone'-    -> DNSkeysList-dnskeysList pDlProject_ pDlManagedZone_ =-    DNSkeysList'-    { _dlProject = pDlProject_-    , _dlDigestType = Nothing-    , _dlPageToken = Nothing-    , _dlManagedZone = pDlManagedZone_-    , _dlMaxResults = Nothing-    }---- | Identifies the project addressed by this request.-dlProject :: Lens' DNSkeysList Text-dlProject-  = lens _dlProject (\ s a -> s{_dlProject = a})---- | An optional comma-separated list of digest types to compute and display--- for key signing keys. If omitted, the recommended digest type will be--- computed and displayed.-dlDigestType :: Lens' DNSkeysList (Maybe Text)-dlDigestType-  = lens _dlDigestType (\ s a -> s{_dlDigestType = a})---- | Optional. A tag returned by a previous list request that was truncated.--- Use this parameter to continue a previous list request.-dlPageToken :: Lens' DNSkeysList (Maybe Text)-dlPageToken-  = lens _dlPageToken (\ s a -> s{_dlPageToken = a})---- | Identifies the managed zone addressed by this request. Can be the--- managed zone name or id.-dlManagedZone :: Lens' DNSkeysList Text-dlManagedZone-  = lens _dlManagedZone-      (\ s a -> s{_dlManagedZone = a})---- | Optional. Maximum number of results to be returned. If unspecified, the--- server will decide how many results to return.-dlMaxResults :: Lens' DNSkeysList (Maybe Int32)-dlMaxResults-  = lens _dlMaxResults (\ s a -> s{_dlMaxResults = a})-      . mapping _Coerce--instance GoogleRequest DNSkeysList where-        type Rs DNSkeysList = DNSKeysListResponse-        type Scopes DNSkeysList =-             '["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 DNSkeysList'{..}-          = go _dlProject _dlManagedZone _dlDigestType-              _dlPageToken-              _dlMaxResults-              (Just AltJSON)-              dNSService-          where go-                  = buildClient (Proxy :: Proxy DNSkeysListResource)-                      mempty
gogol-dns.cabal view
@@ -1,5 +1,5 @@ name:                  gogol-dns-version:               0.1.1+version:               0.2.0 synopsis:              Google Cloud DNS SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -38,8 +38,8 @@         , Network.Google.Resource.DNS.Changes.Create         , Network.Google.Resource.DNS.Changes.Get         , Network.Google.Resource.DNS.Changes.List-        , Network.Google.Resource.DNS.DNSkeys.Get-        , Network.Google.Resource.DNS.DNSkeys.List+        , Network.Google.Resource.DNS.DNSKeys.Get+        , Network.Google.Resource.DNS.DNSKeys.List         , Network.Google.Resource.DNS.ManagedZoneOperations.Get         , Network.Google.Resource.DNS.ManagedZoneOperations.List         , Network.Google.Resource.DNS.ManagedZones.Create@@ -56,5 +56,5 @@         , Network.Google.DNS.Types.Sum      build-depends:-          gogol-core == 0.1.1.*+          gogol-core == 0.2.0.*         , base       >= 4.7 && < 5