Hello community, here is the log from the commit of package ghc-gogol-dns for openSUSE:Factory checked in at 2017-08-31 20:53:06 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-dns (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-dns.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-dns" Thu Aug 31 20:53:06 2017 rev:2 rq:513301 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-dns/ghc-gogol-dns.changes 2017-05-10 20:40:30.507585698 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-dns.new/ghc-gogol-dns.changes 2017-08-31 20:53:06.839653574 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:13 UTC 2017 - psimons@suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-dns-0.1.1.tar.gz New: ---- gogol-dns-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-dns.spec ++++++ --- /var/tmp/diff_new_pack.2roHoF/_old 2017-08-31 20:53:07.603546244 +0200 +++ /var/tmp/diff_new_pack.2roHoF/_new 2017-08-31 20:53:07.607545682 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-dns Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Cloud DNS SDK License: MPL-2.0 ++++++ gogol-dns-0.1.1.tar.gz -> gogol-dns-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dns-0.1.1/README.md new/gogol-dns-0.3.0/README.md --- old/gogol-dns-0.1.1/README.md 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-dns-0.3.0/README.md 2017-07-12 16:51:30.000000000 +0200 @@ -8,7 +8,7 @@ ## Version -`0.1.1` +`0.3.0` ## Description diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dns-0.1.1/gen/Network/Google/DNS.hs new/gogol-dns-0.3.0/gen/Network/Google/DNS.hs --- old/gogol-dns-0.1.1/gen/Network/Google/DNS.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-dns-0.3.0/gen/Network/Google/DNS.hs 2017-07-12 16:51:30.000000000 +0200 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dns-0.1.1/gen/Network/Google/Resource/DNS/DNSKeys/Get.hs new/gogol-dns-0.3.0/gen/Network/Google/Resource/DNS/DNSKeys/Get.hs --- old/gogol-dns-0.1.1/gen/Network/Google/Resource/DNS/DNSKeys/Get.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/gogol-dns-0.3.0/gen/Network/Google/Resource/DNS/DNSKeys/Get.hs 2017-07-12 16:51:30.000000000 +0200 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dns-0.1.1/gen/Network/Google/Resource/DNS/DNSKeys/List.hs new/gogol-dns-0.3.0/gen/Network/Google/Resource/DNS/DNSKeys/List.hs --- old/gogol-dns-0.1.1/gen/Network/Google/Resource/DNS/DNSKeys/List.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/gogol-dns-0.3.0/gen/Network/Google/Resource/DNS/DNSKeys/List.hs 2017-07-12 16:51:30.000000000 +0200 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dns-0.1.1/gen/Network/Google/Resource/DNS/DNSkeys/Get.hs new/gogol-dns-0.3.0/gen/Network/Google/Resource/DNS/DNSkeys/Get.hs --- old/gogol-dns-0.1.1/gen/Network/Google/Resource/DNS/DNSkeys/Get.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-dns-0.3.0/gen/Network/Google/Resource/DNS/DNSkeys/Get.hs 1970-01-01 01:00:00.000000000 +0100 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dns-0.1.1/gen/Network/Google/Resource/DNS/DNSkeys/List.hs new/gogol-dns-0.3.0/gen/Network/Google/Resource/DNS/DNSkeys/List.hs --- old/gogol-dns-0.1.1/gen/Network/Google/Resource/DNS/DNSkeys/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-dns-0.3.0/gen/Network/Google/Resource/DNS/DNSkeys/List.hs 1970-01-01 01:00:00.000000000 +0100 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dns-0.1.1/gogol-dns.cabal new/gogol-dns-0.3.0/gogol-dns.cabal --- old/gogol-dns-0.1.1/gogol-dns.cabal 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-dns-0.3.0/gogol-dns.cabal 2017-07-12 16:51:30.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-dns -version: 0.1.1 +version: 0.3.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.3.0.* , base >= 4.7 && < 5