diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/DNS.hs b/gen/Network/Google/DNS.hs --- a/gen/Network/Google/DNS.hs +++ b/gen/Network/Google/DNS.hs @@ -91,6 +91,12 @@ , odkcOldValue , odkcNewValue + -- ** ManagedZonePrivateVisibilityConfigNetwork + , ManagedZonePrivateVisibilityConfigNetwork + , managedZonePrivateVisibilityConfigNetwork + , mzpvcnKind + , mzpvcnNetworkURL + -- ** DNSKeysListResponse , DNSKeysListResponse , dnsKeysListResponse @@ -110,6 +116,9 @@ -- ** ManagedZoneDNSSecConfigState , ManagedZoneDNSSecConfigState (..) + -- ** ManagedZoneVisibility + , ManagedZoneVisibility (..) + -- ** Project , Project , project @@ -209,6 +218,12 @@ -- ** ChangeStatus , ChangeStatus (..) + -- ** ManagedZonePrivateVisibilityConfig + , ManagedZonePrivateVisibilityConfig + , managedZonePrivateVisibilityConfig + , mzpvcNetworks + , mzpvcKind + -- ** ManagedZoneDNSSecConfig , ManagedZoneDNSSecConfig , managedZoneDNSSecConfig @@ -233,6 +248,7 @@ , mzCreationTime , mzKind , mzNameServerSet + , mzVisibility , mzName , mzId , mzLabels @@ -240,6 +256,7 @@ , mzDescription , mzDNSsecConfig , mzNameServers + , mzPrivateVisibilityConfig -- ** ManagedZoneLabels , ManagedZoneLabels @@ -254,10 +271,12 @@ , qRrSetsPerManagedZone , qKind , qResourceRecordsPerRrSet + , qManagedZonesPerNetwork , qRrSetAdditionsPerChange , qManagedZones , qTotalRrDataSizePerChange , qDNSKeysPerManagedZone + , qNetworksPerManagedZone -- ** DNSKeyType , DNSKeyType (..) diff --git a/gen/Network/Google/DNS/Types.hs b/gen/Network/Google/DNS/Types.hs --- a/gen/Network/Google/DNS/Types.hs +++ b/gen/Network/Google/DNS/Types.hs @@ -37,6 +37,12 @@ , odkcOldValue , odkcNewValue + -- * ManagedZonePrivateVisibilityConfigNetwork + , ManagedZonePrivateVisibilityConfigNetwork + , managedZonePrivateVisibilityConfigNetwork + , mzpvcnKind + , mzpvcnNetworkURL + -- * DNSKeysListResponse , DNSKeysListResponse , dnsKeysListResponse @@ -56,6 +62,9 @@ -- * ManagedZoneDNSSecConfigState , ManagedZoneDNSSecConfigState (..) + -- * ManagedZoneVisibility + , ManagedZoneVisibility (..) + -- * Project , Project , project @@ -155,6 +164,12 @@ -- * ChangeStatus , ChangeStatus (..) + -- * ManagedZonePrivateVisibilityConfig + , ManagedZonePrivateVisibilityConfig + , managedZonePrivateVisibilityConfig + , mzpvcNetworks + , mzpvcKind + -- * ManagedZoneDNSSecConfig , ManagedZoneDNSSecConfig , managedZoneDNSSecConfig @@ -179,6 +194,7 @@ , mzCreationTime , mzKind , mzNameServerSet + , mzVisibility , mzName , mzId , mzLabels @@ -186,6 +202,7 @@ , mzDescription , mzDNSsecConfig , mzNameServers + , mzPrivateVisibilityConfig -- * ManagedZoneLabels , ManagedZoneLabels @@ -200,10 +217,12 @@ , qRrSetsPerManagedZone , qKind , qResourceRecordsPerRrSet + , qManagedZonesPerNetwork , qRrSetAdditionsPerChange , qManagedZones , qTotalRrDataSizePerChange , qDNSKeysPerManagedZone + , qNetworksPerManagedZone -- * DNSKeyType , DNSKeyType (..) @@ -238,16 +257,16 @@ -- | View your DNS records hosted by Google Cloud DNS ndevClouddnsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/ndev.clouddns.readonly"] -ndevClouddnsReadOnlyScope = Proxy; +ndevClouddnsReadOnlyScope = Proxy -- | View your data across Google Cloud Platform services cloudPlatformReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform.read-only"] -cloudPlatformReadOnlyScope = Proxy; +cloudPlatformReadOnlyScope = Proxy -- | View and manage your DNS records hosted by Google Cloud DNS ndevClouddnsReadwriteScope :: Proxy '["https://www.googleapis.com/auth/ndev.clouddns.readwrite"] -ndevClouddnsReadwriteScope = Proxy; +ndevClouddnsReadwriteScope = Proxy -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] -cloudPlatformScope = Proxy; +cloudPlatformScope = Proxy diff --git a/gen/Network/Google/DNS/Types/Product.hs b/gen/Network/Google/DNS/Types/Product.hs --- a/gen/Network/Google/DNS/Types/Product.hs +++ b/gen/Network/Google/DNS/Types/Product.hs @@ -22,11 +22,14 @@ -- -- /See:/ 'operationDNSKeyContext' smart constructor. -data OperationDNSKeyContext = OperationDNSKeyContext' +data OperationDNSKeyContext = + OperationDNSKeyContext' { _odkcOldValue :: !(Maybe DNSKey) , _odkcNewValue :: !(Maybe DNSKey) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationDNSKeyContext' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -37,11 +40,9 @@ operationDNSKeyContext :: OperationDNSKeyContext operationDNSKeyContext = - OperationDNSKeyContext' - { _odkcOldValue = Nothing - , _odkcNewValue = Nothing - } + OperationDNSKeyContext' {_odkcOldValue = Nothing, _odkcNewValue = Nothing} + -- | The pre-operation DnsKey resource. odkcOldValue :: Lens' OperationDNSKeyContext (Maybe DNSKey) odkcOldValue @@ -66,16 +67,80 @@ [("oldValue" .=) <$> _odkcOldValue, ("newValue" .=) <$> _odkcNewValue]) +-- +-- /See:/ 'managedZonePrivateVisibilityConfigNetwork' smart constructor. +data ManagedZonePrivateVisibilityConfigNetwork = + ManagedZonePrivateVisibilityConfigNetwork' + { _mzpvcnKind :: !Text + , _mzpvcnNetworkURL :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ManagedZonePrivateVisibilityConfigNetwork' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mzpvcnKind' +-- +-- * 'mzpvcnNetworkURL' +managedZonePrivateVisibilityConfigNetwork + :: ManagedZonePrivateVisibilityConfigNetwork +managedZonePrivateVisibilityConfigNetwork = + ManagedZonePrivateVisibilityConfigNetwork' + { _mzpvcnKind = "dns#managedZonePrivateVisibilityConfigNetwork" + , _mzpvcnNetworkURL = Nothing + } + + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"dns#managedZonePrivateVisibilityConfigNetwork\". +mzpvcnKind :: Lens' ManagedZonePrivateVisibilityConfigNetwork Text +mzpvcnKind + = lens _mzpvcnKind (\ s a -> s{_mzpvcnKind = a}) + +-- | The fully qualified URL of the VPC network to bind to. This should be +-- formatted like +-- https:\/\/www.googleapis.com\/compute\/v1\/projects\/{project}\/global\/networks\/{network} +mzpvcnNetworkURL :: Lens' ManagedZonePrivateVisibilityConfigNetwork (Maybe Text) +mzpvcnNetworkURL + = lens _mzpvcnNetworkURL + (\ s a -> s{_mzpvcnNetworkURL = a}) + +instance FromJSON + ManagedZonePrivateVisibilityConfigNetwork + where + parseJSON + = withObject + "ManagedZonePrivateVisibilityConfigNetwork" + (\ o -> + ManagedZonePrivateVisibilityConfigNetwork' <$> + (o .:? "kind" .!= + "dns#managedZonePrivateVisibilityConfigNetwork") + <*> (o .:? "networkUrl")) + +instance ToJSON + ManagedZonePrivateVisibilityConfigNetwork + where + toJSON ManagedZonePrivateVisibilityConfigNetwork'{..} + = object + (catMaybes + [Just ("kind" .= _mzpvcnKind), + ("networkUrl" .=) <$> _mzpvcnNetworkURL]) + -- | The response to a request to enumerate DnsKeys in a ManagedZone. -- -- /See:/ 'dnsKeysListResponse' smart constructor. -data DNSKeysListResponse = DNSKeysListResponse' +data DNSKeysListResponse = + DNSKeysListResponse' { _dklrNextPageToken :: !(Maybe Text) , _dklrDNSKeys :: !(Maybe [DNSKey]) , _dklrKind :: !Text , _dklrHeader :: !(Maybe ResponseHeader) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DNSKeysListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -90,13 +155,14 @@ dnsKeysListResponse :: DNSKeysListResponse dnsKeysListResponse = - DNSKeysListResponse' + DNSKeysListResponse' { _dklrNextPageToken = Nothing , _dklrDNSKeys = Nothing , _dklrKind = "dns#dnsKeysListResponse" , _dklrHeader = Nothing } + -- | The presence of this field indicates that there exist more results -- following your last page of results in pagination order. To fetch them, -- make another list request using this value as your pagination token. In @@ -149,13 +215,16 @@ -- collection. -- -- /See:/ 'changesListResponse' smart constructor. -data ChangesListResponse = ChangesListResponse' +data ChangesListResponse = + ChangesListResponse' { _clrNextPageToken :: !(Maybe Text) , _clrChanges :: !(Maybe [Change]) , _clrKind :: !Text , _clrHeader :: !(Maybe ResponseHeader) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangesListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -170,13 +239,14 @@ changesListResponse :: ChangesListResponse changesListResponse = - ChangesListResponse' + ChangesListResponse' { _clrNextPageToken = Nothing , _clrChanges = Nothing , _clrKind = "dns#changesListResponse" , _clrHeader = Nothing } + -- | The presence of this field indicates that there exist more results -- following your last page of results in pagination order. To fetch them, -- make another list request using this value as your pagination token. In @@ -230,13 +300,16 @@ -- APIs console. -- -- /See:/ 'project' smart constructor. -data Project = Project' +data Project = + Project' { _pKind :: !Text , _pId :: !(Maybe Text) , _pNumber :: !(Maybe (Textual Word64)) , _pQuota :: !(Maybe Quota) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Project' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -251,13 +324,14 @@ project :: Project project = - Project' + Project' { _pKind = "dns#project" , _pId = Nothing , _pNumber = Nothing , _pQuota = Nothing } + -- | Identifies what kind of resource this is. Value: the fixed string -- \"dns#project\". pKind :: Lens' Project Text @@ -302,7 +376,8 @@ -- client_operation_id. -- -- /See:/ 'operation' smart constructor. -data Operation = Operation' +data Operation = + Operation' { _oStatus :: !(Maybe OperationStatus) , _oStartTime :: !(Maybe Text) , _oKind :: !Text @@ -311,8 +386,10 @@ , _oType :: !(Maybe Text) , _oZoneContext :: !(Maybe OperationManagedZoneContext) , _oDNSKeyContext :: !(Maybe OperationDNSKeyContext) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Operation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -335,7 +412,7 @@ operation :: Operation operation = - Operation' + Operation' { _oStatus = Nothing , _oStartTime = Nothing , _oKind = "dns#operation" @@ -346,8 +423,11 @@ , _oDNSKeyContext = Nothing } + -- | Status of the operation. Can be one of the following: \"PENDING\" or --- \"DONE\" (output only). +-- \"DONE\" (output only). A status of \"DONE\" means that the request to +-- update the authoritative servers has been sent, but the servers might +-- not be updated yet. oStatus :: Lens' Operation (Maybe OperationStatus) oStatus = lens _oStatus (\ s a -> s{_oStatus = a}) @@ -419,13 +499,16 @@ -- for a new ManagedZone and as default when adding a new DnsKey. -- -- /See:/ 'dnsKeySpec' smart constructor. -data DNSKeySpec = DNSKeySpec' +data DNSKeySpec = + DNSKeySpec' { _dksKeyType :: !(Maybe DNSKeySpecKeyType) , _dksKind :: !Text , _dksAlgorithm :: !(Maybe DNSKeySpecAlgorithm) , _dksKeyLength :: !(Maybe (Textual Word32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DNSKeySpec' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -440,18 +523,19 @@ dnsKeySpec :: DNSKeySpec dnsKeySpec = - DNSKeySpec' + DNSKeySpec' { _dksKeyType = Nothing , _dksKind = "dns#dnsKeySpec" , _dksAlgorithm = Nothing , _dksKeyLength = Nothing } --- | One of \"KEY_SIGNING\" or \"ZONE_SIGNING\". Keys of type KEY_SIGNING --- have the Secure Entry Point flag set and, when active, will be used to --- sign only resource record sets of type DNSKEY. Otherwise, the Secure --- Entry Point flag will be cleared and this key will be used to sign only --- resource record sets of other types. + +-- | Specifies whether this is a key signing key (KSK) or a zone signing key +-- (ZSK). Key signing keys have the Secure Entry Point flag set and, when +-- active, will only be used to sign resource record sets of type DNSKEY. +-- Zone signing keys do not have the Secure Entry Point flag set and will +-- be used to sign all other types of resource record sets. dksKeyType :: Lens' DNSKeySpec (Maybe DNSKeySpecKeyType) dksKeyType = lens _dksKeyType (\ s a -> s{_dksKeyType = a}) @@ -491,10 +575,17 @@ ("algorithm" .=) <$> _dksAlgorithm, ("keyLength" .=) <$> _dksKeyLength]) --- | An atomic update to a collection of ResourceRecordSets. +-- | A Change represents a set of ResourceRecordSet additions and deletions +-- applied atomically to a ManagedZone. ResourceRecordSets within a +-- ManagedZone are modified by creating a new Change element in the Changes +-- collection. In turn the Changes collection also records the past +-- modifications to the ResourceRecordSets in a ManagedZone. The current +-- state of the ManagedZone is the sum effect of applying all Change +-- elements in the Changes collection in sequence. -- -- /See:/ 'change' smart constructor. -data Change = Change' +data Change = + Change' { _cStatus :: !(Maybe ChangeStatus) , _cAdditions :: !(Maybe [ResourceRecordSet]) , _cStartTime :: !(Maybe Text) @@ -502,8 +593,10 @@ , _cDeletions :: !(Maybe [ResourceRecordSet]) , _cId :: !(Maybe Text) , _cIsServing :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Change' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -524,7 +617,7 @@ change :: Change change = - Change' + Change' { _cStatus = Nothing , _cAdditions = Nothing , _cStartTime = Nothing @@ -534,7 +627,10 @@ , _cIsServing = Nothing } --- | Status of the operation (output only). + +-- | Status of the operation (output only). A status of \"done\" means that +-- the request to update the authoritative servers has been sent, but the +-- servers might not be updated yet. cStatus :: Lens' Change (Maybe ChangeStatus) cStatus = lens _cStatus (\ s a -> s{_cStatus = a}) @@ -598,7 +694,8 @@ -- | A DNSSEC key pair. -- -- /See:/ 'dnsKey' smart constructor. -data DNSKey = DNSKey' +data DNSKey = + DNSKey' { _dkCreationTime :: !(Maybe Text) , _dkKeyTag :: !(Maybe (Textual Int32)) , _dkKind :: !Text @@ -610,8 +707,10 @@ , _dkKeyLength :: !(Maybe (Textual Word32)) , _dkIsActive :: !(Maybe Bool) , _dkDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DNSKey' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -640,7 +739,7 @@ dnsKey :: DNSKey dnsKey = - DNSKey' + DNSKey' { _dkCreationTime = Nothing , _dkKeyTag = Nothing , _dkKind = "dns#dnsKey" @@ -654,6 +753,7 @@ , _dkDescription = Nothing } + -- | The time that this resource was created in the control plane. This is in -- RFC3339 text format. Output only. dkCreationTime :: Lens' DNSKey (Maybe Text) @@ -764,11 +864,14 @@ -- -- /See:/ 'operationManagedZoneContext' smart constructor. -data OperationManagedZoneContext = OperationManagedZoneContext' +data OperationManagedZoneContext = + OperationManagedZoneContext' { _omzcOldValue :: !(Maybe ManagedZone) , _omzcNewValue :: !(Maybe ManagedZone) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationManagedZoneContext' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -779,11 +882,10 @@ operationManagedZoneContext :: OperationManagedZoneContext operationManagedZoneContext = - OperationManagedZoneContext' - { _omzcOldValue = Nothing - , _omzcNewValue = Nothing - } + OperationManagedZoneContext' + {_omzcOldValue = Nothing, _omzcNewValue = Nothing} + -- | The pre-operation ManagedZone resource. omzcOldValue :: Lens' OperationManagedZoneContext (Maybe ManagedZone) omzcOldValue @@ -811,10 +913,13 @@ -- | Elements common to every response. -- -- /See:/ 'responseHeader' smart constructor. -newtype ResponseHeader = ResponseHeader' +newtype ResponseHeader = + ResponseHeader' { _rhOperationId :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResponseHeader' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -822,11 +927,9 @@ -- * 'rhOperationId' responseHeader :: ResponseHeader -responseHeader = - ResponseHeader' - { _rhOperationId = Nothing - } +responseHeader = ResponseHeader' {_rhOperationId = Nothing} + -- | For mutating operation requests that completed successfully. This is the -- client_operation_id if the client specified it, otherwise it is -- generated by the server (output only). @@ -847,13 +950,16 @@ -- -- /See:/ 'managedZoneOperationsListResponse' smart constructor. -data ManagedZoneOperationsListResponse = ManagedZoneOperationsListResponse' +data ManagedZoneOperationsListResponse = + ManagedZoneOperationsListResponse' { _mzolrNextPageToken :: !(Maybe Text) , _mzolrKind :: !Text , _mzolrHeader :: !(Maybe ResponseHeader) , _mzolrOperations :: !(Maybe [Operation]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZoneOperationsListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -868,13 +974,14 @@ managedZoneOperationsListResponse :: ManagedZoneOperationsListResponse managedZoneOperationsListResponse = - ManagedZoneOperationsListResponse' + ManagedZoneOperationsListResponse' { _mzolrNextPageToken = Nothing , _mzolrKind = "dns#managedZoneOperationsListResponse" , _mzolrHeader = Nothing , _mzolrOperations = Nothing } + -- | The presence of this field indicates that there exist more results -- following your last page of results in pagination order. To fetch them, -- make another list request using this value as your page token. In this @@ -930,13 +1037,16 @@ -- -- /See:/ 'resourceRecordSetsListResponse' smart constructor. -data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse' +data ResourceRecordSetsListResponse = + ResourceRecordSetsListResponse' { _rrslrNextPageToken :: !(Maybe Text) , _rrslrKind :: !Text , _rrslrHeader :: !(Maybe ResponseHeader) , _rrslrRrSets :: !(Maybe [ResourceRecordSet]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResourceRecordSetsListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -951,13 +1061,14 @@ resourceRecordSetsListResponse :: ResourceRecordSetsListResponse resourceRecordSetsListResponse = - ResourceRecordSetsListResponse' + ResourceRecordSetsListResponse' { _rrslrNextPageToken = Nothing , _rrslrKind = "dns#resourceRecordSetsListResponse" , _rrslrHeader = Nothing , _rrslrRrSets = Nothing } + -- | The presence of this field indicates that there exist more results -- following your last page of results in pagination order. To fetch them, -- make another list request using this value as your pagination token. In @@ -1010,14 +1121,75 @@ ("rrsets" .=) <$> _rrslrRrSets]) -- +-- /See:/ 'managedZonePrivateVisibilityConfig' smart constructor. +data ManagedZonePrivateVisibilityConfig = + ManagedZonePrivateVisibilityConfig' + { _mzpvcNetworks :: !(Maybe [ManagedZonePrivateVisibilityConfigNetwork]) + , _mzpvcKind :: !Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ManagedZonePrivateVisibilityConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mzpvcNetworks' +-- +-- * 'mzpvcKind' +managedZonePrivateVisibilityConfig + :: ManagedZonePrivateVisibilityConfig +managedZonePrivateVisibilityConfig = + ManagedZonePrivateVisibilityConfig' + { _mzpvcNetworks = Nothing + , _mzpvcKind = "dns#managedZonePrivateVisibilityConfig" + } + + +-- | The list of VPC networks that can see this zone. +mzpvcNetworks :: Lens' ManagedZonePrivateVisibilityConfig [ManagedZonePrivateVisibilityConfigNetwork] +mzpvcNetworks + = lens _mzpvcNetworks + (\ s a -> s{_mzpvcNetworks = a}) + . _Default + . _Coerce + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"dns#managedZonePrivateVisibilityConfig\". +mzpvcKind :: Lens' ManagedZonePrivateVisibilityConfig Text +mzpvcKind + = lens _mzpvcKind (\ s a -> s{_mzpvcKind = a}) + +instance FromJSON ManagedZonePrivateVisibilityConfig + where + parseJSON + = withObject "ManagedZonePrivateVisibilityConfig" + (\ o -> + ManagedZonePrivateVisibilityConfig' <$> + (o .:? "networks" .!= mempty) <*> + (o .:? "kind" .!= + "dns#managedZonePrivateVisibilityConfig")) + +instance ToJSON ManagedZonePrivateVisibilityConfig + where + toJSON ManagedZonePrivateVisibilityConfig'{..} + = object + (catMaybes + [("networks" .=) <$> _mzpvcNetworks, + Just ("kind" .= _mzpvcKind)]) + +-- -- /See:/ 'managedZoneDNSSecConfig' smart constructor. -data ManagedZoneDNSSecConfig = ManagedZoneDNSSecConfig' +data ManagedZoneDNSSecConfig = + ManagedZoneDNSSecConfig' { _mzdscState :: !(Maybe ManagedZoneDNSSecConfigState) , _mzdscKind :: !Text , _mzdscDefaultKeySpecs :: !(Maybe [DNSKeySpec]) , _mzdscNonExistence :: !(Maybe ManagedZoneDNSSecConfigNonExistence) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZoneDNSSecConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1032,13 +1204,14 @@ managedZoneDNSSecConfig :: ManagedZoneDNSSecConfig managedZoneDNSSecConfig = - ManagedZoneDNSSecConfig' + ManagedZoneDNSSecConfig' { _mzdscState = Nothing , _mzdscKind = "dns#managedZoneDnsSecConfig" , _mzdscDefaultKeySpecs = Nothing , _mzdscNonExistence = Nothing } + -- | Specifies whether DNSSEC is enabled, and what mode it is in. mzdscState :: Lens' ManagedZoneDNSSecConfig (Maybe ManagedZoneDNSSecConfigState) mzdscState @@ -1088,15 +1261,18 @@ -- | A unit of data that will be returned by the DNS servers. -- -- /See:/ 'resourceRecordSet' smart constructor. -data ResourceRecordSet = ResourceRecordSet' +data ResourceRecordSet = + ResourceRecordSet' { _rrsTtl :: !(Maybe (Textual Int32)) , _rrsKind :: !Text , _rrsSignatureRrDatas :: !(Maybe [Text]) , _rrsName :: !(Maybe Text) , _rrsType :: !(Maybe Text) , _rrsRrDatas :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResourceRecordSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1115,7 +1291,7 @@ resourceRecordSet :: ResourceRecordSet resourceRecordSet = - ResourceRecordSet' + ResourceRecordSet' { _rrsTtl = Nothing , _rrsKind = "dns#resourceRecordSet" , _rrsSignatureRrDatas = Nothing @@ -1124,6 +1300,7 @@ , _rrsRrDatas = Nothing } + -- | Number of seconds that this ResourceRecordSet can be cached by -- resolvers. rrsTtl :: Lens' ResourceRecordSet (Maybe Int32) @@ -1148,12 +1325,13 @@ rrsName :: Lens' ResourceRecordSet (Maybe Text) rrsName = lens _rrsName (\ s a -> s{_rrsName = a}) --- | The identifier of a supported record type, for example, A, AAAA, MX, --- TXT, and so on. +-- | The identifier of a supported record type. See the list of Supported DNS +-- record types. rrsType :: Lens' ResourceRecordSet (Maybe Text) rrsType = lens _rrsType (\ s a -> s{_rrsType = a}) --- | As defined in RFC 1035 (section 5) and RFC 1034 (section 3.6.1). +-- | As defined in RFC 1035 (section 5) and RFC 1034 (section 3.6.1) -- see +-- examples. rrsRrDatas :: Lens' ResourceRecordSet [Text] rrsRrDatas = lens _rrsRrDatas (\ s a -> s{_rrsRrDatas = a}) . @@ -1186,19 +1364,24 @@ -- hosted by the Cloud DNS service. -- -- /See:/ 'managedZone' smart constructor. -data ManagedZone = ManagedZone' - { _mzCreationTime :: !(Maybe Text) - , _mzKind :: !Text - , _mzNameServerSet :: !(Maybe Text) - , _mzName :: !(Maybe Text) - , _mzId :: !(Maybe (Textual Word64)) - , _mzLabels :: !(Maybe ManagedZoneLabels) - , _mzDNSName :: !(Maybe Text) - , _mzDescription :: !(Maybe Text) - , _mzDNSsecConfig :: !(Maybe ManagedZoneDNSSecConfig) - , _mzNameServers :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) +data ManagedZone = + ManagedZone' + { _mzCreationTime :: !(Maybe Text) + , _mzKind :: !Text + , _mzNameServerSet :: !(Maybe Text) + , _mzVisibility :: !(Maybe ManagedZoneVisibility) + , _mzName :: !(Maybe Text) + , _mzId :: !(Maybe (Textual Word64)) + , _mzLabels :: !(Maybe ManagedZoneLabels) + , _mzDNSName :: !(Maybe Text) + , _mzDescription :: !(Maybe Text) + , _mzDNSsecConfig :: !(Maybe ManagedZoneDNSSecConfig) + , _mzNameServers :: !(Maybe [Text]) + , _mzPrivateVisibilityConfig :: !(Maybe ManagedZonePrivateVisibilityConfig) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZone' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1209,6 +1392,8 @@ -- -- * 'mzNameServerSet' -- +-- * 'mzVisibility' +-- -- * 'mzName' -- -- * 'mzId' @@ -1222,13 +1407,16 @@ -- * 'mzDNSsecConfig' -- -- * 'mzNameServers' +-- +-- * 'mzPrivateVisibilityConfig' managedZone :: ManagedZone managedZone = - ManagedZone' + ManagedZone' { _mzCreationTime = Nothing , _mzKind = "dns#managedZone" , _mzNameServerSet = Nothing + , _mzVisibility = Nothing , _mzName = Nothing , _mzId = Nothing , _mzLabels = Nothing @@ -1236,8 +1424,10 @@ , _mzDescription = Nothing , _mzDNSsecConfig = Nothing , _mzNameServers = Nothing + , _mzPrivateVisibilityConfig = Nothing } + -- | The time that this resource was created on the server. This is in -- RFC3339 text format. Output only. mzCreationTime :: Lens' ManagedZone (Maybe Text) @@ -1258,6 +1448,12 @@ = lens _mzNameServerSet (\ s a -> s{_mzNameServerSet = a}) +-- | The zone\'s visibility: public zones are exposed to the Internet, while +-- private zones are visible only to Virtual Private Cloud resources. +mzVisibility :: Lens' ManagedZone (Maybe ManagedZoneVisibility) +mzVisibility + = lens _mzVisibility (\ s a -> s{_mzVisibility = a}) + -- | User assigned name for this resource. Must be unique within the project. -- The name must be 1-63 characters long, must begin with a letter, end -- with a letter or digit, and only contain lowercase letters, digits or @@ -1303,6 +1499,13 @@ . _Default . _Coerce +-- | For privately visible zones, the set of Virtual Private Cloud resources +-- that the zone is visible from. +mzPrivateVisibilityConfig :: Lens' ManagedZone (Maybe ManagedZonePrivateVisibilityConfig) +mzPrivateVisibilityConfig + = lens _mzPrivateVisibilityConfig + (\ s a -> s{_mzPrivateVisibilityConfig = a}) + instance FromJSON ManagedZone where parseJSON = withObject "ManagedZone" @@ -1311,13 +1514,15 @@ (o .:? "creationTime") <*> (o .:? "kind" .!= "dns#managedZone") <*> (o .:? "nameServerSet") + <*> (o .:? "visibility") <*> (o .:? "name") <*> (o .:? "id") <*> (o .:? "labels") <*> (o .:? "dnsName") <*> (o .:? "description") <*> (o .:? "dnssecConfig") - <*> (o .:? "nameServers" .!= mempty)) + <*> (o .:? "nameServers" .!= mempty) + <*> (o .:? "privateVisibilityConfig")) instance ToJSON ManagedZone where toJSON ManagedZone'{..} @@ -1326,20 +1531,26 @@ [("creationTime" .=) <$> _mzCreationTime, Just ("kind" .= _mzKind), ("nameServerSet" .=) <$> _mzNameServerSet, + ("visibility" .=) <$> _mzVisibility, ("name" .=) <$> _mzName, ("id" .=) <$> _mzId, ("labels" .=) <$> _mzLabels, ("dnsName" .=) <$> _mzDNSName, ("description" .=) <$> _mzDescription, ("dnssecConfig" .=) <$> _mzDNSsecConfig, - ("nameServers" .=) <$> _mzNameServers]) + ("nameServers" .=) <$> _mzNameServers, + ("privateVisibilityConfig" .=) <$> + _mzPrivateVisibilityConfig]) -- | User labels. -- -- /See:/ 'managedZoneLabels' smart constructor. -newtype ManagedZoneLabels = ManagedZoneLabels' +newtype ManagedZoneLabels = + ManagedZoneLabels' { _mzlAddtional :: HashMap Text Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZoneLabels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1349,10 +1560,9 @@ :: HashMap Text Text -- ^ 'mzlAddtional' -> ManagedZoneLabels managedZoneLabels pMzlAddtional_ = - ManagedZoneLabels' - { _mzlAddtional = _Coerce # pMzlAddtional_ - } + ManagedZoneLabels' {_mzlAddtional = _Coerce # pMzlAddtional_} + mzlAddtional :: Lens' ManagedZoneLabels (HashMap Text Text) mzlAddtional = lens _mzlAddtional (\ s a -> s{_mzlAddtional = a}) @@ -1369,18 +1579,23 @@ -- | Limits associated with a Project. -- -- /See:/ 'quota' smart constructor. -data Quota = Quota' +data Quota = + Quota' { _qRrSetDeletionsPerChange :: !(Maybe (Textual Int32)) , _qWhiteListedKeySpecs :: !(Maybe [DNSKeySpec]) , _qRrSetsPerManagedZone :: !(Maybe (Textual Int32)) , _qKind :: !Text , _qResourceRecordsPerRrSet :: !(Maybe (Textual Int32)) + , _qManagedZonesPerNetwork :: !(Maybe (Textual Int32)) , _qRrSetAdditionsPerChange :: !(Maybe (Textual Int32)) , _qManagedZones :: !(Maybe (Textual Int32)) , _qTotalRrDataSizePerChange :: !(Maybe (Textual Int32)) , _qDNSKeysPerManagedZone :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + , _qNetworksPerManagedZone :: !(Maybe (Textual Int32)) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Quota' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1395,6 +1610,8 @@ -- -- * 'qResourceRecordsPerRrSet' -- +-- * 'qManagedZonesPerNetwork' +-- -- * 'qRrSetAdditionsPerChange' -- -- * 'qManagedZones' @@ -1402,21 +1619,26 @@ -- * 'qTotalRrDataSizePerChange' -- -- * 'qDNSKeysPerManagedZone' +-- +-- * 'qNetworksPerManagedZone' quota :: Quota quota = - Quota' + Quota' { _qRrSetDeletionsPerChange = Nothing , _qWhiteListedKeySpecs = Nothing , _qRrSetsPerManagedZone = Nothing , _qKind = "dns#quota" , _qResourceRecordsPerRrSet = Nothing + , _qManagedZonesPerNetwork = Nothing , _qRrSetAdditionsPerChange = Nothing , _qManagedZones = Nothing , _qTotalRrDataSizePerChange = Nothing , _qDNSKeysPerManagedZone = Nothing + , _qNetworksPerManagedZone = Nothing } + -- | Maximum allowed number of ResourceRecordSets to delete per -- ChangesCreateRequest. qRrSetDeletionsPerChange :: Lens' Quota (Maybe Int32) @@ -1452,6 +1674,14 @@ (\ s a -> s{_qResourceRecordsPerRrSet = a}) . mapping _Coerce +-- | Maximum allowed number of managed zones which can be attached to a +-- network. +qManagedZonesPerNetwork :: Lens' Quota (Maybe Int32) +qManagedZonesPerNetwork + = lens _qManagedZonesPerNetwork + (\ s a -> s{_qManagedZonesPerNetwork = a}) + . mapping _Coerce + -- | Maximum allowed number of ResourceRecordSets to add per -- ChangesCreateRequest. qRrSetAdditionsPerChange :: Lens' Quota (Maybe Int32) @@ -1482,6 +1712,14 @@ (\ s a -> s{_qDNSKeysPerManagedZone = a}) . mapping _Coerce +-- | Maximum allowed number of networks to which a privately scoped zone can +-- be attached. +qNetworksPerManagedZone :: Lens' Quota (Maybe Int32) +qNetworksPerManagedZone + = lens _qNetworksPerManagedZone + (\ s a -> s{_qNetworksPerManagedZone = a}) + . mapping _Coerce + instance FromJSON Quota where parseJSON = withObject "Quota" @@ -1492,10 +1730,12 @@ <*> (o .:? "rrsetsPerManagedZone") <*> (o .:? "kind" .!= "dns#quota") <*> (o .:? "resourceRecordsPerRrset") + <*> (o .:? "managedZonesPerNetwork") <*> (o .:? "rrsetAdditionsPerChange") <*> (o .:? "managedZones") <*> (o .:? "totalRrdataSizePerChange") - <*> (o .:? "dnsKeysPerManagedZone")) + <*> (o .:? "dnsKeysPerManagedZone") + <*> (o .:? "networksPerManagedZone")) instance ToJSON Quota where toJSON Quota'{..} @@ -1509,21 +1749,28 @@ Just ("kind" .= _qKind), ("resourceRecordsPerRrset" .=) <$> _qResourceRecordsPerRrSet, + ("managedZonesPerNetwork" .=) <$> + _qManagedZonesPerNetwork, ("rrsetAdditionsPerChange" .=) <$> _qRrSetAdditionsPerChange, ("managedZones" .=) <$> _qManagedZones, ("totalRrdataSizePerChange" .=) <$> _qTotalRrDataSizePerChange, ("dnsKeysPerManagedZone" .=) <$> - _qDNSKeysPerManagedZone]) + _qDNSKeysPerManagedZone, + ("networksPerManagedZone" .=) <$> + _qNetworksPerManagedZone]) -- -- /See:/ 'dnsKeyDigest' smart constructor. -data DNSKeyDigest = DNSKeyDigest' +data DNSKeyDigest = + DNSKeyDigest' { _dkdDigest :: !(Maybe Text) , _dkdType :: !(Maybe DNSKeyDigestType) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DNSKeyDigest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1533,12 +1780,9 @@ -- * 'dkdType' dnsKeyDigest :: DNSKeyDigest -dnsKeyDigest = - DNSKeyDigest' - { _dkdDigest = Nothing - , _dkdType = Nothing - } +dnsKeyDigest = DNSKeyDigest' {_dkdDigest = Nothing, _dkdType = Nothing} + -- | The base-16 encoded bytes of this digest. Suitable for use in a DS -- resource record. dkdDigest :: Lens' DNSKeyDigest (Maybe Text) @@ -1565,13 +1809,16 @@ -- -- /See:/ 'managedZonesListResponse' smart constructor. -data ManagedZonesListResponse = ManagedZonesListResponse' +data ManagedZonesListResponse = + ManagedZonesListResponse' { _mzlrNextPageToken :: !(Maybe Text) , _mzlrKind :: !Text , _mzlrHeader :: !(Maybe ResponseHeader) , _mzlrManagedZones :: !(Maybe [ManagedZone]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1586,12 +1833,13 @@ managedZonesListResponse :: ManagedZonesListResponse managedZonesListResponse = - ManagedZonesListResponse' + ManagedZonesListResponse' { _mzlrNextPageToken = Nothing , _mzlrKind = "dns#managedZonesListResponse" , _mzlrHeader = Nothing , _mzlrManagedZones = Nothing } + -- | The presence of this field indicates that there exist more results -- following your last page of results in pagination order. To fetch them, diff --git a/gen/Network/Google/DNS/Types/Sum.hs b/gen/Network/Google/DNS/Types/Sum.hs --- a/gen/Network/Google/DNS/Types/Sum.hs +++ b/gen/Network/Google/DNS/Types/Sum.hs @@ -116,6 +116,34 @@ instance ToJSON ManagedZoneDNSSecConfigState where toJSON = toJSONText +-- | The zone\'s visibility: public zones are exposed to the Internet, while +-- private zones are visible only to Virtual Private Cloud resources. +data ManagedZoneVisibility + = Private + -- ^ @PRIVATE@ + | Public + -- ^ @PUBLIC@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ManagedZoneVisibility + +instance FromHttpApiData ManagedZoneVisibility where + parseQueryParam = \case + "PRIVATE" -> Right Private + "PUBLIC" -> Right Public + x -> Left ("Unable to parse ManagedZoneVisibility from: " <> x) + +instance ToHttpApiData ManagedZoneVisibility where + toQueryParam = \case + Private -> "PRIVATE" + Public -> "PUBLIC" + +instance FromJSON ManagedZoneVisibility where + parseJSON = parseJSONText "ManagedZoneVisibility" + +instance ToJSON ManagedZoneVisibility where + toJSON = toJSONText + -- | Sorting criterion. The only supported value is change sequence. data ChangesListSortBy = ChangeSequence @@ -171,7 +199,9 @@ toJSON = toJSONText -- | Status of the operation. Can be one of the following: \"PENDING\" or --- \"DONE\" (output only). +-- \"DONE\" (output only). A status of \"DONE\" means that the request to +-- update the authoritative servers has been sent, but the servers might +-- not be updated yet. data OperationStatus = Done -- ^ @DONE@ @@ -238,11 +268,11 @@ instance ToJSON DNSKeyAlgorithm where toJSON = toJSONText --- | One of \"KEY_SIGNING\" or \"ZONE_SIGNING\". Keys of type KEY_SIGNING --- have the Secure Entry Point flag set and, when active, will be used to --- sign only resource record sets of type DNSKEY. Otherwise, the Secure --- Entry Point flag will be cleared and this key will be used to sign only --- resource record sets of other types. +-- | Specifies whether this is a key signing key (KSK) or a zone signing key +-- (ZSK). Key signing keys have the Secure Entry Point flag set and, when +-- active, will only be used to sign resource record sets of type DNSKEY. +-- Zone signing keys do not have the Secure Entry Point flag set and will +-- be used to sign all other types of resource record sets. data DNSKeySpecKeyType = KeySigning -- ^ @KEY_SIGNING@ @@ -269,7 +299,9 @@ instance ToJSON DNSKeySpecKeyType where toJSON = toJSONText --- | Status of the operation (output only). +-- | Status of the operation (output only). A status of \"done\" means that +-- the request to update the authoritative servers has been sent, but the +-- servers might not be updated yet. data ChangeStatus = CSDone -- ^ @DONE@ diff --git a/gen/Network/Google/Resource/DNS/Changes/Create.hs b/gen/Network/Google/Resource/DNS/Changes/Create.hs --- a/gen/Network/Google/Resource/DNS/Changes/Create.hs +++ b/gen/Network/Google/Resource/DNS/Changes/Create.hs @@ -59,13 +59,16 @@ -- | Atomically update the ResourceRecordSet collection. -- -- /See:/ 'changesCreate' smart constructor. -data ChangesCreate = ChangesCreate' +data ChangesCreate = + ChangesCreate' { _ccProject :: !Text , _ccPayload :: !Change , _ccManagedZone :: !Text , _ccClientOperationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -83,12 +86,13 @@ -> Text -- ^ 'ccManagedZone' -> ChangesCreate changesCreate pCcProject_ pCcPayload_ pCcManagedZone_ = - ChangesCreate' + ChangesCreate' { _ccProject = pCcProject_ , _ccPayload = pCcPayload_ , _ccManagedZone = pCcManagedZone_ , _ccClientOperationId = Nothing } + -- | Identifies the project addressed by this request. ccProject :: Lens' ChangesCreate Text diff --git a/gen/Network/Google/Resource/DNS/Changes/Get.hs b/gen/Network/Google/Resource/DNS/Changes/Get.hs --- a/gen/Network/Google/Resource/DNS/Changes/Get.hs +++ b/gen/Network/Google/Resource/DNS/Changes/Get.hs @@ -59,13 +59,16 @@ -- | Fetch the representation of an existing Change. -- -- /See:/ 'changesGet' smart constructor. -data ChangesGet = ChangesGet' +data ChangesGet = + ChangesGet' { _cgProject :: !Text , _cgChangeId :: !Text , _cgManagedZone :: !Text , _cgClientOperationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -83,12 +86,13 @@ -> Text -- ^ 'cgManagedZone' -> ChangesGet changesGet pCgProject_ pCgChangeId_ pCgManagedZone_ = - ChangesGet' + ChangesGet' { _cgProject = pCgProject_ , _cgChangeId = pCgChangeId_ , _cgManagedZone = pCgManagedZone_ , _cgClientOperationId = Nothing } + -- | Identifies the project addressed by this request. cgProject :: Lens' ChangesGet Text diff --git a/gen/Network/Google/Resource/DNS/Changes/List.hs b/gen/Network/Google/Resource/DNS/Changes/List.hs --- a/gen/Network/Google/Resource/DNS/Changes/List.hs +++ b/gen/Network/Google/Resource/DNS/Changes/List.hs @@ -64,15 +64,18 @@ -- | Enumerate Changes to a ResourceRecordSet collection. -- -- /See:/ 'changesList' smart constructor. -data ChangesList = ChangesList' +data ChangesList = + ChangesList' { _clProject :: !Text , _clSortOrder :: !(Maybe Text) , _clPageToken :: !(Maybe Text) , _clManagedZone :: !Text , _clMaxResults :: !(Maybe (Textual Int32)) , _clSortBy :: !ChangesListSortBy - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,7 +96,7 @@ -> Text -- ^ 'clManagedZone' -> ChangesList changesList pClProject_ pClManagedZone_ = - ChangesList' + ChangesList' { _clProject = pClProject_ , _clSortOrder = Nothing , _clPageToken = Nothing @@ -101,6 +104,7 @@ , _clMaxResults = Nothing , _clSortBy = ChangeSequence } + -- | Identifies the project addressed by this request. clProject :: Lens' ChangesList Text diff --git a/gen/Network/Google/Resource/DNS/DNSKeys/Get.hs b/gen/Network/Google/Resource/DNS/DNSKeys/Get.hs --- a/gen/Network/Google/Resource/DNS/DNSKeys/Get.hs +++ b/gen/Network/Google/Resource/DNS/DNSKeys/Get.hs @@ -61,14 +61,17 @@ -- | Fetch the representation of an existing DnsKey. -- -- /See:/ 'dnsKeysGet' smart constructor. -data DNSKeysGet = DNSKeysGet' +data DNSKeysGet = + DNSKeysGet' { _dkgProject :: !Text , _dkgDigestType :: !(Maybe Text) , _dkgDNSKeyId :: !Text , _dkgManagedZone :: !Text , _dkgClientOperationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -88,13 +91,14 @@ -> Text -- ^ 'dkgManagedZone' -> DNSKeysGet dnsKeysGet pDkgProject_ pDkgDNSKeyId_ pDkgManagedZone_ = - DNSKeysGet' + DNSKeysGet' { _dkgProject = pDkgProject_ , _dkgDigestType = Nothing , _dkgDNSKeyId = pDkgDNSKeyId_ , _dkgManagedZone = pDkgManagedZone_ , _dkgClientOperationId = Nothing } + -- | Identifies the project addressed by this request. dkgProject :: Lens' DNSKeysGet Text diff --git a/gen/Network/Google/Resource/DNS/DNSKeys/List.hs b/gen/Network/Google/Resource/DNS/DNSKeys/List.hs --- a/gen/Network/Google/Resource/DNS/DNSKeys/List.hs +++ b/gen/Network/Google/Resource/DNS/DNSKeys/List.hs @@ -62,14 +62,17 @@ -- | Enumerate DnsKeys to a ResourceRecordSet collection. -- -- /See:/ 'dnsKeysList' smart constructor. -data DNSKeysList = DNSKeysList' +data DNSKeysList = + DNSKeysList' { _dklProject :: !Text , _dklDigestType :: !(Maybe Text) , _dklPageToken :: !(Maybe Text) , _dklManagedZone :: !Text , _dklMaxResults :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -88,13 +91,14 @@ -> Text -- ^ 'dklManagedZone' -> DNSKeysList dnsKeysList pDklProject_ pDklManagedZone_ = - DNSKeysList' + DNSKeysList' { _dklProject = pDklProject_ , _dklDigestType = Nothing , _dklPageToken = Nothing , _dklManagedZone = pDklManagedZone_ , _dklMaxResults = Nothing } + -- | Identifies the project addressed by this request. dklProject :: Lens' DNSKeysList Text diff --git a/gen/Network/Google/Resource/DNS/ManagedZoneOperations/Get.hs b/gen/Network/Google/Resource/DNS/ManagedZoneOperations/Get.hs --- a/gen/Network/Google/Resource/DNS/ManagedZoneOperations/Get.hs +++ b/gen/Network/Google/Resource/DNS/ManagedZoneOperations/Get.hs @@ -59,13 +59,16 @@ -- | Fetch the representation of an existing Operation. -- -- /See:/ 'managedZoneOperationsGet' smart constructor. -data ManagedZoneOperationsGet = ManagedZoneOperationsGet' +data ManagedZoneOperationsGet = + ManagedZoneOperationsGet' { _mzogProject :: !Text , _mzogOperation :: !Text , _mzogManagedZone :: !Text , _mzogClientOperationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZoneOperationsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -83,12 +86,13 @@ -> Text -- ^ 'mzogManagedZone' -> ManagedZoneOperationsGet managedZoneOperationsGet pMzogProject_ pMzogOperation_ pMzogManagedZone_ = - ManagedZoneOperationsGet' + ManagedZoneOperationsGet' { _mzogProject = pMzogProject_ , _mzogOperation = pMzogOperation_ , _mzogManagedZone = pMzogManagedZone_ , _mzogClientOperationId = Nothing } + -- | Identifies the project addressed by this request. mzogProject :: Lens' ManagedZoneOperationsGet Text diff --git a/gen/Network/Google/Resource/DNS/ManagedZoneOperations/List.hs b/gen/Network/Google/Resource/DNS/ManagedZoneOperations/List.hs --- a/gen/Network/Google/Resource/DNS/ManagedZoneOperations/List.hs +++ b/gen/Network/Google/Resource/DNS/ManagedZoneOperations/List.hs @@ -63,14 +63,17 @@ -- | Enumerate Operations for the given ManagedZone. -- -- /See:/ 'managedZoneOperationsList' smart constructor. -data ManagedZoneOperationsList = ManagedZoneOperationsList' +data ManagedZoneOperationsList = + ManagedZoneOperationsList' { _mzolProject :: !Text , _mzolPageToken :: !(Maybe Text) , _mzolManagedZone :: !Text , _mzolMaxResults :: !(Maybe (Textual Int32)) , _mzolSortBy :: !ManagedZoneOperationsListSortBy - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZoneOperationsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -89,13 +92,14 @@ -> Text -- ^ 'mzolManagedZone' -> ManagedZoneOperationsList managedZoneOperationsList pMzolProject_ pMzolManagedZone_ = - ManagedZoneOperationsList' + ManagedZoneOperationsList' { _mzolProject = pMzolProject_ , _mzolPageToken = Nothing , _mzolManagedZone = pMzolManagedZone_ , _mzolMaxResults = Nothing , _mzolSortBy = StartTime } + -- | Identifies the project addressed by this request. mzolProject :: Lens' ManagedZoneOperationsList Text diff --git a/gen/Network/Google/Resource/DNS/ManagedZones/Create.hs b/gen/Network/Google/Resource/DNS/ManagedZones/Create.hs --- a/gen/Network/Google/Resource/DNS/ManagedZones/Create.hs +++ b/gen/Network/Google/Resource/DNS/ManagedZones/Create.hs @@ -57,12 +57,15 @@ -- | Create a new ManagedZone. -- -- /See:/ 'managedZonesCreate' smart constructor. -data ManagedZonesCreate = ManagedZonesCreate' +data ManagedZonesCreate = + ManagedZonesCreate' { _mzcProject :: !Text , _mzcPayload :: !ManagedZone , _mzcClientOperationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -77,11 +80,12 @@ -> ManagedZone -- ^ 'mzcPayload' -> ManagedZonesCreate managedZonesCreate pMzcProject_ pMzcPayload_ = - ManagedZonesCreate' + ManagedZonesCreate' { _mzcProject = pMzcProject_ , _mzcPayload = pMzcPayload_ , _mzcClientOperationId = Nothing } + -- | Identifies the project addressed by this request. mzcProject :: Lens' ManagedZonesCreate Text diff --git a/gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs b/gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs --- a/gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs +++ b/gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs @@ -56,12 +56,15 @@ -- | Delete a previously created ManagedZone. -- -- /See:/ 'managedZonesDelete' smart constructor. -data ManagedZonesDelete = ManagedZonesDelete' +data ManagedZonesDelete = + ManagedZonesDelete' { _mzdProject :: !Text , _mzdManagedZone :: !Text , _mzdClientOperationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -76,11 +79,12 @@ -> Text -- ^ 'mzdManagedZone' -> ManagedZonesDelete managedZonesDelete pMzdProject_ pMzdManagedZone_ = - ManagedZonesDelete' + ManagedZonesDelete' { _mzdProject = pMzdProject_ , _mzdManagedZone = pMzdManagedZone_ , _mzdClientOperationId = Nothing } + -- | Identifies the project addressed by this request. mzdProject :: Lens' ManagedZonesDelete Text diff --git a/gen/Network/Google/Resource/DNS/ManagedZones/Get.hs b/gen/Network/Google/Resource/DNS/ManagedZones/Get.hs --- a/gen/Network/Google/Resource/DNS/ManagedZones/Get.hs +++ b/gen/Network/Google/Resource/DNS/ManagedZones/Get.hs @@ -56,12 +56,15 @@ -- | Fetch the representation of an existing ManagedZone. -- -- /See:/ 'managedZonesGet' smart constructor. -data ManagedZonesGet = ManagedZonesGet' +data ManagedZonesGet = + ManagedZonesGet' { _mzgProject :: !Text , _mzgManagedZone :: !Text , _mzgClientOperationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -76,11 +79,12 @@ -> Text -- ^ 'mzgManagedZone' -> ManagedZonesGet managedZonesGet pMzgProject_ pMzgManagedZone_ = - ManagedZonesGet' + ManagedZonesGet' { _mzgProject = pMzgProject_ , _mzgManagedZone = pMzgManagedZone_ , _mzgClientOperationId = Nothing } + -- | Identifies the project addressed by this request. mzgProject :: Lens' ManagedZonesGet Text diff --git a/gen/Network/Google/Resource/DNS/ManagedZones/List.hs b/gen/Network/Google/Resource/DNS/ManagedZones/List.hs --- a/gen/Network/Google/Resource/DNS/ManagedZones/List.hs +++ b/gen/Network/Google/Resource/DNS/ManagedZones/List.hs @@ -59,13 +59,16 @@ -- | Enumerate ManagedZones that have been created but not yet deleted. -- -- /See:/ 'managedZonesList' smart constructor. -data ManagedZonesList = ManagedZonesList' +data ManagedZonesList = + ManagedZonesList' { _mzlProject :: !Text , _mzlPageToken :: !(Maybe Text) , _mzlDNSName :: !(Maybe Text) , _mzlMaxResults :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -81,12 +84,13 @@ :: Text -- ^ 'mzlProject' -> ManagedZonesList managedZonesList pMzlProject_ = - ManagedZonesList' + ManagedZonesList' { _mzlProject = pMzlProject_ , _mzlPageToken = Nothing , _mzlDNSName = Nothing , _mzlMaxResults = Nothing } + -- | Identifies the project addressed by this request. mzlProject :: Lens' ManagedZonesList Text diff --git a/gen/Network/Google/Resource/DNS/ManagedZones/Patch.hs b/gen/Network/Google/Resource/DNS/ManagedZones/Patch.hs --- a/gen/Network/Google/Resource/DNS/ManagedZones/Patch.hs +++ b/gen/Network/Google/Resource/DNS/ManagedZones/Patch.hs @@ -59,13 +59,16 @@ -- | Apply a partial update to an existing ManagedZone. -- -- /See:/ 'managedZonesPatch' smart constructor. -data ManagedZonesPatch = ManagedZonesPatch' +data ManagedZonesPatch = + ManagedZonesPatch' { _mzpProject :: !Text , _mzpPayload :: !ManagedZone , _mzpManagedZone :: !Text , _mzpClientOperationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -83,12 +86,13 @@ -> Text -- ^ 'mzpManagedZone' -> ManagedZonesPatch managedZonesPatch pMzpProject_ pMzpPayload_ pMzpManagedZone_ = - ManagedZonesPatch' + ManagedZonesPatch' { _mzpProject = pMzpProject_ , _mzpPayload = pMzpPayload_ , _mzpManagedZone = pMzpManagedZone_ , _mzpClientOperationId = Nothing } + -- | Identifies the project addressed by this request. mzpProject :: Lens' ManagedZonesPatch Text diff --git a/gen/Network/Google/Resource/DNS/ManagedZones/Update.hs b/gen/Network/Google/Resource/DNS/ManagedZones/Update.hs --- a/gen/Network/Google/Resource/DNS/ManagedZones/Update.hs +++ b/gen/Network/Google/Resource/DNS/ManagedZones/Update.hs @@ -58,13 +58,16 @@ -- | Update an existing ManagedZone. -- -- /See:/ 'managedZonesUpdate' smart constructor. -data ManagedZonesUpdate = ManagedZonesUpdate' +data ManagedZonesUpdate = + ManagedZonesUpdate' { _mzuProject :: !Text , _mzuPayload :: !ManagedZone , _mzuManagedZone :: !Text , _mzuClientOperationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ManagedZonesUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -82,12 +85,13 @@ -> Text -- ^ 'mzuManagedZone' -> ManagedZonesUpdate managedZonesUpdate pMzuProject_ pMzuPayload_ pMzuManagedZone_ = - ManagedZonesUpdate' + ManagedZonesUpdate' { _mzuProject = pMzuProject_ , _mzuPayload = pMzuPayload_ , _mzuManagedZone = pMzuManagedZone_ , _mzuClientOperationId = Nothing } + -- | Identifies the project addressed by this request. mzuProject :: Lens' ManagedZonesUpdate Text diff --git a/gen/Network/Google/Resource/DNS/Projects/Get.hs b/gen/Network/Google/Resource/DNS/Projects/Get.hs --- a/gen/Network/Google/Resource/DNS/Projects/Get.hs +++ b/gen/Network/Google/Resource/DNS/Projects/Get.hs @@ -53,11 +53,14 @@ -- | Fetch the representation of an existing Project. -- -- /See:/ 'projectsGet' smart constructor. -data ProjectsGet = ProjectsGet' +data ProjectsGet = + ProjectsGet' { _pgProject :: !Text , _pgClientOperationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -69,10 +72,8 @@ :: Text -- ^ 'pgProject' -> ProjectsGet projectsGet pPgProject_ = - ProjectsGet' - { _pgProject = pPgProject_ - , _pgClientOperationId = Nothing - } + ProjectsGet' {_pgProject = pPgProject_, _pgClientOperationId = Nothing} + -- | Identifies the project addressed by this request. pgProject :: Lens' ProjectsGet Text diff --git a/gen/Network/Google/Resource/DNS/ResourceRecordSets/List.hs b/gen/Network/Google/Resource/DNS/ResourceRecordSets/List.hs --- a/gen/Network/Google/Resource/DNS/ResourceRecordSets/List.hs +++ b/gen/Network/Google/Resource/DNS/ResourceRecordSets/List.hs @@ -64,15 +64,18 @@ -- | Enumerate ResourceRecordSets that have been created but not yet deleted. -- -- /See:/ 'resourceRecordSetsList' smart constructor. -data ResourceRecordSetsList = ResourceRecordSetsList' +data ResourceRecordSetsList = + ResourceRecordSetsList' { _rrslProject :: !Text , _rrslName :: !(Maybe Text) , _rrslPageToken :: !(Maybe Text) , _rrslType :: !(Maybe Text) , _rrslManagedZone :: !Text , _rrslMaxResults :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResourceRecordSetsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,7 +96,7 @@ -> Text -- ^ 'rrslManagedZone' -> ResourceRecordSetsList resourceRecordSetsList pRrslProject_ pRrslManagedZone_ = - ResourceRecordSetsList' + ResourceRecordSetsList' { _rrslProject = pRrslProject_ , _rrslName = Nothing , _rrslPageToken = Nothing @@ -101,6 +104,7 @@ , _rrslManagedZone = pRrslManagedZone_ , _rrslMaxResults = Nothing } + -- | Identifies the project addressed by this request. rrslProject :: Lens' ResourceRecordSetsList Text diff --git a/gogol-dns.cabal b/gogol-dns.cabal --- a/gogol-dns.cabal +++ b/gogol-dns.cabal @@ -1,5 +1,5 @@ name: gogol-dns -version: 0.4.0 +version: 0.5.0 synopsis: Google Cloud DNS SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -56,5 +56,5 @@ , Network.Google.DNS.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5