@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.DNS.DNSkeys.Get
16+-- Module : Network.Google.Resource.DNS.DNSKeys.Get
1717-- Copyright : (c) 2015-2016 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -22,30 +22,30 @@
2222--
2323-- Fetch the representation of an existing DnsKey.
2424--
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
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
2727 (
2828 -- * REST Resource
29− DNSkeysGetResource
29+ DNSKeysGetResource
3030
3131 -- * Creating a Request
32− , dnskeysGet
33− , DNSkeysGet
32+ , dnsKeysGet
33+ , DNSKeysGet
3434
3535 -- * Request Lenses
36− , dgProject
37− , dgDigestType
38− , dgDNSKeyId
39− , dgManagedZone
40− , dgClientOperationId
36+ , dkgProject
37+ , dkgDigestType
38+ , dkgDNSKeyId
39+ , dkgManagedZone
40+ , dkgClientOperationId
4141 ) where
4242
4343import Network.Google.DNS.Types
4444import Network.Google.Prelude
4545
46−-- | A resource alias for @dns.dnskeys.get@ method which the
47−-- 'DNSkeysGet' request conforms to.
48−type DNSkeysGetResource =
46+-- | A resource alias for @dns.dnsKeys.get@ method which the
47+-- 'DNSKeysGet' request conforms to.
48+type DNSKeysGetResource =
4949 "dns" :>
5050 "v2beta1" :>
5151 "projects" :>
@@ -60,87 +60,88 @@ type DNSkeysGetResource =
6060
6161-- | Fetch the representation of an existing DnsKey.
6262--
63−-- /See:/ 'dnskeysGet' smart constructor.
64−data DNSkeysGet = DNSkeysGet'
65− { _dgProject :: !Text
66− , _dgDigestType :: !(Maybe Text)
67− , _dgDNSKeyId :: !Text
68− , _dgManagedZone :: !Text
69− , _dgClientOperationId :: !(Maybe Text)
63+-- /See:/ 'dnsKeysGet' smart constructor.
64+data DNSKeysGet = DNSKeysGet'
65+ { _dkgProject :: !Text
66+ , _dkgDigestType :: !(Maybe Text)
67+ , _dkgDNSKeyId :: !Text
68+ , _dkgManagedZone :: !Text
69+ , _dkgClientOperationId :: !(Maybe Text)
7070 } deriving (Eq,Show,Data,Typeable,Generic)
7171
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.
7373--
7474-- Use one of the following lenses to modify other fields as desired:
7575--
76−-- * 'dgProject'
76+-- * 'dkgProject'
7777--
78−-- * 'dgDigestType'
78+-- * 'dkgDigestType'
7979--
80−-- * 'dgDNSKeyId'
80+-- * 'dkgDNSKeyId'
8181--
82−-- * 'dgManagedZone'
82+-- * 'dkgManagedZone'
8383--
84−-- * 'dgClientOperationId'
85−dnskeysGet
86− :: Text -- ^ 'dgProject'
87− -> Text -- ^ 'dgDNSKeyId'
88− -> Text -- ^ 'dgManagedZone'
89− -> DNSkeysGet
90−dnskeysGet pDgProject_ pDgDNSKeyId_ pDgManagedZone_ =
91− DNSkeysGet'
92− { _dgProject = pDgProject_
93− , _dgDigestType = Nothing
94− , _dgDNSKeyId = pDgDNSKeyId_
95− , _dgManagedZone = pDgManagedZone_
96− , _dgClientOperationId = Nothing
84+-- * 'dkgClientOperationId'
85+dnsKeysGet
86+ :: Text -- ^ 'dkgProject'
87+ -> Text -- ^ 'dkgDNSKeyId'
88+ -> Text -- ^ 'dkgManagedZone'
89+ -> DNSKeysGet
90+dnsKeysGet pDkgProject_ pDkgDNSKeyId_ pDkgManagedZone_ =
91+ DNSKeysGet'
92+ { _dkgProject = pDkgProject_
93+ , _dkgDigestType = Nothing
94+ , _dkgDNSKeyId = pDkgDNSKeyId_
95+ , _dkgManagedZone = pDkgManagedZone_
96+ , _dkgClientOperationId = Nothing
9797 }
9898
9999-- | Identifies the project addressed by this request.
100−dgProject :: Lens' DNSkeysGet Text
101−dgProject
102− = lens _dgProject (\ s a -> s{_dgProject = a})
100+dkgProject :: Lens' DNSKeysGet Text
101+dkgProject
102+ = lens _dkgProject (\ s a -> s{_dkgProject = a})
103103
104104-- | An optional comma-separated list of digest types to compute and display
105105-- for key signing keys. If omitted, the recommended digest type will be
106106-- computed and displayed.
107−dgDigestType :: Lens' DNSkeysGet (Maybe Text)
108−dgDigestType
109− = lens _dgDigestType (\ s a -> s{_dgDigestType = a})
107+dkgDigestType :: Lens' DNSKeysGet (Maybe Text)
108+dkgDigestType
109+ = lens _dkgDigestType
110+ (\ s a -> s{_dkgDigestType = a})
110111
111112-- | The identifier of the requested DnsKey.
112−dgDNSKeyId :: Lens' DNSkeysGet Text
113−dgDNSKeyId
114− = lens _dgDNSKeyId (\ s a -> s{_dgDNSKeyId = a})
113+dkgDNSKeyId :: Lens' DNSKeysGet Text
114+dkgDNSKeyId
115+ = lens _dkgDNSKeyId (\ s a -> s{_dkgDNSKeyId = a})
115116
116117-- | Identifies the managed zone addressed by this request. Can be the
117118-- managed zone name or id.
118−dgManagedZone :: Lens' DNSkeysGet Text
119−dgManagedZone
120− = lens _dgManagedZone
121− (\ s a -> s{_dgManagedZone = a})
119+dkgManagedZone :: Lens' DNSKeysGet Text
120+dkgManagedZone
121+ = lens _dkgManagedZone
122+ (\ s a -> s{_dkgManagedZone = a})
122123
123124-- | For mutating operation requests only. An optional identifier specified
124125-- by the client. Must be unique for operation resources in the Operations
125126-- collection.
126−dgClientOperationId :: Lens' DNSkeysGet (Maybe Text)
127−dgClientOperationId
128− = lens _dgClientOperationId
129− (\ s a -> s{_dgClientOperationId = a})
127+dkgClientOperationId :: Lens' DNSKeysGet (Maybe Text)
128+dkgClientOperationId
129+ = lens _dkgClientOperationId
130+ (\ s a -> s{_dkgClientOperationId = a})
130131
131−instance GoogleRequest DNSkeysGet where
132− type Rs DNSkeysGet = DNSKey
133− type Scopes DNSkeysGet =
132+instance GoogleRequest DNSKeysGet where
133+ type Rs DNSKeysGet = DNSKey
134+ type Scopes DNSKeysGet =
134135 '["https://www.googleapis.com/auth/cloud-platform",
135136 "https://www.googleapis.com/auth/cloud-platform.read-only",
136137 "https://www.googleapis.com/auth/ndev.clouddns.readonly",
137138 "https://www.googleapis.com/auth/ndev.clouddns.readwrite"]
138− requestClient DNSkeysGet'{..}
139− = go _dgProject _dgManagedZone _dgDNSKeyId
140− _dgDigestType
141− _dgClientOperationId
139+ requestClient DNSKeysGet'{..}
140+ = go _dkgProject _dkgManagedZone _dkgDNSKeyId
141+ _dkgDigestType
142+ _dkgClientOperationId
142143 (Just AltJSON)
143144 dNSService
144145 where go
145− = buildClient (Proxy :: Proxy DNSkeysGetResource)
146+ = buildClient (Proxy :: Proxy DNSKeysGetResource)
146147 mempty