@@ -13,7 +13,7 @@
13{-# OPTIONS_GHC -fno-warn-unused-imports #-}
13{-# OPTIONS_GHC -fno-warn-unused-imports #-}
16−-- Module : Network.Google.Resource.DNS.DNSkeys.Get
16+-- Module : Network.Google.Resource.DNS.DNSKeys.Get
17-- Copyright : (c) 2015-2016 Brendan Hay
17-- Copyright : (c) 2015-2016 Brendan Hay
18-- License : Mozilla Public License, v. 2.0.
18-- License : Mozilla Public License, v. 2.0.
19-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
19-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -22,30 +22,30 @@
23-- Fetch the representation of an existing DnsKey.
23-- Fetch the representation of an existing DnsKey.
25−-- /See:/ <https://developers.google.com/cloud-dns Google Cloud DNS API Reference> for @dns.dnskeys.get@.
25+-- /See:/ <https://developers.google.com/cloud-dns Google Cloud DNS API Reference> for @dns.dnsKeys.get@.
26−module Network.Google.Resource.DNS.DNSkeys.Get
26+module Network.Google.Resource.DNS.DNSKeys.Get
28 -- * REST Resource
28 -- * REST Resource
29− DNSkeysGetResource
29+ DNSKeysGetResource
31 -- * Creating a Request
31 -- * Creating a Request
32− , dnskeysGet
32+ , dnsKeysGet
33− , DNSkeysGet
33+ , DNSKeysGet
35 -- * Request Lenses
35 -- * Request Lenses
36− , dgProject
36+ , dkgProject
37− , dgDigestType
37+ , dkgDigestType
38− , dgDNSKeyId
38+ , dkgDNSKeyId
39− , dgManagedZone
39+ , dkgManagedZone
40− , dgClientOperationId
40+ , dkgClientOperationId
43import Network.Google.DNS.Types
43import Network.Google.DNS.Types
44import Network.Google.Prelude
44import Network.Google.Prelude
46−-- | A resource alias for @dns.dnskeys.get@ method which the
46+-- | A resource alias for @dns.dnsKeys.get@ method which the
47−-- 'DNSkeysGet' request conforms to.
47+-- 'DNSKeysGet' request conforms to.
48−type DNSkeysGetResource =
48+type DNSKeysGetResource =
50 "v2beta1" :>
50 "v2beta1" :>
51 "projects" :>
51 "projects" :>
@@ -60,87 +60,88 @@ type DNSkeysGetResource =
61-- | Fetch the representation of an existing DnsKey.
61-- | Fetch the representation of an existing DnsKey.
63−-- /See:/ 'dnskeysGet' smart constructor.
63+-- /See:/ 'dnsKeysGet' smart constructor.
64−data DNSkeysGet = DNSkeysGet'
64+data DNSKeysGet = DNSKeysGet'
65− { _dgProject :: !Text
65+ { _dkgProject :: !Text
66− , _dgDigestType :: !(Maybe Text)
66+ , _dkgDigestType :: !(Maybe Text)
67− , _dgDNSKeyId :: !Text
67+ , _dkgDNSKeyId :: !Text
68− , _dgManagedZone :: !Text
68+ , _dkgManagedZone :: !Text
69− , _dgClientOperationId :: !(Maybe Text)
69+ , _dkgClientOperationId :: !(Maybe Text)
70 } deriving (Eq,Show,Data,Typeable,Generic)
70 } deriving (Eq,Show,Data,Typeable,Generic)
72−-- | Creates a value of 'DNSkeysGet' with the minimum fields required to make a request.
72+-- | Creates a value of 'DNSKeysGet' with the minimum fields required to make a request.
74-- Use one of the following lenses to modify other fields as desired:
74-- Use one of the following lenses to modify other fields as desired:
76−-- * 'dgProject'
76+-- * 'dkgProject'
78−-- * 'dgDigestType'
78+-- * 'dkgDigestType'
80−-- * 'dgDNSKeyId'
80+-- * 'dkgDNSKeyId'
82−-- * 'dgManagedZone'
82+-- * 'dkgManagedZone'
84−-- * 'dgClientOperationId'
84+-- * 'dkgClientOperationId'
85−dnskeysGet
85+dnsKeysGet
86− :: Text -- ^ 'dgProject'
86+ :: Text -- ^ 'dkgProject'
87− -> Text -- ^ 'dgDNSKeyId'
87+ -> Text -- ^ 'dkgDNSKeyId'
88− -> Text -- ^ 'dgManagedZone'
88+ -> Text -- ^ 'dkgManagedZone'
89− -> DNSkeysGet
89+ -> DNSKeysGet
90−dnskeysGet pDgProject_ pDgDNSKeyId_ pDgManagedZone_ =
90+dnsKeysGet pDkgProject_ pDkgDNSKeyId_ pDkgManagedZone_ =
91− DNSkeysGet'
91+ DNSKeysGet'
92− { _dgProject = pDgProject_
92+ { _dkgProject = pDkgProject_
93− , _dgDigestType = Nothing
93+ , _dkgDigestType = Nothing
94− , _dgDNSKeyId = pDgDNSKeyId_
94+ , _dkgDNSKeyId = pDkgDNSKeyId_
95− , _dgManagedZone = pDgManagedZone_
95+ , _dkgManagedZone = pDkgManagedZone_
96− , _dgClientOperationId = Nothing
96+ , _dkgClientOperationId = Nothing
99-- | Identifies the project addressed by this request.
99-- | Identifies the project addressed by this request.
100−dgProject :: Lens' DNSkeysGet Text
100+dkgProject :: Lens' DNSKeysGet Text
101−dgProject
101+dkgProject
102− = lens _dgProject (\ s a -> s{_dgProject = a})
102+ = lens _dkgProject (\ s a -> s{_dkgProject = a})
104-- | An optional comma-separated list of digest types to compute and display
104-- | An optional comma-separated list of digest types to compute and display
105-- for key signing keys. If omitted, the recommended digest type will be
105-- for key signing keys. If omitted, the recommended digest type will be
106-- computed and displayed.
106-- computed and displayed.
107−dgDigestType :: Lens' DNSkeysGet (Maybe Text)
107+dkgDigestType :: Lens' DNSKeysGet (Maybe Text)
108−dgDigestType
108+dkgDigestType
109− = lens _dgDigestType (\ s a -> s{_dgDigestType = a})
109+ = lens _dkgDigestType
110+ (\ s a -> s{_dkgDigestType = a})
111-- | The identifier of the requested DnsKey.
112-- | The identifier of the requested DnsKey.
112−dgDNSKeyId :: Lens' DNSkeysGet Text
113+dkgDNSKeyId :: Lens' DNSKeysGet Text
113−dgDNSKeyId
114+dkgDNSKeyId
114− = lens _dgDNSKeyId (\ s a -> s{_dgDNSKeyId = a})
115+ = lens _dkgDNSKeyId (\ s a -> s{_dkgDNSKeyId = a})
116-- | Identifies the managed zone addressed by this request. Can be the
117-- | Identifies the managed zone addressed by this request. Can be the
117-- managed zone name or id.
118-- managed zone name or id.
118−dgManagedZone :: Lens' DNSkeysGet Text
119+dkgManagedZone :: Lens' DNSKeysGet Text
119−dgManagedZone
120+dkgManagedZone
120− = lens _dgManagedZone
121+ = lens _dkgManagedZone
121− (\ s a -> s{_dgManagedZone = a})
122+ (\ s a -> s{_dkgManagedZone = a})
123-- | For mutating operation requests only. An optional identifier specified
124-- | For mutating operation requests only. An optional identifier specified
124-- by the client. Must be unique for operation resources in the Operations
125-- by the client. Must be unique for operation resources in the Operations
125-- collection.
126-- collection.
126−dgClientOperationId :: Lens' DNSkeysGet (Maybe Text)
127+dkgClientOperationId :: Lens' DNSKeysGet (Maybe Text)
127−dgClientOperationId
128+dkgClientOperationId
128− = lens _dgClientOperationId
129+ = lens _dkgClientOperationId
129− (\ s a -> s{_dgClientOperationId = a})
130+ (\ s a -> s{_dkgClientOperationId = a})
131−instance GoogleRequest DNSkeysGet where
132+instance GoogleRequest DNSKeysGet where
132− type Rs DNSkeysGet = DNSKey
133+ type Rs DNSKeysGet = DNSKey
133− type Scopes DNSkeysGet =
134+ type Scopes DNSKeysGet =
134 '["https://www.googleapis.com/auth/cloud-platform",
135 '["https://www.googleapis.com/auth/cloud-platform",
135 "https://www.googleapis.com/auth/cloud-platform.read-only",
136 "https://www.googleapis.com/auth/cloud-platform.read-only",
136 "https://www.googleapis.com/auth/ndev.clouddns.readonly",
137 "https://www.googleapis.com/auth/ndev.clouddns.readonly",
137 "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]
138 "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]
138− requestClient DNSkeysGet'{..}
139+ requestClient DNSKeysGet'{..}
139− = go _dgProject _dgManagedZone _dgDNSKeyId
140+ = go _dkgProject _dkgManagedZone _dkgDNSKeyId
140− _dgDigestType
141+ _dkgDigestType
141− _dgClientOperationId
142+ _dkgClientOperationId
142 (Just AltJSON)
143 (Just AltJSON)
143 dNSService
144 dNSService
145− = buildClient (Proxy :: Proxy DNSkeysGetResource)
146+ = buildClient (Proxy :: Proxy DNSKeysGetResource)