diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.0.1` +`0.1.0` ## Description @@ -18,9 +18,9 @@ ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. ## Licence 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 @@ -7,20 +7,25 @@ -- | -- Module : Network.Google.DNS --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- The Google Cloud DNS API provides services for configuring and serving --- authoritative DNS records. +-- Configures and serves authoritative DNS records. -- -- /See:/ module Network.Google.DNS ( -- * Service Configuration dNSService + + -- * OAuth Scopes + , ndevClouddnsReadOnlyScope + , cloudPlatformReadOnlyScope + , ndevClouddnsReadwriteScope + , cloudPlatformScope -- * API Declaration , DNSAPI 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 @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.DNS.Types --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -19,7 +20,7 @@ dNSService -- * OAuth Scopes - , ndevClouddnsReadonlyScope + , ndevClouddnsReadOnlyScope , cloudPlatformReadOnlyScope , ndevClouddnsReadwriteScope , cloudPlatformScope @@ -107,23 +108,23 @@ import Network.Google.Prelude -- | Default request referring to version 'v1' of the Google Cloud DNS API. This contains the host and root path used as a starting point for constructing service requests. -dNSService :: Service +dNSService :: ServiceConfig dNSService = defaultService (ServiceId "dns:v1") "www.googleapis.com" -- | View your DNS records hosted by Google Cloud DNS -ndevClouddnsReadonlyScope :: OAuthScope -ndevClouddnsReadonlyScope = "https://www.googleapis.com/auth/ndev.clouddns.readonly"; +ndevClouddnsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/ndev.clouddns.readonly"] +ndevClouddnsReadOnlyScope = Proxy; -- | View your data across Google Cloud Platform services -cloudPlatformReadOnlyScope :: OAuthScope -cloudPlatformReadOnlyScope = "https://www.googleapis.com/auth/cloud-platform.read-only"; +cloudPlatformReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform.read-only"] +cloudPlatformReadOnlyScope = Proxy; -- | View and manage your DNS records hosted by Google Cloud DNS -ndevClouddnsReadwriteScope :: OAuthScope -ndevClouddnsReadwriteScope = "https://www.googleapis.com/auth/ndev.clouddns.readwrite"; +ndevClouddnsReadwriteScope :: Proxy '["https://www.googleapis.com/auth/ndev.clouddns.readwrite"] +ndevClouddnsReadwriteScope = Proxy; -- | View and manage your data across Google Cloud Platform services -cloudPlatformScope :: OAuthScope -cloudPlatformScope = "https://www.googleapis.com/auth/cloud-platform"; +cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] +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 @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.DNS.Types.Product --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -24,7 +24,7 @@ -- collection. -- -- /See:/ 'changesListResponse' smart constructor. -data ChangesListResponse = ChangesListResponse +data ChangesListResponse = ChangesListResponse' { _clrNextPageToken :: !(Maybe Text) , _clrChanges :: !(Maybe [Change]) , _clrKind :: !Text @@ -42,7 +42,7 @@ changesListResponse :: ChangesListResponse changesListResponse = - ChangesListResponse + ChangesListResponse' { _clrNextPageToken = Nothing , _clrChanges = Nothing , _clrKind = "dns#changesListResponse" @@ -77,13 +77,13 @@ parseJSON = withObject "ChangesListResponse" (\ o -> - ChangesListResponse <$> + ChangesListResponse' <$> (o .:? "nextPageToken") <*> (o .:? "changes" .!= mempty) <*> (o .:? "kind" .!= "dns#changesListResponse")) instance ToJSON ChangesListResponse where - toJSON ChangesListResponse{..} + toJSON ChangesListResponse'{..} = object (catMaybes [("nextPageToken" .=) <$> _clrNextPageToken, @@ -95,7 +95,7 @@ -- APIs console. -- -- /See:/ 'project' smart constructor. -data Project = Project +data Project = Project' { _pKind :: !Text , _pId :: !(Maybe Text) , _pNumber :: !(Maybe (Textual Word64)) @@ -116,7 +116,7 @@ project :: Project project = - Project + Project' { _pKind = "dns#project" , _pId = Nothing , _pNumber = Nothing @@ -147,13 +147,13 @@ parseJSON = withObject "Project" (\ o -> - Project <$> + Project' <$> (o .:? "kind" .!= "dns#project") <*> (o .:? "id") <*> (o .:? "number") <*> (o .:? "quota")) instance ToJSON Project where - toJSON Project{..} + toJSON Project'{..} = object (catMaybes [Just ("kind" .= _pKind), ("id" .=) <$> _pId, @@ -163,7 +163,7 @@ -- | An atomic update to a collection of ResourceRecordSets. -- -- /See:/ 'change' smart constructor. -data Change = Change +data Change = Change' { _cStatus :: !(Maybe ChangeStatus) , _cAdditions :: !(Maybe [ResourceRecordSet]) , _cStartTime :: !(Maybe Text) @@ -190,7 +190,7 @@ change :: Change change = - Change + Change' { _cStatus = Nothing , _cAdditions = Nothing , _cStartTime = Nothing @@ -210,8 +210,8 @@ _Default . _Coerce --- | The time that this operation was started by the server. This is in --- RFC3339 text format. +-- | The time that this operation was started by the server (output only). +-- This is in RFC3339 text format. cStartTime :: Lens' Change (Maybe Text) cStartTime = lens _cStartTime (\ s a -> s{_cStartTime = a}) @@ -236,7 +236,7 @@ parseJSON = withObject "Change" (\ o -> - Change <$> + Change' <$> (o .:? "status") <*> (o .:? "additions" .!= mempty) <*> (o .:? "startTime") <*> (o .:? "kind" .!= "dns#change") @@ -244,7 +244,7 @@ <*> (o .:? "id")) instance ToJSON Change where - toJSON Change{..} + toJSON Change'{..} = object (catMaybes [("status" .=) <$> _cStatus, @@ -256,7 +256,7 @@ -- -- /See:/ 'resourceRecordSetsListResponse' smart constructor. -data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse +data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse' { _rrslrNextPageToken :: !(Maybe Text) , _rrslrKind :: !Text , _rrslrRrSets :: !(Maybe [ResourceRecordSet]) @@ -274,7 +274,7 @@ resourceRecordSetsListResponse :: ResourceRecordSetsListResponse resourceRecordSetsListResponse = - ResourceRecordSetsListResponse + ResourceRecordSetsListResponse' { _rrslrNextPageToken = Nothing , _rrslrKind = "dns#resourceRecordSetsListResponse" , _rrslrRrSets = Nothing @@ -311,14 +311,14 @@ parseJSON = withObject "ResourceRecordSetsListResponse" (\ o -> - ResourceRecordSetsListResponse <$> + ResourceRecordSetsListResponse' <$> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "dns#resourceRecordSetsListResponse") <*> (o .:? "rrsets" .!= mempty)) instance ToJSON ResourceRecordSetsListResponse where - toJSON ResourceRecordSetsListResponse{..} + toJSON ResourceRecordSetsListResponse'{..} = object (catMaybes [("nextPageToken" .=) <$> _rrslrNextPageToken, @@ -328,7 +328,7 @@ -- | 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 , _rrsName :: !(Maybe Text) @@ -352,7 +352,7 @@ resourceRecordSet :: ResourceRecordSet resourceRecordSet = - ResourceRecordSet + ResourceRecordSet' { _rrsTtl = Nothing , _rrsKind = "dns#resourceRecordSet" , _rrsName = Nothing @@ -392,7 +392,7 @@ parseJSON = withObject "ResourceRecordSet" (\ o -> - ResourceRecordSet <$> + ResourceRecordSet' <$> (o .:? "ttl") <*> (o .:? "kind" .!= "dns#resourceRecordSet") <*> (o .:? "name") @@ -400,7 +400,7 @@ <*> (o .:? "rrdatas" .!= mempty)) instance ToJSON ResourceRecordSet where - toJSON ResourceRecordSet{..} + toJSON ResourceRecordSet'{..} = object (catMaybes [("ttl" .=) <$> _rrsTtl, Just ("kind" .= _rrsKind), @@ -412,7 +412,7 @@ -- hosted by the Cloud DNS service. -- -- /See:/ 'managedZone' smart constructor. -data ManagedZone = ManagedZone +data ManagedZone = ManagedZone' { _mzCreationTime :: !(Maybe Text) , _mzKind :: !Text , _mzNameServerSet :: !(Maybe Text) @@ -445,7 +445,7 @@ managedZone :: ManagedZone managedZone = - ManagedZone + ManagedZone' { _mzCreationTime = Nothing , _mzKind = "dns#managedZone" , _mzNameServerSet = Nothing @@ -515,7 +515,7 @@ parseJSON = withObject "ManagedZone" (\ o -> - ManagedZone <$> + ManagedZone' <$> (o .:? "creationTime") <*> (o .:? "kind" .!= "dns#managedZone") <*> (o .:? "nameServerSet") @@ -526,7 +526,7 @@ <*> (o .:? "nameServers" .!= mempty)) instance ToJSON ManagedZone where - toJSON ManagedZone{..} + toJSON ManagedZone'{..} = object (catMaybes [("creationTime" .=) <$> _mzCreationTime, @@ -540,7 +540,7 @@ -- | Limits associated with a Project. -- -- /See:/ 'quota' smart constructor. -data Quota = Quota +data Quota = Quota' { _qRrSetDeletionsPerChange :: !(Maybe (Textual Int32)) , _qRrSetsPerManagedZone :: !(Maybe (Textual Int32)) , _qKind :: !Text @@ -570,7 +570,7 @@ quota :: Quota quota = - Quota + Quota' { _qRrSetDeletionsPerChange = Nothing , _qRrSetsPerManagedZone = Nothing , _qKind = "dns#quota" @@ -634,7 +634,7 @@ parseJSON = withObject "Quota" (\ o -> - Quota <$> + Quota' <$> (o .:? "rrsetDeletionsPerChange") <*> (o .:? "rrsetsPerManagedZone") <*> (o .:? "kind" .!= "dns#quota") @@ -644,7 +644,7 @@ <*> (o .:? "totalRrdataSizePerChange")) instance ToJSON Quota where - toJSON Quota{..} + toJSON Quota'{..} = object (catMaybes [("rrsetDeletionsPerChange" .=) <$> @@ -662,7 +662,7 @@ -- -- /See:/ 'managedZonesListResponse' smart constructor. -data ManagedZonesListResponse = ManagedZonesListResponse +data ManagedZonesListResponse = ManagedZonesListResponse' { _mzlrNextPageToken :: !(Maybe Text) , _mzlrKind :: !Text , _mzlrManagedZones :: !(Maybe [ManagedZone]) @@ -680,7 +680,7 @@ managedZonesListResponse :: ManagedZonesListResponse managedZonesListResponse = - ManagedZonesListResponse + ManagedZonesListResponse' { _mzlrNextPageToken = Nothing , _mzlrKind = "dns#managedZonesListResponse" , _mzlrManagedZones = Nothing @@ -716,13 +716,13 @@ parseJSON = withObject "ManagedZonesListResponse" (\ o -> - ManagedZonesListResponse <$> + ManagedZonesListResponse' <$> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "dns#managedZonesListResponse") <*> (o .:? "managedZones" .!= mempty)) instance ToJSON ManagedZonesListResponse where - toJSON ManagedZonesListResponse{..} + toJSON ManagedZonesListResponse'{..} = object (catMaybes [("nextPageToken" .=) <$> _mzlrNextPageToken, 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 @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.DNS.Types.Sum --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,17 +22,17 @@ data ChangesListSortBy = ChangeSequence -- ^ @changeSequence@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable ChangesListSortBy -instance FromText ChangesListSortBy where - fromText = \case - "changeSequence" -> Just ChangeSequence - _ -> Nothing +instance FromHttpApiData ChangesListSortBy where + parseQueryParam = \case + "changeSequence" -> Right ChangeSequence + x -> Left ("Unable to parse ChangesListSortBy from: " <> x) -instance ToText ChangesListSortBy where - toText = \case +instance ToHttpApiData ChangesListSortBy where + toQueryParam = \case ChangeSequence -> "changeSequence" instance FromJSON ChangesListSortBy where @@ -47,18 +47,18 @@ -- ^ @done@ | Pending -- ^ @pending@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable ChangeStatus -instance FromText ChangeStatus where - fromText = \case - "done" -> Just Done - "pending" -> Just Pending - _ -> Nothing +instance FromHttpApiData ChangeStatus where + parseQueryParam = \case + "done" -> Right Done + "pending" -> Right Pending + x -> Left ("Unable to parse ChangeStatus from: " <> x) -instance ToText ChangeStatus where - toText = \case +instance ToHttpApiData ChangeStatus where + toQueryParam = \case Done -> "done" Pending -> "pending" 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DNS.Changes.Create --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -57,7 +57,7 @@ -- | Atomically update the ResourceRecordSet collection. -- -- /See:/ 'changesCreate' smart constructor. -data ChangesCreate = ChangesCreate +data ChangesCreate = ChangesCreate' { _ccProject :: !Text , _ccPayload :: !Change , _ccManagedZone :: !Text @@ -78,7 +78,7 @@ -> Text -- ^ 'ccManagedZone' -> ChangesCreate changesCreate pCcProject_ pCcPayload_ pCcManagedZone_ = - ChangesCreate + ChangesCreate' { _ccProject = pCcProject_ , _ccPayload = pCcPayload_ , _ccManagedZone = pCcManagedZone_ @@ -103,7 +103,10 @@ instance GoogleRequest ChangesCreate where type Rs ChangesCreate = Change - requestClient ChangesCreate{..} + type Scopes ChangesCreate = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/ndev.clouddns.readwrite"] + requestClient ChangesCreate'{..} = go _ccProject _ccManagedZone (Just AltJSON) _ccPayload dNSService 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DNS.Changes.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -57,7 +57,7 @@ -- | Fetch the representation of an existing Change. -- -- /See:/ 'changesGet' smart constructor. -data ChangesGet = ChangesGet +data ChangesGet = ChangesGet' { _cgProject :: !Text , _cgChangeId :: !Text , _cgManagedZone :: !Text @@ -78,7 +78,7 @@ -> Text -- ^ 'cgManagedZone' -> ChangesGet changesGet pCgProject_ pCgChangeId_ pCgManagedZone_ = - ChangesGet + ChangesGet' { _cgProject = pCgProject_ , _cgChangeId = pCgChangeId_ , _cgManagedZone = pCgManagedZone_ @@ -104,7 +104,12 @@ instance GoogleRequest ChangesGet where type Rs ChangesGet = Change - requestClient ChangesGet{..} + type Scopes ChangesGet = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only", + "https://www.googleapis.com/auth/ndev.clouddns.readonly", + "https://www.googleapis.com/auth/ndev.clouddns.readwrite"] + requestClient ChangesGet'{..} = go _cgProject _cgManagedZone _cgChangeId (Just AltJSON) dNSService 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DNS.Changes.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -64,7 +64,7 @@ -- | Enumerate Changes to a ResourceRecordSet collection. -- -- /See:/ 'changesList' smart constructor. -data ChangesList = ChangesList +data ChangesList = ChangesList' { _clProject :: !Text , _clSortOrder :: !(Maybe Text) , _clPageToken :: !(Maybe Text) @@ -93,7 +93,7 @@ -> Text -- ^ 'clManagedZone' -> ChangesList changesList pClProject_ pClManagedZone_ = - ChangesList + ChangesList' { _clProject = pClProject_ , _clSortOrder = Nothing , _clPageToken = Nothing @@ -138,7 +138,12 @@ instance GoogleRequest ChangesList where type Rs ChangesList = ChangesListResponse - requestClient ChangesList{..} + type Scopes ChangesList = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only", + "https://www.googleapis.com/auth/ndev.clouddns.readonly", + "https://www.googleapis.com/auth/ndev.clouddns.readwrite"] + requestClient ChangesList'{..} = go _clProject _clManagedZone _clSortOrder _clPageToken _clMaxResults 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DNS.ManagedZones.Create --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -55,7 +55,7 @@ -- | Create a new ManagedZone. -- -- /See:/ 'managedZonesCreate' smart constructor. -data ManagedZonesCreate = ManagedZonesCreate +data ManagedZonesCreate = ManagedZonesCreate' { _mzcProject :: !Text , _mzcPayload :: !ManagedZone } deriving (Eq,Show,Data,Typeable,Generic) @@ -72,7 +72,7 @@ -> ManagedZone -- ^ 'mzcPayload' -> ManagedZonesCreate managedZonesCreate pMzcProject_ pMzcPayload_ = - ManagedZonesCreate + ManagedZonesCreate' { _mzcProject = pMzcProject_ , _mzcPayload = pMzcPayload_ } @@ -89,7 +89,10 @@ instance GoogleRequest ManagedZonesCreate where type Rs ManagedZonesCreate = ManagedZone - requestClient ManagedZonesCreate{..} + type Scopes ManagedZonesCreate = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/ndev.clouddns.readwrite"] + requestClient ManagedZonesCreate'{..} = go _mzcProject (Just AltJSON) _mzcPayload dNSService where go 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DNS.ManagedZones.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- | Delete a previously created ManagedZone. -- -- /See:/ 'managedZonesDelete' smart constructor. -data ManagedZonesDelete = ManagedZonesDelete +data ManagedZonesDelete = ManagedZonesDelete' { _mzdProject :: !Text , _mzdManagedZone :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -71,7 +71,7 @@ -> Text -- ^ 'mzdManagedZone' -> ManagedZonesDelete managedZonesDelete pMzdProject_ pMzdManagedZone_ = - ManagedZonesDelete + ManagedZonesDelete' { _mzdProject = pMzdProject_ , _mzdManagedZone = pMzdManagedZone_ } @@ -90,7 +90,10 @@ instance GoogleRequest ManagedZonesDelete where type Rs ManagedZonesDelete = () - requestClient ManagedZonesDelete{..} + type Scopes ManagedZonesDelete = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/ndev.clouddns.readwrite"] + requestClient ManagedZonesDelete'{..} = go _mzdProject _mzdManagedZone (Just AltJSON) dNSService where go 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DNS.ManagedZones.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- | Fetch the representation of an existing ManagedZone. -- -- /See:/ 'managedZonesGet' smart constructor. -data ManagedZonesGet = ManagedZonesGet +data ManagedZonesGet = ManagedZonesGet' { _mzgProject :: !Text , _mzgManagedZone :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -71,7 +71,7 @@ -> Text -- ^ 'mzgManagedZone' -> ManagedZonesGet managedZonesGet pMzgProject_ pMzgManagedZone_ = - ManagedZonesGet + ManagedZonesGet' { _mzgProject = pMzgProject_ , _mzgManagedZone = pMzgManagedZone_ } @@ -90,7 +90,12 @@ instance GoogleRequest ManagedZonesGet where type Rs ManagedZonesGet = ManagedZone - requestClient ManagedZonesGet{..} + type Scopes ManagedZonesGet = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only", + "https://www.googleapis.com/auth/ndev.clouddns.readonly", + "https://www.googleapis.com/auth/ndev.clouddns.readwrite"] + requestClient ManagedZonesGet'{..} = go _mzgProject _mzgManagedZone (Just AltJSON) dNSService where go 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DNS.ManagedZones.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -59,7 +59,7 @@ -- | 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) @@ -81,7 +81,7 @@ :: Text -- ^ 'mzlProject' -> ManagedZonesList managedZonesList pMzlProject_ = - ManagedZonesList + ManagedZonesList' { _mzlProject = pMzlProject_ , _mzlPageToken = Nothing , _mzlDNSName = Nothing @@ -114,7 +114,12 @@ instance GoogleRequest ManagedZonesList where type Rs ManagedZonesList = ManagedZonesListResponse - requestClient ManagedZonesList{..} + type Scopes ManagedZonesList = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only", + "https://www.googleapis.com/auth/ndev.clouddns.readonly", + "https://www.googleapis.com/auth/ndev.clouddns.readwrite"] + requestClient ManagedZonesList'{..} = go _mzlProject _mzlPageToken _mzlDNSName _mzlMaxResults (Just AltJSON) 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DNS.Projects.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -51,7 +51,7 @@ -- | Fetch the representation of an existing Project. -- -- /See:/ 'projectsGet' smart constructor. -newtype ProjectsGet = ProjectsGet +newtype ProjectsGet = ProjectsGet' { _pgProject :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@ :: Text -- ^ 'pgProject' -> ProjectsGet projectsGet pPgProject_ = - ProjectsGet + ProjectsGet' { _pgProject = pPgProject_ } @@ -75,7 +75,12 @@ instance GoogleRequest ProjectsGet where type Rs ProjectsGet = Project - requestClient ProjectsGet{..} + type Scopes ProjectsGet = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only", + "https://www.googleapis.com/auth/ndev.clouddns.readonly", + "https://www.googleapis.com/auth/ndev.clouddns.readwrite"] + requestClient ProjectsGet'{..} = go _pgProject (Just AltJSON) dNSService where go = buildClient (Proxy :: Proxy ProjectsGetResource) 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DNS.ResourceRecordSets.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -64,7 +64,7 @@ -- | 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) @@ -93,7 +93,7 @@ -> Text -- ^ 'rrslManagedZone' -> ResourceRecordSetsList resourceRecordSetsList pRrslProject_ pRrslManagedZone_ = - ResourceRecordSetsList + ResourceRecordSetsList' { _rrslProject = pRrslProject_ , _rrslName = Nothing , _rrslPageToken = Nothing @@ -142,7 +142,12 @@ instance GoogleRequest ResourceRecordSetsList where type Rs ResourceRecordSetsList = ResourceRecordSetsListResponse - requestClient ResourceRecordSetsList{..} + type Scopes ResourceRecordSetsList = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only", + "https://www.googleapis.com/auth/ndev.clouddns.readonly", + "https://www.googleapis.com/auth/ndev.clouddns.readwrite"] + requestClient ResourceRecordSetsList'{..} = go _rrslProject _rrslManagedZone _rrslName _rrslPageToken _rrslType 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.0.1 +version: 0.1.0 synopsis: Google Cloud DNS SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,15 +7,14 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay -copyright: Copyright (c) 2015 Brendan Hay +copyright: Copyright (c) 2015-2016 Brendan Hay category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 extra-source-files: README.md description: - The Google Cloud DNS API provides services for configuring and serving - authoritative DNS records. + Configures and serves authoritative DNS records. . /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! @@ -51,5 +50,5 @@ , Network.Google.DNS.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5