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 +1/−1
- gen/Network/Google/DNS.hs +7/−7
- gen/Network/Google/Resource/DNS/DNSKeys/Get.hs +147/−0
- gen/Network/Google/Resource/DNS/DNSKeys/List.hs +148/−0
- gen/Network/Google/Resource/DNS/DNSkeys/Get.hs +0/−146
- gen/Network/Google/Resource/DNS/DNSkeys/List.hs +0/−146
- gogol-dns.cabal +4/−4
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