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 - [email protected]
+
+- 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 <[email protected]>
+-- 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
