Hello community, here is the log from the commit of package ghc-gogol-resourcemanager for openSUSE:Factory checked in at 2017-08-31 20:54:41 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-resourcemanager (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-resourcemanager.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-resourcemanager" Thu Aug 31 20:54:41 2017 rev:2 rq:513338 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-resourcemanager/ghc-gogol-resourcemanager.changes 2017-05-10 20:43:33.849716494 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-resourcemanager.new/ghc-gogol-resourcemanager.changes 2017-08-31 20:54:43.126124949 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:06:41 UTC 2017 - psimons@suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-resourcemanager-0.1.1.tar.gz New: ---- gogol-resourcemanager-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-resourcemanager.spec ++++++ --- /var/tmp/diff_new_pack.54i5Jx/_old 2017-08-31 20:54:44.133983341 +0200 +++ /var/tmp/diff_new_pack.54i5Jx/_new 2017-08-31 20:54:44.153980532 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-resourcemanager Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Cloud Resource Manager SDK License: MPL-2.0 ++++++ gogol-resourcemanager-0.1.1.tar.gz -> gogol-resourcemanager-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/README.md new/gogol-resourcemanager-0.3.0/README.md --- old/gogol-resourcemanager-0.1.1/README.md 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/README.md 2017-07-12 16:45:05.000000000 +0200 @@ -8,7 +8,7 @@ ## Version -`0.1.1` +`0.3.0` ## Description diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Operations/Get.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Operations/Get.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Operations/Get.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Operations/Get.hs 2017-07-12 16:45:05.000000000 +0200 @@ -53,7 +53,7 @@ type OperationsGetResource = "v1" :> Capture "name" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -68,7 +68,7 @@ -- -- /See:/ 'operationsGet' smart constructor. data OperationsGet = OperationsGet' - { _ogXgafv :: !(Maybe Text) + { _ogXgafv :: !(Maybe Xgafv) , _ogUploadProtocol :: !(Maybe Text) , _ogPp :: !Bool , _ogAccessToken :: !(Maybe Text) @@ -113,7 +113,7 @@ } -- | V1 error format. -ogXgafv :: Lens' OperationsGet (Maybe Text) +ogXgafv :: Lens' OperationsGet (Maybe Xgafv) ogXgafv = lens _ogXgafv (\ s a -> s{_ogXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Organizations/Get.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Organizations/Get.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Organizations/Get.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Organizations/Get.hs 2017-07-12 16:45:05.000000000 +0200 @@ -52,7 +52,7 @@ type OrganizationsGetResource = "v1" :> Capture "name" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -66,7 +66,7 @@ -- -- /See:/ 'organizationsGet' smart constructor. data OrganizationsGet = OrganizationsGet' - { _oggXgafv :: !(Maybe Text) + { _oggXgafv :: !(Maybe Xgafv) , _oggUploadProtocol :: !(Maybe Text) , _oggPp :: !Bool , _oggAccessToken :: !(Maybe Text) @@ -111,7 +111,7 @@ } -- | V1 error format. -oggXgafv :: Lens' OrganizationsGet (Maybe Text) +oggXgafv :: Lens' OrganizationsGet (Maybe Xgafv) oggXgafv = lens _oggXgafv (\ s a -> s{_oggXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Organizations/GetIAMPolicy.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Organizations/GetIAMPolicy.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Organizations/GetIAMPolicy.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Organizations/GetIAMPolicy.hs 2017-07-12 16:45:05.000000000 +0200 @@ -55,7 +55,7 @@ type OrganizationsGetIAMPolicyResource = "v1" :> CaptureMode "resource" "getIamPolicy" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -73,7 +73,7 @@ -- -- /See:/ 'organizationsGetIAMPolicy' smart constructor. data OrganizationsGetIAMPolicy = OrganizationsGetIAMPolicy' - { _ogipXgafv :: !(Maybe Text) + { _ogipXgafv :: !(Maybe Xgafv) , _ogipUploadProtocol :: !(Maybe Text) , _ogipPp :: !Bool , _ogipAccessToken :: !(Maybe Text) @@ -123,7 +123,7 @@ } -- | V1 error format. -ogipXgafv :: Lens' OrganizationsGetIAMPolicy (Maybe Text) +ogipXgafv :: Lens' OrganizationsGetIAMPolicy (Maybe Xgafv) ogipXgafv = lens _ogipXgafv (\ s a -> s{_ogipXgafv = a}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Organizations/Search.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Organizations/Search.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Organizations/Search.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Organizations/Search.hs 2017-07-12 16:45:05.000000000 +0200 @@ -54,7 +54,7 @@ type OrganizationsSearchResource = "v1" :> "organizations:search" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -72,7 +72,7 @@ -- -- /See:/ 'organizationsSearch' smart constructor. data OrganizationsSearch = OrganizationsSearch' - { _osXgafv :: !(Maybe Text) + { _osXgafv :: !(Maybe Xgafv) , _osUploadProtocol :: !(Maybe Text) , _osPp :: !Bool , _osAccessToken :: !(Maybe Text) @@ -117,7 +117,7 @@ } -- | V1 error format. -osXgafv :: Lens' OrganizationsSearch (Maybe Text) +osXgafv :: Lens' OrganizationsSearch (Maybe Xgafv) osXgafv = lens _osXgafv (\ s a -> s{_osXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Organizations/SetIAMPolicy.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Organizations/SetIAMPolicy.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Organizations/SetIAMPolicy.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Organizations/SetIAMPolicy.hs 2017-07-12 16:45:05.000000000 +0200 @@ -54,7 +54,7 @@ type OrganizationsSetIAMPolicyResource = "v1" :> CaptureMode "resource" "setIamPolicy" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -71,7 +71,7 @@ -- -- /See:/ 'organizationsSetIAMPolicy' smart constructor. data OrganizationsSetIAMPolicy = OrganizationsSetIAMPolicy' - { _osipXgafv :: !(Maybe Text) + { _osipXgafv :: !(Maybe Xgafv) , _osipUploadProtocol :: !(Maybe Text) , _osipPp :: !Bool , _osipAccessToken :: !(Maybe Text) @@ -121,7 +121,7 @@ } -- | V1 error format. -osipXgafv :: Lens' OrganizationsSetIAMPolicy (Maybe Text) +osipXgafv :: Lens' OrganizationsSetIAMPolicy (Maybe Xgafv) osipXgafv = lens _osipXgafv (\ s a -> s{_osipXgafv = a}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Organizations/TestIAMPermissions.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Organizations/TestIAMPermissions.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Organizations/TestIAMPermissions.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Organizations/TestIAMPermissions.hs 2017-07-12 16:45:05.000000000 +0200 @@ -54,7 +54,7 @@ type OrganizationsTestIAMPermissionsResource = "v1" :> CaptureMode "resource" "testIamPermissions" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -71,7 +71,7 @@ -- -- /See:/ 'organizationsTestIAMPermissions' smart constructor. data OrganizationsTestIAMPermissions = OrganizationsTestIAMPermissions' - { _otipXgafv :: !(Maybe Text) + { _otipXgafv :: !(Maybe Xgafv) , _otipUploadProtocol :: !(Maybe Text) , _otipPp :: !Bool , _otipAccessToken :: !(Maybe Text) @@ -121,7 +121,7 @@ } -- | V1 error format. -otipXgafv :: Lens' OrganizationsTestIAMPermissions (Maybe Text) +otipXgafv :: Lens' OrganizationsTestIAMPermissions (Maybe Xgafv) otipXgafv = lens _otipXgafv (\ s a -> s{_otipXgafv = a}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/Create.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/Create.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/Create.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/Create.hs 2017-07-12 16:45:05.000000000 +0200 @@ -57,7 +57,7 @@ type ProjectsCreateResource = "v1" :> "projects" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -77,7 +77,7 @@ -- -- /See:/ 'projectsCreate' smart constructor. data ProjectsCreate = ProjectsCreate' - { _pcXgafv :: !(Maybe Text) + { _pcXgafv :: !(Maybe Xgafv) , _pcUploadProtocol :: !(Maybe Text) , _pcPp :: !Bool , _pcAccessToken :: !(Maybe Text) @@ -122,7 +122,7 @@ } -- | V1 error format. -pcXgafv :: Lens' ProjectsCreate (Maybe Text) +pcXgafv :: Lens' ProjectsCreate (Maybe Xgafv) pcXgafv = lens _pcXgafv (\ s a -> s{_pcXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/Delete.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/Delete.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/Delete.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/Delete.hs 2017-07-12 16:45:05.000000000 +0200 @@ -64,7 +64,7 @@ "v1" :> "projects" :> Capture "projectId" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -89,7 +89,7 @@ -- -- /See:/ 'projectsDelete' smart constructor. data ProjectsDelete = ProjectsDelete' - { _pdXgafv :: !(Maybe Text) + { _pdXgafv :: !(Maybe Xgafv) , _pdUploadProtocol :: !(Maybe Text) , _pdPp :: !Bool , _pdAccessToken :: !(Maybe Text) @@ -134,7 +134,7 @@ } -- | V1 error format. -pdXgafv :: Lens' ProjectsDelete (Maybe Text) +pdXgafv :: Lens' ProjectsDelete (Maybe Xgafv) pdXgafv = lens _pdXgafv (\ s a -> s{_pdXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/Get.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/Get.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/Get.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/Get.hs 2017-07-12 16:45:05.000000000 +0200 @@ -54,7 +54,7 @@ "v1" :> "projects" :> Capture "projectId" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -69,7 +69,7 @@ -- -- /See:/ 'projectsGet' smart constructor. data ProjectsGet = ProjectsGet' - { _pgXgafv :: !(Maybe Text) + { _pgXgafv :: !(Maybe Xgafv) , _pgUploadProtocol :: !(Maybe Text) , _pgPp :: !Bool , _pgAccessToken :: !(Maybe Text) @@ -114,7 +114,7 @@ } -- | V1 error format. -pgXgafv :: Lens' ProjectsGet (Maybe Text) +pgXgafv :: Lens' ProjectsGet (Maybe Xgafv) pgXgafv = lens _pgXgafv (\ s a -> s{_pgXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/GetAncestry.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/GetAncestry.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/GetAncestry.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/GetAncestry.hs 2017-07-12 16:45:05.000000000 +0200 @@ -0,0 +1,191 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.CloudResourceManager.Projects.GetAncestry +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets a list of ancestors in the resource hierarchy for the Project +-- identified by the specified \`project_id\` (for example, +-- \`my-project-123\`). The caller must have read permissions for this +-- Project. +-- +-- /See:/ <https://cloud.google.com/resource-manager Google Cloud Resource Manager API Reference> for @cloudresourcemanager.projects.getAncestry@. +module Network.Google.Resource.CloudResourceManager.Projects.GetAncestry + ( + -- * REST Resource + ProjectsGetAncestryResource + + -- * Creating a Request + , projectsGetAncestry + , ProjectsGetAncestry + + -- * Request Lenses + , pgaXgafv + , pgaUploadProtocol + , pgaPp + , pgaAccessToken + , pgaUploadType + , pgaPayload + , pgaBearerToken + , pgaProjectId + , pgaCallback + ) where + +import Network.Google.Prelude +import Network.Google.ResourceManager.Types + +-- | A resource alias for @cloudresourcemanager.projects.getAncestry@ method which the +-- 'ProjectsGetAncestry' request conforms to. +type ProjectsGetAncestryResource = + "v1" :> + "projects" :> + CaptureMode "projectId" "getAncestry" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "pp" Bool :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "bearer_token" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] GetAncestryRequest :> + Post '[JSON] GetAncestryResponse + +-- | Gets a list of ancestors in the resource hierarchy for the Project +-- identified by the specified \`project_id\` (for example, +-- \`my-project-123\`). The caller must have read permissions for this +-- Project. +-- +-- /See:/ 'projectsGetAncestry' smart constructor. +data ProjectsGetAncestry = ProjectsGetAncestry' + { _pgaXgafv :: !(Maybe Xgafv) + , _pgaUploadProtocol :: !(Maybe Text) + , _pgaPp :: !Bool + , _pgaAccessToken :: !(Maybe Text) + , _pgaUploadType :: !(Maybe Text) + , _pgaPayload :: !GetAncestryRequest + , _pgaBearerToken :: !(Maybe Text) + , _pgaProjectId :: !Text + , _pgaCallback :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProjectsGetAncestry' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pgaXgafv' +-- +-- * 'pgaUploadProtocol' +-- +-- * 'pgaPp' +-- +-- * 'pgaAccessToken' +-- +-- * 'pgaUploadType' +-- +-- * 'pgaPayload' +-- +-- * 'pgaBearerToken' +-- +-- * 'pgaProjectId' +-- +-- * 'pgaCallback' +projectsGetAncestry + :: GetAncestryRequest -- ^ 'pgaPayload' + -> Text -- ^ 'pgaProjectId' + -> ProjectsGetAncestry +projectsGetAncestry pPgaPayload_ pPgaProjectId_ = + ProjectsGetAncestry' + { _pgaXgafv = Nothing + , _pgaUploadProtocol = Nothing + , _pgaPp = True + , _pgaAccessToken = Nothing + , _pgaUploadType = Nothing + , _pgaPayload = pPgaPayload_ + , _pgaBearerToken = Nothing + , _pgaProjectId = pPgaProjectId_ + , _pgaCallback = Nothing + } + +-- | V1 error format. +pgaXgafv :: Lens' ProjectsGetAncestry (Maybe Xgafv) +pgaXgafv = lens _pgaXgafv (\ s a -> s{_pgaXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pgaUploadProtocol :: Lens' ProjectsGetAncestry (Maybe Text) +pgaUploadProtocol + = lens _pgaUploadProtocol + (\ s a -> s{_pgaUploadProtocol = a}) + +-- | Pretty-print response. +pgaPp :: Lens' ProjectsGetAncestry Bool +pgaPp = lens _pgaPp (\ s a -> s{_pgaPp = a}) + +-- | OAuth access token. +pgaAccessToken :: Lens' ProjectsGetAncestry (Maybe Text) +pgaAccessToken + = lens _pgaAccessToken + (\ s a -> s{_pgaAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pgaUploadType :: Lens' ProjectsGetAncestry (Maybe Text) +pgaUploadType + = lens _pgaUploadType + (\ s a -> s{_pgaUploadType = a}) + +-- | Multipart request metadata. +pgaPayload :: Lens' ProjectsGetAncestry GetAncestryRequest +pgaPayload + = lens _pgaPayload (\ s a -> s{_pgaPayload = a}) + +-- | OAuth bearer token. +pgaBearerToken :: Lens' ProjectsGetAncestry (Maybe Text) +pgaBearerToken + = lens _pgaBearerToken + (\ s a -> s{_pgaBearerToken = a}) + +-- | The Project ID (for example, \`my-project-123\`). Required. +pgaProjectId :: Lens' ProjectsGetAncestry Text +pgaProjectId + = lens _pgaProjectId (\ s a -> s{_pgaProjectId = a}) + +-- | JSONP +pgaCallback :: Lens' ProjectsGetAncestry (Maybe Text) +pgaCallback + = lens _pgaCallback (\ s a -> s{_pgaCallback = a}) + +instance GoogleRequest ProjectsGetAncestry where + type Rs ProjectsGetAncestry = GetAncestryResponse + type Scopes ProjectsGetAncestry = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only"] + requestClient ProjectsGetAncestry'{..} + = go _pgaProjectId _pgaXgafv _pgaUploadProtocol + (Just _pgaPp) + _pgaAccessToken + _pgaUploadType + _pgaBearerToken + _pgaCallback + (Just AltJSON) + _pgaPayload + resourceManagerService + where go + = buildClient + (Proxy :: Proxy ProjectsGetAncestryResource) + mempty diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/GetIAMPolicy.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/GetIAMPolicy.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/GetIAMPolicy.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/GetIAMPolicy.hs 2017-07-12 16:45:05.000000000 +0200 @@ -54,7 +54,7 @@ "v1" :> "projects" :> CaptureMode "resource" "getIamPolicy" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -70,7 +70,7 @@ -- -- /See:/ 'projectsGetIAMPolicy' smart constructor. data ProjectsGetIAMPolicy = ProjectsGetIAMPolicy' - { _pgipXgafv :: !(Maybe Text) + { _pgipXgafv :: !(Maybe Xgafv) , _pgipUploadProtocol :: !(Maybe Text) , _pgipPp :: !Bool , _pgipAccessToken :: !(Maybe Text) @@ -120,7 +120,7 @@ } -- | V1 error format. -pgipXgafv :: Lens' ProjectsGetIAMPolicy (Maybe Text) +pgipXgafv :: Lens' ProjectsGetIAMPolicy (Maybe Xgafv) pgipXgafv = lens _pgipXgafv (\ s a -> s{_pgipXgafv = a}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/List.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/List.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/List.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/List.hs 2017-07-12 16:45:05.000000000 +0200 @@ -55,7 +55,7 @@ type ProjectsListResource = "v1" :> "projects" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -74,7 +74,7 @@ -- -- /See:/ 'projectsList' smart constructor. data ProjectsList = ProjectsList' - { _plXgafv :: !(Maybe Text) + { _plXgafv :: !(Maybe Xgafv) , _plUploadProtocol :: !(Maybe Text) , _plPp :: !Bool , _plAccessToken :: !(Maybe Text) @@ -126,7 +126,7 @@ } -- | V1 error format. -plXgafv :: Lens' ProjectsList (Maybe Text) +plXgafv :: Lens' ProjectsList (Maybe Xgafv) plXgafv = lens _plXgafv (\ s a -> s{_plXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). @@ -158,8 +158,8 @@ -- | An expression for filtering the results of the request. Filter rules are -- case insensitive. The fields eligible for filtering are: + \`name\` + --- \`id\` + labels.key where *key* is the name of a label Some examples of --- using labels as filters: |Filter|Description| |------|-----------| +-- \`id\` + 'labels.key' where *key* is the name of a label Some examples +-- of using labels as filters: |Filter|Description| |------|-----------| -- |name:*|The project has a name.| |name:Howl|The project\'s name is -- \`Howl\` or \`howl\`.| |name:HOWL|Equivalent to above.| -- |NAME:howl|Equivalent to above.| |labels.color:*|The project has the diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/SetIAMPolicy.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/SetIAMPolicy.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/SetIAMPolicy.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/SetIAMPolicy.hs 2017-07-12 16:45:05.000000000 +0200 @@ -77,7 +77,7 @@ "v1" :> "projects" :> CaptureMode "resource" "setIamPolicy" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -116,7 +116,7 @@ -- -- /See:/ 'projectsSetIAMPolicy' smart constructor. data ProjectsSetIAMPolicy = ProjectsSetIAMPolicy' - { _psipXgafv :: !(Maybe Text) + { _psipXgafv :: !(Maybe Xgafv) , _psipUploadProtocol :: !(Maybe Text) , _psipPp :: !Bool , _psipAccessToken :: !(Maybe Text) @@ -166,7 +166,7 @@ } -- | V1 error format. -psipXgafv :: Lens' ProjectsSetIAMPolicy (Maybe Text) +psipXgafv :: Lens' ProjectsSetIAMPolicy (Maybe Xgafv) psipXgafv = lens _psipXgafv (\ s a -> s{_psipXgafv = a}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/TestIAMPermissions.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/TestIAMPermissions.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/TestIAMPermissions.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/TestIAMPermissions.hs 2017-07-12 16:45:05.000000000 +0200 @@ -53,7 +53,7 @@ "v1" :> "projects" :> CaptureMode "resource" "testIamPermissions" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -68,7 +68,7 @@ -- -- /See:/ 'projectsTestIAMPermissions' smart constructor. data ProjectsTestIAMPermissions = ProjectsTestIAMPermissions' - { _ptipXgafv :: !(Maybe Text) + { _ptipXgafv :: !(Maybe Xgafv) , _ptipUploadProtocol :: !(Maybe Text) , _ptipPp :: !Bool , _ptipAccessToken :: !(Maybe Text) @@ -118,7 +118,7 @@ } -- | V1 error format. -ptipXgafv :: Lens' ProjectsTestIAMPermissions (Maybe Text) +ptipXgafv :: Lens' ProjectsTestIAMPermissions (Maybe Xgafv) ptipXgafv = lens _ptipXgafv (\ s a -> s{_ptipXgafv = a}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/Undelete.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/Undelete.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/Undelete.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/Undelete.hs 2017-07-12 16:45:05.000000000 +0200 @@ -57,7 +57,7 @@ "v1" :> "projects" :> CaptureMode "projectId" "undelete" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -76,7 +76,7 @@ -- -- /See:/ 'projectsUndelete' smart constructor. data ProjectsUndelete = ProjectsUndelete' - { _puXgafv :: !(Maybe Text) + { _puXgafv :: !(Maybe Xgafv) , _puUploadProtocol :: !(Maybe Text) , _puPp :: !Bool , _puAccessToken :: !(Maybe Text) @@ -126,7 +126,7 @@ } -- | V1 error format. -puXgafv :: Lens' ProjectsUndelete (Maybe Text) +puXgafv :: Lens' ProjectsUndelete (Maybe Xgafv) puXgafv = lens _puXgafv (\ s a -> s{_puXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/Update.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/Update.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/Resource/CloudResourceManager/Projects/Update.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/Resource/CloudResourceManager/Projects/Update.hs 2017-07-12 16:45:05.000000000 +0200 @@ -55,7 +55,7 @@ "v1" :> "projects" :> Capture "projectId" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -71,7 +71,7 @@ -- -- /See:/ 'projectsUpdate' smart constructor. data ProjectsUpdate = ProjectsUpdate' - { _proXgafv :: !(Maybe Text) + { _proXgafv :: !(Maybe Xgafv) , _proUploadProtocol :: !(Maybe Text) , _proPp :: !Bool , _proAccessToken :: !(Maybe Text) @@ -121,7 +121,7 @@ } -- | V1 error format. -proXgafv :: Lens' ProjectsUpdate (Maybe Text) +proXgafv :: Lens' ProjectsUpdate (Maybe Xgafv) proXgafv = lens _proXgafv (\ s a -> s{_proXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/ResourceManager/Types/Product.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/ResourceManager/Types/Product.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/ResourceManager/Types/Product.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/ResourceManager/Types/Product.hs 2017-07-12 16:45:05.000000000 +0200 @@ -369,8 +369,8 @@ , _pName :: !(Maybe Text) , _pLabels :: !(Maybe ProjectLabels) , _pProjectId :: !(Maybe Text) - , _pLifecycleState :: !(Maybe Text) - , _pCreateTime :: !(Maybe Text) + , _pLifecycleState :: !(Maybe ProjectLifecycleState) + , _pCreateTime :: !(Maybe DateTime') } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'Project' with the minimum fields required to make a request. @@ -404,12 +404,14 @@ } -- | An optional reference to a parent Resource. The only supported parent --- type is \"organization\". Once set, the parent cannot be modified. --- Read-write. +-- type is \"organization\". Once set, the parent cannot be modified. The +-- \`parent\` can be set on creation or using the \`UpdateProject\` method; +-- the end user must have the \`resourcemanager.projects.create\` +-- permission on the parent. Read-write. pParent :: Lens' Project (Maybe ResourceId) pParent = lens _pParent (\ s a -> s{_pParent = a}) --- | The number uniquely identifying the project. Example: 415104041262 +-- | The number uniquely identifying the project. Example: '415104041262' -- Read-only. pProjectNumber :: Lens' Project (Maybe Int64) pProjectNumber @@ -420,7 +422,7 @@ -- | The user-assigned display name of the Project. It must be 4 to 30 -- characters. Allowed characters are: lowercase and uppercase letters, -- numbers, hyphen, single-quote, double-quote, space, and exclamation --- point. Example: My Project Read-write. +-- point. Example: 'My Project' Read-write. pName :: Lens' Project (Maybe Text) pName = lens _pName (\ s a -> s{_pName = a}) @@ -431,29 +433,30 @@ -- expression (\\[a-z\\](\\[-a-z0-9\\]*\\[a-z0-9\\])?)?. No more than 256 -- labels can be associated with a given resource. Clients should store -- labels in a representation such as JSON that does not depend on specific --- characters being disallowed. Example: \"environment\" : \"dev\" +-- characters being disallowed. Example: '\"environment\" : \"dev\"' -- Read-write. pLabels :: Lens' Project (Maybe ProjectLabels) pLabels = lens _pLabels (\ s a -> s{_pLabels = a}) -- | The unique, user-assigned ID of the Project. It must be 6 to 30 -- lowercase letters, digits, or hyphens. It must start with a letter. --- Trailing hyphens are prohibited. Example: tokyo-rain-123 Read-only after --- creation. +-- Trailing hyphens are prohibited. Example: 'tokyo-rain-123' Read-only +-- after creation. pProjectId :: Lens' Project (Maybe Text) pProjectId = lens _pProjectId (\ s a -> s{_pProjectId = a}) -- | The Project lifecycle state. Read-only. -pLifecycleState :: Lens' Project (Maybe Text) +pLifecycleState :: Lens' Project (Maybe ProjectLifecycleState) pLifecycleState = lens _pLifecycleState (\ s a -> s{_pLifecycleState = a}) -- | Creation time. Read-only. -pCreateTime :: Lens' Project (Maybe Text) +pCreateTime :: Lens' Project (Maybe UTCTime) pCreateTime - = lens _pCreateTime (\ s a -> s{_pCreateTime = a}) + = lens _pCreateTime (\ s a -> s{_pCreateTime = a}) . + mapping _DateTime instance FromJSON Project where parseJSON @@ -520,7 +523,7 @@ oDone :: Lens' Operation (Maybe Bool) oDone = lens _oDone (\ s a -> s{_oDone = a}) --- | The error result of the operation in case of failure. +-- | The error result of the operation in case of failure or cancellation. oError :: Lens' Operation (Maybe Status) oError = lens _oError (\ s a -> s{_oError = a}) @@ -600,7 +603,7 @@ data ProjectCreationStatus = ProjectCreationStatus' { _pcsGettable :: !(Maybe Bool) , _pcsReady :: !(Maybe Bool) - , _pcsCreateTime :: !(Maybe Text) + , _pcsCreateTime :: !(Maybe DateTime') } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ProjectCreationStatus' with the minimum fields required to make a request. @@ -633,10 +636,11 @@ pcsReady = lens _pcsReady (\ s a -> s{_pcsReady = a}) -- | Creation time of the project creation workflow. -pcsCreateTime :: Lens' ProjectCreationStatus (Maybe Text) +pcsCreateTime :: Lens' ProjectCreationStatus (Maybe UTCTime) pcsCreateTime = lens _pcsCreateTime (\ s a -> s{_pcsCreateTime = a}) + . mapping _DateTime instance FromJSON ProjectCreationStatus where parseJSON @@ -691,7 +695,7 @@ -- -- /See:/ 'folderOperationError' smart constructor. newtype FolderOperationError = FolderOperationError' - { _foeErrorMessageId :: Maybe Text + { _foeErrorMessageId :: Maybe FolderOperationErrorErrorMessageId } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'FolderOperationError' with the minimum fields required to make a request. @@ -707,7 +711,7 @@ } -- | The type of operation error experienced. -foeErrorMessageId :: Lens' FolderOperationError (Maybe Text) +foeErrorMessageId :: Lens' FolderOperationError (Maybe FolderOperationErrorErrorMessageId) foeErrorMessageId = lens _foeErrorMessageId (\ s a -> s{_foeErrorMessageId = a}) @@ -802,6 +806,27 @@ = object (catMaybes [("permissions" .=) <$> _tiprPermissions]) +-- | The request sent to the GetAncestry method. +-- +-- /See:/ 'getAncestryRequest' smart constructor. +data GetAncestryRequest = + GetAncestryRequest' + deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetAncestryRequest' with the minimum fields required to make a request. +-- +getAncestryRequest + :: GetAncestryRequest +getAncestryRequest = GetAncestryRequest' + +instance FromJSON GetAncestryRequest where + parseJSON + = withObject "GetAncestryRequest" + (\ o -> pure GetAncestryRequest') + +instance ToJSON GetAncestryRequest where + toJSON = const emptyObject + -- | The response returned from the \`SearchOrganizations\` method. -- -- /See:/ 'searchOrganizationsResponse' smart constructor. @@ -859,6 +884,46 @@ [("nextPageToken" .=) <$> _sorNextPageToken, ("organizations" .=) <$> _sorOrganizations]) +-- | Response from the GetAncestry method. +-- +-- /See:/ 'getAncestryResponse' smart constructor. +newtype GetAncestryResponse = GetAncestryResponse' + { _garAncestor :: Maybe [Ancestor] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetAncestryResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'garAncestor' +getAncestryResponse + :: GetAncestryResponse +getAncestryResponse = + GetAncestryResponse' + { _garAncestor = Nothing + } + +-- | Ancestors are ordered from bottom to top of the resource hierarchy. The +-- first ancestor is the project itself, followed by the project\'s parent, +-- etc. +garAncestor :: Lens' GetAncestryResponse [Ancestor] +garAncestor + = lens _garAncestor (\ s a -> s{_garAncestor = a}) . + _Default + . _Coerce + +instance FromJSON GetAncestryResponse where + parseJSON + = withObject "GetAncestryResponse" + (\ o -> + GetAncestryResponse' <$> + (o .:? "ancestor" .!= mempty)) + +instance ToJSON GetAncestryResponse where + toJSON GetAncestryResponse'{..} + = object + (catMaybes [("ancestor" .=) <$> _garAncestor]) + -- | Response message for \`TestIamPermissions\` method. -- -- /See:/ 'testIAMPermissionsResponse' smart constructor. @@ -916,7 +981,7 @@ -- -- /See:/ 'policy' smart constructor. data Policy = Policy' - { _pEtag :: !(Maybe Base64) + { _pEtag :: !(Maybe Bytes) , _pVersion :: !(Maybe (Textual Int32)) , _pBindings :: !(Maybe [Binding]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -951,7 +1016,7 @@ pEtag :: Lens' Policy (Maybe ByteString) pEtag = lens _pEtag (\ s a -> s{_pEtag = a}) . - mapping _Base64 + mapping _Bytes -- | Version of the \`Policy\`. The default version is 0. pVersion :: Lens' Policy (Maybe Int32) @@ -991,7 +1056,7 @@ -- expression (\\[a-z\\](\\[-a-z0-9\\]*\\[a-z0-9\\])?)?. No more than 256 -- labels can be associated with a given resource. Clients should store -- labels in a representation such as JSON that does not depend on specific --- characters being disallowed. Example: \"environment\" : \"dev\" +-- characters being disallowed. Example: '\"environment\" : \"dev\"' -- Read-write. -- -- /See:/ 'projectLabels' smart constructor. @@ -1068,7 +1133,7 @@ data FolderOperation = FolderOperation' { _foDestinationParent :: !(Maybe Text) , _foDisplayName :: !(Maybe Text) - , _foOperationType :: !(Maybe Text) + , _foOperationType :: !(Maybe FolderOperationOperationType) , _foSourceParent :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1107,7 +1172,7 @@ (\ s a -> s{_foDisplayName = a}) -- | The type of this operation. -foOperationType :: Lens' FolderOperation (Maybe Text) +foOperationType :: Lens' FolderOperation (Maybe FolderOperationOperationType) foOperationType = lens _foOperationType (\ s a -> s{_foOperationType = a}) @@ -1142,11 +1207,11 @@ -- -- /See:/ 'organization' smart constructor. data Organization = Organization' - { _orgCreationTime :: !(Maybe Text) + { _orgCreationTime :: !(Maybe DateTime') , _orgOwner :: !(Maybe OrganizationOwner) , _orgName :: !(Maybe Text) , _orgDisplayName :: !(Maybe Text) - , _orgLifecycleState :: !(Maybe Text) + , _orgLifecycleState :: !(Maybe OrganizationLifecycleState) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'Organization' with the minimum fields required to make a request. @@ -1175,10 +1240,11 @@ -- | Timestamp when the Organization was created. Assigned by the server. -- \'OutputOnly -orgCreationTime :: Lens' Organization (Maybe Text) +orgCreationTime :: Lens' Organization (Maybe UTCTime) orgCreationTime = lens _orgCreationTime (\ s a -> s{_orgCreationTime = a}) + . mapping _DateTime -- | The owner of this Organization. The owner should be specified on -- creation. Once set, it cannot be changed. This field is required. @@ -1202,7 +1268,7 @@ -- | The organization\'s current lifecycle state. Assigned by the server. -- \'OutputOnly -orgLifecycleState :: Lens' Organization (Maybe Text) +orgLifecycleState :: Lens' Organization (Maybe OrganizationLifecycleState) orgLifecycleState = lens _orgLifecycleState (\ s a -> s{_orgLifecycleState = a}) @@ -1226,6 +1292,40 @@ ("displayName" .=) <$> _orgDisplayName, ("lifecycleState" .=) <$> _orgLifecycleState]) +-- | Identifying information for a single ancestor of a project. +-- +-- /See:/ 'ancestor' smart constructor. +newtype Ancestor = Ancestor' + { _aResourceId :: Maybe ResourceId + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Ancestor' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aResourceId' +ancestor + :: Ancestor +ancestor = + Ancestor' + { _aResourceId = Nothing + } + +-- | Resource id of the ancestor. +aResourceId :: Lens' Ancestor (Maybe ResourceId) +aResourceId + = lens _aResourceId (\ s a -> s{_aResourceId = a}) + +instance FromJSON Ancestor where + parseJSON + = withObject "Ancestor" + (\ o -> Ancestor' <$> (o .:? "resourceId")) + +instance ToJSON Ancestor where + toJSON Ancestor'{..} + = object + (catMaybes [("resourceId" .=) <$> _aResourceId]) + -- | The normal response of the operation in case of success. If the original -- method returns no data on success, such as \`Delete\`, the response is -- \`google.protobuf.Empty\`. If the original method is standard diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/ResourceManager/Types/Sum.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/ResourceManager/Types/Sum.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/ResourceManager/Types/Sum.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/ResourceManager/Types/Sum.hs 2017-07-12 16:45:05.000000000 +0200 @@ -17,3 +17,208 @@ module Network.Google.ResourceManager.Types.Sum where import Network.Google.Prelude + +-- | The organization\'s current lifecycle state. Assigned by the server. +-- \'OutputOnly +data OrganizationLifecycleState + = LifecycleStateUnspecified + -- ^ @LIFECYCLE_STATE_UNSPECIFIED@ + -- Unspecified state. This is only useful for distinguishing unset values. + | Active + -- ^ @ACTIVE@ + -- The normal and active state. + | DeleteRequested + -- ^ @DELETE_REQUESTED@ + -- The organization has been marked for deletion by the user. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable OrganizationLifecycleState + +instance FromHttpApiData OrganizationLifecycleState where + parseQueryParam = \case + "LIFECYCLE_STATE_UNSPECIFIED" -> Right LifecycleStateUnspecified + "ACTIVE" -> Right Active + "DELETE_REQUESTED" -> Right DeleteRequested + x -> Left ("Unable to parse OrganizationLifecycleState from: " <> x) + +instance ToHttpApiData OrganizationLifecycleState where + toQueryParam = \case + LifecycleStateUnspecified -> "LIFECYCLE_STATE_UNSPECIFIED" + Active -> "ACTIVE" + DeleteRequested -> "DELETE_REQUESTED" + +instance FromJSON OrganizationLifecycleState where + parseJSON = parseJSONText "OrganizationLifecycleState" + +instance ToJSON OrganizationLifecycleState where + toJSON = toJSONText + +-- | The type of operation error experienced. +data FolderOperationErrorErrorMessageId + = ErrorTypeUnspecified + -- ^ @ERROR_TYPE_UNSPECIFIED@ + -- The error type was unrecognized or unspecified. + | FolderHeightViolation + -- ^ @FOLDER_HEIGHT_VIOLATION@ + -- The attempted action would violate the max folder depth constraint. + | MaxChildFoldersViolation + -- ^ @MAX_CHILD_FOLDERS_VIOLATION@ + -- The attempted action would violate the max child folders constraint. + | FolderNameUniquenessViolation + -- ^ @FOLDER_NAME_UNIQUENESS_VIOLATION@ + -- The attempted action would violate the locally-unique folder + -- display_name constraint. + | ResourceDeleted + -- ^ @RESOURCE_DELETED@ + -- The resource being moved has been deleted. + | ParentDeleted + -- ^ @PARENT_DELETED@ + -- The resource a folder was being added to has been deleted. + | CycleIntroducedError + -- ^ @CYCLE_INTRODUCED_ERROR@ + -- The attempted action would introduce cycle in resource path. + | FolderAlreadyBeingMoved + -- ^ @FOLDER_ALREADY_BEING_MOVED@ + -- The attempted action would move a folder that is already being moved. + | FolderToDeleteNonEmpty + -- ^ @FOLDER_TO_DELETE_NON_EMPTY@ + -- The folder the caller is trying to delete contains active resources. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FolderOperationErrorErrorMessageId + +instance FromHttpApiData FolderOperationErrorErrorMessageId where + parseQueryParam = \case + "ERROR_TYPE_UNSPECIFIED" -> Right ErrorTypeUnspecified + "FOLDER_HEIGHT_VIOLATION" -> Right FolderHeightViolation + "MAX_CHILD_FOLDERS_VIOLATION" -> Right MaxChildFoldersViolation + "FOLDER_NAME_UNIQUENESS_VIOLATION" -> Right FolderNameUniquenessViolation + "RESOURCE_DELETED" -> Right ResourceDeleted + "PARENT_DELETED" -> Right ParentDeleted + "CYCLE_INTRODUCED_ERROR" -> Right CycleIntroducedError + "FOLDER_ALREADY_BEING_MOVED" -> Right FolderAlreadyBeingMoved + "FOLDER_TO_DELETE_NON_EMPTY" -> Right FolderToDeleteNonEmpty + x -> Left ("Unable to parse FolderOperationErrorErrorMessageId from: " <> x) + +instance ToHttpApiData FolderOperationErrorErrorMessageId where + toQueryParam = \case + ErrorTypeUnspecified -> "ERROR_TYPE_UNSPECIFIED" + FolderHeightViolation -> "FOLDER_HEIGHT_VIOLATION" + MaxChildFoldersViolation -> "MAX_CHILD_FOLDERS_VIOLATION" + FolderNameUniquenessViolation -> "FOLDER_NAME_UNIQUENESS_VIOLATION" + ResourceDeleted -> "RESOURCE_DELETED" + ParentDeleted -> "PARENT_DELETED" + CycleIntroducedError -> "CYCLE_INTRODUCED_ERROR" + FolderAlreadyBeingMoved -> "FOLDER_ALREADY_BEING_MOVED" + FolderToDeleteNonEmpty -> "FOLDER_TO_DELETE_NON_EMPTY" + +instance FromJSON FolderOperationErrorErrorMessageId where + parseJSON = parseJSONText "FolderOperationErrorErrorMessageId" + +instance ToJSON FolderOperationErrorErrorMessageId where + toJSON = toJSONText + +-- | The type of this operation. +data FolderOperationOperationType + = OperationTypeUnspecified + -- ^ @OPERATION_TYPE_UNSPECIFIED@ + -- Operation type not specified. + | Create + -- ^ @CREATE@ + -- A create folder operation. + | Move + -- ^ @MOVE@ + -- A move folder operation. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FolderOperationOperationType + +instance FromHttpApiData FolderOperationOperationType where + parseQueryParam = \case + "OPERATION_TYPE_UNSPECIFIED" -> Right OperationTypeUnspecified + "CREATE" -> Right Create + "MOVE" -> Right Move + x -> Left ("Unable to parse FolderOperationOperationType from: " <> x) + +instance ToHttpApiData FolderOperationOperationType where + toQueryParam = \case + OperationTypeUnspecified -> "OPERATION_TYPE_UNSPECIFIED" + Create -> "CREATE" + Move -> "MOVE" + +instance FromJSON FolderOperationOperationType where + parseJSON = parseJSONText "FolderOperationOperationType" + +instance ToJSON FolderOperationOperationType where + toJSON = toJSONText + +-- | The Project lifecycle state. Read-only. +data ProjectLifecycleState + = PLSLifecycleStateUnspecified + -- ^ @LIFECYCLE_STATE_UNSPECIFIED@ + -- Unspecified state. This is only used\/useful for distinguishing unset + -- values. + | PLSActive + -- ^ @ACTIVE@ + -- The normal and active state. + | PLSDeleteRequested + -- ^ @DELETE_REQUESTED@ + -- The project has been marked for deletion by the user (by invoking + -- DeleteProject) or by the system (Google Cloud Platform). This can + -- generally be reversed by invoking UndeleteProject. + | PLSDeleteInProgress + -- ^ @DELETE_IN_PROGRESS@ + -- This lifecycle state is no longer used and not returned by the API. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ProjectLifecycleState + +instance FromHttpApiData ProjectLifecycleState where + parseQueryParam = \case + "LIFECYCLE_STATE_UNSPECIFIED" -> Right PLSLifecycleStateUnspecified + "ACTIVE" -> Right PLSActive + "DELETE_REQUESTED" -> Right PLSDeleteRequested + "DELETE_IN_PROGRESS" -> Right PLSDeleteInProgress + x -> Left ("Unable to parse ProjectLifecycleState from: " <> x) + +instance ToHttpApiData ProjectLifecycleState where + toQueryParam = \case + PLSLifecycleStateUnspecified -> "LIFECYCLE_STATE_UNSPECIFIED" + PLSActive -> "ACTIVE" + PLSDeleteRequested -> "DELETE_REQUESTED" + PLSDeleteInProgress -> "DELETE_IN_PROGRESS" + +instance FromJSON ProjectLifecycleState where + parseJSON = parseJSONText "ProjectLifecycleState" + +instance ToJSON ProjectLifecycleState where + toJSON = toJSONText + +-- | V1 error format. +data Xgafv + = X1 + -- ^ @1@ + -- v1 error format + | X2 + -- ^ @2@ + -- v2 error format + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable Xgafv + +instance FromHttpApiData Xgafv where + parseQueryParam = \case + "1" -> Right X1 + "2" -> Right X2 + x -> Left ("Unable to parse Xgafv from: " <> x) + +instance ToHttpApiData Xgafv where + toQueryParam = \case + X1 -> "1" + X2 -> "2" + +instance FromJSON Xgafv where + parseJSON = parseJSONText "Xgafv" + +instance ToJSON Xgafv where + toJSON = toJSONText diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/ResourceManager/Types.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/ResourceManager/Types.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/ResourceManager/Types.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/ResourceManager/Types.hs 2017-07-12 16:45:05.000000000 +0200 @@ -58,6 +58,9 @@ , organizationOwner , ooDirectoryCustomerId + -- * OrganizationLifecycleState + , OrganizationLifecycleState (..) + -- * Project , Project , project @@ -82,6 +85,9 @@ , Empty , empty + -- * FolderOperationErrorErrorMessageId + , FolderOperationErrorErrorMessageId (..) + -- * ProjectCreationStatus , ProjectCreationStatus , projectCreationStatus @@ -99,22 +105,40 @@ , folderOperationError , foeErrorMessageId + -- * FolderOperationOperationType + , FolderOperationOperationType (..) + -- * SetIAMPolicyRequest , SetIAMPolicyRequest , setIAMPolicyRequest , siprPolicy + -- * ProjectLifecycleState + , ProjectLifecycleState (..) + + -- * Xgafv + , Xgafv (..) + -- * TestIAMPermissionsRequest , TestIAMPermissionsRequest , testIAMPermissionsRequest , tiprPermissions + -- * GetAncestryRequest + , GetAncestryRequest + , getAncestryRequest + -- * SearchOrganizationsResponse , SearchOrganizationsResponse , searchOrganizationsResponse , sorNextPageToken , sorOrganizations + -- * GetAncestryResponse + , GetAncestryResponse + , getAncestryResponse + , garAncestor + -- * TestIAMPermissionsResponse , TestIAMPermissionsResponse , testIAMPermissionsResponse @@ -154,6 +178,11 @@ , orgDisplayName , orgLifecycleState + -- * Ancestor + , Ancestor + , ancestor + , aResourceId + -- * OperationResponse , OperationResponse , operationResponse diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gen/Network/Google/ResourceManager.hs new/gogol-resourcemanager-0.3.0/gen/Network/Google/ResourceManager.hs --- old/gogol-resourcemanager-0.1.1/gen/Network/Google/ResourceManager.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gen/Network/Google/ResourceManager.hs 2017-07-12 16:45:05.000000000 +0200 @@ -58,6 +58,9 @@ -- ** cloudresourcemanager.projects.get , module Network.Google.Resource.CloudResourceManager.Projects.Get + -- ** cloudresourcemanager.projects.getAncestry + , module Network.Google.Resource.CloudResourceManager.Projects.GetAncestry + -- ** cloudresourcemanager.projects.getIamPolicy , module Network.Google.Resource.CloudResourceManager.Projects.GetIAMPolicy @@ -113,6 +116,9 @@ , organizationOwner , ooDirectoryCustomerId + -- ** OrganizationLifecycleState + , OrganizationLifecycleState (..) + -- ** Project , Project , project @@ -137,6 +143,9 @@ , Empty , empty + -- ** FolderOperationErrorErrorMessageId + , FolderOperationErrorErrorMessageId (..) + -- ** ProjectCreationStatus , ProjectCreationStatus , projectCreationStatus @@ -154,22 +163,40 @@ , folderOperationError , foeErrorMessageId + -- ** FolderOperationOperationType + , FolderOperationOperationType (..) + -- ** SetIAMPolicyRequest , SetIAMPolicyRequest , setIAMPolicyRequest , siprPolicy + -- ** ProjectLifecycleState + , ProjectLifecycleState (..) + + -- ** Xgafv + , Xgafv (..) + -- ** TestIAMPermissionsRequest , TestIAMPermissionsRequest , testIAMPermissionsRequest , tiprPermissions + -- ** GetAncestryRequest + , GetAncestryRequest + , getAncestryRequest + -- ** SearchOrganizationsResponse , SearchOrganizationsResponse , searchOrganizationsResponse , sorNextPageToken , sorOrganizations + -- ** GetAncestryResponse + , GetAncestryResponse + , getAncestryResponse + , garAncestor + -- ** TestIAMPermissionsResponse , TestIAMPermissionsResponse , testIAMPermissionsResponse @@ -209,6 +236,11 @@ , orgDisplayName , orgLifecycleState + -- ** Ancestor + , Ancestor + , ancestor + , aResourceId + -- ** OperationResponse , OperationResponse , operationResponse @@ -235,6 +267,7 @@ import Network.Google.Resource.CloudResourceManager.Projects.Create import Network.Google.Resource.CloudResourceManager.Projects.Delete import Network.Google.Resource.CloudResourceManager.Projects.Get +import Network.Google.Resource.CloudResourceManager.Projects.GetAncestry import Network.Google.Resource.CloudResourceManager.Projects.GetIAMPolicy import Network.Google.Resource.CloudResourceManager.Projects.List import Network.Google.Resource.CloudResourceManager.Projects.SetIAMPolicy @@ -262,5 +295,6 @@ :<|> ProjectsCreateResource :<|> ProjectsSetIAMPolicyResource :<|> ProjectsTestIAMPermissionsResource + :<|> ProjectsGetAncestryResource :<|> ProjectsDeleteResource :<|> ProjectsUpdateResource diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-resourcemanager-0.1.1/gogol-resourcemanager.cabal new/gogol-resourcemanager-0.3.0/gogol-resourcemanager.cabal --- old/gogol-resourcemanager-0.1.1/gogol-resourcemanager.cabal 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-resourcemanager-0.3.0/gogol-resourcemanager.cabal 2017-07-12 16:45:05.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-resourcemanager -version: 0.1.1 +version: 0.3.0 synopsis: Google Cloud Resource Manager SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -43,6 +43,7 @@ , Network.Google.Resource.CloudResourceManager.Projects.Create , Network.Google.Resource.CloudResourceManager.Projects.Delete , Network.Google.Resource.CloudResourceManager.Projects.Get + , Network.Google.Resource.CloudResourceManager.Projects.GetAncestry , Network.Google.Resource.CloudResourceManager.Projects.GetIAMPolicy , Network.Google.Resource.CloudResourceManager.Projects.List , Network.Google.Resource.CloudResourceManager.Projects.SetIAMPolicy @@ -57,5 +58,5 @@ , Network.Google.ResourceManager.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5