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/Billing.hs b/gen/Network/Google/Billing.hs --- a/gen/Network/Google/Billing.hs +++ b/gen/Network/Google/Billing.hs @@ -7,7 +7,7 @@ -- | -- Module : Network.Google.Billing --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,6 +21,9 @@ ( -- * Service Configuration billingService + + -- * OAuth Scopes + , cloudPlatformScope -- * API Declaration , BillingAPI diff --git a/gen/Network/Google/Billing/Types.hs b/gen/Network/Google/Billing/Types.hs --- a/gen/Network/Google/Billing/Types.hs +++ b/gen/Network/Google/Billing/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.Billing.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 @@ -54,11 +55,11 @@ import Network.Google.Prelude -- | Default request referring to version 'v1' of the Google Cloud Billing API. This contains the host and root path used as a starting point for constructing service requests. -billingService :: Service +billingService :: ServiceConfig billingService = defaultService (ServiceId "cloudbilling:v1") "cloudbilling.googleapis.com" -- | 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/Billing/Types/Product.hs b/gen/Network/Google/Billing/Types/Product.hs --- a/gen/Network/Google/Billing/Types/Product.hs +++ b/gen/Network/Google/Billing/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.Billing.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 @@ -25,7 +25,7 @@ -- billing account to one or more projects. -- -- /See:/ 'billingAccount' smart constructor. -data BillingAccount = BillingAccount +data BillingAccount = BillingAccount' { _baOpen :: !(Maybe Bool) , _baName :: !(Maybe Text) , _baDisplayName :: !(Maybe Text) @@ -43,7 +43,7 @@ billingAccount :: BillingAccount billingAccount = - BillingAccount + BillingAccount' { _baOpen = Nothing , _baName = Nothing , _baDisplayName = Nothing @@ -74,12 +74,12 @@ parseJSON = withObject "BillingAccount" (\ o -> - BillingAccount <$> + BillingAccount' <$> (o .:? "open") <*> (o .:? "name") <*> (o .:? "displayName")) instance ToJSON BillingAccount where - toJSON BillingAccount{..} + toJSON BillingAccount'{..} = object (catMaybes [("open" .=) <$> _baOpen, ("name" .=) <$> _baName, @@ -90,7 +90,7 @@ -- billing account can be assigned to multiple projects). -- -- /See:/ 'projectBillingInfo' smart constructor. -data ProjectBillingInfo = ProjectBillingInfo +data ProjectBillingInfo = ProjectBillingInfo' { _pbiName :: !(Maybe Text) , _pbiBillingAccountName :: !(Maybe Text) , _pbiProjectId :: !(Maybe Text) @@ -111,7 +111,7 @@ projectBillingInfo :: ProjectBillingInfo projectBillingInfo = - ProjectBillingInfo + ProjectBillingInfo' { _pbiName = Nothing , _pbiBillingAccountName = Nothing , _pbiProjectId = Nothing @@ -153,13 +153,13 @@ parseJSON = withObject "ProjectBillingInfo" (\ o -> - ProjectBillingInfo <$> + ProjectBillingInfo' <$> (o .:? "name") <*> (o .:? "billingAccountName") <*> (o .:? "projectId") <*> (o .:? "billingEnabled")) instance ToJSON ProjectBillingInfo where - toJSON ProjectBillingInfo{..} + toJSON ProjectBillingInfo'{..} = object (catMaybes [("name" .=) <$> _pbiName, @@ -170,7 +170,7 @@ -- | Request message for \`ListProjectBillingInfoResponse\`. -- -- /See:/ 'listProjectBillingInfoResponse' smart constructor. -data ListProjectBillingInfoResponse = ListProjectBillingInfoResponse +data ListProjectBillingInfoResponse = ListProjectBillingInfoResponse' { _lpbirNextPageToken :: !(Maybe Text) , _lpbirProjectBillingInfo :: !(Maybe [ProjectBillingInfo]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -185,7 +185,7 @@ listProjectBillingInfoResponse :: ListProjectBillingInfoResponse listProjectBillingInfoResponse = - ListProjectBillingInfoResponse + ListProjectBillingInfoResponse' { _lpbirNextPageToken = Nothing , _lpbirProjectBillingInfo = Nothing } @@ -213,12 +213,12 @@ parseJSON = withObject "ListProjectBillingInfoResponse" (\ o -> - ListProjectBillingInfoResponse <$> + ListProjectBillingInfoResponse' <$> (o .:? "nextPageToken") <*> (o .:? "projectBillingInfo" .!= mempty)) instance ToJSON ListProjectBillingInfoResponse where - toJSON ListProjectBillingInfoResponse{..} + toJSON ListProjectBillingInfoResponse'{..} = object (catMaybes [("nextPageToken" .=) <$> _lpbirNextPageToken, @@ -228,7 +228,7 @@ -- | Response message for \`ListBillingAccounts\`. -- -- /See:/ 'listBillingAccountsResponse' smart constructor. -data ListBillingAccountsResponse = ListBillingAccountsResponse +data ListBillingAccountsResponse = ListBillingAccountsResponse' { _lbarNextPageToken :: !(Maybe Text) , _lbarBillingAccounts :: !(Maybe [BillingAccount]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -243,7 +243,7 @@ listBillingAccountsResponse :: ListBillingAccountsResponse listBillingAccountsResponse = - ListBillingAccountsResponse + ListBillingAccountsResponse' { _lbarNextPageToken = Nothing , _lbarBillingAccounts = Nothing } @@ -269,12 +269,12 @@ parseJSON = withObject "ListBillingAccountsResponse" (\ o -> - ListBillingAccountsResponse <$> + ListBillingAccountsResponse' <$> (o .:? "nextPageToken") <*> (o .:? "billingAccounts" .!= mempty)) instance ToJSON ListBillingAccountsResponse where - toJSON ListBillingAccountsResponse{..} + toJSON ListBillingAccountsResponse'{..} = object (catMaybes [("nextPageToken" .=) <$> _lbarNextPageToken, diff --git a/gen/Network/Google/Billing/Types/Sum.hs b/gen/Network/Google/Billing/Types/Sum.hs --- a/gen/Network/Google/Billing/Types/Sum.hs +++ b/gen/Network/Google/Billing/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.Billing.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 diff --git a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Get.hs b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Get.hs --- a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Get.hs +++ b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.CloudBilling.BillingAccounts.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 @@ -68,7 +68,7 @@ -- account](https:\/\/support.google.com\/cloud\/answer\/4430947). -- -- /See:/ 'billingAccountsGet' smart constructor. -data BillingAccountsGet = BillingAccountsGet +data BillingAccountsGet = BillingAccountsGet' { _bagXgafv :: !(Maybe Text) , _bagUploadProtocol :: !(Maybe Text) , _bagPp :: !Bool @@ -102,7 +102,7 @@ :: Text -- ^ 'bagName' -> BillingAccountsGet billingAccountsGet pBagName_ = - BillingAccountsGet + BillingAccountsGet' { _bagXgafv = Nothing , _bagUploadProtocol = Nothing , _bagPp = True @@ -157,7 +157,9 @@ instance GoogleRequest BillingAccountsGet where type Rs BillingAccountsGet = BillingAccount - requestClient BillingAccountsGet{..} + type Scopes BillingAccountsGet = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient BillingAccountsGet'{..} = go _bagName _bagXgafv _bagUploadProtocol (Just _bagPp) _bagAccessToken diff --git a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/List.hs b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/List.hs --- a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/List.hs +++ b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.CloudBilling.BillingAccounts.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 @@ -69,7 +69,7 @@ -- [owns](https:\/\/support.google.com\/cloud\/answer\/4430947). -- -- /See:/ 'billingAccountsList' smart constructor. -data BillingAccountsList = BillingAccountsList +data BillingAccountsList = BillingAccountsList' { _balXgafv :: !(Maybe Text) , _balUploadProtocol :: !(Maybe Text) , _balPp :: !Bool @@ -105,7 +105,7 @@ billingAccountsList :: BillingAccountsList billingAccountsList = - BillingAccountsList + BillingAccountsList' { _balXgafv = Nothing , _balUploadProtocol = Nothing , _balPp = True @@ -172,7 +172,9 @@ instance GoogleRequest BillingAccountsList where type Rs BillingAccountsList = ListBillingAccountsResponse - requestClient BillingAccountsList{..} + type Scopes BillingAccountsList = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient BillingAccountsList'{..} = go _balXgafv _balUploadProtocol (Just _balPp) _balAccessToken _balUploadType diff --git a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Projects/List.hs b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Projects/List.hs --- a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Projects/List.hs +++ b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Projects/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.CloudBilling.BillingAccounts.Projects.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 @@ -73,7 +73,7 @@ -- account](https:\/\/support.google.com\/cloud\/answer\/4430947). -- -- /See:/ 'billingAccountsProjectsList' smart constructor. -data BillingAccountsProjectsList = BillingAccountsProjectsList +data BillingAccountsProjectsList = BillingAccountsProjectsList' { _baplXgafv :: !(Maybe Text) , _baplUploadProtocol :: !(Maybe Text) , _baplPp :: !Bool @@ -113,7 +113,7 @@ :: Text -- ^ 'baplName' -> BillingAccountsProjectsList billingAccountsProjectsList pBaplName_ = - BillingAccountsProjectsList + BillingAccountsProjectsList' { _baplXgafv = Nothing , _baplUploadProtocol = Nothing , _baplPp = True @@ -190,7 +190,9 @@ where type Rs BillingAccountsProjectsList = ListProjectBillingInfoResponse - requestClient BillingAccountsProjectsList{..} + type Scopes BillingAccountsProjectsList = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient BillingAccountsProjectsList'{..} = go _baplName _baplXgafv _baplUploadProtocol (Just _baplPp) _baplAccessToken diff --git a/gen/Network/Google/Resource/CloudBilling/Projects/GetBillingInfo.hs b/gen/Network/Google/Resource/CloudBilling/Projects/GetBillingInfo.hs --- a/gen/Network/Google/Resource/CloudBilling/Projects/GetBillingInfo.hs +++ b/gen/Network/Google/Resource/CloudBilling/Projects/GetBillingInfo.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.CloudBilling.Projects.GetBillingInfo --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,7 +71,7 @@ -- ). -- -- /See:/ 'projectsGetBillingInfo' smart constructor. -data ProjectsGetBillingInfo = ProjectsGetBillingInfo +data ProjectsGetBillingInfo = ProjectsGetBillingInfo' { _pgbiXgafv :: !(Maybe Text) , _pgbiUploadProtocol :: !(Maybe Text) , _pgbiPp :: !Bool @@ -105,7 +105,7 @@ :: Text -- ^ 'pgbiName' -> ProjectsGetBillingInfo projectsGetBillingInfo pPgbiName_ = - ProjectsGetBillingInfo + ProjectsGetBillingInfo' { _pgbiXgafv = Nothing , _pgbiUploadProtocol = Nothing , _pgbiPp = True @@ -161,7 +161,9 @@ instance GoogleRequest ProjectsGetBillingInfo where type Rs ProjectsGetBillingInfo = ProjectBillingInfo - requestClient ProjectsGetBillingInfo{..} + type Scopes ProjectsGetBillingInfo = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient ProjectsGetBillingInfo'{..} = go _pgbiName _pgbiXgafv _pgbiUploadProtocol (Just _pgbiPp) _pgbiAccessToken diff --git a/gen/Network/Google/Resource/CloudBilling/Projects/UpdateBillingInfo.hs b/gen/Network/Google/Resource/CloudBilling/Projects/UpdateBillingInfo.hs --- a/gen/Network/Google/Resource/CloudBilling/Projects/UpdateBillingInfo.hs +++ b/gen/Network/Google/Resource/CloudBilling/Projects/UpdateBillingInfo.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.CloudBilling.Projects.UpdateBillingInfo --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -119,7 +119,7 @@ -- billing account. -- -- /See:/ 'projectsUpdateBillingInfo' smart constructor. -data ProjectsUpdateBillingInfo = ProjectsUpdateBillingInfo +data ProjectsUpdateBillingInfo = ProjectsUpdateBillingInfo' { _pubiXgafv :: !(Maybe Text) , _pubiUploadProtocol :: !(Maybe Text) , _pubiPp :: !Bool @@ -157,7 +157,7 @@ -> Text -- ^ 'pubiName' -> ProjectsUpdateBillingInfo projectsUpdateBillingInfo pPubiPayload_ pPubiName_ = - ProjectsUpdateBillingInfo + ProjectsUpdateBillingInfo' { _pubiXgafv = Nothing , _pubiUploadProtocol = Nothing , _pubiPp = True @@ -221,7 +221,9 @@ where type Rs ProjectsUpdateBillingInfo = ProjectBillingInfo - requestClient ProjectsUpdateBillingInfo{..} + type Scopes ProjectsUpdateBillingInfo = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient ProjectsUpdateBillingInfo'{..} = go _pubiName _pubiXgafv _pubiUploadProtocol (Just _pubiPp) _pubiAccessToken diff --git a/gogol-billing.cabal b/gogol-billing.cabal --- a/gogol-billing.cabal +++ b/gogol-billing.cabal @@ -1,5 +1,5 @@ name: gogol-billing -version: 0.0.1 +version: 0.1.0 synopsis: Google Cloud Billing SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,7 +7,7 @@ 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 @@ -47,5 +47,5 @@ , Network.Google.Billing.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5