@@ -20,6 +20,131 @@ module Network.Google.DNS.Types.Product where
20import Network.Google.DNS.Types.Sum
20import Network.Google.DNS.Types.Sum
21import Network.Google.Prelude
21import Network.Google.Prelude
24+-- /See:/ 'operationDNSKeyContext' smart constructor.
25+data OperationDNSKeyContext = OperationDNSKeyContext'
26+ { _odkcOldValue :: !(Maybe DNSKey)
27+ , _odkcNewValue :: !(Maybe DNSKey)
28+ } deriving (Eq,Show,Data,Typeable,Generic)
30+-- | Creates a value of 'OperationDNSKeyContext' with the minimum fields required to make a request.
32+-- Use one of the following lenses to modify other fields as desired:
37+operationDNSKeyContext
38+ :: OperationDNSKeyContext
39+operationDNSKeyContext =
40+ OperationDNSKeyContext'
41+ { _odkcOldValue = Nothing
42+ , _odkcNewValue = Nothing
45+-- | The pre-operation DnsKey resource.
46+odkcOldValue :: Lens' OperationDNSKeyContext (Maybe DNSKey)
48+ = lens _odkcOldValue (\ s a -> s{_odkcOldValue = a})
50+-- | The post-operation DnsKey resource.
51+odkcNewValue :: Lens' OperationDNSKeyContext (Maybe DNSKey)
53+ = lens _odkcNewValue (\ s a -> s{_odkcNewValue = a})
55+instance FromJSON OperationDNSKeyContext where
57+ = withObject "OperationDNSKeyContext"
59+ OperationDNSKeyContext' <$>
60+ (o .:? "oldValue") <*> (o .:? "newValue"))
62+instance ToJSON OperationDNSKeyContext where
63+ toJSON OperationDNSKeyContext'{..}
66+ [("oldValue" .=) <$> _odkcOldValue,
67+ ("newValue" .=) <$> _odkcNewValue])
69+-- | The response to a request to enumerate DnsKeys in a ManagedZone.
71+-- /See:/ 'dnsKeysListResponse' smart constructor.
72+data DNSKeysListResponse = DNSKeysListResponse'
73+ { _dklrNextPageToken :: !(Maybe Text)
74+ , _dklrDNSKeys :: !(Maybe [DNSKey])
76+ , _dklrHeader :: !(Maybe ResponseHeader)
77+ } deriving (Eq,Show,Data,Typeable,Generic)
79+-- | Creates a value of 'DNSKeysListResponse' with the minimum fields required to make a request.
81+-- Use one of the following lenses to modify other fields as desired:
83+-- * 'dklrNextPageToken'
91+ :: DNSKeysListResponse
94+ { _dklrNextPageToken = Nothing
95+ , _dklrDNSKeys = Nothing
96+ , _dklrKind = "dns#dnsKeysListResponse"
97+ , _dklrHeader = Nothing
100+-- | The presence of this field indicates that there exist more results
101+-- following your last page of results in pagination order. To fetch them,
102+-- make another list request using this value as your pagination token. In
103+-- this way you can retrieve the complete contents of even very large
104+-- collections one page at a time. However, if the contents of the
105+-- collection change between the first and last paginated list request, the
106+-- set of all elements returned will be an inconsistent view of the
107+-- collection. There is no way to retrieve a \"snapshot\" of collections
108+-- larger than the maximum page size.
109+dklrNextPageToken :: Lens' DNSKeysListResponse (Maybe Text)
111+ = lens _dklrNextPageToken
112+ (\ s a -> s{_dklrNextPageToken = a})
114+-- | The requested resources.
115+dklrDNSKeys :: Lens' DNSKeysListResponse [DNSKey]
117+ = lens _dklrDNSKeys (\ s a -> s{_dklrDNSKeys = a}) .
121+-- | Type of resource.
122+dklrKind :: Lens' DNSKeysListResponse Text
123+dklrKind = lens _dklrKind (\ s a -> s{_dklrKind = a})
125+dklrHeader :: Lens' DNSKeysListResponse (Maybe ResponseHeader)
127+ = lens _dklrHeader (\ s a -> s{_dklrHeader = a})
129+instance FromJSON DNSKeysListResponse where
131+ = withObject "DNSKeysListResponse"
133+ DNSKeysListResponse' <$>
134+ (o .:? "nextPageToken") <*>
135+ (o .:? "dnsKeys" .!= mempty)
136+ <*> (o .:? "kind" .!= "dns#dnsKeysListResponse")
137+ <*> (o .:? "header"))
139+instance ToJSON DNSKeysListResponse where
140+ toJSON DNSKeysListResponse'{..}
143+ [("nextPageToken" .=) <$> _dklrNextPageToken,
144+ ("dnsKeys" .=) <$> _dklrDNSKeys,
145+ Just ("kind" .= _dklrKind),
146+ ("header" .=) <$> _dklrHeader])
23-- | The response to a request to enumerate Changes to a ResourceRecordSets
148-- | The response to a request to enumerate Changes to a ResourceRecordSets
24-- collection.
149-- collection.
@@ -28,6 +153,7 @@ data ChangesListResponse = ChangesListResponse'
28 { _clrNextPageToken :: !(Maybe Text)
153 { _clrNextPageToken :: !(Maybe Text)
29 , _clrChanges :: !(Maybe [Change])
154 , _clrChanges :: !(Maybe [Change])
30 , _clrKind :: !Text
155 , _clrKind :: !Text
156+ , _clrHeader :: !(Maybe ResponseHeader)
31 } deriving (Eq,Show,Data,Typeable,Generic)
157 } deriving (Eq,Show,Data,Typeable,Generic)
33-- | Creates a value of 'ChangesListResponse' with the minimum fields required to make a request.
159-- | Creates a value of 'ChangesListResponse' with the minimum fields required to make a request.
@@ -39,6 +165,8 @@ data ChangesListResponse = ChangesListResponse'
39-- * 'clrChanges'
165-- * 'clrChanges'
41-- * 'clrKind'
167-- * 'clrKind'
42changesListResponse
170changesListResponse
43 :: ChangesListResponse
171 :: ChangesListResponse
44changesListResponse =
172changesListResponse =
@@ -46,6 +174,7 @@ changesListResponse =
46 { _clrNextPageToken = Nothing
174 { _clrNextPageToken = Nothing
47 , _clrChanges = Nothing
175 , _clrChanges = Nothing
48 , _clrKind = "dns#changesListResponse"
176 , _clrKind = "dns#changesListResponse"
177+ , _clrHeader = Nothing
51-- | The presence of this field indicates that there exist more results
180-- | The presence of this field indicates that there exist more results
@@ -73,6 +202,10 @@ clrChanges
73clrKind :: Lens' ChangesListResponse Text
202clrKind :: Lens' ChangesListResponse Text
74clrKind = lens _clrKind (\ s a -> s{_clrKind = a})
203clrKind = lens _clrKind (\ s a -> s{_clrKind = a})
205+clrHeader :: Lens' ChangesListResponse (Maybe ResponseHeader)
207+ = lens _clrHeader (\ s a -> s{_clrHeader = a})
76instance FromJSON ChangesListResponse where
209instance FromJSON ChangesListResponse where
77 parseJSON
210 parseJSON
78 = withObject "ChangesListResponse"
211 = withObject "ChangesListResponse"
@@ -80,7 +213,8 @@ instance FromJSON ChangesListResponse where
80 ChangesListResponse' <$>
213 ChangesListResponse' <$>
81 (o .:? "nextPageToken") <*>
214 (o .:? "nextPageToken") <*>
82 (o .:? "changes" .!= mempty)
215 (o .:? "changes" .!= mempty)
83− <*> (o .:? "kind" .!= "dns#changesListResponse"))
216+ <*> (o .:? "kind" .!= "dns#changesListResponse")
217+ <*> (o .:? "header"))
85instance ToJSON ChangesListResponse where
219instance ToJSON ChangesListResponse where
86 toJSON ChangesListResponse'{..}
220 toJSON ChangesListResponse'{..}
@@ -88,7 +222,40 @@ instance ToJSON ChangesListResponse where
88 (catMaybes
222 (catMaybes
89 [("nextPageToken" .=) <$> _clrNextPageToken,
223 [("nextPageToken" .=) <$> _clrNextPageToken,
90 ("changes" .=) <$> _clrChanges,
224 ("changes" .=) <$> _clrChanges,
91− Just ("kind" .= _clrKind)])
225+ Just ("kind" .= _clrKind),
226+ ("header" .=) <$> _clrHeader])
229+-- /See:/ 'managedZonesDeleteResponse' smart constructor.
230+newtype ManagedZonesDeleteResponse = ManagedZonesDeleteResponse'
231+ { _mzdrHeader :: Maybe ResponseHeader
232+ } deriving (Eq,Show,Data,Typeable,Generic)
234+-- | Creates a value of 'ManagedZonesDeleteResponse' with the minimum fields required to make a request.
236+-- Use one of the following lenses to modify other fields as desired:
239+managedZonesDeleteResponse
240+ :: ManagedZonesDeleteResponse
241+managedZonesDeleteResponse =
242+ ManagedZonesDeleteResponse'
243+ { _mzdrHeader = Nothing
246+mzdrHeader :: Lens' ManagedZonesDeleteResponse (Maybe ResponseHeader)
248+ = lens _mzdrHeader (\ s a -> s{_mzdrHeader = a})
250+instance FromJSON ManagedZonesDeleteResponse where
252+ = withObject "ManagedZonesDeleteResponse"
254+ ManagedZonesDeleteResponse' <$> (o .:? "header"))
256+instance ToJSON ManagedZonesDeleteResponse where
257+ toJSON ManagedZonesDeleteResponse'{..}
258+ = object (catMaybes [("header" .=) <$> _mzdrHeader])
93-- | A project resource. The project is a top level container for resources
260-- | A project resource. The project is a top level container for resources
94-- including Cloud DNS ManagedZones. Projects can be created only in the
261-- including Cloud DNS ManagedZones. Projects can be created only in the
@@ -160,6 +327,202 @@ instance ToJSON Project where
160 ("number" .=) <$> _pNumber,
327 ("number" .=) <$> _pNumber,
161 ("quota" .=) <$> _pQuota])
328 ("quota" .=) <$> _pQuota])
330+-- | An operation represents a successful mutation performed on a Cloud DNS
331+-- resource. Operations provide: - An audit log of server resource
332+-- mutations. - A way to recover\/retry API calls in the case where the
333+-- response is never received by the caller. Use the caller specified
334+-- client_operation_id.
336+-- /See:/ 'operation' smart constructor.
337+data Operation = Operation'
338+ { _oStatus :: !(Maybe OperationStatus)
339+ , _oStartTime :: !(Maybe Text)
341+ , _oUser :: !(Maybe Text)
342+ , _oId :: !(Maybe Text)
343+ , _oType :: !(Maybe Text)
344+ , _oZoneContext :: !(Maybe OperationManagedZoneContext)
345+ , _oDNSKeyContext :: !(Maybe OperationDNSKeyContext)
346+ } deriving (Eq,Show,Data,Typeable,Generic)
348+-- | Creates a value of 'Operation' with the minimum fields required to make a request.
350+-- Use one of the following lenses to modify other fields as desired:
366+-- * 'oDNSKeyContext'
371+ { _oStatus = Nothing
372+ , _oStartTime = Nothing
373+ , _oKind = "dns#operation"
377+ , _oZoneContext = Nothing
378+ , _oDNSKeyContext = Nothing
381+-- | Status of the operation. Can be one of the following: \"PENDING\" or
382+-- \"DONE\" (output only).
383+oStatus :: Lens' Operation (Maybe OperationStatus)
384+oStatus = lens _oStatus (\ s a -> s{_oStatus = a})
386+-- | The time that this operation was started by the server. This is in
387+-- RFC3339 text format (output only).
388+oStartTime :: Lens' Operation (Maybe Text)
390+ = lens _oStartTime (\ s a -> s{_oStartTime = a})
392+-- | Identifies what kind of resource this is. Value: the fixed string
393+-- \"dns#operation\".
394+oKind :: Lens' Operation Text
395+oKind = lens _oKind (\ s a -> s{_oKind = a})
397+-- | User who requested the operation, for example: user\'example.com.
398+-- cloud-dns-system for operations automatically done by the system.
400+oUser :: Lens' Operation (Maybe Text)
401+oUser = lens _oUser (\ s a -> s{_oUser = a})
403+-- | Unique identifier for the resource. This is the client_operation_id if
404+-- the client specified it when the mutation was initiated, otherwise, it
405+-- is generated by the server. The name must be 1-63 characters long and
406+-- match the regular expression [-a-z0-9]? (output only)
407+oId :: Lens' Operation (Maybe Text)
408+oId = lens _oId (\ s a -> s{_oId = a})
410+-- | Type of the operation. Operations include insert, update, and delete
412+oType :: Lens' Operation (Maybe Text)
413+oType = lens _oType (\ s a -> s{_oType = a})
415+-- | Only populated if the operation targeted a ManagedZone (output only).
416+oZoneContext :: Lens' Operation (Maybe OperationManagedZoneContext)
418+ = lens _oZoneContext (\ s a -> s{_oZoneContext = a})
420+-- | Only populated if the operation targeted a DnsKey (output only).
421+oDNSKeyContext :: Lens' Operation (Maybe OperationDNSKeyContext)
423+ = lens _oDNSKeyContext
424+ (\ s a -> s{_oDNSKeyContext = a})
426+instance FromJSON Operation where
428+ = withObject "Operation"
431+ (o .:? "status") <*> (o .:? "startTime") <*>
432+ (o .:? "kind" .!= "dns#operation")
436+ <*> (o .:? "zoneContext")
437+ <*> (o .:? "dnsKeyContext"))
439+instance ToJSON Operation where
440+ toJSON Operation'{..}
443+ [("status" .=) <$> _oStatus,
444+ ("startTime" .=) <$> _oStartTime,
445+ Just ("kind" .= _oKind), ("user" .=) <$> _oUser,
446+ ("id" .=) <$> _oId, ("type" .=) <$> _oType,
447+ ("zoneContext" .=) <$> _oZoneContext,
448+ ("dnsKeyContext" .=) <$> _oDNSKeyContext])
450+-- | Parameters for DnsKey key generation. Used for generating initial keys
451+-- for a new ManagedZone and as default when adding a new DnsKey.
453+-- /See:/ 'dnsKeySpec' smart constructor.
454+data DNSKeySpec = DNSKeySpec'
455+ { _dksKeyType :: !(Maybe DNSKeySpecKeyType)
457+ , _dksAlgorithm :: !(Maybe DNSKeySpecAlgorithm)
458+ , _dksKeyLength :: !(Maybe (Textual Word32))
459+ } deriving (Eq,Show,Data,Typeable,Generic)
461+-- | Creates a value of 'DNSKeySpec' with the minimum fields required to make a request.
463+-- Use one of the following lenses to modify other fields as desired:
476+ { _dksKeyType = Nothing
477+ , _dksKind = "dns#dnsKeySpec"
478+ , _dksAlgorithm = Nothing
479+ , _dksKeyLength = Nothing
482+-- | One of \"KEY_SIGNING\" or \"ZONE_SIGNING\". Keys of type KEY_SIGNING
483+-- have the Secure Entry Point flag set and, when active, will be used to
484+-- sign only resource record sets of type DNSKEY. Otherwise, the Secure
485+-- Entry Point flag will be cleared and this key will be used to sign only
486+-- resource record sets of other types.
487+dksKeyType :: Lens' DNSKeySpec (Maybe DNSKeySpecKeyType)
489+ = lens _dksKeyType (\ s a -> s{_dksKeyType = a})
491+-- | Identifies what kind of resource this is. Value: the fixed string
492+-- \"dns#dnsKeySpec\".
493+dksKind :: Lens' DNSKeySpec Text
494+dksKind = lens _dksKind (\ s a -> s{_dksKind = a})
496+-- | String mnemonic specifying the DNSSEC algorithm of this key.
497+dksAlgorithm :: Lens' DNSKeySpec (Maybe DNSKeySpecAlgorithm)
499+ = lens _dksAlgorithm (\ s a -> s{_dksAlgorithm = a})
501+-- | Length of the keys in bits.
502+dksKeyLength :: Lens' DNSKeySpec (Maybe Word32)
504+ = lens _dksKeyLength (\ s a -> s{_dksKeyLength = a})
507+instance FromJSON DNSKeySpec where
509+ = withObject "DNSKeySpec"
512+ (o .:? "keyType") <*>
513+ (o .:? "kind" .!= "dns#dnsKeySpec")
514+ <*> (o .:? "algorithm")
515+ <*> (o .:? "keyLength"))
517+instance ToJSON DNSKeySpec where
518+ toJSON DNSKeySpec'{..}
521+ [("keyType" .=) <$> _dksKeyType,
522+ Just ("kind" .= _dksKind),
523+ ("algorithm" .=) <$> _dksAlgorithm,
524+ ("keyLength" .=) <$> _dksKeyLength])
163-- | An atomic update to a collection of ResourceRecordSets.
526-- | An atomic update to a collection of ResourceRecordSets.
165-- /See:/ 'change' smart constructor.
528-- /See:/ 'change' smart constructor.
@@ -170,6 +533,7 @@ data Change = Change'
170 , _cKind :: !Text
533 , _cKind :: !Text
171 , _cDeletions :: !(Maybe [ResourceRecordSet])
534 , _cDeletions :: !(Maybe [ResourceRecordSet])
172 , _cId :: !(Maybe Text)
535 , _cId :: !(Maybe Text)
536+ , _cIsServing :: !(Maybe Bool)
173 } deriving (Eq,Show,Data,Typeable,Generic)
537 } deriving (Eq,Show,Data,Typeable,Generic)
175-- | Creates a value of 'Change' with the minimum fields required to make a request.
539-- | Creates a value of 'Change' with the minimum fields required to make a request.
@@ -187,6 +551,8 @@ data Change = Change'
187-- * 'cDeletions'
551-- * 'cDeletions'
189-- * 'cId'
553-- * 'cId'
191 :: Change
557 :: Change
@@ -197,6 +563,7 @@ change =
197 , _cKind = "dns#change"
563 , _cKind = "dns#change"
198 , _cDeletions = Nothing
564 , _cDeletions = Nothing
199 , _cId = Nothing
565 , _cId = Nothing
566+ , _cIsServing = Nothing
202-- | Status of the operation (output only).
569-- | Status of the operation (output only).
@@ -232,6 +599,11 @@ cDeletions
232cId :: Lens' Change (Maybe Text)
599cId :: Lens' Change (Maybe Text)
233cId = lens _cId (\ s a -> s{_cId = a})
600cId = lens _cId (\ s a -> s{_cId = a})
602+-- | If the DNS queries for the zone will be served.
603+cIsServing :: Lens' Change (Maybe Bool)
605+ = lens _cIsServing (\ s a -> s{_cIsServing = a})
235instance FromJSON Change where
607instance FromJSON Change where
236 parseJSON
608 parseJSON
237 = withObject "Change"
609 = withObject "Change"
@@ -241,7 +613,8 @@ instance FromJSON Change where
241 <*> (o .:? "startTime")
613 <*> (o .:? "startTime")
242 <*> (o .:? "kind" .!= "dns#change")
614 <*> (o .:? "kind" .!= "dns#change")
243 <*> (o .:? "deletions" .!= mempty)
615 <*> (o .:? "deletions" .!= mempty)
244− <*> (o .:? "id"))
616+ <*> (o .:? "id")
617+ <*> (o .:? "isServing"))
246instance ToJSON Change where
619instance ToJSON Change where
247 toJSON Change'{..}
620 toJSON Change'{..}
@@ -251,14 +624,348 @@ instance ToJSON Change where
251 ("additions" .=) <$> _cAdditions,
624 ("additions" .=) <$> _cAdditions,
252 ("startTime" .=) <$> _cStartTime,
625 ("startTime" .=) <$> _cStartTime,
253 Just ("kind" .= _cKind),
626 Just ("kind" .= _cKind),
254− ("deletions" .=) <$> _cDeletions,
627+ ("deletions" .=) <$> _cDeletions, ("id" .=) <$> _cId,
255− ("id" .=) <$> _cId])
628+ ("isServing" .=) <$> _cIsServing])
630+-- | A DNSSEC key pair.
632+-- /See:/ 'dnsKey' smart constructor.
633+data DNSKey = DNSKey'
634+ { _dkCreationTime :: !(Maybe Text)
635+ , _dkKeyTag :: !(Maybe (Textual Int32))
637+ , _dkDigests :: !(Maybe [DNSKeyDigest])
638+ , _dkPublicKey :: !(Maybe Text)
639+ , _dkAlgorithm :: !(Maybe DNSKeyAlgorithm)
640+ , _dkId :: !(Maybe Text)
641+ , _dkType :: !(Maybe DNSKeyType)
642+ , _dkKeyLength :: !(Maybe (Textual Word32))
643+ , _dkIsActive :: !(Maybe Bool)
644+ , _dkDescription :: !(Maybe Text)
645+ } deriving (Eq,Show,Data,Typeable,Generic)
647+-- | Creates a value of 'DNSKey' with the minimum fields required to make a request.
649+-- Use one of the following lenses to modify other fields as desired:
651+-- * 'dkCreationTime'
676+ { _dkCreationTime = Nothing
677+ , _dkKeyTag = Nothing
678+ , _dkKind = "dns#dnsKey"
679+ , _dkDigests = Nothing
680+ , _dkPublicKey = Nothing
681+ , _dkAlgorithm = Nothing
684+ , _dkKeyLength = Nothing
685+ , _dkIsActive = Nothing
686+ , _dkDescription = Nothing
689+-- | The time that this resource was created in the control plane. This is in
690+-- RFC3339 text format. Output only.
691+dkCreationTime :: Lens' DNSKey (Maybe Text)
693+ = lens _dkCreationTime
694+ (\ s a -> s{_dkCreationTime = a})
696+-- | The key tag is a non-cryptographic hash of the a DNSKEY resource record
697+-- associated with this DnsKey. The key tag can be used to identify a
698+-- DNSKEY more quickly (but it is not a unique identifier). In particular,
699+-- the key tag is used in a parent zone\'s DS record to point at the DNSKEY
700+-- in this child ManagedZone. The key tag is a number in the range [0,
701+-- 65535] and the algorithm to calculate it is specified in RFC4034
702+-- Appendix B. Output only.
703+dkKeyTag :: Lens' DNSKey (Maybe Int32)
705+ = lens _dkKeyTag (\ s a -> s{_dkKeyTag = a}) .
708+-- | Identifies what kind of resource this is. Value: the fixed string
710+dkKind :: Lens' DNSKey Text
711+dkKind = lens _dkKind (\ s a -> s{_dkKind = a})
713+-- | Cryptographic hashes of the DNSKEY resource record associated with this
714+-- DnsKey. These digests are needed to construct a DS record that points at
715+-- this DNS key. Output only.
716+dkDigests :: Lens' DNSKey [DNSKeyDigest]
718+ = lens _dkDigests (\ s a -> s{_dkDigests = a}) .
722+-- | Base64 encoded public half of this key. Output only.
723+dkPublicKey :: Lens' DNSKey (Maybe Text)
725+ = lens _dkPublicKey (\ s a -> s{_dkPublicKey = a})
727+-- | String mnemonic specifying the DNSSEC algorithm of this key. Immutable
728+-- after creation time.
729+dkAlgorithm :: Lens' DNSKey (Maybe DNSKeyAlgorithm)
731+ = lens _dkAlgorithm (\ s a -> s{_dkAlgorithm = a})
733+-- | Unique identifier for the resource; defined by the server (output only).
734+dkId :: Lens' DNSKey (Maybe Text)
735+dkId = lens _dkId (\ s a -> s{_dkId = a})
737+-- | One of \"KEY_SIGNING\" or \"ZONE_SIGNING\". Keys of type KEY_SIGNING
738+-- have the Secure Entry Point flag set and, when active, will be used to
739+-- sign only resource record sets of type DNSKEY. Otherwise, the Secure
740+-- Entry Point flag will be cleared and this key will be used to sign only
741+-- resource record sets of other types. Immutable after creation time.
742+dkType :: Lens' DNSKey (Maybe DNSKeyType)
743+dkType = lens _dkType (\ s a -> s{_dkType = a})
745+-- | Length of the key in bits. Specified at creation time then immutable.
746+dkKeyLength :: Lens' DNSKey (Maybe Word32)
748+ = lens _dkKeyLength (\ s a -> s{_dkKeyLength = a}) .
751+-- | Active keys will be used to sign subsequent changes to the ManagedZone.
752+-- Inactive keys will still be present as DNSKEY Resource Records for the
753+-- use of resolvers validating existing signatures.
754+dkIsActive :: Lens' DNSKey (Maybe Bool)
756+ = lens _dkIsActive (\ s a -> s{_dkIsActive = a})
758+-- | A mutable string of at most 1024 characters associated with this
759+-- resource for the user\'s convenience. Has no effect on the resource\'s
761+dkDescription :: Lens' DNSKey (Maybe Text)
763+ = lens _dkDescription
764+ (\ s a -> s{_dkDescription = a})
766+instance FromJSON DNSKey where
768+ = withObject "DNSKey"
771+ (o .:? "creationTime") <*> (o .:? "keyTag") <*>
772+ (o .:? "kind" .!= "dns#dnsKey")
773+ <*> (o .:? "digests" .!= mempty)
774+ <*> (o .:? "publicKey")
775+ <*> (o .:? "algorithm")
778+ <*> (o .:? "keyLength")
779+ <*> (o .:? "isActive")
780+ <*> (o .:? "description"))
782+instance ToJSON DNSKey where
786+ [("creationTime" .=) <$> _dkCreationTime,
787+ ("keyTag" .=) <$> _dkKeyTag,
788+ Just ("kind" .= _dkKind),
789+ ("digests" .=) <$> _dkDigests,
790+ ("publicKey" .=) <$> _dkPublicKey,
791+ ("algorithm" .=) <$> _dkAlgorithm,
792+ ("id" .=) <$> _dkId, ("type" .=) <$> _dkType,
793+ ("keyLength" .=) <$> _dkKeyLength,
794+ ("isActive" .=) <$> _dkIsActive,
795+ ("description" .=) <$> _dkDescription])
798+-- /See:/ 'operationManagedZoneContext' smart constructor.
799+data OperationManagedZoneContext = OperationManagedZoneContext'
800+ { _omzcOldValue :: !(Maybe ManagedZone)
801+ , _omzcNewValue :: !(Maybe ManagedZone)
802+ } deriving (Eq,Show,Data,Typeable,Generic)
804+-- | Creates a value of 'OperationManagedZoneContext' with the minimum fields required to make a request.
806+-- Use one of the following lenses to modify other fields as desired:
811+operationManagedZoneContext
812+ :: OperationManagedZoneContext
813+operationManagedZoneContext =
814+ OperationManagedZoneContext'
815+ { _omzcOldValue = Nothing
816+ , _omzcNewValue = Nothing
819+-- | The pre-operation ManagedZone resource.
820+omzcOldValue :: Lens' OperationManagedZoneContext (Maybe ManagedZone)
822+ = lens _omzcOldValue (\ s a -> s{_omzcOldValue = a})
824+-- | The post-operation ManagedZone resource.
825+omzcNewValue :: Lens' OperationManagedZoneContext (Maybe ManagedZone)
827+ = lens _omzcNewValue (\ s a -> s{_omzcNewValue = a})
829+instance FromJSON OperationManagedZoneContext where
831+ = withObject "OperationManagedZoneContext"
833+ OperationManagedZoneContext' <$>
834+ (o .:? "oldValue") <*> (o .:? "newValue"))
836+instance ToJSON OperationManagedZoneContext where
837+ toJSON OperationManagedZoneContext'{..}
840+ [("oldValue" .=) <$> _omzcOldValue,
841+ ("newValue" .=) <$> _omzcNewValue])
843+-- | Elements common to every response.
845+-- /See:/ 'responseHeader' smart constructor.
846+newtype ResponseHeader = ResponseHeader'
847+ { _rhOperationId :: Maybe Text
848+ } deriving (Eq,Show,Data,Typeable,Generic)
850+-- | Creates a value of 'ResponseHeader' with the minimum fields required to make a request.
852+-- Use one of the following lenses to modify other fields as desired:
859+ { _rhOperationId = Nothing
862+-- | For mutating operation requests that completed successfully. This is the
863+-- client_operation_id if the client specified it, otherwise it is
864+-- generated by the server (output only).
865+rhOperationId :: Lens' ResponseHeader (Maybe Text)
867+ = lens _rhOperationId
868+ (\ s a -> s{_rhOperationId = a})
870+instance FromJSON ResponseHeader where
872+ = withObject "ResponseHeader"
873+ (\ o -> ResponseHeader' <$> (o .:? "operationId"))
875+instance ToJSON ResponseHeader where
876+ toJSON ResponseHeader'{..}
878+ (catMaybes [("operationId" .=) <$> _rhOperationId])
881+-- /See:/ 'managedZoneOperationsListResponse' smart constructor.
882+data ManagedZoneOperationsListResponse = ManagedZoneOperationsListResponse'
883+ { _mzolrNextPageToken :: !(Maybe Text)
884+ , _mzolrKind :: !Text
885+ , _mzolrHeader :: !(Maybe ResponseHeader)
886+ , _mzolrOperations :: !(Maybe [Operation])
887+ } deriving (Eq,Show,Data,Typeable,Generic)
889+-- | Creates a value of 'ManagedZoneOperationsListResponse' with the minimum fields required to make a request.
891+-- Use one of the following lenses to modify other fields as desired:
893+-- * 'mzolrNextPageToken'
899+-- * 'mzolrOperations'
900+managedZoneOperationsListResponse
901+ :: ManagedZoneOperationsListResponse
902+managedZoneOperationsListResponse =
903+ ManagedZoneOperationsListResponse'
904+ { _mzolrNextPageToken = Nothing
905+ , _mzolrKind = "dns#managedZoneOperationsListResponse"
906+ , _mzolrHeader = Nothing
907+ , _mzolrOperations = Nothing
910+-- | The presence of this field indicates that there exist more results
911+-- following your last page of results in pagination order. To fetch them,
912+-- make another list request using this value as your page token. In this
913+-- way you can retrieve the complete contents of even very large
914+-- collections one page at a time. However, if the contents of the
915+-- collection change between the first and last paginated list request, the
916+-- set of all elements returned will be an inconsistent view of the
917+-- collection. There is no way to retrieve a consistent snapshot of a
918+-- collection larger than the maximum page size.
919+mzolrNextPageToken :: Lens' ManagedZoneOperationsListResponse (Maybe Text)
921+ = lens _mzolrNextPageToken
922+ (\ s a -> s{_mzolrNextPageToken = a})
924+-- | Type of resource.
925+mzolrKind :: Lens' ManagedZoneOperationsListResponse Text
927+ = lens _mzolrKind (\ s a -> s{_mzolrKind = a})
929+mzolrHeader :: Lens' ManagedZoneOperationsListResponse (Maybe ResponseHeader)
931+ = lens _mzolrHeader (\ s a -> s{_mzolrHeader = a})
933+-- | The operation resources.
934+mzolrOperations :: Lens' ManagedZoneOperationsListResponse [Operation]
936+ = lens _mzolrOperations
937+ (\ s a -> s{_mzolrOperations = a})
941+instance FromJSON ManagedZoneOperationsListResponse
944+ = withObject "ManagedZoneOperationsListResponse"
946+ ManagedZoneOperationsListResponse' <$>
947+ (o .:? "nextPageToken") <*>
949+ "dns#managedZoneOperationsListResponse")
950+ <*> (o .:? "header")
951+ <*> (o .:? "operations" .!= mempty))
953+instance ToJSON ManagedZoneOperationsListResponse
955+ toJSON ManagedZoneOperationsListResponse'{..}
958+ [("nextPageToken" .=) <$> _mzolrNextPageToken,
959+ Just ("kind" .= _mzolrKind),
960+ ("header" .=) <$> _mzolrHeader,
961+ ("operations" .=) <$> _mzolrOperations])
258-- /See:/ 'resourceRecordSetsListResponse' smart constructor.
964-- /See:/ 'resourceRecordSetsListResponse' smart constructor.
259data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse'
965data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse'
260 { _rrslrNextPageToken :: !(Maybe Text)
966 { _rrslrNextPageToken :: !(Maybe Text)
261 , _rrslrKind :: !Text
967 , _rrslrKind :: !Text
968+ , _rrslrHeader :: !(Maybe ResponseHeader)
262 , _rrslrRrSets :: !(Maybe [ResourceRecordSet])
969 , _rrslrRrSets :: !(Maybe [ResourceRecordSet])
263 } deriving (Eq,Show,Data,Typeable,Generic)
970 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -270,6 +977,8 @@ data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse'
271-- * 'rrslrKind'
978-- * 'rrslrKind'
273-- * 'rrslrRrSets'
982-- * 'rrslrRrSets'
274resourceRecordSetsListResponse
983resourceRecordSetsListResponse
275 :: ResourceRecordSetsListResponse
984 :: ResourceRecordSetsListResponse
@@ -277,6 +986,7 @@ resourceRecordSetsListResponse =
277 ResourceRecordSetsListResponse'
986 ResourceRecordSetsListResponse'
278 { _rrslrNextPageToken = Nothing
987 { _rrslrNextPageToken = Nothing
279 , _rrslrKind = "dns#resourceRecordSetsListResponse"
988 , _rrslrKind = "dns#resourceRecordSetsListResponse"
989+ , _rrslrHeader = Nothing
280 , _rrslrRrSets = Nothing
990 , _rrslrRrSets = Nothing
@@ -299,6 +1009,10 @@ rrslrKind :: Lens' ResourceRecordSetsListResponse Text
299rrslrKind
1009rrslrKind
300 = lens _rrslrKind (\ s a -> s{_rrslrKind = a})
1010 = lens _rrslrKind (\ s a -> s{_rrslrKind = a})
1012+rrslrHeader :: Lens' ResourceRecordSetsListResponse (Maybe ResponseHeader)
1014+ = lens _rrslrHeader (\ s a -> s{_rrslrHeader = a})
302-- | The resource record set resources.
1016-- | The resource record set resources.
303rrslrRrSets :: Lens' ResourceRecordSetsListResponse [ResourceRecordSet]
1017rrslrRrSets :: Lens' ResourceRecordSetsListResponse [ResourceRecordSet]
304rrslrRrSets
1018rrslrRrSets
@@ -315,6 +1029,7 @@ instance FromJSON ResourceRecordSetsListResponse
315 (o .:? "nextPageToken") <*>
1029 (o .:? "nextPageToken") <*>
316 (o .:? "kind" .!=
1030 (o .:? "kind" .!=
317 "dns#resourceRecordSetsListResponse")
1031 "dns#resourceRecordSetsListResponse")
1032+ <*> (o .:? "header")
318 <*> (o .:? "rrsets" .!= mempty))
1033 <*> (o .:? "rrsets" .!= mempty))
320instance ToJSON ResourceRecordSetsListResponse where
1035instance ToJSON ResourceRecordSetsListResponse where
@@ -323,17 +1038,95 @@ instance ToJSON ResourceRecordSetsListResponse where
323 (catMaybes
1038 (catMaybes
324 [("nextPageToken" .=) <$> _rrslrNextPageToken,
1039 [("nextPageToken" .=) <$> _rrslrNextPageToken,
325 Just ("kind" .= _rrslrKind),
1040 Just ("kind" .= _rrslrKind),
1041+ ("header" .=) <$> _rrslrHeader,
326 ("rrsets" .=) <$> _rrslrRrSets])
1042 ("rrsets" .=) <$> _rrslrRrSets])
1045+-- /See:/ 'managedZoneDNSSecConfig' smart constructor.
1046+data ManagedZoneDNSSecConfig = ManagedZoneDNSSecConfig'
1047+ { _mzdscState :: !(Maybe ManagedZoneDNSSecConfigState)
1048+ , _mzdscKind :: !Text
1049+ , _mzdscDefaultKeySpecs :: !(Maybe [DNSKeySpec])
1050+ , _mzdscNonExistence :: !(Maybe ManagedZoneDNSSecConfigNonExistence)
1051+ } deriving (Eq,Show,Data,Typeable,Generic)
1053+-- | Creates a value of 'ManagedZoneDNSSecConfig' with the minimum fields required to make a request.
1055+-- Use one of the following lenses to modify other fields as desired:
1061+-- * 'mzdscDefaultKeySpecs'
1063+-- * 'mzdscNonExistence'
1064+managedZoneDNSSecConfig
1065+ :: ManagedZoneDNSSecConfig
1066+managedZoneDNSSecConfig =
1067+ ManagedZoneDNSSecConfig'
1068+ { _mzdscState = Nothing
1069+ , _mzdscKind = "dns#managedZoneDnsSecConfig"
1070+ , _mzdscDefaultKeySpecs = Nothing
1071+ , _mzdscNonExistence = Nothing
1074+-- | Specifies whether DNSSEC is enabled, and what mode it is in.
1075+mzdscState :: Lens' ManagedZoneDNSSecConfig (Maybe ManagedZoneDNSSecConfigState)
1077+ = lens _mzdscState (\ s a -> s{_mzdscState = a})
1079+-- | Identifies what kind of resource this is. Value: the fixed string
1080+-- \"dns#managedZoneDnsSecConfig\".
1081+mzdscKind :: Lens' ManagedZoneDNSSecConfig Text
1083+ = lens _mzdscKind (\ s a -> s{_mzdscKind = a})
1085+-- | Specifies parameters that will be used for generating initial DnsKeys
1086+-- for this ManagedZone. Output only while state is not OFF.
1087+mzdscDefaultKeySpecs :: Lens' ManagedZoneDNSSecConfig [DNSKeySpec]
1088+mzdscDefaultKeySpecs
1089+ = lens _mzdscDefaultKeySpecs
1090+ (\ s a -> s{_mzdscDefaultKeySpecs = a})
1094+-- | Specifies the mechanism used to provide authenticated
1095+-- denial-of-existence responses. Output only while state is not OFF.
1096+mzdscNonExistence :: Lens' ManagedZoneDNSSecConfig (Maybe ManagedZoneDNSSecConfigNonExistence)
1098+ = lens _mzdscNonExistence
1099+ (\ s a -> s{_mzdscNonExistence = a})
1101+instance FromJSON ManagedZoneDNSSecConfig where
1103+ = withObject "ManagedZoneDNSSecConfig"
1105+ ManagedZoneDNSSecConfig' <$>
1106+ (o .:? "state") <*>
1107+ (o .:? "kind" .!= "dns#managedZoneDnsSecConfig")
1108+ <*> (o .:? "defaultKeySpecs" .!= mempty)
1109+ <*> (o .:? "nonExistence"))
1111+instance ToJSON ManagedZoneDNSSecConfig where
1112+ toJSON ManagedZoneDNSSecConfig'{..}
1115+ [("state" .=) <$> _mzdscState,
1116+ Just ("kind" .= _mzdscKind),
1117+ ("defaultKeySpecs" .=) <$> _mzdscDefaultKeySpecs,
1118+ ("nonExistence" .=) <$> _mzdscNonExistence])
328-- | A unit of data that will be returned by the DNS servers.
1120-- | A unit of data that will be returned by the DNS servers.
330-- /See:/ 'resourceRecordSet' smart constructor.
1122-- /See:/ 'resourceRecordSet' smart constructor.
331data ResourceRecordSet = ResourceRecordSet'
1123data ResourceRecordSet = ResourceRecordSet'
332− { _rrsTtl :: !(Maybe (Textual Int32))
1124+ { _rrsTtl :: !(Maybe (Textual Int32))
333− , _rrsKind :: !Text
1125+ , _rrsKind :: !Text
1126+ , _rrsSignatureRrDatas :: !(Maybe [Text])
334− , _rrsName :: !(Maybe Text)
1127+ , _rrsName :: !(Maybe Text)
335− , _rrsType :: !(Maybe Text)
1128+ , _rrsType :: !(Maybe Text)
336− , _rrsRrDatas :: !(Maybe [Text])
1129+ , _rrsRrDatas :: !(Maybe [Text])
337 } deriving (Eq,Show,Data,Typeable,Generic)
1130 } deriving (Eq,Show,Data,Typeable,Generic)
339-- | Creates a value of 'ResourceRecordSet' with the minimum fields required to make a request.
1132-- | Creates a value of 'ResourceRecordSet' with the minimum fields required to make a request.
@@ -344,6 +1137,8 @@ data ResourceRecordSet = ResourceRecordSet'
345-- * 'rrsKind'
1138-- * 'rrsKind'
1140+-- * 'rrsSignatureRrDatas'
347-- * 'rrsName'
1142-- * 'rrsName'
349-- * 'rrsType'
1144-- * 'rrsType'
@@ -355,6 +1150,7 @@ resourceRecordSet =
355 ResourceRecordSet'
1150 ResourceRecordSet'
356 { _rrsTtl = Nothing
1151 { _rrsTtl = Nothing
357 , _rrsKind = "dns#resourceRecordSet"
1152 , _rrsKind = "dns#resourceRecordSet"
1153+ , _rrsSignatureRrDatas = Nothing
358 , _rrsName = Nothing
1154 , _rrsName = Nothing
359 , _rrsType = Nothing
1155 , _rrsType = Nothing
360 , _rrsRrDatas = Nothing
1156 , _rrsRrDatas = Nothing
@@ -372,6 +1168,14 @@ rrsTtl
372rrsKind :: Lens' ResourceRecordSet Text
1168rrsKind :: Lens' ResourceRecordSet Text
373rrsKind = lens _rrsKind (\ s a -> s{_rrsKind = a})
1169rrsKind = lens _rrsKind (\ s a -> s{_rrsKind = a})
1171+-- | As defined in RFC 4034 (section 3.2).
1172+rrsSignatureRrDatas :: Lens' ResourceRecordSet [Text]
1174+ = lens _rrsSignatureRrDatas
1175+ (\ s a -> s{_rrsSignatureRrDatas = a})
375-- | For example, www.example.com.
1179-- | For example, www.example.com.
376rrsName :: Lens' ResourceRecordSet (Maybe Text)
1180rrsName :: Lens' ResourceRecordSet (Maybe Text)
377rrsName = lens _rrsName (\ s a -> s{_rrsName = a})
1181rrsName = lens _rrsName (\ s a -> s{_rrsName = a})
@@ -395,6 +1199,7 @@ instance FromJSON ResourceRecordSet where
395 ResourceRecordSet' <$>
1199 ResourceRecordSet' <$>
396 (o .:? "ttl") <*>
1200 (o .:? "ttl") <*>
397 (o .:? "kind" .!= "dns#resourceRecordSet")
1201 (o .:? "kind" .!= "dns#resourceRecordSet")
1202+ <*> (o .:? "signatureRrdatas" .!= mempty)
398 <*> (o .:? "name")
1203 <*> (o .:? "name")
399 <*> (o .:? "type")
1204 <*> (o .:? "type")
400 <*> (o .:? "rrdatas" .!= mempty))
1205 <*> (o .:? "rrdatas" .!= mempty))
@@ -404,6 +1209,7 @@ instance ToJSON ResourceRecordSet where
404 = object
1209 = object
405 (catMaybes
1210 (catMaybes
406 [("ttl" .=) <$> _rrsTtl, Just ("kind" .= _rrsKind),
1211 [("ttl" .=) <$> _rrsTtl, Just ("kind" .= _rrsKind),
1212+ ("signatureRrdatas" .=) <$> _rrsSignatureRrDatas,
407 ("name" .=) <$> _rrsName, ("type" .=) <$> _rrsType,
1213 ("name" .=) <$> _rrsName, ("type" .=) <$> _rrsType,
408 ("rrdatas" .=) <$> _rrsRrDatas])
1214 ("rrdatas" .=) <$> _rrsRrDatas])
@@ -420,6 +1226,7 @@ data ManagedZone = ManagedZone'
420 , _mzId :: !(Maybe (Textual Word64))
1226 , _mzId :: !(Maybe (Textual Word64))
421 , _mzDNSName :: !(Maybe Text)
1227 , _mzDNSName :: !(Maybe Text)
422 , _mzDescription :: !(Maybe Text)
1228 , _mzDescription :: !(Maybe Text)
1229+ , _mzDNSsecConfig :: !(Maybe ManagedZoneDNSSecConfig)
423 , _mzNameServers :: !(Maybe [Text])
1230 , _mzNameServers :: !(Maybe [Text])
424 } deriving (Eq,Show,Data,Typeable,Generic)
1231 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -441,6 +1248,8 @@ data ManagedZone = ManagedZone'
442-- * 'mzDescription'
1249-- * 'mzDescription'
1251+-- * 'mzDNSsecConfig'
444-- * 'mzNameServers'
1253-- * 'mzNameServers'
445managedZone
1254managedZone
446 :: ManagedZone
1255 :: ManagedZone
@@ -453,6 +1262,7 @@ managedZone =
453 , _mzId = Nothing
1262 , _mzId = Nothing
454 , _mzDNSName = Nothing
1263 , _mzDNSName = Nothing
455 , _mzDescription = Nothing
1264 , _mzDescription = Nothing
1265+ , _mzDNSsecConfig = Nothing
456 , _mzNameServers = Nothing
1266 , _mzNameServers = Nothing
@@ -477,7 +1287,7 @@ mzNameServerSet
477 (\ s a -> s{_mzNameServerSet = a})
1287 (\ s a -> s{_mzNameServerSet = a})
479-- | User assigned name for this resource. Must be unique within the project.
1289-- | User assigned name for this resource. Must be unique within the project.
480−-- The name must be 1-32 characters long, must begin with a letter, end
1290+-- The name must be 1-63 characters long, must begin with a letter, end
481-- with a letter or digit, and only contain lowercase letters, digits or
1291-- with a letter or digit, and only contain lowercase letters, digits or
482-- dashes.
1292-- dashes.
483mzName :: Lens' ManagedZone (Maybe Text)
1293mzName :: Lens' ManagedZone (Maybe Text)
@@ -502,6 +1312,12 @@ mzDescription
502 = lens _mzDescription
1312 = lens _mzDescription
503 (\ s a -> s{_mzDescription = a})
1313 (\ s a -> s{_mzDescription = a})
1315+-- | DNSSEC configuration.
1316+mzDNSsecConfig :: Lens' ManagedZone (Maybe ManagedZoneDNSSecConfig)
1318+ = lens _mzDNSsecConfig
1319+ (\ s a -> s{_mzDNSsecConfig = a})
505-- | Delegate your managed_zone to these virtual name servers; defined by the
1321-- | Delegate your managed_zone to these virtual name servers; defined by the
506-- server (output only)
1322-- server (output only)
507mzNameServers :: Lens' ManagedZone [Text]
1323mzNameServers :: Lens' ManagedZone [Text]
@@ -523,6 +1339,7 @@ instance FromJSON ManagedZone where
523 <*> (o .:? "id")
1339 <*> (o .:? "id")
524 <*> (o .:? "dnsName")
1340 <*> (o .:? "dnsName")
525 <*> (o .:? "description")
1341 <*> (o .:? "description")
1342+ <*> (o .:? "dnssecConfig")
526 <*> (o .:? "nameServers" .!= mempty))
1343 <*> (o .:? "nameServers" .!= mempty))
528instance ToJSON ManagedZone where
1345instance ToJSON ManagedZone where
@@ -535,6 +1352,7 @@ instance ToJSON ManagedZone where
535 ("name" .=) <$> _mzName, ("id" .=) <$> _mzId,
1352 ("name" .=) <$> _mzName, ("id" .=) <$> _mzId,
536 ("dnsName" .=) <$> _mzDNSName,
1353 ("dnsName" .=) <$> _mzDNSName,
537 ("description" .=) <$> _mzDescription,
1354 ("description" .=) <$> _mzDescription,
1355+ ("dnssecConfig" .=) <$> _mzDNSsecConfig,
538 ("nameServers" .=) <$> _mzNameServers])
1356 ("nameServers" .=) <$> _mzNameServers])
540-- | Limits associated with a Project.
1358-- | Limits associated with a Project.
@@ -542,12 +1360,14 @@ instance ToJSON ManagedZone where
542-- /See:/ 'quota' smart constructor.
1360-- /See:/ 'quota' smart constructor.
543data Quota = Quota'
1361data Quota = Quota'
544 { _qRrSetDeletionsPerChange :: !(Maybe (Textual Int32))
1362 { _qRrSetDeletionsPerChange :: !(Maybe (Textual Int32))
1363+ , _qWhiteListedKeySpecs :: !(Maybe [DNSKeySpec])
545 , _qRrSetsPerManagedZone :: !(Maybe (Textual Int32))
1364 , _qRrSetsPerManagedZone :: !(Maybe (Textual Int32))
546 , _qKind :: !Text
1365 , _qKind :: !Text
547 , _qResourceRecordsPerRrSet :: !(Maybe (Textual Int32))
1366 , _qResourceRecordsPerRrSet :: !(Maybe (Textual Int32))
548 , _qRrSetAdditionsPerChange :: !(Maybe (Textual Int32))
1367 , _qRrSetAdditionsPerChange :: !(Maybe (Textual Int32))
549 , _qManagedZones :: !(Maybe (Textual Int32))
1368 , _qManagedZones :: !(Maybe (Textual Int32))
550 , _qTotalRrDataSizePerChange :: !(Maybe (Textual Int32))
1369 , _qTotalRrDataSizePerChange :: !(Maybe (Textual Int32))
1370+ , _qDNSKeysPerManagedZone :: !(Maybe (Textual Int32))
551 } deriving (Eq,Show,Data,Typeable,Generic)
1371 } deriving (Eq,Show,Data,Typeable,Generic)
553-- | Creates a value of 'Quota' with the minimum fields required to make a request.
1373-- | Creates a value of 'Quota' with the minimum fields required to make a request.
@@ -556,6 +1376,8 @@ data Quota = Quota'
557-- * 'qRrSetDeletionsPerChange'
1377-- * 'qRrSetDeletionsPerChange'
1379+-- * 'qWhiteListedKeySpecs'
559-- * 'qRrSetsPerManagedZone'
1381-- * 'qRrSetsPerManagedZone'
561-- * 'qKind'
1383-- * 'qKind'
@@ -567,17 +1389,21 @@ data Quota = Quota'
567-- * 'qManagedZones'
1389-- * 'qManagedZones'
569-- * 'qTotalRrDataSizePerChange'
1391-- * 'qTotalRrDataSizePerChange'
1393+-- * 'qDNSKeysPerManagedZone'
571 :: Quota
1395 :: Quota
574 { _qRrSetDeletionsPerChange = Nothing
1398 { _qRrSetDeletionsPerChange = Nothing
1399+ , _qWhiteListedKeySpecs = Nothing
575 , _qRrSetsPerManagedZone = Nothing
1400 , _qRrSetsPerManagedZone = Nothing
576 , _qKind = "dns#quota"
1401 , _qKind = "dns#quota"
577 , _qResourceRecordsPerRrSet = Nothing
1402 , _qResourceRecordsPerRrSet = Nothing
578 , _qRrSetAdditionsPerChange = Nothing
1403 , _qRrSetAdditionsPerChange = Nothing
579 , _qManagedZones = Nothing
1404 , _qManagedZones = Nothing
580 , _qTotalRrDataSizePerChange = Nothing
1405 , _qTotalRrDataSizePerChange = Nothing
1406+ , _qDNSKeysPerManagedZone = Nothing
583-- | Maximum allowed number of ResourceRecordSets to delete per
1409-- | Maximum allowed number of ResourceRecordSets to delete per
@@ -588,6 +1414,14 @@ qRrSetDeletionsPerChange
588 (\ s a -> s{_qRrSetDeletionsPerChange = a})
1414 (\ s a -> s{_qRrSetDeletionsPerChange = a})
589 . mapping _Coerce
1415 . mapping _Coerce
1417+-- | DNSSEC algorithm and key length types that can be used for DnsKeys.
1418+qWhiteListedKeySpecs :: Lens' Quota [DNSKeySpec]
1419+qWhiteListedKeySpecs
1420+ = lens _qWhiteListedKeySpecs
1421+ (\ s a -> s{_qWhiteListedKeySpecs = a})
591-- | Maximum allowed number of ResourceRecordSets per zone in the project.
1425-- | Maximum allowed number of ResourceRecordSets per zone in the project.
592qRrSetsPerManagedZone :: Lens' Quota (Maybe Int32)
1426qRrSetsPerManagedZone :: Lens' Quota (Maybe Int32)
593qRrSetsPerManagedZone
1427qRrSetsPerManagedZone
@@ -630,18 +1464,27 @@ qTotalRrDataSizePerChange
630 (\ s a -> s{_qTotalRrDataSizePerChange = a})
1464 (\ s a -> s{_qTotalRrDataSizePerChange = a})
631 . mapping _Coerce
1465 . mapping _Coerce
1467+-- | Maximum allowed number of DnsKeys per ManagedZone.
1468+qDNSKeysPerManagedZone :: Lens' Quota (Maybe Int32)
1469+qDNSKeysPerManagedZone
1470+ = lens _qDNSKeysPerManagedZone
1471+ (\ s a -> s{_qDNSKeysPerManagedZone = a})
633instance FromJSON Quota where
1474instance FromJSON Quota where
634 parseJSON
1475 parseJSON
635 = withObject "Quota"
1476 = withObject "Quota"
637 Quota' <$>
1478 Quota' <$>
638 (o .:? "rrsetDeletionsPerChange") <*>
1479 (o .:? "rrsetDeletionsPerChange") <*>
1480+ (o .:? "whitelistedKeySpecs" .!= mempty)
639− (o .:? "rrsetsPerManagedZone")
1481+ <*> (o .:? "rrsetsPerManagedZone")
640 <*> (o .:? "kind" .!= "dns#quota")
1482 <*> (o .:? "kind" .!= "dns#quota")
641 <*> (o .:? "resourceRecordsPerRrset")
1483 <*> (o .:? "resourceRecordsPerRrset")
642 <*> (o .:? "rrsetAdditionsPerChange")
1484 <*> (o .:? "rrsetAdditionsPerChange")
643 <*> (o .:? "managedZones")
1485 <*> (o .:? "managedZones")
644− <*> (o .:? "totalRrdataSizePerChange"))
1486+ <*> (o .:? "totalRrdataSizePerChange")
1487+ <*> (o .:? "dnsKeysPerManagedZone"))
646instance ToJSON Quota where
1489instance ToJSON Quota where
647 toJSON Quota'{..}
1490 toJSON Quota'{..}
@@ -649,6 +1492,7 @@ instance ToJSON Quota where
649 (catMaybes
1492 (catMaybes
650 [("rrsetDeletionsPerChange" .=) <$>
1493 [("rrsetDeletionsPerChange" .=) <$>
651 _qRrSetDeletionsPerChange,
1494 _qRrSetDeletionsPerChange,
1495+ ("whitelistedKeySpecs" .=) <$> _qWhiteListedKeySpecs,
652 ("rrsetsPerManagedZone" .=) <$>
1496 ("rrsetsPerManagedZone" .=) <$>
653 _qRrSetsPerManagedZone,
1497 _qRrSetsPerManagedZone,
654 Just ("kind" .= _qKind),
1498 Just ("kind" .= _qKind),
@@ -658,13 +1502,62 @@ instance ToJSON Quota where
658 _qRrSetAdditionsPerChange,
1502 _qRrSetAdditionsPerChange,
659 ("managedZones" .=) <$> _qManagedZones,
1503 ("managedZones" .=) <$> _qManagedZones,
660 ("totalRrdataSizePerChange" .=) <$>
1504 ("totalRrdataSizePerChange" .=) <$>
661− _qTotalRrDataSizePerChange])
1505+ _qTotalRrDataSizePerChange,
1506+ ("dnsKeysPerManagedZone" .=) <$>
1507+ _qDNSKeysPerManagedZone])
1510+-- /See:/ 'dnsKeyDigest' smart constructor.
1511+data DNSKeyDigest = DNSKeyDigest'
1512+ { _dkdDigest :: !(Maybe Text)
1513+ , _dkdType :: !(Maybe DNSKeyDigestType)
1514+ } deriving (Eq,Show,Data,Typeable,Generic)
1516+-- | Creates a value of 'DNSKeyDigest' with the minimum fields required to make a request.
1518+-- Use one of the following lenses to modify other fields as desired:
1527+ { _dkdDigest = Nothing
1528+ , _dkdType = Nothing
1531+-- | The base-16 encoded bytes of this digest. Suitable for use in a DS
1533+dkdDigest :: Lens' DNSKeyDigest (Maybe Text)
1535+ = lens _dkdDigest (\ s a -> s{_dkdDigest = a})
1537+-- | Specifies the algorithm used to calculate this digest.
1538+dkdType :: Lens' DNSKeyDigest (Maybe DNSKeyDigestType)
1539+dkdType = lens _dkdType (\ s a -> s{_dkdType = a})
1541+instance FromJSON DNSKeyDigest where
1543+ = withObject "DNSKeyDigest"
1546+ (o .:? "digest") <*> (o .:? "type"))
1548+instance ToJSON DNSKeyDigest where
1549+ toJSON DNSKeyDigest'{..}
1552+ [("digest" .=) <$> _dkdDigest,
1553+ ("type" .=) <$> _dkdType])
664-- /See:/ 'managedZonesListResponse' smart constructor.
1556-- /See:/ 'managedZonesListResponse' smart constructor.
665data ManagedZonesListResponse = ManagedZonesListResponse'
1557data ManagedZonesListResponse = ManagedZonesListResponse'
666 { _mzlrNextPageToken :: !(Maybe Text)
1558 { _mzlrNextPageToken :: !(Maybe Text)
667 , _mzlrKind :: !Text
1559 , _mzlrKind :: !Text
1560+ , _mzlrHeader :: !(Maybe ResponseHeader)
668 , _mzlrManagedZones :: !(Maybe [ManagedZone])
1561 , _mzlrManagedZones :: !(Maybe [ManagedZone])
669 } deriving (Eq,Show,Data,Typeable,Generic)
1562 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -676,6 +1569,8 @@ data ManagedZonesListResponse = ManagedZonesListResponse'
677-- * 'mzlrKind'
1570-- * 'mzlrKind'
679-- * 'mzlrManagedZones'
1574-- * 'mzlrManagedZones'
680managedZonesListResponse
1575managedZonesListResponse
681 :: ManagedZonesListResponse
1576 :: ManagedZonesListResponse
@@ -683,6 +1578,7 @@ managedZonesListResponse =
683 ManagedZonesListResponse'
1578 ManagedZonesListResponse'
684 { _mzlrNextPageToken = Nothing
1579 { _mzlrNextPageToken = Nothing
685 , _mzlrKind = "dns#managedZonesListResponse"
1580 , _mzlrKind = "dns#managedZonesListResponse"
1581+ , _mzlrHeader = Nothing
686 , _mzlrManagedZones = Nothing
1582 , _mzlrManagedZones = Nothing
@@ -704,6 +1600,10 @@ mzlrNextPageToken
704mzlrKind :: Lens' ManagedZonesListResponse Text
1600mzlrKind :: Lens' ManagedZonesListResponse Text
705mzlrKind = lens _mzlrKind (\ s a -> s{_mzlrKind = a})
1601mzlrKind = lens _mzlrKind (\ s a -> s{_mzlrKind = a})
1603+mzlrHeader :: Lens' ManagedZonesListResponse (Maybe ResponseHeader)
1605+ = lens _mzlrHeader (\ s a -> s{_mzlrHeader = a})
707-- | The managed zone resources.
1607-- | The managed zone resources.
708mzlrManagedZones :: Lens' ManagedZonesListResponse [ManagedZone]
1608mzlrManagedZones :: Lens' ManagedZonesListResponse [ManagedZone]
709mzlrManagedZones
1609mzlrManagedZones
@@ -719,6 +1619,7 @@ instance FromJSON ManagedZonesListResponse where
719 ManagedZonesListResponse' <$>
1619 ManagedZonesListResponse' <$>
720 (o .:? "nextPageToken") <*>
1620 (o .:? "nextPageToken") <*>
721 (o .:? "kind" .!= "dns#managedZonesListResponse")
1621 (o .:? "kind" .!= "dns#managedZonesListResponse")
1622+ <*> (o .:? "header")
722 <*> (o .:? "managedZones" .!= mempty))
1623 <*> (o .:? "managedZones" .!= mempty))
724instance ToJSON ManagedZonesListResponse where
1625instance ToJSON ManagedZonesListResponse where
@@ -727,4 +1628,5 @@ instance ToJSON ManagedZonesListResponse where
727 (catMaybes
1628 (catMaybes
728 [("nextPageToken" .=) <$> _mzlrNextPageToken,
1629 [("nextPageToken" .=) <$> _mzlrNextPageToken,
729 Just ("kind" .= _mzlrKind),
1630 Just ("kind" .= _mzlrKind),
1631+ ("header" .=) <$> _mzlrHeader,
730 ("managedZones" .=) <$> _mzlrManagedZones])
1632 ("managedZones" .=) <$> _mzlrManagedZones])