packages feed

gogol-accessapproval (empty) → 0.5.0

raw patch · 27 files changed

+4512/−0 lines, 27 filesdep +basedep +gogol-coresetup-changed

Dependencies added: base, gogol-core

Files

+ LICENSE view
@@ -0,0 +1,367 @@+Mozilla Public License Version 2.0+==================================++1. Definitions+--------------++1.1. "Contributor"+    means each individual or legal entity that creates, contributes to+    the creation of, or owns Covered Software.++1.2. "Contributor Version"+    means the combination of the Contributions of others (if any) used+    by a Contributor and that particular Contributor's Contribution.++1.3. "Contribution"+    means Covered Software of a particular Contributor.++1.4. "Covered Software"+    means Source Code Form to which the initial Contributor has attached+    the notice in Exhibit A, the Executable Form of such Source Code+    Form, and Modifications of such Source Code Form, in each case+    including portions thereof.++1.5. "Incompatible With Secondary Licenses"+    means++    (a) that the initial Contributor has attached the notice described+        in Exhibit B to the Covered Software; or++    (b) that the Covered Software was made available under the terms of+        version 1.1 or earlier of the License, but not also under the+        terms of a Secondary License.++1.6. "Executable Form"+    means any form of the work other than Source Code Form.++1.7. "Larger Work"+    means a work that combines Covered Software with other material, in+    a separate file or files, that is not Covered Software.++1.8. "License"+    means this document.++1.9. "Licensable"+    means having the right to grant, to the maximum extent possible,+    whether at the time of the initial grant or subsequently, any and+    all of the rights conveyed by this License.++1.10. "Modifications"+    means any of the following:++    (a) any file in Source Code Form that results from an addition to,+        deletion from, or modification of the contents of Covered+        Software; or++    (b) any new file in Source Code Form that contains any Covered+        Software.++1.11. "Patent Claims" of a Contributor+    means any patent claim(s), including without limitation, method,+    process, and apparatus claims, in any patent Licensable by such+    Contributor that would be infringed, but for the grant of the+    License, by the making, using, selling, offering for sale, having+    made, import, or transfer of either its Contributions or its+    Contributor Version.++1.12. "Secondary License"+    means either the GNU General Public License, Version 2.0, the GNU+    Lesser General Public License, Version 2.1, the GNU Affero General+    Public License, Version 3.0, or any later versions of those+    licenses.++1.13. "Source Code Form"+    means the form of the work preferred for making modifications.++1.14. "You" (or "Your")+    means an individual or a legal entity exercising rights under this+    License. For legal entities, "You" includes any entity that+    controls, is controlled by, or is under common control with You. For+    purposes of this definition, "control" means (a) the power, direct+    or indirect, to cause the direction or management of such entity,+    whether by contract or otherwise, or (b) ownership of more than+    fifty percent (50%) of the outstanding shares or beneficial+    ownership of such entity.++2. License Grants and Conditions+--------------------------------++2.1. Grants++Each Contributor hereby grants You a world-wide, royalty-free,+non-exclusive license:++(a) under intellectual property rights (other than patent or trademark)+    Licensable by such Contributor to use, reproduce, make available,+    modify, display, perform, distribute, and otherwise exploit its+    Contributions, either on an unmodified basis, with Modifications, or+    as part of a Larger Work; and++(b) under Patent Claims of such Contributor to make, use, sell, offer+    for sale, have made, import, and otherwise transfer either its+    Contributions or its Contributor Version.++2.2. Effective Date++The licenses granted in Section 2.1 with respect to any Contribution+become effective for each Contribution on the date the Contributor first+distributes such Contribution.++2.3. Limitations on Grant Scope++The licenses granted in this Section 2 are the only rights granted under+this License. No additional rights or licenses will be implied from the+distribution or licensing of Covered Software under this License.+Notwithstanding Section 2.1(b) above, no patent license is granted by a+Contributor:++(a) for any code that a Contributor has removed from Covered Software;+    or++(b) for infringements caused by: (i) Your and any other third party's+    modifications of Covered Software, or (ii) the combination of its+    Contributions with other software (except as part of its Contributor+    Version); or++(c) under Patent Claims infringed by Covered Software in the absence of+    its Contributions.++This License does not grant any rights in the trademarks, service marks,+or logos of any Contributor (except as may be necessary to comply with+the notice requirements in Section 3.4).++2.4. Subsequent Licenses++No Contributor makes additional grants as a result of Your choice to+distribute the Covered Software under a subsequent version of this+License (see Section 10.2) or under the terms of a Secondary License (if+permitted under the terms of Section 3.3).++2.5. Representation++Each Contributor represents that the Contributor believes its+Contributions are its original creation(s) or it has sufficient rights+to grant the rights to its Contributions conveyed by this License.++2.6. Fair Use++This License is not intended to limit any rights You have under+applicable copyright doctrines of fair use, fair dealing, or other+equivalents.++2.7. Conditions++Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted+in Section 2.1.++3. Responsibilities+-------------------++3.1. Distribution of Source Form++All distribution of Covered Software in Source Code Form, including any+Modifications that You create or to which You contribute, must be under+the terms of this License. You must inform recipients that the Source+Code Form of the Covered Software is governed by the terms of this+License, and how they can obtain a copy of this License. You may not+attempt to alter or restrict the recipients' rights in the Source Code+Form.++3.2. Distribution of Executable Form++If You distribute Covered Software in Executable Form then:++(a) such Covered Software must also be made available in Source Code+    Form, as described in Section 3.1, and You must inform recipients of+    the Executable Form how they can obtain a copy of such Source Code+    Form by reasonable means in a timely manner, at a charge no more+    than the cost of distribution to the recipient; and++(b) You may distribute such Executable Form under the terms of this+    License, or sublicense it under different terms, provided that the+    license for the Executable Form does not attempt to limit or alter+    the recipients' rights in the Source Code Form under this License.++3.3. Distribution of a Larger Work++You may create and distribute a Larger Work under terms of Your choice,+provided that You also comply with the requirements of this License for+the Covered Software. If the Larger Work is a combination of Covered+Software with a work governed by one or more Secondary Licenses, and the+Covered Software is not Incompatible With Secondary Licenses, this+License permits You to additionally distribute such Covered Software+under the terms of such Secondary License(s), so that the recipient of+the Larger Work may, at their option, further distribute the Covered+Software under the terms of either this License or such Secondary+License(s).++3.4. Notices++You may not remove or alter the substance of any license notices+(including copyright notices, patent notices, disclaimers of warranty,+or limitations of liability) contained within the Source Code Form of+the Covered Software, except that You may alter any license notices to+the extent required to remedy known factual inaccuracies.++3.5. Application of Additional Terms++You may choose to offer, and to charge a fee for, warranty, support,+indemnity or liability obligations to one or more recipients of Covered+Software. However, You may do so only on Your own behalf, and not on+behalf of any Contributor. You must make it absolutely clear that any+such warranty, support, indemnity, or liability obligation is offered by+You alone, and You hereby agree to indemnify every Contributor for any+liability incurred by such Contributor as a result of warranty, support,+indemnity or liability terms You offer. You may include additional+disclaimers of warranty and limitations of liability specific to any+jurisdiction.++4. Inability to Comply Due to Statute or Regulation+---------------------------------------------------++If it is impossible for You to comply with any of the terms of this+License with respect to some or all of the Covered Software due to+statute, judicial order, or regulation then You must: (a) comply with+the terms of this License to the maximum extent possible; and (b)+describe the limitations and the code they affect. Such description must+be placed in a text file included with all distributions of the Covered+Software under this License. Except to the extent prohibited by statute+or regulation, such description must be sufficiently detailed for a+recipient of ordinary skill to be able to understand it.++5. Termination+--------------++5.1. The rights granted under this License will terminate automatically+if You fail to comply with any of its terms. However, if You become+compliant, then the rights granted under this License from a particular+Contributor are reinstated (a) provisionally, unless and until such+Contributor explicitly and finally terminates Your grants, and (b) on an+ongoing basis, if such Contributor fails to notify You of the+non-compliance by some reasonable means prior to 60 days after You have+come back into compliance. Moreover, Your grants from a particular+Contributor are reinstated on an ongoing basis if such Contributor+notifies You of the non-compliance by some reasonable means, this is the+first time You have received notice of non-compliance with this License+from such Contributor, and You become compliant prior to 30 days after+Your receipt of the notice.++5.2. If You initiate litigation against any entity by asserting a patent+infringement claim (excluding declaratory judgment actions,+counter-claims, and cross-claims) alleging that a Contributor Version+directly or indirectly infringes any patent, then the rights granted to+You by any and all Contributors for the Covered Software under Section+2.1 of this License shall terminate.++5.3. In the event of termination under Sections 5.1 or 5.2 above, all+end user license agreements (excluding distributors and resellers) which+have been validly granted by You or Your distributors under this License+prior to termination shall survive termination.++************************************************************************+*                                                                      *+*  6. Disclaimer of Warranty                                           *+*  -------------------------                                           *+*                                                                      *+*  Covered Software is provided under this License on an "as is"       *+*  basis, without warranty of any kind, either expressed, implied, or  *+*  statutory, including, without limitation, warranties that the       *+*  Covered Software is free of defects, merchantable, fit for a        *+*  particular purpose or non-infringing. The entire risk as to the     *+*  quality and performance of the Covered Software is with You.        *+*  Should any Covered Software prove defective in any respect, You     *+*  (not any Contributor) assume the cost of any necessary servicing,   *+*  repair, or correction. This disclaimer of warranty constitutes an   *+*  essential part of this License. No use of any Covered Software is   *+*  authorized under this License except under this disclaimer.         *+*                                                                      *+************************************************************************++************************************************************************+*                                                                      *+*  7. Limitation of Liability                                          *+*  --------------------------                                          *+*                                                                      *+*  Under no circumstances and under no legal theory, whether tort      *+*  (including negligence), contract, or otherwise, shall any           *+*  Contributor, or anyone who distributes Covered Software as          *+*  permitted above, be liable to You for any direct, indirect,         *+*  special, incidental, or consequential damages of any character      *+*  including, without limitation, damages for lost profits, loss of    *+*  goodwill, work stoppage, computer failure or malfunction, or any    *+*  and all other commercial damages or losses, even if such party      *+*  shall have been informed of the possibility of such damages. This   *+*  limitation of liability shall not apply to liability for death or   *+*  personal injury resulting from such party's negligence to the       *+*  extent applicable law prohibits such limitation. Some               *+*  jurisdictions do not allow the exclusion or limitation of           *+*  incidental or consequential damages, so this exclusion and          *+*  limitation may not apply to You.                                    *+*                                                                      *+************************************************************************++8. Litigation+-------------++Any litigation relating to this License may be brought only in the+courts of a jurisdiction where the defendant maintains its principal+place of business and such litigation shall be governed by laws of that+jurisdiction, without reference to its conflict-of-law provisions.+Nothing in this Section shall prevent a party's ability to bring+cross-claims or counter-claims.++9. Miscellaneous+----------------++This License represents the complete agreement concerning the subject+matter hereof. If any provision of this License is held to be+unenforceable, such provision shall be reformed only to the extent+necessary to make it enforceable. Any law or regulation which provides+that the language of a contract shall be construed against the drafter+shall not be used to construe this License against a Contributor.++10. Versions of the License+---------------------------++10.1. New Versions++Mozilla Foundation is the license steward. Except as provided in Section+10.3, no one other than the license steward has the right to modify or+publish new versions of this License. Each version will be given a+distinguishing version number.++10.2. Effect of New Versions++You may distribute the Covered Software under the terms of the version+of the License under which You originally received the Covered Software,+or under the terms of any subsequent version published by the license+steward.++10.3. Modified Versions++If you create software not governed by this License, and you want to+create a new license for such software, you may create and use a+modified version of this License if you rename the license and remove+any references to the name of the license steward (except to note that+such modified license differs from this License).++10.4. Distributing Source Code Form that is Incompatible With Secondary+Licenses++If You choose to distribute Source Code Form that is Incompatible With+Secondary Licenses under the terms of this version of the License, the+notice described in Exhibit B of this License must be attached.++Exhibit A - Source Code Form License Notice+-------------------------------------------++  This Source Code Form is subject to the terms of the Mozilla Public+  License, v. 2.0. If a copy of the MPL was not distributed with this+  file, You can obtain one at http://mozilla.org/MPL/2.0/.++If it is not possible or desirable to put the notice in a particular+file, then You may include the notice in a location (such as a LICENSE+file in a relevant directory) where a recipient would be likely to look+for such a notice.++You may add additional accurate notices of copyright ownership.
+ README.md view
@@ -0,0 +1,28 @@+# gogol-accessapproval++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version++`0.5.0`+++## Description++A client library for the Google Access Approval.+++## Contribute++For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues).++> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information.+++## Licence++`gogol-accessapproval` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).
+ Setup.hs view
@@ -0,0 +1,2 @@+import           Distribution.Simple+main = defaultMain
+ gen/Network/Google/AccessApproval.hs view
@@ -0,0 +1,196 @@+{-# LANGUAGE DataKinds         #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# LANGUAGE TypeOperators     #-}++{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- |+-- Module      : Network.Google.AccessApproval+-- 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)+--+-- An API for controlling access to data by Google personnel.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference>+module Network.Google.AccessApproval+    (+    -- * Service Configuration+      accessApprovalService++    -- * OAuth Scopes+    , cloudPlatformScope++    -- * API Declaration+    , AccessApprovalAPI++    -- * Resources++    -- ** accessapproval.folders.approvalRequests.approve+    , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve++    -- ** accessapproval.folders.approvalRequests.dismiss+    , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss++    -- ** accessapproval.folders.approvalRequests.get+    , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get++    -- ** accessapproval.folders.approvalRequests.list+    , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List++    -- ** accessapproval.folders.getAccessApprovalSettings+    , module Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings++    -- ** accessapproval.folders.updateAccessApprovalSettings+    , module Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings++    -- ** accessapproval.organizations.approvalRequests.approve+    , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve++    -- ** accessapproval.organizations.approvalRequests.dismiss+    , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss++    -- ** accessapproval.organizations.approvalRequests.get+    , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get++    -- ** accessapproval.organizations.approvalRequests.list+    , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List++    -- ** accessapproval.organizations.getAccessApprovalSettings+    , module Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings++    -- ** accessapproval.organizations.updateAccessApprovalSettings+    , module Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings++    -- ** accessapproval.projects.approvalRequests.approve+    , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve++    -- ** accessapproval.projects.approvalRequests.dismiss+    , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss++    -- ** accessapproval.projects.approvalRequests.get+    , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get++    -- ** accessapproval.projects.approvalRequests.list+    , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List++    -- ** accessapproval.projects.getAccessApprovalSettings+    , module Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings++    -- ** accessapproval.projects.updateAccessApprovalSettings+    , module Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings++    -- * Types++    -- ** ListApprovalRequestsResponse+    , ListApprovalRequestsResponse+    , listApprovalRequestsResponse+    , larrNextPageToken+    , larrApprovalRequests++    -- ** ApproveDecision+    , ApproveDecision+    , approveDecision+    , adApproveTime+    , adExpireTime++    -- ** AccessLocations+    , AccessLocations+    , accessLocations+    , alPrincipalOfficeCountry+    , alPrincipalPhysicalLocationCountry++    -- ** DismissDecision+    , DismissDecision+    , dismissDecision+    , ddDismissTime++    -- ** AccessReasonType+    , AccessReasonType (..)++    -- ** AccessApprovalSettings+    , AccessApprovalSettings+    , accessApprovalSettings+    , aasName+    , aasNotificationEmails++    -- ** ApprovalRequest+    , ApprovalRequest+    , approvalRequest+    , arRequestedResourceName+    , arRequestedExpiration+    , arRequestTime+    , arRequestedReason+    , arName+    , arApprove+    , arDismiss+    , arRequestedLocations++    -- ** DismissApprovalRequestMessage+    , DismissApprovalRequestMessage+    , dismissApprovalRequestMessage++    -- ** Xgafv+    , Xgafv (..)++    -- ** ApproveApprovalRequestMessage+    , ApproveApprovalRequestMessage+    , approveApprovalRequestMessage+    , aarmExpireTime++    -- ** AccessReason+    , AccessReason+    , accessReason+    , arType+    , arDetail+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude+import           Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve+import           Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss+import           Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get+import           Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List+import           Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings+import           Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings+import           Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve+import           Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss+import           Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get+import           Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List+import           Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings+import           Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings+import           Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve+import           Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss+import           Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get+import           Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List+import           Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings+import           Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings++{- $resources+TODO+-}++-- | Represents the entirety of the methods and resources available for the Access Approval API service.+type AccessApprovalAPI =+     FoldersApprovalRequestsListResource :<|>+       FoldersApprovalRequestsGetResource+       :<|> FoldersApprovalRequestsApproveResource+       :<|> FoldersApprovalRequestsDismissResource+       :<|> FoldersUpdateAccessApprovalSettingsResource+       :<|> FoldersGetAccessApprovalSettingsResource+       :<|> OrganizationsApprovalRequestsListResource+       :<|> OrganizationsApprovalRequestsGetResource+       :<|> OrganizationsApprovalRequestsApproveResource+       :<|> OrganizationsApprovalRequestsDismissResource+       :<|>+       OrganizationsUpdateAccessApprovalSettingsResource+       :<|> OrganizationsGetAccessApprovalSettingsResource+       :<|> ProjectsApprovalRequestsListResource+       :<|> ProjectsApprovalRequestsGetResource+       :<|> ProjectsApprovalRequestsApproveResource+       :<|> ProjectsApprovalRequestsDismissResource+       :<|> ProjectsUpdateAccessApprovalSettingsResource+       :<|> ProjectsGetAccessApprovalSettingsResource
+ gen/Network/Google/AccessApproval/Types.hs view
@@ -0,0 +1,100 @@+{-# LANGUAGE DataKinds          #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE NoImplicitPrelude  #-}+{-# LANGUAGE OverloadedStrings  #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Network.Google.AccessApproval.Types+-- 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)+--+module Network.Google.AccessApproval.Types+    (+    -- * Service Configuration+      accessApprovalService++    -- * OAuth Scopes+    , cloudPlatformScope++    -- * ListApprovalRequestsResponse+    , ListApprovalRequestsResponse+    , listApprovalRequestsResponse+    , larrNextPageToken+    , larrApprovalRequests++    -- * ApproveDecision+    , ApproveDecision+    , approveDecision+    , adApproveTime+    , adExpireTime++    -- * AccessLocations+    , AccessLocations+    , accessLocations+    , alPrincipalOfficeCountry+    , alPrincipalPhysicalLocationCountry++    -- * DismissDecision+    , DismissDecision+    , dismissDecision+    , ddDismissTime++    -- * AccessReasonType+    , AccessReasonType (..)++    -- * AccessApprovalSettings+    , AccessApprovalSettings+    , accessApprovalSettings+    , aasName+    , aasNotificationEmails++    -- * ApprovalRequest+    , ApprovalRequest+    , approvalRequest+    , arRequestedResourceName+    , arRequestedExpiration+    , arRequestTime+    , arRequestedReason+    , arName+    , arApprove+    , arDismiss+    , arRequestedLocations++    -- * DismissApprovalRequestMessage+    , DismissApprovalRequestMessage+    , dismissApprovalRequestMessage++    -- * Xgafv+    , Xgafv (..)++    -- * ApproveApprovalRequestMessage+    , ApproveApprovalRequestMessage+    , approveApprovalRequestMessage+    , aarmExpireTime++    -- * AccessReason+    , AccessReason+    , accessReason+    , arType+    , arDetail+    ) where++import           Network.Google.AccessApproval.Types.Product+import           Network.Google.AccessApproval.Types.Sum+import           Network.Google.Prelude++-- | Default request referring to version 'v1beta1' of the Access Approval API. This contains the host and root path used as a starting point for constructing service requests.+accessApprovalService :: ServiceConfig+accessApprovalService+  = defaultService (ServiceId "accessapproval:v1beta1")+      "accessapproval.googleapis.com"++-- | View and manage your data across Google Cloud Platform services+cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]+cloudPlatformScope = Proxy
+ gen/Network/Google/AccessApproval/Types/Product.hs view
@@ -0,0 +1,546 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE NoImplicitPrelude  #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}++{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Network.Google.AccessApproval.Types.Product+-- 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)+--+module Network.Google.AccessApproval.Types.Product where++import           Network.Google.AccessApproval.Types.Sum+import           Network.Google.Prelude++-- | Response to listing of ApprovalRequest objects.+--+-- /See:/ 'listApprovalRequestsResponse' smart constructor.+data ListApprovalRequestsResponse =+  ListApprovalRequestsResponse'+    { _larrNextPageToken    :: !(Maybe Text)+    , _larrApprovalRequests :: !(Maybe [ApprovalRequest])+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListApprovalRequestsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'larrNextPageToken'+--+-- * 'larrApprovalRequests'+listApprovalRequestsResponse+    :: ListApprovalRequestsResponse+listApprovalRequestsResponse =+  ListApprovalRequestsResponse'+    {_larrNextPageToken = Nothing, _larrApprovalRequests = Nothing}+++-- | Token to retrieve the next page of results, or empty if there are no+-- more.+larrNextPageToken :: Lens' ListApprovalRequestsResponse (Maybe Text)+larrNextPageToken+  = lens _larrNextPageToken+      (\ s a -> s{_larrNextPageToken = a})++-- | Approval request details.+larrApprovalRequests :: Lens' ListApprovalRequestsResponse [ApprovalRequest]+larrApprovalRequests+  = lens _larrApprovalRequests+      (\ s a -> s{_larrApprovalRequests = a})+      . _Default+      . _Coerce++instance FromJSON ListApprovalRequestsResponse where+        parseJSON+          = withObject "ListApprovalRequestsResponse"+              (\ o ->+                 ListApprovalRequestsResponse' <$>+                   (o .:? "nextPageToken") <*>+                     (o .:? "approvalRequests" .!= mempty))++instance ToJSON ListApprovalRequestsResponse where+        toJSON ListApprovalRequestsResponse'{..}+          = object+              (catMaybes+                 [("nextPageToken" .=) <$> _larrNextPageToken,+                  ("approvalRequests" .=) <$> _larrApprovalRequests])++-- | A decision that has been made to approve access to a resource.+--+-- /See:/ 'approveDecision' smart constructor.+data ApproveDecision =+  ApproveDecision'+    { _adApproveTime :: !(Maybe DateTime')+    , _adExpireTime  :: !(Maybe DateTime')+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ApproveDecision' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'adApproveTime'+--+-- * 'adExpireTime'+approveDecision+    :: ApproveDecision+approveDecision =+  ApproveDecision' {_adApproveTime = Nothing, _adExpireTime = Nothing}+++-- | The time at which approval was granted.+adApproveTime :: Lens' ApproveDecision (Maybe UTCTime)+adApproveTime+  = lens _adApproveTime+      (\ s a -> s{_adApproveTime = a})+      . mapping _DateTime++-- | The time at which the approval expires.+adExpireTime :: Lens' ApproveDecision (Maybe UTCTime)+adExpireTime+  = lens _adExpireTime (\ s a -> s{_adExpireTime = a})+      . mapping _DateTime++instance FromJSON ApproveDecision where+        parseJSON+          = withObject "ApproveDecision"+              (\ o ->+                 ApproveDecision' <$>+                   (o .:? "approveTime") <*> (o .:? "expireTime"))++instance ToJSON ApproveDecision where+        toJSON ApproveDecision'{..}+          = object+              (catMaybes+                 [("approveTime" .=) <$> _adApproveTime,+                  ("expireTime" .=) <$> _adExpireTime])++-- | Home office and physical location of the principal.+--+-- /See:/ 'accessLocations' smart constructor.+data AccessLocations =+  AccessLocations'+    { _alPrincipalOfficeCountry           :: !(Maybe Text)+    , _alPrincipalPhysicalLocationCountry :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AccessLocations' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'alPrincipalOfficeCountry'+--+-- * 'alPrincipalPhysicalLocationCountry'+accessLocations+    :: AccessLocations+accessLocations =+  AccessLocations'+    { _alPrincipalOfficeCountry = Nothing+    , _alPrincipalPhysicalLocationCountry = Nothing+    }+++-- | The \"home office\" location of the principal. A two-letter country code+-- (ISO 3166-1 alpha-2), such as \"US\", \"DE\" or \"GB\" or a region code.+-- In some limited situations Google systems may refer refer to a region+-- code instead of a country code. Possible Region Codes:+--+-- 1.  ASI: Asia+-- 2.  EUR: Europe+-- 3.  OCE: Oceania+-- 4.  AFR: Africa+-- 5.  NAM: North America+-- 6.  SAM: South America+-- 7.  ANT: Antarctica+-- 8.  ANY: Any location+alPrincipalOfficeCountry :: Lens' AccessLocations (Maybe Text)+alPrincipalOfficeCountry+  = lens _alPrincipalOfficeCountry+      (\ s a -> s{_alPrincipalOfficeCountry = a})++-- | Physical location of the principal at the time of the access. A+-- two-letter country code (ISO 3166-1 alpha-2), such as \"US\", \"DE\" or+-- \"GB\" or a region code. In some limited situations Google systems may+-- refer refer to a region code instead of a country code. Possible Region+-- Codes:+--+-- 1.  ASI: Asia+-- 2.  EUR: Europe+-- 3.  OCE: Oceania+-- 4.  AFR: Africa+-- 5.  NAM: North America+-- 6.  SAM: South America+-- 7.  ANT: Antarctica+-- 8.  ANY: Any location+alPrincipalPhysicalLocationCountry :: Lens' AccessLocations (Maybe Text)+alPrincipalPhysicalLocationCountry+  = lens _alPrincipalPhysicalLocationCountry+      (\ s a -> s{_alPrincipalPhysicalLocationCountry = a})++instance FromJSON AccessLocations where+        parseJSON+          = withObject "AccessLocations"+              (\ o ->+                 AccessLocations' <$>+                   (o .:? "principalOfficeCountry") <*>+                     (o .:? "principalPhysicalLocationCountry"))++instance ToJSON AccessLocations where+        toJSON AccessLocations'{..}+          = object+              (catMaybes+                 [("principalOfficeCountry" .=) <$>+                    _alPrincipalOfficeCountry,+                  ("principalPhysicalLocationCountry" .=) <$>+                    _alPrincipalPhysicalLocationCountry])++-- | A decision that has been made to dismiss an approval request.+--+-- /See:/ 'dismissDecision' smart constructor.+newtype DismissDecision =+  DismissDecision'+    { _ddDismissTime :: Maybe DateTime'+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DismissDecision' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddDismissTime'+dismissDecision+    :: DismissDecision+dismissDecision = DismissDecision' {_ddDismissTime = Nothing}+++-- | The time at which the approval request was dismissed.+ddDismissTime :: Lens' DismissDecision (Maybe UTCTime)+ddDismissTime+  = lens _ddDismissTime+      (\ s a -> s{_ddDismissTime = a})+      . mapping _DateTime++instance FromJSON DismissDecision where+        parseJSON+          = withObject "DismissDecision"+              (\ o -> DismissDecision' <$> (o .:? "dismissTime"))++instance ToJSON DismissDecision where+        toJSON DismissDecision'{..}+          = object+              (catMaybes [("dismissTime" .=) <$> _ddDismissTime])++-- | Settings on a Project\/Folder\/Organization related to Access Approval.+--+-- /See:/ 'accessApprovalSettings' smart constructor.+data AccessApprovalSettings =+  AccessApprovalSettings'+    { _aasName               :: !(Maybe Text)+    , _aasNotificationEmails :: !(Maybe [Text])+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AccessApprovalSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aasName'+--+-- * 'aasNotificationEmails'+accessApprovalSettings+    :: AccessApprovalSettings+accessApprovalSettings =+  AccessApprovalSettings' {_aasName = Nothing, _aasNotificationEmails = Nothing}+++-- | The resource name of the settings. Format is one of:+-- \"projects\/{project_id}\/accessApprovalSettings\"+-- \"folders\/{folder_id}\/accessApprovalSettings\"+-- \"organizations\/{organization_id}\/accessApprovalSettings\"+aasName :: Lens' AccessApprovalSettings (Maybe Text)+aasName = lens _aasName (\ s a -> s{_aasName = a})++-- | A list of email addresses to which notifications relating to approval+-- requests should be sent. Notifications relating to a resource will be+-- sent to all emails in the settings of ancestor resources of that+-- resource.+aasNotificationEmails :: Lens' AccessApprovalSettings [Text]+aasNotificationEmails+  = lens _aasNotificationEmails+      (\ s a -> s{_aasNotificationEmails = a})+      . _Default+      . _Coerce++instance FromJSON AccessApprovalSettings where+        parseJSON+          = withObject "AccessApprovalSettings"+              (\ o ->+                 AccessApprovalSettings' <$>+                   (o .:? "name") <*>+                     (o .:? "notificationEmails" .!= mempty))++instance ToJSON AccessApprovalSettings where+        toJSON AccessApprovalSettings'{..}+          = object+              (catMaybes+                 [("name" .=) <$> _aasName,+                  ("notificationEmails" .=) <$>+                    _aasNotificationEmails])++-- | A request for the customer to approve access to a resource.+--+-- /See:/ 'approvalRequest' smart constructor.+data ApprovalRequest =+  ApprovalRequest'+    { _arRequestedResourceName :: !(Maybe Text)+    , _arRequestedExpiration   :: !(Maybe DateTime')+    , _arRequestTime           :: !(Maybe DateTime')+    , _arRequestedReason       :: !(Maybe AccessReason)+    , _arName                  :: !(Maybe Text)+    , _arApprove               :: !(Maybe ApproveDecision)+    , _arDismiss               :: !(Maybe DismissDecision)+    , _arRequestedLocations    :: !(Maybe AccessLocations)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ApprovalRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'arRequestedResourceName'+--+-- * 'arRequestedExpiration'+--+-- * 'arRequestTime'+--+-- * 'arRequestedReason'+--+-- * 'arName'+--+-- * 'arApprove'+--+-- * 'arDismiss'+--+-- * 'arRequestedLocations'+approvalRequest+    :: ApprovalRequest+approvalRequest =+  ApprovalRequest'+    { _arRequestedResourceName = Nothing+    , _arRequestedExpiration = Nothing+    , _arRequestTime = Nothing+    , _arRequestedReason = Nothing+    , _arName = Nothing+    , _arApprove = Nothing+    , _arDismiss = Nothing+    , _arRequestedLocations = Nothing+    }+++-- | The resource for which approval is being requested. The format of the+-- resource name is defined at+-- https:\/\/cloud.google.com\/apis\/design\/resource_names. The resource+-- name here may either be a \"full\" resource name (e.g.+-- \"\/\/library.googleapis.com\/shelves\/shelf1\/books\/book2\") or a+-- \"relative\" resource name (e.g. \"shelves\/shelf1\/books\/book2\") as+-- described in the resource name specification.+arRequestedResourceName :: Lens' ApprovalRequest (Maybe Text)+arRequestedResourceName+  = lens _arRequestedResourceName+      (\ s a -> s{_arRequestedResourceName = a})++-- | The requested expiration for the approval. If the request is approved,+-- access will be granted from the time of approval until the expiration+-- time.+arRequestedExpiration :: Lens' ApprovalRequest (Maybe UTCTime)+arRequestedExpiration+  = lens _arRequestedExpiration+      (\ s a -> s{_arRequestedExpiration = a})+      . mapping _DateTime++-- | The time at which approval was requested.+arRequestTime :: Lens' ApprovalRequest (Maybe UTCTime)+arRequestTime+  = lens _arRequestTime+      (\ s a -> s{_arRequestTime = a})+      . mapping _DateTime++-- | The justification for which approval is being requested.+arRequestedReason :: Lens' ApprovalRequest (Maybe AccessReason)+arRequestedReason+  = lens _arRequestedReason+      (\ s a -> s{_arRequestedReason = a})++-- | The resource name of the request. Format is+-- \"{projects|folders|organizations}\/{id}\/approvalRequests\/{approval_request_id}\".+arName :: Lens' ApprovalRequest (Maybe Text)+arName = lens _arName (\ s a -> s{_arName = a})++-- | Access was approved.+arApprove :: Lens' ApprovalRequest (Maybe ApproveDecision)+arApprove+  = lens _arApprove (\ s a -> s{_arApprove = a})++-- | The request was dismissed.+arDismiss :: Lens' ApprovalRequest (Maybe DismissDecision)+arDismiss+  = lens _arDismiss (\ s a -> s{_arDismiss = a})++-- | The locations for which approval is being requested.+arRequestedLocations :: Lens' ApprovalRequest (Maybe AccessLocations)+arRequestedLocations+  = lens _arRequestedLocations+      (\ s a -> s{_arRequestedLocations = a})++instance FromJSON ApprovalRequest where+        parseJSON+          = withObject "ApprovalRequest"+              (\ o ->+                 ApprovalRequest' <$>+                   (o .:? "requestedResourceName") <*>+                     (o .:? "requestedExpiration")+                     <*> (o .:? "requestTime")+                     <*> (o .:? "requestedReason")+                     <*> (o .:? "name")+                     <*> (o .:? "approve")+                     <*> (o .:? "dismiss")+                     <*> (o .:? "requestedLocations"))++instance ToJSON ApprovalRequest where+        toJSON ApprovalRequest'{..}+          = object+              (catMaybes+                 [("requestedResourceName" .=) <$>+                    _arRequestedResourceName,+                  ("requestedExpiration" .=) <$>+                    _arRequestedExpiration,+                  ("requestTime" .=) <$> _arRequestTime,+                  ("requestedReason" .=) <$> _arRequestedReason,+                  ("name" .=) <$> _arName,+                  ("approve" .=) <$> _arApprove,+                  ("dismiss" .=) <$> _arDismiss,+                  ("requestedLocations" .=) <$> _arRequestedLocations])++-- | Request to dismiss an approval request.+--+-- /See:/ 'dismissApprovalRequestMessage' smart constructor.+data DismissApprovalRequestMessage =+  DismissApprovalRequestMessage'+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DismissApprovalRequestMessage' with the minimum fields required to make a request.+--+dismissApprovalRequestMessage+    :: DismissApprovalRequestMessage+dismissApprovalRequestMessage = DismissApprovalRequestMessage'+++instance FromJSON DismissApprovalRequestMessage where+        parseJSON+          = withObject "DismissApprovalRequestMessage"+              (\ o -> pure DismissApprovalRequestMessage')++instance ToJSON DismissApprovalRequestMessage where+        toJSON = const emptyObject++-- | Request to approve an ApprovalRequest.+--+-- /See:/ 'approveApprovalRequestMessage' smart constructor.+newtype ApproveApprovalRequestMessage =+  ApproveApprovalRequestMessage'+    { _aarmExpireTime :: Maybe DateTime'+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ApproveApprovalRequestMessage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aarmExpireTime'+approveApprovalRequestMessage+    :: ApproveApprovalRequestMessage+approveApprovalRequestMessage =+  ApproveApprovalRequestMessage' {_aarmExpireTime = Nothing}+++-- | The expiration time of this approval.+aarmExpireTime :: Lens' ApproveApprovalRequestMessage (Maybe UTCTime)+aarmExpireTime+  = lens _aarmExpireTime+      (\ s a -> s{_aarmExpireTime = a})+      . mapping _DateTime++instance FromJSON ApproveApprovalRequestMessage where+        parseJSON+          = withObject "ApproveApprovalRequestMessage"+              (\ o ->+                 ApproveApprovalRequestMessage' <$>+                   (o .:? "expireTime"))++instance ToJSON ApproveApprovalRequestMessage where+        toJSON ApproveApprovalRequestMessage'{..}+          = object+              (catMaybes [("expireTime" .=) <$> _aarmExpireTime])++--+-- /See:/ 'accessReason' smart constructor.+data AccessReason =+  AccessReason'+    { _arType   :: !(Maybe AccessReasonType)+    , _arDetail :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AccessReason' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'arType'+--+-- * 'arDetail'+accessReason+    :: AccessReason+accessReason = AccessReason' {_arType = Nothing, _arDetail = Nothing}+++-- | Type of access justification.+arType :: Lens' AccessReason (Maybe AccessReasonType)+arType = lens _arType (\ s a -> s{_arType = a})++-- | More detail about certain reason types. See comments for each type+-- above.+arDetail :: Lens' AccessReason (Maybe Text)+arDetail = lens _arDetail (\ s a -> s{_arDetail = a})++instance FromJSON AccessReason where+        parseJSON+          = withObject "AccessReason"+              (\ o ->+                 AccessReason' <$>+                   (o .:? "type") <*> (o .:? "detail"))++instance ToJSON AccessReason where+        toJSON AccessReason'{..}+          = object+              (catMaybes+                 [("type" .=) <$> _arType,+                  ("detail" .=) <$> _arDetail])
+ gen/Network/Google/AccessApproval/Types/Sum.hs view
@@ -0,0 +1,100 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE LambdaCase         #-}+{-# LANGUAGE NoImplicitPrelude  #-}+{-# LANGUAGE OverloadedStrings  #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Network.Google.AccessApproval.Types.Sum+-- 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)+--+module Network.Google.AccessApproval.Types.Sum where++import           Network.Google.Prelude hiding (Bytes)++-- | Type of access justification.+data AccessReasonType+    = TypeUnspecified+      -- ^ @TYPE_UNSPECIFIED@+      -- Default value for proto, shouldn\'t be used.+    | CustomerInitiatedSupport+      -- ^ @CUSTOMER_INITIATED_SUPPORT@+      -- Customer made a request or raised an issue that required the principal+      -- to access customer data. \`detail\` is of the form (\"#####\" is the+      -- issue ID):+      --+      -- 1.  \"Feedback Report: #####\"+      -- 2.  \"Case Number: #####\"+      -- 3.  \"Case ID: #####\"+      -- 4.  \"E-PIN Reference: #####\"+      -- 5.  \"Google-#####\"+      -- 6.  \"T-#####\"+    | GoogleInitiatedService+      -- ^ @GOOGLE_INITIATED_SERVICE@+      -- The principal accessed customer data in order to diagnose or resolve a+      -- suspected issue in services or a known outage. Often this access is used+      -- to confirm that customers are not affected by a suspected service issue+      -- or to remediate a reversible system issue.+    | GoogleInitiatedReview+      -- ^ @GOOGLE_INITIATED_REVIEW@+      -- Google initiated service for security, fraud, abuse, or compliance+      -- purposes.+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable AccessReasonType++instance FromHttpApiData AccessReasonType where+    parseQueryParam = \case+        "TYPE_UNSPECIFIED" -> Right TypeUnspecified+        "CUSTOMER_INITIATED_SUPPORT" -> Right CustomerInitiatedSupport+        "GOOGLE_INITIATED_SERVICE" -> Right GoogleInitiatedService+        "GOOGLE_INITIATED_REVIEW" -> Right GoogleInitiatedReview+        x -> Left ("Unable to parse AccessReasonType from: " <> x)++instance ToHttpApiData AccessReasonType where+    toQueryParam = \case+        TypeUnspecified -> "TYPE_UNSPECIFIED"+        CustomerInitiatedSupport -> "CUSTOMER_INITIATED_SUPPORT"+        GoogleInitiatedService -> "GOOGLE_INITIATED_SERVICE"+        GoogleInitiatedReview -> "GOOGLE_INITIATED_REVIEW"++instance FromJSON AccessReasonType where+    parseJSON = parseJSONText "AccessReasonType"++instance ToJSON AccessReasonType 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
+ gen/Network/Google/Resource/AccessApproval/Folders/ApprovalRequests/Approve.hs view
@@ -0,0 +1,170 @@+{-# 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.AccessApproval.Folders.ApprovalRequests.Approve+-- 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)+--+-- Approves a request and returns the updated ApprovalRequest. Returns+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if+-- the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.approve@.+module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve+    (+    -- * REST Resource+      FoldersApprovalRequestsApproveResource++    -- * Creating a Request+    , foldersApprovalRequestsApprove+    , FoldersApprovalRequestsApprove++    -- * Request Lenses+    , faraXgafv+    , faraUploadProtocol+    , faraAccessToken+    , faraUploadType+    , faraPayload+    , faraName+    , faraCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.folders.approvalRequests.approve@ method which the+-- 'FoldersApprovalRequestsApprove' request conforms to.+type FoldersApprovalRequestsApproveResource =+     "v1beta1" :>+       CaptureMode "name" "approve" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] ApproveApprovalRequestMessage :>+                       Post '[JSON] ApprovalRequest++-- | Approves a request and returns the updated ApprovalRequest. Returns+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if+-- the request exists but is not in a pending state.+--+-- /See:/ 'foldersApprovalRequestsApprove' smart constructor.+data FoldersApprovalRequestsApprove =+  FoldersApprovalRequestsApprove'+    { _faraXgafv          :: !(Maybe Xgafv)+    , _faraUploadProtocol :: !(Maybe Text)+    , _faraAccessToken    :: !(Maybe Text)+    , _faraUploadType     :: !(Maybe Text)+    , _faraPayload        :: !ApproveApprovalRequestMessage+    , _faraName           :: !Text+    , _faraCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FoldersApprovalRequestsApprove' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'faraXgafv'+--+-- * 'faraUploadProtocol'+--+-- * 'faraAccessToken'+--+-- * 'faraUploadType'+--+-- * 'faraPayload'+--+-- * 'faraName'+--+-- * 'faraCallback'+foldersApprovalRequestsApprove+    :: ApproveApprovalRequestMessage -- ^ 'faraPayload'+    -> Text -- ^ 'faraName'+    -> FoldersApprovalRequestsApprove+foldersApprovalRequestsApprove pFaraPayload_ pFaraName_ =+  FoldersApprovalRequestsApprove'+    { _faraXgafv = Nothing+    , _faraUploadProtocol = Nothing+    , _faraAccessToken = Nothing+    , _faraUploadType = Nothing+    , _faraPayload = pFaraPayload_+    , _faraName = pFaraName_+    , _faraCallback = Nothing+    }+++-- | V1 error format.+faraXgafv :: Lens' FoldersApprovalRequestsApprove (Maybe Xgafv)+faraXgafv+  = lens _faraXgafv (\ s a -> s{_faraXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+faraUploadProtocol :: Lens' FoldersApprovalRequestsApprove (Maybe Text)+faraUploadProtocol+  = lens _faraUploadProtocol+      (\ s a -> s{_faraUploadProtocol = a})++-- | OAuth access token.+faraAccessToken :: Lens' FoldersApprovalRequestsApprove (Maybe Text)+faraAccessToken+  = lens _faraAccessToken+      (\ s a -> s{_faraAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+faraUploadType :: Lens' FoldersApprovalRequestsApprove (Maybe Text)+faraUploadType+  = lens _faraUploadType+      (\ s a -> s{_faraUploadType = a})++-- | Multipart request metadata.+faraPayload :: Lens' FoldersApprovalRequestsApprove ApproveApprovalRequestMessage+faraPayload+  = lens _faraPayload (\ s a -> s{_faraPayload = a})++-- | Name of the approval request to approve.+faraName :: Lens' FoldersApprovalRequestsApprove Text+faraName = lens _faraName (\ s a -> s{_faraName = a})++-- | JSONP+faraCallback :: Lens' FoldersApprovalRequestsApprove (Maybe Text)+faraCallback+  = lens _faraCallback (\ s a -> s{_faraCallback = a})++instance GoogleRequest FoldersApprovalRequestsApprove+         where+        type Rs FoldersApprovalRequestsApprove =+             ApprovalRequest+        type Scopes FoldersApprovalRequestsApprove =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient FoldersApprovalRequestsApprove'{..}+          = go _faraName _faraXgafv _faraUploadProtocol+              _faraAccessToken+              _faraUploadType+              _faraCallback+              (Just AltJSON)+              _faraPayload+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy FoldersApprovalRequestsApproveResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Folders/ApprovalRequests/Dismiss.hs view
@@ -0,0 +1,174 @@+{-# 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.AccessApproval.Folders.ApprovalRequests.Dismiss+-- 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)+--+-- Dismisses a request. Returns the updated ApprovalRequest. NOTE: This+-- does not deny access to the resource if another request has been made+-- and approved. It is equivalent in effect to ignoring the request+-- altogether. Returns NOT_FOUND if the request does not exist. Returns+-- FAILED_PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.dismiss@.+module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss+    (+    -- * REST Resource+      FoldersApprovalRequestsDismissResource++    -- * Creating a Request+    , foldersApprovalRequestsDismiss+    , FoldersApprovalRequestsDismiss++    -- * Request Lenses+    , fardXgafv+    , fardUploadProtocol+    , fardAccessToken+    , fardUploadType+    , fardPayload+    , fardName+    , fardCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.folders.approvalRequests.dismiss@ method which the+-- 'FoldersApprovalRequestsDismiss' request conforms to.+type FoldersApprovalRequestsDismissResource =+     "v1beta1" :>+       CaptureMode "name" "dismiss" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] DismissApprovalRequestMessage :>+                       Post '[JSON] ApprovalRequest++-- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This+-- does not deny access to the resource if another request has been made+-- and approved. It is equivalent in effect to ignoring the request+-- altogether. Returns NOT_FOUND if the request does not exist. Returns+-- FAILED_PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ 'foldersApprovalRequestsDismiss' smart constructor.+data FoldersApprovalRequestsDismiss =+  FoldersApprovalRequestsDismiss'+    { _fardXgafv          :: !(Maybe Xgafv)+    , _fardUploadProtocol :: !(Maybe Text)+    , _fardAccessToken    :: !(Maybe Text)+    , _fardUploadType     :: !(Maybe Text)+    , _fardPayload        :: !DismissApprovalRequestMessage+    , _fardName           :: !Text+    , _fardCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FoldersApprovalRequestsDismiss' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fardXgafv'+--+-- * 'fardUploadProtocol'+--+-- * 'fardAccessToken'+--+-- * 'fardUploadType'+--+-- * 'fardPayload'+--+-- * 'fardName'+--+-- * 'fardCallback'+foldersApprovalRequestsDismiss+    :: DismissApprovalRequestMessage -- ^ 'fardPayload'+    -> Text -- ^ 'fardName'+    -> FoldersApprovalRequestsDismiss+foldersApprovalRequestsDismiss pFardPayload_ pFardName_ =+  FoldersApprovalRequestsDismiss'+    { _fardXgafv = Nothing+    , _fardUploadProtocol = Nothing+    , _fardAccessToken = Nothing+    , _fardUploadType = Nothing+    , _fardPayload = pFardPayload_+    , _fardName = pFardName_+    , _fardCallback = Nothing+    }+++-- | V1 error format.+fardXgafv :: Lens' FoldersApprovalRequestsDismiss (Maybe Xgafv)+fardXgafv+  = lens _fardXgafv (\ s a -> s{_fardXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+fardUploadProtocol :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)+fardUploadProtocol+  = lens _fardUploadProtocol+      (\ s a -> s{_fardUploadProtocol = a})++-- | OAuth access token.+fardAccessToken :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)+fardAccessToken+  = lens _fardAccessToken+      (\ s a -> s{_fardAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+fardUploadType :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)+fardUploadType+  = lens _fardUploadType+      (\ s a -> s{_fardUploadType = a})++-- | Multipart request metadata.+fardPayload :: Lens' FoldersApprovalRequestsDismiss DismissApprovalRequestMessage+fardPayload+  = lens _fardPayload (\ s a -> s{_fardPayload = a})++-- | Name of the ApprovalRequest to dismiss.+fardName :: Lens' FoldersApprovalRequestsDismiss Text+fardName = lens _fardName (\ s a -> s{_fardName = a})++-- | JSONP+fardCallback :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)+fardCallback+  = lens _fardCallback (\ s a -> s{_fardCallback = a})++instance GoogleRequest FoldersApprovalRequestsDismiss+         where+        type Rs FoldersApprovalRequestsDismiss =+             ApprovalRequest+        type Scopes FoldersApprovalRequestsDismiss =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient FoldersApprovalRequestsDismiss'{..}+          = go _fardName _fardXgafv _fardUploadProtocol+              _fardAccessToken+              _fardUploadType+              _fardCallback+              (Just AltJSON)+              _fardPayload+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy FoldersApprovalRequestsDismissResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Folders/ApprovalRequests/Get.hs view
@@ -0,0 +1,153 @@+{-# 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.AccessApproval.Folders.ApprovalRequests.Get+-- 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 an approval request. Returns NOT_FOUND if the request does not+-- exist.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.get@.+module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get+    (+    -- * REST Resource+      FoldersApprovalRequestsGetResource++    -- * Creating a Request+    , foldersApprovalRequestsGet+    , FoldersApprovalRequestsGet++    -- * Request Lenses+    , fargXgafv+    , fargUploadProtocol+    , fargAccessToken+    , fargUploadType+    , fargName+    , fargCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.folders.approvalRequests.get@ method which the+-- 'FoldersApprovalRequestsGet' request conforms to.+type FoldersApprovalRequestsGetResource =+     "v1beta1" :>+       Capture "name" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     Get '[JSON] ApprovalRequest++-- | Gets an approval request. Returns NOT_FOUND if the request does not+-- exist.+--+-- /See:/ 'foldersApprovalRequestsGet' smart constructor.+data FoldersApprovalRequestsGet =+  FoldersApprovalRequestsGet'+    { _fargXgafv          :: !(Maybe Xgafv)+    , _fargUploadProtocol :: !(Maybe Text)+    , _fargAccessToken    :: !(Maybe Text)+    , _fargUploadType     :: !(Maybe Text)+    , _fargName           :: !Text+    , _fargCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FoldersApprovalRequestsGet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fargXgafv'+--+-- * 'fargUploadProtocol'+--+-- * 'fargAccessToken'+--+-- * 'fargUploadType'+--+-- * 'fargName'+--+-- * 'fargCallback'+foldersApprovalRequestsGet+    :: Text -- ^ 'fargName'+    -> FoldersApprovalRequestsGet+foldersApprovalRequestsGet pFargName_ =+  FoldersApprovalRequestsGet'+    { _fargXgafv = Nothing+    , _fargUploadProtocol = Nothing+    , _fargAccessToken = Nothing+    , _fargUploadType = Nothing+    , _fargName = pFargName_+    , _fargCallback = Nothing+    }+++-- | V1 error format.+fargXgafv :: Lens' FoldersApprovalRequestsGet (Maybe Xgafv)+fargXgafv+  = lens _fargXgafv (\ s a -> s{_fargXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+fargUploadProtocol :: Lens' FoldersApprovalRequestsGet (Maybe Text)+fargUploadProtocol+  = lens _fargUploadProtocol+      (\ s a -> s{_fargUploadProtocol = a})++-- | OAuth access token.+fargAccessToken :: Lens' FoldersApprovalRequestsGet (Maybe Text)+fargAccessToken+  = lens _fargAccessToken+      (\ s a -> s{_fargAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+fargUploadType :: Lens' FoldersApprovalRequestsGet (Maybe Text)+fargUploadType+  = lens _fargUploadType+      (\ s a -> s{_fargUploadType = a})++-- | Name of the approval request to retrieve.+fargName :: Lens' FoldersApprovalRequestsGet Text+fargName = lens _fargName (\ s a -> s{_fargName = a})++-- | JSONP+fargCallback :: Lens' FoldersApprovalRequestsGet (Maybe Text)+fargCallback+  = lens _fargCallback (\ s a -> s{_fargCallback = a})++instance GoogleRequest FoldersApprovalRequestsGet+         where+        type Rs FoldersApprovalRequestsGet = ApprovalRequest+        type Scopes FoldersApprovalRequestsGet =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient FoldersApprovalRequestsGet'{..}+          = go _fargName _fargXgafv _fargUploadProtocol+              _fargAccessToken+              _fargUploadType+              _fargCallback+              (Just AltJSON)+              accessApprovalService+          where go+                  = buildClient+                      (Proxy :: Proxy FoldersApprovalRequestsGetResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Folders/ApprovalRequests/List.hs view
@@ -0,0 +1,204 @@+{-# 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.AccessApproval.Folders.ApprovalRequests.List+-- 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)+--+-- Lists approval requests associated with a project, folder, or+-- organization. Approval requests can be filtered by state (pending,+-- active, dismissed). The order is reverse chronological.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.list@.+module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List+    (+    -- * REST Resource+      FoldersApprovalRequestsListResource++    -- * Creating a Request+    , foldersApprovalRequestsList+    , FoldersApprovalRequestsList++    -- * Request Lenses+    , farlParent+    , farlXgafv+    , farlUploadProtocol+    , farlAccessToken+    , farlUploadType+    , farlFilter+    , farlPageToken+    , farlPageSize+    , farlCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.folders.approvalRequests.list@ method which the+-- 'FoldersApprovalRequestsList' request conforms to.+type FoldersApprovalRequestsListResource =+     "v1beta1" :>+       Capture "parent" Text :>+         "approvalRequests" :>+           QueryParam "$.xgafv" Xgafv :>+             QueryParam "upload_protocol" Text :>+               QueryParam "access_token" Text :>+                 QueryParam "uploadType" Text :>+                   QueryParam "filter" Text :>+                     QueryParam "pageToken" Text :>+                       QueryParam "pageSize" (Textual Int32) :>+                         QueryParam "callback" Text :>+                           QueryParam "alt" AltJSON :>+                             Get '[JSON] ListApprovalRequestsResponse++-- | Lists approval requests associated with a project, folder, or+-- organization. Approval requests can be filtered by state (pending,+-- active, dismissed). The order is reverse chronological.+--+-- /See:/ 'foldersApprovalRequestsList' smart constructor.+data FoldersApprovalRequestsList =+  FoldersApprovalRequestsList'+    { _farlParent         :: !Text+    , _farlXgafv          :: !(Maybe Xgafv)+    , _farlUploadProtocol :: !(Maybe Text)+    , _farlAccessToken    :: !(Maybe Text)+    , _farlUploadType     :: !(Maybe Text)+    , _farlFilter         :: !(Maybe Text)+    , _farlPageToken      :: !(Maybe Text)+    , _farlPageSize       :: !(Maybe (Textual Int32))+    , _farlCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FoldersApprovalRequestsList' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'farlParent'+--+-- * 'farlXgafv'+--+-- * 'farlUploadProtocol'+--+-- * 'farlAccessToken'+--+-- * 'farlUploadType'+--+-- * 'farlFilter'+--+-- * 'farlPageToken'+--+-- * 'farlPageSize'+--+-- * 'farlCallback'+foldersApprovalRequestsList+    :: Text -- ^ 'farlParent'+    -> FoldersApprovalRequestsList+foldersApprovalRequestsList pFarlParent_ =+  FoldersApprovalRequestsList'+    { _farlParent = pFarlParent_+    , _farlXgafv = Nothing+    , _farlUploadProtocol = Nothing+    , _farlAccessToken = Nothing+    , _farlUploadType = Nothing+    , _farlFilter = Nothing+    , _farlPageToken = Nothing+    , _farlPageSize = Nothing+    , _farlCallback = Nothing+    }+++-- | The parent resource. This may be \"projects\/{project_id}\",+-- \"folders\/{folder_id}\", or \"organizations\/{organization_id}\".+farlParent :: Lens' FoldersApprovalRequestsList Text+farlParent+  = lens _farlParent (\ s a -> s{_farlParent = a})++-- | V1 error format.+farlXgafv :: Lens' FoldersApprovalRequestsList (Maybe Xgafv)+farlXgafv+  = lens _farlXgafv (\ s a -> s{_farlXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+farlUploadProtocol :: Lens' FoldersApprovalRequestsList (Maybe Text)+farlUploadProtocol+  = lens _farlUploadProtocol+      (\ s a -> s{_farlUploadProtocol = a})++-- | OAuth access token.+farlAccessToken :: Lens' FoldersApprovalRequestsList (Maybe Text)+farlAccessToken+  = lens _farlAccessToken+      (\ s a -> s{_farlAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+farlUploadType :: Lens' FoldersApprovalRequestsList (Maybe Text)+farlUploadType+  = lens _farlUploadType+      (\ s a -> s{_farlUploadType = a})++-- | A filter on the type of approval requests to retrieve. Must be one of+-- the following values:+--+-- 1.  [not set]: Requests that are pending or have active approvals.+-- 2.  ALL: All requests.+-- 3.  PENDING: Only pending requests.+-- 4.  ACTIVE: Only active (i.e. currently approved) requests.+-- 5.  DISMISSED: Only dismissed (including expired) requests.+farlFilter :: Lens' FoldersApprovalRequestsList (Maybe Text)+farlFilter+  = lens _farlFilter (\ s a -> s{_farlFilter = a})++-- | A token identifying the page of results to return.+farlPageToken :: Lens' FoldersApprovalRequestsList (Maybe Text)+farlPageToken+  = lens _farlPageToken+      (\ s a -> s{_farlPageToken = a})++-- | Requested page size.+farlPageSize :: Lens' FoldersApprovalRequestsList (Maybe Int32)+farlPageSize+  = lens _farlPageSize (\ s a -> s{_farlPageSize = a})+      . mapping _Coerce++-- | JSONP+farlCallback :: Lens' FoldersApprovalRequestsList (Maybe Text)+farlCallback+  = lens _farlCallback (\ s a -> s{_farlCallback = a})++instance GoogleRequest FoldersApprovalRequestsList+         where+        type Rs FoldersApprovalRequestsList =+             ListApprovalRequestsResponse+        type Scopes FoldersApprovalRequestsList =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient FoldersApprovalRequestsList'{..}+          = go _farlParent _farlXgafv _farlUploadProtocol+              _farlAccessToken+              _farlUploadType+              _farlFilter+              _farlPageToken+              _farlPageSize+              _farlCallback+              (Just AltJSON)+              accessApprovalService+          where go+                  = buildClient+                      (Proxy :: Proxy FoldersApprovalRequestsListResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Folders/GetAccessApprovalSettings.hs view
@@ -0,0 +1,156 @@+{-# 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.AccessApproval.Folders.GetAccessApprovalSettings+-- 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 the settings associated with a project, folder, or organization.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.getAccessApprovalSettings@.+module Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings+    (+    -- * REST Resource+      FoldersGetAccessApprovalSettingsResource++    -- * Creating a Request+    , foldersGetAccessApprovalSettings+    , FoldersGetAccessApprovalSettings++    -- * Request Lenses+    , fgaasXgafv+    , fgaasUploadProtocol+    , fgaasAccessToken+    , fgaasUploadType+    , fgaasName+    , fgaasCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.folders.getAccessApprovalSettings@ method which the+-- 'FoldersGetAccessApprovalSettings' request conforms to.+type FoldersGetAccessApprovalSettingsResource =+     "v1beta1" :>+       Capture "name" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     Get '[JSON] AccessApprovalSettings++-- | Gets the settings associated with a project, folder, or organization.+--+-- /See:/ 'foldersGetAccessApprovalSettings' smart constructor.+data FoldersGetAccessApprovalSettings =+  FoldersGetAccessApprovalSettings'+    { _fgaasXgafv          :: !(Maybe Xgafv)+    , _fgaasUploadProtocol :: !(Maybe Text)+    , _fgaasAccessToken    :: !(Maybe Text)+    , _fgaasUploadType     :: !(Maybe Text)+    , _fgaasName           :: !Text+    , _fgaasCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FoldersGetAccessApprovalSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fgaasXgafv'+--+-- * 'fgaasUploadProtocol'+--+-- * 'fgaasAccessToken'+--+-- * 'fgaasUploadType'+--+-- * 'fgaasName'+--+-- * 'fgaasCallback'+foldersGetAccessApprovalSettings+    :: Text -- ^ 'fgaasName'+    -> FoldersGetAccessApprovalSettings+foldersGetAccessApprovalSettings pFgaasName_ =+  FoldersGetAccessApprovalSettings'+    { _fgaasXgafv = Nothing+    , _fgaasUploadProtocol = Nothing+    , _fgaasAccessToken = Nothing+    , _fgaasUploadType = Nothing+    , _fgaasName = pFgaasName_+    , _fgaasCallback = Nothing+    }+++-- | V1 error format.+fgaasXgafv :: Lens' FoldersGetAccessApprovalSettings (Maybe Xgafv)+fgaasXgafv+  = lens _fgaasXgafv (\ s a -> s{_fgaasXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+fgaasUploadProtocol :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)+fgaasUploadProtocol+  = lens _fgaasUploadProtocol+      (\ s a -> s{_fgaasUploadProtocol = a})++-- | OAuth access token.+fgaasAccessToken :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)+fgaasAccessToken+  = lens _fgaasAccessToken+      (\ s a -> s{_fgaasAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+fgaasUploadType :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)+fgaasUploadType+  = lens _fgaasUploadType+      (\ s a -> s{_fgaasUploadType = a})++-- | Name of the AccessApprovalSettings to retrieve.+fgaasName :: Lens' FoldersGetAccessApprovalSettings Text+fgaasName+  = lens _fgaasName (\ s a -> s{_fgaasName = a})++-- | JSONP+fgaasCallback :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)+fgaasCallback+  = lens _fgaasCallback+      (\ s a -> s{_fgaasCallback = a})++instance GoogleRequest+           FoldersGetAccessApprovalSettings+         where+        type Rs FoldersGetAccessApprovalSettings =+             AccessApprovalSettings+        type Scopes FoldersGetAccessApprovalSettings =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient FoldersGetAccessApprovalSettings'{..}+          = go _fgaasName _fgaasXgafv _fgaasUploadProtocol+              _fgaasAccessToken+              _fgaasUploadType+              _fgaasCallback+              (Just AltJSON)+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy FoldersGetAccessApprovalSettingsResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Folders/UpdateAccessApprovalSettings.hs view
@@ -0,0 +1,175 @@+{-# 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.AccessApproval.Folders.UpdateAccessApprovalSettings+-- 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)+--+-- Updates the settings associated with a project, folder, or organization.+-- Completely replaces the existing settings.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.updateAccessApprovalSettings@.+module Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings+    (+    -- * REST Resource+      FoldersUpdateAccessApprovalSettingsResource++    -- * Creating a Request+    , foldersUpdateAccessApprovalSettings+    , FoldersUpdateAccessApprovalSettings++    -- * Request Lenses+    , fuaasXgafv+    , fuaasUploadProtocol+    , fuaasAccessToken+    , fuaasUploadType+    , fuaasPayload+    , fuaasName+    , fuaasCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.folders.updateAccessApprovalSettings@ method which the+-- 'FoldersUpdateAccessApprovalSettings' request conforms to.+type FoldersUpdateAccessApprovalSettingsResource =+     "v1beta1" :>+       Capture "name" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] AccessApprovalSettings :>+                       Patch '[JSON] AccessApprovalSettings++-- | Updates the settings associated with a project, folder, or organization.+-- Completely replaces the existing settings.+--+-- /See:/ 'foldersUpdateAccessApprovalSettings' smart constructor.+data FoldersUpdateAccessApprovalSettings =+  FoldersUpdateAccessApprovalSettings'+    { _fuaasXgafv          :: !(Maybe Xgafv)+    , _fuaasUploadProtocol :: !(Maybe Text)+    , _fuaasAccessToken    :: !(Maybe Text)+    , _fuaasUploadType     :: !(Maybe Text)+    , _fuaasPayload        :: !AccessApprovalSettings+    , _fuaasName           :: !Text+    , _fuaasCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FoldersUpdateAccessApprovalSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fuaasXgafv'+--+-- * 'fuaasUploadProtocol'+--+-- * 'fuaasAccessToken'+--+-- * 'fuaasUploadType'+--+-- * 'fuaasPayload'+--+-- * 'fuaasName'+--+-- * 'fuaasCallback'+foldersUpdateAccessApprovalSettings+    :: AccessApprovalSettings -- ^ 'fuaasPayload'+    -> Text -- ^ 'fuaasName'+    -> FoldersUpdateAccessApprovalSettings+foldersUpdateAccessApprovalSettings pFuaasPayload_ pFuaasName_ =+  FoldersUpdateAccessApprovalSettings'+    { _fuaasXgafv = Nothing+    , _fuaasUploadProtocol = Nothing+    , _fuaasAccessToken = Nothing+    , _fuaasUploadType = Nothing+    , _fuaasPayload = pFuaasPayload_+    , _fuaasName = pFuaasName_+    , _fuaasCallback = Nothing+    }+++-- | V1 error format.+fuaasXgafv :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Xgafv)+fuaasXgafv+  = lens _fuaasXgafv (\ s a -> s{_fuaasXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+fuaasUploadProtocol :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)+fuaasUploadProtocol+  = lens _fuaasUploadProtocol+      (\ s a -> s{_fuaasUploadProtocol = a})++-- | OAuth access token.+fuaasAccessToken :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)+fuaasAccessToken+  = lens _fuaasAccessToken+      (\ s a -> s{_fuaasAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+fuaasUploadType :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)+fuaasUploadType+  = lens _fuaasUploadType+      (\ s a -> s{_fuaasUploadType = a})++-- | Multipart request metadata.+fuaasPayload :: Lens' FoldersUpdateAccessApprovalSettings AccessApprovalSettings+fuaasPayload+  = lens _fuaasPayload (\ s a -> s{_fuaasPayload = a})++-- | The resource name of the settings. Format is one of:+-- \"projects\/{project_id}\/accessApprovalSettings\"+-- \"folders\/{folder_id}\/accessApprovalSettings\"+-- \"organizations\/{organization_id}\/accessApprovalSettings\"+fuaasName :: Lens' FoldersUpdateAccessApprovalSettings Text+fuaasName+  = lens _fuaasName (\ s a -> s{_fuaasName = a})++-- | JSONP+fuaasCallback :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)+fuaasCallback+  = lens _fuaasCallback+      (\ s a -> s{_fuaasCallback = a})++instance GoogleRequest+           FoldersUpdateAccessApprovalSettings+         where+        type Rs FoldersUpdateAccessApprovalSettings =+             AccessApprovalSettings+        type Scopes FoldersUpdateAccessApprovalSettings =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient+          FoldersUpdateAccessApprovalSettings'{..}+          = go _fuaasName _fuaasXgafv _fuaasUploadProtocol+              _fuaasAccessToken+              _fuaasUploadType+              _fuaasCallback+              (Just AltJSON)+              _fuaasPayload+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy FoldersUpdateAccessApprovalSettingsResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/Approve.hs view
@@ -0,0 +1,172 @@+{-# 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.AccessApproval.Organizations.ApprovalRequests.Approve+-- 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)+--+-- Approves a request and returns the updated ApprovalRequest. Returns+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if+-- the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.approve@.+module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve+    (+    -- * REST Resource+      OrganizationsApprovalRequestsApproveResource++    -- * Creating a Request+    , organizationsApprovalRequestsApprove+    , OrganizationsApprovalRequestsApprove++    -- * Request Lenses+    , oaraXgafv+    , oaraUploadProtocol+    , oaraAccessToken+    , oaraUploadType+    , oaraPayload+    , oaraName+    , oaraCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.organizations.approvalRequests.approve@ method which the+-- 'OrganizationsApprovalRequestsApprove' request conforms to.+type OrganizationsApprovalRequestsApproveResource =+     "v1beta1" :>+       CaptureMode "name" "approve" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] ApproveApprovalRequestMessage :>+                       Post '[JSON] ApprovalRequest++-- | Approves a request and returns the updated ApprovalRequest. Returns+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if+-- the request exists but is not in a pending state.+--+-- /See:/ 'organizationsApprovalRequestsApprove' smart constructor.+data OrganizationsApprovalRequestsApprove =+  OrganizationsApprovalRequestsApprove'+    { _oaraXgafv          :: !(Maybe Xgafv)+    , _oaraUploadProtocol :: !(Maybe Text)+    , _oaraAccessToken    :: !(Maybe Text)+    , _oaraUploadType     :: !(Maybe Text)+    , _oaraPayload        :: !ApproveApprovalRequestMessage+    , _oaraName           :: !Text+    , _oaraCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OrganizationsApprovalRequestsApprove' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'oaraXgafv'+--+-- * 'oaraUploadProtocol'+--+-- * 'oaraAccessToken'+--+-- * 'oaraUploadType'+--+-- * 'oaraPayload'+--+-- * 'oaraName'+--+-- * 'oaraCallback'+organizationsApprovalRequestsApprove+    :: ApproveApprovalRequestMessage -- ^ 'oaraPayload'+    -> Text -- ^ 'oaraName'+    -> OrganizationsApprovalRequestsApprove+organizationsApprovalRequestsApprove pOaraPayload_ pOaraName_ =+  OrganizationsApprovalRequestsApprove'+    { _oaraXgafv = Nothing+    , _oaraUploadProtocol = Nothing+    , _oaraAccessToken = Nothing+    , _oaraUploadType = Nothing+    , _oaraPayload = pOaraPayload_+    , _oaraName = pOaraName_+    , _oaraCallback = Nothing+    }+++-- | V1 error format.+oaraXgafv :: Lens' OrganizationsApprovalRequestsApprove (Maybe Xgafv)+oaraXgafv+  = lens _oaraXgafv (\ s a -> s{_oaraXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+oaraUploadProtocol :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)+oaraUploadProtocol+  = lens _oaraUploadProtocol+      (\ s a -> s{_oaraUploadProtocol = a})++-- | OAuth access token.+oaraAccessToken :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)+oaraAccessToken+  = lens _oaraAccessToken+      (\ s a -> s{_oaraAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+oaraUploadType :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)+oaraUploadType+  = lens _oaraUploadType+      (\ s a -> s{_oaraUploadType = a})++-- | Multipart request metadata.+oaraPayload :: Lens' OrganizationsApprovalRequestsApprove ApproveApprovalRequestMessage+oaraPayload+  = lens _oaraPayload (\ s a -> s{_oaraPayload = a})++-- | Name of the approval request to approve.+oaraName :: Lens' OrganizationsApprovalRequestsApprove Text+oaraName = lens _oaraName (\ s a -> s{_oaraName = a})++-- | JSONP+oaraCallback :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)+oaraCallback+  = lens _oaraCallback (\ s a -> s{_oaraCallback = a})++instance GoogleRequest+           OrganizationsApprovalRequestsApprove+         where+        type Rs OrganizationsApprovalRequestsApprove =+             ApprovalRequest+        type Scopes OrganizationsApprovalRequestsApprove =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient+          OrganizationsApprovalRequestsApprove'{..}+          = go _oaraName _oaraXgafv _oaraUploadProtocol+              _oaraAccessToken+              _oaraUploadType+              _oaraCallback+              (Just AltJSON)+              _oaraPayload+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy OrganizationsApprovalRequestsApproveResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/Dismiss.hs view
@@ -0,0 +1,176 @@+{-# 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.AccessApproval.Organizations.ApprovalRequests.Dismiss+-- 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)+--+-- Dismisses a request. Returns the updated ApprovalRequest. NOTE: This+-- does not deny access to the resource if another request has been made+-- and approved. It is equivalent in effect to ignoring the request+-- altogether. Returns NOT_FOUND if the request does not exist. Returns+-- FAILED_PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.dismiss@.+module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss+    (+    -- * REST Resource+      OrganizationsApprovalRequestsDismissResource++    -- * Creating a Request+    , organizationsApprovalRequestsDismiss+    , OrganizationsApprovalRequestsDismiss++    -- * Request Lenses+    , oardXgafv+    , oardUploadProtocol+    , oardAccessToken+    , oardUploadType+    , oardPayload+    , oardName+    , oardCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.organizations.approvalRequests.dismiss@ method which the+-- 'OrganizationsApprovalRequestsDismiss' request conforms to.+type OrganizationsApprovalRequestsDismissResource =+     "v1beta1" :>+       CaptureMode "name" "dismiss" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] DismissApprovalRequestMessage :>+                       Post '[JSON] ApprovalRequest++-- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This+-- does not deny access to the resource if another request has been made+-- and approved. It is equivalent in effect to ignoring the request+-- altogether. Returns NOT_FOUND if the request does not exist. Returns+-- FAILED_PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ 'organizationsApprovalRequestsDismiss' smart constructor.+data OrganizationsApprovalRequestsDismiss =+  OrganizationsApprovalRequestsDismiss'+    { _oardXgafv          :: !(Maybe Xgafv)+    , _oardUploadProtocol :: !(Maybe Text)+    , _oardAccessToken    :: !(Maybe Text)+    , _oardUploadType     :: !(Maybe Text)+    , _oardPayload        :: !DismissApprovalRequestMessage+    , _oardName           :: !Text+    , _oardCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OrganizationsApprovalRequestsDismiss' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'oardXgafv'+--+-- * 'oardUploadProtocol'+--+-- * 'oardAccessToken'+--+-- * 'oardUploadType'+--+-- * 'oardPayload'+--+-- * 'oardName'+--+-- * 'oardCallback'+organizationsApprovalRequestsDismiss+    :: DismissApprovalRequestMessage -- ^ 'oardPayload'+    -> Text -- ^ 'oardName'+    -> OrganizationsApprovalRequestsDismiss+organizationsApprovalRequestsDismiss pOardPayload_ pOardName_ =+  OrganizationsApprovalRequestsDismiss'+    { _oardXgafv = Nothing+    , _oardUploadProtocol = Nothing+    , _oardAccessToken = Nothing+    , _oardUploadType = Nothing+    , _oardPayload = pOardPayload_+    , _oardName = pOardName_+    , _oardCallback = Nothing+    }+++-- | V1 error format.+oardXgafv :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Xgafv)+oardXgafv+  = lens _oardXgafv (\ s a -> s{_oardXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+oardUploadProtocol :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)+oardUploadProtocol+  = lens _oardUploadProtocol+      (\ s a -> s{_oardUploadProtocol = a})++-- | OAuth access token.+oardAccessToken :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)+oardAccessToken+  = lens _oardAccessToken+      (\ s a -> s{_oardAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+oardUploadType :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)+oardUploadType+  = lens _oardUploadType+      (\ s a -> s{_oardUploadType = a})++-- | Multipart request metadata.+oardPayload :: Lens' OrganizationsApprovalRequestsDismiss DismissApprovalRequestMessage+oardPayload+  = lens _oardPayload (\ s a -> s{_oardPayload = a})++-- | Name of the ApprovalRequest to dismiss.+oardName :: Lens' OrganizationsApprovalRequestsDismiss Text+oardName = lens _oardName (\ s a -> s{_oardName = a})++-- | JSONP+oardCallback :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)+oardCallback+  = lens _oardCallback (\ s a -> s{_oardCallback = a})++instance GoogleRequest+           OrganizationsApprovalRequestsDismiss+         where+        type Rs OrganizationsApprovalRequestsDismiss =+             ApprovalRequest+        type Scopes OrganizationsApprovalRequestsDismiss =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient+          OrganizationsApprovalRequestsDismiss'{..}+          = go _oardName _oardXgafv _oardUploadProtocol+              _oardAccessToken+              _oardUploadType+              _oardCallback+              (Just AltJSON)+              _oardPayload+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy OrganizationsApprovalRequestsDismissResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/Get.hs view
@@ -0,0 +1,156 @@+{-# 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.AccessApproval.Organizations.ApprovalRequests.Get+-- 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 an approval request. Returns NOT_FOUND if the request does not+-- exist.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.get@.+module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get+    (+    -- * REST Resource+      OrganizationsApprovalRequestsGetResource++    -- * Creating a Request+    , organizationsApprovalRequestsGet+    , OrganizationsApprovalRequestsGet++    -- * Request Lenses+    , oargXgafv+    , oargUploadProtocol+    , oargAccessToken+    , oargUploadType+    , oargName+    , oargCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.organizations.approvalRequests.get@ method which the+-- 'OrganizationsApprovalRequestsGet' request conforms to.+type OrganizationsApprovalRequestsGetResource =+     "v1beta1" :>+       Capture "name" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     Get '[JSON] ApprovalRequest++-- | Gets an approval request. Returns NOT_FOUND if the request does not+-- exist.+--+-- /See:/ 'organizationsApprovalRequestsGet' smart constructor.+data OrganizationsApprovalRequestsGet =+  OrganizationsApprovalRequestsGet'+    { _oargXgafv          :: !(Maybe Xgafv)+    , _oargUploadProtocol :: !(Maybe Text)+    , _oargAccessToken    :: !(Maybe Text)+    , _oargUploadType     :: !(Maybe Text)+    , _oargName           :: !Text+    , _oargCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OrganizationsApprovalRequestsGet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'oargXgafv'+--+-- * 'oargUploadProtocol'+--+-- * 'oargAccessToken'+--+-- * 'oargUploadType'+--+-- * 'oargName'+--+-- * 'oargCallback'+organizationsApprovalRequestsGet+    :: Text -- ^ 'oargName'+    -> OrganizationsApprovalRequestsGet+organizationsApprovalRequestsGet pOargName_ =+  OrganizationsApprovalRequestsGet'+    { _oargXgafv = Nothing+    , _oargUploadProtocol = Nothing+    , _oargAccessToken = Nothing+    , _oargUploadType = Nothing+    , _oargName = pOargName_+    , _oargCallback = Nothing+    }+++-- | V1 error format.+oargXgafv :: Lens' OrganizationsApprovalRequestsGet (Maybe Xgafv)+oargXgafv+  = lens _oargXgafv (\ s a -> s{_oargXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+oargUploadProtocol :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)+oargUploadProtocol+  = lens _oargUploadProtocol+      (\ s a -> s{_oargUploadProtocol = a})++-- | OAuth access token.+oargAccessToken :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)+oargAccessToken+  = lens _oargAccessToken+      (\ s a -> s{_oargAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+oargUploadType :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)+oargUploadType+  = lens _oargUploadType+      (\ s a -> s{_oargUploadType = a})++-- | Name of the approval request to retrieve.+oargName :: Lens' OrganizationsApprovalRequestsGet Text+oargName = lens _oargName (\ s a -> s{_oargName = a})++-- | JSONP+oargCallback :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)+oargCallback+  = lens _oargCallback (\ s a -> s{_oargCallback = a})++instance GoogleRequest+           OrganizationsApprovalRequestsGet+         where+        type Rs OrganizationsApprovalRequestsGet =+             ApprovalRequest+        type Scopes OrganizationsApprovalRequestsGet =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient OrganizationsApprovalRequestsGet'{..}+          = go _oargName _oargXgafv _oargUploadProtocol+              _oargAccessToken+              _oargUploadType+              _oargCallback+              (Just AltJSON)+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy OrganizationsApprovalRequestsGetResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/List.hs view
@@ -0,0 +1,206 @@+{-# 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.AccessApproval.Organizations.ApprovalRequests.List+-- 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)+--+-- Lists approval requests associated with a project, folder, or+-- organization. Approval requests can be filtered by state (pending,+-- active, dismissed). The order is reverse chronological.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.list@.+module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List+    (+    -- * REST Resource+      OrganizationsApprovalRequestsListResource++    -- * Creating a Request+    , organizationsApprovalRequestsList+    , OrganizationsApprovalRequestsList++    -- * Request Lenses+    , oarlParent+    , oarlXgafv+    , oarlUploadProtocol+    , oarlAccessToken+    , oarlUploadType+    , oarlFilter+    , oarlPageToken+    , oarlPageSize+    , oarlCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.organizations.approvalRequests.list@ method which the+-- 'OrganizationsApprovalRequestsList' request conforms to.+type OrganizationsApprovalRequestsListResource =+     "v1beta1" :>+       Capture "parent" Text :>+         "approvalRequests" :>+           QueryParam "$.xgafv" Xgafv :>+             QueryParam "upload_protocol" Text :>+               QueryParam "access_token" Text :>+                 QueryParam "uploadType" Text :>+                   QueryParam "filter" Text :>+                     QueryParam "pageToken" Text :>+                       QueryParam "pageSize" (Textual Int32) :>+                         QueryParam "callback" Text :>+                           QueryParam "alt" AltJSON :>+                             Get '[JSON] ListApprovalRequestsResponse++-- | Lists approval requests associated with a project, folder, or+-- organization. Approval requests can be filtered by state (pending,+-- active, dismissed). The order is reverse chronological.+--+-- /See:/ 'organizationsApprovalRequestsList' smart constructor.+data OrganizationsApprovalRequestsList =+  OrganizationsApprovalRequestsList'+    { _oarlParent         :: !Text+    , _oarlXgafv          :: !(Maybe Xgafv)+    , _oarlUploadProtocol :: !(Maybe Text)+    , _oarlAccessToken    :: !(Maybe Text)+    , _oarlUploadType     :: !(Maybe Text)+    , _oarlFilter         :: !(Maybe Text)+    , _oarlPageToken      :: !(Maybe Text)+    , _oarlPageSize       :: !(Maybe (Textual Int32))+    , _oarlCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OrganizationsApprovalRequestsList' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'oarlParent'+--+-- * 'oarlXgafv'+--+-- * 'oarlUploadProtocol'+--+-- * 'oarlAccessToken'+--+-- * 'oarlUploadType'+--+-- * 'oarlFilter'+--+-- * 'oarlPageToken'+--+-- * 'oarlPageSize'+--+-- * 'oarlCallback'+organizationsApprovalRequestsList+    :: Text -- ^ 'oarlParent'+    -> OrganizationsApprovalRequestsList+organizationsApprovalRequestsList pOarlParent_ =+  OrganizationsApprovalRequestsList'+    { _oarlParent = pOarlParent_+    , _oarlXgafv = Nothing+    , _oarlUploadProtocol = Nothing+    , _oarlAccessToken = Nothing+    , _oarlUploadType = Nothing+    , _oarlFilter = Nothing+    , _oarlPageToken = Nothing+    , _oarlPageSize = Nothing+    , _oarlCallback = Nothing+    }+++-- | The parent resource. This may be \"projects\/{project_id}\",+-- \"folders\/{folder_id}\", or \"organizations\/{organization_id}\".+oarlParent :: Lens' OrganizationsApprovalRequestsList Text+oarlParent+  = lens _oarlParent (\ s a -> s{_oarlParent = a})++-- | V1 error format.+oarlXgafv :: Lens' OrganizationsApprovalRequestsList (Maybe Xgafv)+oarlXgafv+  = lens _oarlXgafv (\ s a -> s{_oarlXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+oarlUploadProtocol :: Lens' OrganizationsApprovalRequestsList (Maybe Text)+oarlUploadProtocol+  = lens _oarlUploadProtocol+      (\ s a -> s{_oarlUploadProtocol = a})++-- | OAuth access token.+oarlAccessToken :: Lens' OrganizationsApprovalRequestsList (Maybe Text)+oarlAccessToken+  = lens _oarlAccessToken+      (\ s a -> s{_oarlAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+oarlUploadType :: Lens' OrganizationsApprovalRequestsList (Maybe Text)+oarlUploadType+  = lens _oarlUploadType+      (\ s a -> s{_oarlUploadType = a})++-- | A filter on the type of approval requests to retrieve. Must be one of+-- the following values:+--+-- 1.  [not set]: Requests that are pending or have active approvals.+-- 2.  ALL: All requests.+-- 3.  PENDING: Only pending requests.+-- 4.  ACTIVE: Only active (i.e. currently approved) requests.+-- 5.  DISMISSED: Only dismissed (including expired) requests.+oarlFilter :: Lens' OrganizationsApprovalRequestsList (Maybe Text)+oarlFilter+  = lens _oarlFilter (\ s a -> s{_oarlFilter = a})++-- | A token identifying the page of results to return.+oarlPageToken :: Lens' OrganizationsApprovalRequestsList (Maybe Text)+oarlPageToken+  = lens _oarlPageToken+      (\ s a -> s{_oarlPageToken = a})++-- | Requested page size.+oarlPageSize :: Lens' OrganizationsApprovalRequestsList (Maybe Int32)+oarlPageSize+  = lens _oarlPageSize (\ s a -> s{_oarlPageSize = a})+      . mapping _Coerce++-- | JSONP+oarlCallback :: Lens' OrganizationsApprovalRequestsList (Maybe Text)+oarlCallback+  = lens _oarlCallback (\ s a -> s{_oarlCallback = a})++instance GoogleRequest+           OrganizationsApprovalRequestsList+         where+        type Rs OrganizationsApprovalRequestsList =+             ListApprovalRequestsResponse+        type Scopes OrganizationsApprovalRequestsList =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient OrganizationsApprovalRequestsList'{..}+          = go _oarlParent _oarlXgafv _oarlUploadProtocol+              _oarlAccessToken+              _oarlUploadType+              _oarlFilter+              _oarlPageToken+              _oarlPageSize+              _oarlCallback+              (Just AltJSON)+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy OrganizationsApprovalRequestsListResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Organizations/GetAccessApprovalSettings.hs view
@@ -0,0 +1,157 @@+{-# 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.AccessApproval.Organizations.GetAccessApprovalSettings+-- 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 the settings associated with a project, folder, or organization.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.getAccessApprovalSettings@.+module Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings+    (+    -- * REST Resource+      OrganizationsGetAccessApprovalSettingsResource++    -- * Creating a Request+    , organizationsGetAccessApprovalSettings+    , OrganizationsGetAccessApprovalSettings++    -- * Request Lenses+    , ogaasXgafv+    , ogaasUploadProtocol+    , ogaasAccessToken+    , ogaasUploadType+    , ogaasName+    , ogaasCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.organizations.getAccessApprovalSettings@ method which the+-- 'OrganizationsGetAccessApprovalSettings' request conforms to.+type OrganizationsGetAccessApprovalSettingsResource =+     "v1beta1" :>+       Capture "name" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     Get '[JSON] AccessApprovalSettings++-- | Gets the settings associated with a project, folder, or organization.+--+-- /See:/ 'organizationsGetAccessApprovalSettings' smart constructor.+data OrganizationsGetAccessApprovalSettings =+  OrganizationsGetAccessApprovalSettings'+    { _ogaasXgafv          :: !(Maybe Xgafv)+    , _ogaasUploadProtocol :: !(Maybe Text)+    , _ogaasAccessToken    :: !(Maybe Text)+    , _ogaasUploadType     :: !(Maybe Text)+    , _ogaasName           :: !Text+    , _ogaasCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OrganizationsGetAccessApprovalSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ogaasXgafv'+--+-- * 'ogaasUploadProtocol'+--+-- * 'ogaasAccessToken'+--+-- * 'ogaasUploadType'+--+-- * 'ogaasName'+--+-- * 'ogaasCallback'+organizationsGetAccessApprovalSettings+    :: Text -- ^ 'ogaasName'+    -> OrganizationsGetAccessApprovalSettings+organizationsGetAccessApprovalSettings pOgaasName_ =+  OrganizationsGetAccessApprovalSettings'+    { _ogaasXgafv = Nothing+    , _ogaasUploadProtocol = Nothing+    , _ogaasAccessToken = Nothing+    , _ogaasUploadType = Nothing+    , _ogaasName = pOgaasName_+    , _ogaasCallback = Nothing+    }+++-- | V1 error format.+ogaasXgafv :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Xgafv)+ogaasXgafv+  = lens _ogaasXgafv (\ s a -> s{_ogaasXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+ogaasUploadProtocol :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)+ogaasUploadProtocol+  = lens _ogaasUploadProtocol+      (\ s a -> s{_ogaasUploadProtocol = a})++-- | OAuth access token.+ogaasAccessToken :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)+ogaasAccessToken+  = lens _ogaasAccessToken+      (\ s a -> s{_ogaasAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+ogaasUploadType :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)+ogaasUploadType+  = lens _ogaasUploadType+      (\ s a -> s{_ogaasUploadType = a})++-- | Name of the AccessApprovalSettings to retrieve.+ogaasName :: Lens' OrganizationsGetAccessApprovalSettings Text+ogaasName+  = lens _ogaasName (\ s a -> s{_ogaasName = a})++-- | JSONP+ogaasCallback :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)+ogaasCallback+  = lens _ogaasCallback+      (\ s a -> s{_ogaasCallback = a})++instance GoogleRequest+           OrganizationsGetAccessApprovalSettings+         where+        type Rs OrganizationsGetAccessApprovalSettings =+             AccessApprovalSettings+        type Scopes OrganizationsGetAccessApprovalSettings =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient+          OrganizationsGetAccessApprovalSettings'{..}+          = go _ogaasName _ogaasXgafv _ogaasUploadProtocol+              _ogaasAccessToken+              _ogaasUploadType+              _ogaasCallback+              (Just AltJSON)+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy OrganizationsGetAccessApprovalSettingsResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Organizations/UpdateAccessApprovalSettings.hs view
@@ -0,0 +1,177 @@+{-# 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.AccessApproval.Organizations.UpdateAccessApprovalSettings+-- 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)+--+-- Updates the settings associated with a project, folder, or organization.+-- Completely replaces the existing settings.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.updateAccessApprovalSettings@.+module Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings+    (+    -- * REST Resource+      OrganizationsUpdateAccessApprovalSettingsResource++    -- * Creating a Request+    , organizationsUpdateAccessApprovalSettings+    , OrganizationsUpdateAccessApprovalSettings++    -- * Request Lenses+    , ouaasXgafv+    , ouaasUploadProtocol+    , ouaasAccessToken+    , ouaasUploadType+    , ouaasPayload+    , ouaasName+    , ouaasCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.organizations.updateAccessApprovalSettings@ method which the+-- 'OrganizationsUpdateAccessApprovalSettings' request conforms to.+type OrganizationsUpdateAccessApprovalSettingsResource+     =+     "v1beta1" :>+       Capture "name" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] AccessApprovalSettings :>+                       Patch '[JSON] AccessApprovalSettings++-- | Updates the settings associated with a project, folder, or organization.+-- Completely replaces the existing settings.+--+-- /See:/ 'organizationsUpdateAccessApprovalSettings' smart constructor.+data OrganizationsUpdateAccessApprovalSettings =+  OrganizationsUpdateAccessApprovalSettings'+    { _ouaasXgafv          :: !(Maybe Xgafv)+    , _ouaasUploadProtocol :: !(Maybe Text)+    , _ouaasAccessToken    :: !(Maybe Text)+    , _ouaasUploadType     :: !(Maybe Text)+    , _ouaasPayload        :: !AccessApprovalSettings+    , _ouaasName           :: !Text+    , _ouaasCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OrganizationsUpdateAccessApprovalSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ouaasXgafv'+--+-- * 'ouaasUploadProtocol'+--+-- * 'ouaasAccessToken'+--+-- * 'ouaasUploadType'+--+-- * 'ouaasPayload'+--+-- * 'ouaasName'+--+-- * 'ouaasCallback'+organizationsUpdateAccessApprovalSettings+    :: AccessApprovalSettings -- ^ 'ouaasPayload'+    -> Text -- ^ 'ouaasName'+    -> OrganizationsUpdateAccessApprovalSettings+organizationsUpdateAccessApprovalSettings pOuaasPayload_ pOuaasName_ =+  OrganizationsUpdateAccessApprovalSettings'+    { _ouaasXgafv = Nothing+    , _ouaasUploadProtocol = Nothing+    , _ouaasAccessToken = Nothing+    , _ouaasUploadType = Nothing+    , _ouaasPayload = pOuaasPayload_+    , _ouaasName = pOuaasName_+    , _ouaasCallback = Nothing+    }+++-- | V1 error format.+ouaasXgafv :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Xgafv)+ouaasXgafv+  = lens _ouaasXgafv (\ s a -> s{_ouaasXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+ouaasUploadProtocol :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)+ouaasUploadProtocol+  = lens _ouaasUploadProtocol+      (\ s a -> s{_ouaasUploadProtocol = a})++-- | OAuth access token.+ouaasAccessToken :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)+ouaasAccessToken+  = lens _ouaasAccessToken+      (\ s a -> s{_ouaasAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+ouaasUploadType :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)+ouaasUploadType+  = lens _ouaasUploadType+      (\ s a -> s{_ouaasUploadType = a})++-- | Multipart request metadata.+ouaasPayload :: Lens' OrganizationsUpdateAccessApprovalSettings AccessApprovalSettings+ouaasPayload+  = lens _ouaasPayload (\ s a -> s{_ouaasPayload = a})++-- | The resource name of the settings. Format is one of:+-- \"projects\/{project_id}\/accessApprovalSettings\"+-- \"folders\/{folder_id}\/accessApprovalSettings\"+-- \"organizations\/{organization_id}\/accessApprovalSettings\"+ouaasName :: Lens' OrganizationsUpdateAccessApprovalSettings Text+ouaasName+  = lens _ouaasName (\ s a -> s{_ouaasName = a})++-- | JSONP+ouaasCallback :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)+ouaasCallback+  = lens _ouaasCallback+      (\ s a -> s{_ouaasCallback = a})++instance GoogleRequest+           OrganizationsUpdateAccessApprovalSettings+         where+        type Rs OrganizationsUpdateAccessApprovalSettings =+             AccessApprovalSettings+        type Scopes OrganizationsUpdateAccessApprovalSettings+             = '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient+          OrganizationsUpdateAccessApprovalSettings'{..}+          = go _ouaasName _ouaasXgafv _ouaasUploadProtocol+              _ouaasAccessToken+              _ouaasUploadType+              _ouaasCallback+              (Just AltJSON)+              _ouaasPayload+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy+                           OrganizationsUpdateAccessApprovalSettingsResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/Approve.hs view
@@ -0,0 +1,171 @@+{-# 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.AccessApproval.Projects.ApprovalRequests.Approve+-- 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)+--+-- Approves a request and returns the updated ApprovalRequest. Returns+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if+-- the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.approve@.+module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve+    (+    -- * REST Resource+      ProjectsApprovalRequestsApproveResource++    -- * Creating a Request+    , projectsApprovalRequestsApprove+    , ProjectsApprovalRequestsApprove++    -- * Request Lenses+    , paraXgafv+    , paraUploadProtocol+    , paraAccessToken+    , paraUploadType+    , paraPayload+    , paraName+    , paraCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.projects.approvalRequests.approve@ method which the+-- 'ProjectsApprovalRequestsApprove' request conforms to.+type ProjectsApprovalRequestsApproveResource =+     "v1beta1" :>+       CaptureMode "name" "approve" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] ApproveApprovalRequestMessage :>+                       Post '[JSON] ApprovalRequest++-- | Approves a request and returns the updated ApprovalRequest. Returns+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if+-- the request exists but is not in a pending state.+--+-- /See:/ 'projectsApprovalRequestsApprove' smart constructor.+data ProjectsApprovalRequestsApprove =+  ProjectsApprovalRequestsApprove'+    { _paraXgafv          :: !(Maybe Xgafv)+    , _paraUploadProtocol :: !(Maybe Text)+    , _paraAccessToken    :: !(Maybe Text)+    , _paraUploadType     :: !(Maybe Text)+    , _paraPayload        :: !ApproveApprovalRequestMessage+    , _paraName           :: !Text+    , _paraCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ProjectsApprovalRequestsApprove' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'paraXgafv'+--+-- * 'paraUploadProtocol'+--+-- * 'paraAccessToken'+--+-- * 'paraUploadType'+--+-- * 'paraPayload'+--+-- * 'paraName'+--+-- * 'paraCallback'+projectsApprovalRequestsApprove+    :: ApproveApprovalRequestMessage -- ^ 'paraPayload'+    -> Text -- ^ 'paraName'+    -> ProjectsApprovalRequestsApprove+projectsApprovalRequestsApprove pParaPayload_ pParaName_ =+  ProjectsApprovalRequestsApprove'+    { _paraXgafv = Nothing+    , _paraUploadProtocol = Nothing+    , _paraAccessToken = Nothing+    , _paraUploadType = Nothing+    , _paraPayload = pParaPayload_+    , _paraName = pParaName_+    , _paraCallback = Nothing+    }+++-- | V1 error format.+paraXgafv :: Lens' ProjectsApprovalRequestsApprove (Maybe Xgafv)+paraXgafv+  = lens _paraXgafv (\ s a -> s{_paraXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+paraUploadProtocol :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)+paraUploadProtocol+  = lens _paraUploadProtocol+      (\ s a -> s{_paraUploadProtocol = a})++-- | OAuth access token.+paraAccessToken :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)+paraAccessToken+  = lens _paraAccessToken+      (\ s a -> s{_paraAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+paraUploadType :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)+paraUploadType+  = lens _paraUploadType+      (\ s a -> s{_paraUploadType = a})++-- | Multipart request metadata.+paraPayload :: Lens' ProjectsApprovalRequestsApprove ApproveApprovalRequestMessage+paraPayload+  = lens _paraPayload (\ s a -> s{_paraPayload = a})++-- | Name of the approval request to approve.+paraName :: Lens' ProjectsApprovalRequestsApprove Text+paraName = lens _paraName (\ s a -> s{_paraName = a})++-- | JSONP+paraCallback :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)+paraCallback+  = lens _paraCallback (\ s a -> s{_paraCallback = a})++instance GoogleRequest+           ProjectsApprovalRequestsApprove+         where+        type Rs ProjectsApprovalRequestsApprove =+             ApprovalRequest+        type Scopes ProjectsApprovalRequestsApprove =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient ProjectsApprovalRequestsApprove'{..}+          = go _paraName _paraXgafv _paraUploadProtocol+              _paraAccessToken+              _paraUploadType+              _paraCallback+              (Just AltJSON)+              _paraPayload+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy ProjectsApprovalRequestsApproveResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/Dismiss.hs view
@@ -0,0 +1,175 @@+{-# 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.AccessApproval.Projects.ApprovalRequests.Dismiss+-- 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)+--+-- Dismisses a request. Returns the updated ApprovalRequest. NOTE: This+-- does not deny access to the resource if another request has been made+-- and approved. It is equivalent in effect to ignoring the request+-- altogether. Returns NOT_FOUND if the request does not exist. Returns+-- FAILED_PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.dismiss@.+module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss+    (+    -- * REST Resource+      ProjectsApprovalRequestsDismissResource++    -- * Creating a Request+    , projectsApprovalRequestsDismiss+    , ProjectsApprovalRequestsDismiss++    -- * Request Lenses+    , pardXgafv+    , pardUploadProtocol+    , pardAccessToken+    , pardUploadType+    , pardPayload+    , pardName+    , pardCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.projects.approvalRequests.dismiss@ method which the+-- 'ProjectsApprovalRequestsDismiss' request conforms to.+type ProjectsApprovalRequestsDismissResource =+     "v1beta1" :>+       CaptureMode "name" "dismiss" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] DismissApprovalRequestMessage :>+                       Post '[JSON] ApprovalRequest++-- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This+-- does not deny access to the resource if another request has been made+-- and approved. It is equivalent in effect to ignoring the request+-- altogether. Returns NOT_FOUND if the request does not exist. Returns+-- FAILED_PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ 'projectsApprovalRequestsDismiss' smart constructor.+data ProjectsApprovalRequestsDismiss =+  ProjectsApprovalRequestsDismiss'+    { _pardXgafv          :: !(Maybe Xgafv)+    , _pardUploadProtocol :: !(Maybe Text)+    , _pardAccessToken    :: !(Maybe Text)+    , _pardUploadType     :: !(Maybe Text)+    , _pardPayload        :: !DismissApprovalRequestMessage+    , _pardName           :: !Text+    , _pardCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ProjectsApprovalRequestsDismiss' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pardXgafv'+--+-- * 'pardUploadProtocol'+--+-- * 'pardAccessToken'+--+-- * 'pardUploadType'+--+-- * 'pardPayload'+--+-- * 'pardName'+--+-- * 'pardCallback'+projectsApprovalRequestsDismiss+    :: DismissApprovalRequestMessage -- ^ 'pardPayload'+    -> Text -- ^ 'pardName'+    -> ProjectsApprovalRequestsDismiss+projectsApprovalRequestsDismiss pPardPayload_ pPardName_ =+  ProjectsApprovalRequestsDismiss'+    { _pardXgafv = Nothing+    , _pardUploadProtocol = Nothing+    , _pardAccessToken = Nothing+    , _pardUploadType = Nothing+    , _pardPayload = pPardPayload_+    , _pardName = pPardName_+    , _pardCallback = Nothing+    }+++-- | V1 error format.+pardXgafv :: Lens' ProjectsApprovalRequestsDismiss (Maybe Xgafv)+pardXgafv+  = lens _pardXgafv (\ s a -> s{_pardXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+pardUploadProtocol :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)+pardUploadProtocol+  = lens _pardUploadProtocol+      (\ s a -> s{_pardUploadProtocol = a})++-- | OAuth access token.+pardAccessToken :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)+pardAccessToken+  = lens _pardAccessToken+      (\ s a -> s{_pardAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+pardUploadType :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)+pardUploadType+  = lens _pardUploadType+      (\ s a -> s{_pardUploadType = a})++-- | Multipart request metadata.+pardPayload :: Lens' ProjectsApprovalRequestsDismiss DismissApprovalRequestMessage+pardPayload+  = lens _pardPayload (\ s a -> s{_pardPayload = a})++-- | Name of the ApprovalRequest to dismiss.+pardName :: Lens' ProjectsApprovalRequestsDismiss Text+pardName = lens _pardName (\ s a -> s{_pardName = a})++-- | JSONP+pardCallback :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)+pardCallback+  = lens _pardCallback (\ s a -> s{_pardCallback = a})++instance GoogleRequest+           ProjectsApprovalRequestsDismiss+         where+        type Rs ProjectsApprovalRequestsDismiss =+             ApprovalRequest+        type Scopes ProjectsApprovalRequestsDismiss =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient ProjectsApprovalRequestsDismiss'{..}+          = go _pardName _pardXgafv _pardUploadProtocol+              _pardAccessToken+              _pardUploadType+              _pardCallback+              (Just AltJSON)+              _pardPayload+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy ProjectsApprovalRequestsDismissResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/Get.hs view
@@ -0,0 +1,153 @@+{-# 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.AccessApproval.Projects.ApprovalRequests.Get+-- 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 an approval request. Returns NOT_FOUND if the request does not+-- exist.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.get@.+module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get+    (+    -- * REST Resource+      ProjectsApprovalRequestsGetResource++    -- * Creating a Request+    , projectsApprovalRequestsGet+    , ProjectsApprovalRequestsGet++    -- * Request Lenses+    , pargXgafv+    , pargUploadProtocol+    , pargAccessToken+    , pargUploadType+    , pargName+    , pargCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.projects.approvalRequests.get@ method which the+-- 'ProjectsApprovalRequestsGet' request conforms to.+type ProjectsApprovalRequestsGetResource =+     "v1beta1" :>+       Capture "name" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     Get '[JSON] ApprovalRequest++-- | Gets an approval request. Returns NOT_FOUND if the request does not+-- exist.+--+-- /See:/ 'projectsApprovalRequestsGet' smart constructor.+data ProjectsApprovalRequestsGet =+  ProjectsApprovalRequestsGet'+    { _pargXgafv          :: !(Maybe Xgafv)+    , _pargUploadProtocol :: !(Maybe Text)+    , _pargAccessToken    :: !(Maybe Text)+    , _pargUploadType     :: !(Maybe Text)+    , _pargName           :: !Text+    , _pargCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ProjectsApprovalRequestsGet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pargXgafv'+--+-- * 'pargUploadProtocol'+--+-- * 'pargAccessToken'+--+-- * 'pargUploadType'+--+-- * 'pargName'+--+-- * 'pargCallback'+projectsApprovalRequestsGet+    :: Text -- ^ 'pargName'+    -> ProjectsApprovalRequestsGet+projectsApprovalRequestsGet pPargName_ =+  ProjectsApprovalRequestsGet'+    { _pargXgafv = Nothing+    , _pargUploadProtocol = Nothing+    , _pargAccessToken = Nothing+    , _pargUploadType = Nothing+    , _pargName = pPargName_+    , _pargCallback = Nothing+    }+++-- | V1 error format.+pargXgafv :: Lens' ProjectsApprovalRequestsGet (Maybe Xgafv)+pargXgafv+  = lens _pargXgafv (\ s a -> s{_pargXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+pargUploadProtocol :: Lens' ProjectsApprovalRequestsGet (Maybe Text)+pargUploadProtocol+  = lens _pargUploadProtocol+      (\ s a -> s{_pargUploadProtocol = a})++-- | OAuth access token.+pargAccessToken :: Lens' ProjectsApprovalRequestsGet (Maybe Text)+pargAccessToken+  = lens _pargAccessToken+      (\ s a -> s{_pargAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+pargUploadType :: Lens' ProjectsApprovalRequestsGet (Maybe Text)+pargUploadType+  = lens _pargUploadType+      (\ s a -> s{_pargUploadType = a})++-- | Name of the approval request to retrieve.+pargName :: Lens' ProjectsApprovalRequestsGet Text+pargName = lens _pargName (\ s a -> s{_pargName = a})++-- | JSONP+pargCallback :: Lens' ProjectsApprovalRequestsGet (Maybe Text)+pargCallback+  = lens _pargCallback (\ s a -> s{_pargCallback = a})++instance GoogleRequest ProjectsApprovalRequestsGet+         where+        type Rs ProjectsApprovalRequestsGet = ApprovalRequest+        type Scopes ProjectsApprovalRequestsGet =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient ProjectsApprovalRequestsGet'{..}+          = go _pargName _pargXgafv _pargUploadProtocol+              _pargAccessToken+              _pargUploadType+              _pargCallback+              (Just AltJSON)+              accessApprovalService+          where go+                  = buildClient+                      (Proxy :: Proxy ProjectsApprovalRequestsGetResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/List.hs view
@@ -0,0 +1,204 @@+{-# 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.AccessApproval.Projects.ApprovalRequests.List+-- 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)+--+-- Lists approval requests associated with a project, folder, or+-- organization. Approval requests can be filtered by state (pending,+-- active, dismissed). The order is reverse chronological.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.list@.+module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List+    (+    -- * REST Resource+      ProjectsApprovalRequestsListResource++    -- * Creating a Request+    , projectsApprovalRequestsList+    , ProjectsApprovalRequestsList++    -- * Request Lenses+    , parlParent+    , parlXgafv+    , parlUploadProtocol+    , parlAccessToken+    , parlUploadType+    , parlFilter+    , parlPageToken+    , parlPageSize+    , parlCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.projects.approvalRequests.list@ method which the+-- 'ProjectsApprovalRequestsList' request conforms to.+type ProjectsApprovalRequestsListResource =+     "v1beta1" :>+       Capture "parent" Text :>+         "approvalRequests" :>+           QueryParam "$.xgafv" Xgafv :>+             QueryParam "upload_protocol" Text :>+               QueryParam "access_token" Text :>+                 QueryParam "uploadType" Text :>+                   QueryParam "filter" Text :>+                     QueryParam "pageToken" Text :>+                       QueryParam "pageSize" (Textual Int32) :>+                         QueryParam "callback" Text :>+                           QueryParam "alt" AltJSON :>+                             Get '[JSON] ListApprovalRequestsResponse++-- | Lists approval requests associated with a project, folder, or+-- organization. Approval requests can be filtered by state (pending,+-- active, dismissed). The order is reverse chronological.+--+-- /See:/ 'projectsApprovalRequestsList' smart constructor.+data ProjectsApprovalRequestsList =+  ProjectsApprovalRequestsList'+    { _parlParent         :: !Text+    , _parlXgafv          :: !(Maybe Xgafv)+    , _parlUploadProtocol :: !(Maybe Text)+    , _parlAccessToken    :: !(Maybe Text)+    , _parlUploadType     :: !(Maybe Text)+    , _parlFilter         :: !(Maybe Text)+    , _parlPageToken      :: !(Maybe Text)+    , _parlPageSize       :: !(Maybe (Textual Int32))+    , _parlCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ProjectsApprovalRequestsList' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'parlParent'+--+-- * 'parlXgafv'+--+-- * 'parlUploadProtocol'+--+-- * 'parlAccessToken'+--+-- * 'parlUploadType'+--+-- * 'parlFilter'+--+-- * 'parlPageToken'+--+-- * 'parlPageSize'+--+-- * 'parlCallback'+projectsApprovalRequestsList+    :: Text -- ^ 'parlParent'+    -> ProjectsApprovalRequestsList+projectsApprovalRequestsList pParlParent_ =+  ProjectsApprovalRequestsList'+    { _parlParent = pParlParent_+    , _parlXgafv = Nothing+    , _parlUploadProtocol = Nothing+    , _parlAccessToken = Nothing+    , _parlUploadType = Nothing+    , _parlFilter = Nothing+    , _parlPageToken = Nothing+    , _parlPageSize = Nothing+    , _parlCallback = Nothing+    }+++-- | The parent resource. This may be \"projects\/{project_id}\",+-- \"folders\/{folder_id}\", or \"organizations\/{organization_id}\".+parlParent :: Lens' ProjectsApprovalRequestsList Text+parlParent+  = lens _parlParent (\ s a -> s{_parlParent = a})++-- | V1 error format.+parlXgafv :: Lens' ProjectsApprovalRequestsList (Maybe Xgafv)+parlXgafv+  = lens _parlXgafv (\ s a -> s{_parlXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+parlUploadProtocol :: Lens' ProjectsApprovalRequestsList (Maybe Text)+parlUploadProtocol+  = lens _parlUploadProtocol+      (\ s a -> s{_parlUploadProtocol = a})++-- | OAuth access token.+parlAccessToken :: Lens' ProjectsApprovalRequestsList (Maybe Text)+parlAccessToken+  = lens _parlAccessToken+      (\ s a -> s{_parlAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+parlUploadType :: Lens' ProjectsApprovalRequestsList (Maybe Text)+parlUploadType+  = lens _parlUploadType+      (\ s a -> s{_parlUploadType = a})++-- | A filter on the type of approval requests to retrieve. Must be one of+-- the following values:+--+-- 1.  [not set]: Requests that are pending or have active approvals.+-- 2.  ALL: All requests.+-- 3.  PENDING: Only pending requests.+-- 4.  ACTIVE: Only active (i.e. currently approved) requests.+-- 5.  DISMISSED: Only dismissed (including expired) requests.+parlFilter :: Lens' ProjectsApprovalRequestsList (Maybe Text)+parlFilter+  = lens _parlFilter (\ s a -> s{_parlFilter = a})++-- | A token identifying the page of results to return.+parlPageToken :: Lens' ProjectsApprovalRequestsList (Maybe Text)+parlPageToken+  = lens _parlPageToken+      (\ s a -> s{_parlPageToken = a})++-- | Requested page size.+parlPageSize :: Lens' ProjectsApprovalRequestsList (Maybe Int32)+parlPageSize+  = lens _parlPageSize (\ s a -> s{_parlPageSize = a})+      . mapping _Coerce++-- | JSONP+parlCallback :: Lens' ProjectsApprovalRequestsList (Maybe Text)+parlCallback+  = lens _parlCallback (\ s a -> s{_parlCallback = a})++instance GoogleRequest ProjectsApprovalRequestsList+         where+        type Rs ProjectsApprovalRequestsList =+             ListApprovalRequestsResponse+        type Scopes ProjectsApprovalRequestsList =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient ProjectsApprovalRequestsList'{..}+          = go _parlParent _parlXgafv _parlUploadProtocol+              _parlAccessToken+              _parlUploadType+              _parlFilter+              _parlPageToken+              _parlPageSize+              _parlCallback+              (Just AltJSON)+              accessApprovalService+          where go+                  = buildClient+                      (Proxy :: Proxy ProjectsApprovalRequestsListResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Projects/GetAccessApprovalSettings.hs view
@@ -0,0 +1,156 @@+{-# 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.AccessApproval.Projects.GetAccessApprovalSettings+-- 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 the settings associated with a project, folder, or organization.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.getAccessApprovalSettings@.+module Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings+    (+    -- * REST Resource+      ProjectsGetAccessApprovalSettingsResource++    -- * Creating a Request+    , projectsGetAccessApprovalSettings+    , ProjectsGetAccessApprovalSettings++    -- * Request Lenses+    , pgaasXgafv+    , pgaasUploadProtocol+    , pgaasAccessToken+    , pgaasUploadType+    , pgaasName+    , pgaasCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.projects.getAccessApprovalSettings@ method which the+-- 'ProjectsGetAccessApprovalSettings' request conforms to.+type ProjectsGetAccessApprovalSettingsResource =+     "v1beta1" :>+       Capture "name" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     Get '[JSON] AccessApprovalSettings++-- | Gets the settings associated with a project, folder, or organization.+--+-- /See:/ 'projectsGetAccessApprovalSettings' smart constructor.+data ProjectsGetAccessApprovalSettings =+  ProjectsGetAccessApprovalSettings'+    { _pgaasXgafv          :: !(Maybe Xgafv)+    , _pgaasUploadProtocol :: !(Maybe Text)+    , _pgaasAccessToken    :: !(Maybe Text)+    , _pgaasUploadType     :: !(Maybe Text)+    , _pgaasName           :: !Text+    , _pgaasCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ProjectsGetAccessApprovalSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pgaasXgafv'+--+-- * 'pgaasUploadProtocol'+--+-- * 'pgaasAccessToken'+--+-- * 'pgaasUploadType'+--+-- * 'pgaasName'+--+-- * 'pgaasCallback'+projectsGetAccessApprovalSettings+    :: Text -- ^ 'pgaasName'+    -> ProjectsGetAccessApprovalSettings+projectsGetAccessApprovalSettings pPgaasName_ =+  ProjectsGetAccessApprovalSettings'+    { _pgaasXgafv = Nothing+    , _pgaasUploadProtocol = Nothing+    , _pgaasAccessToken = Nothing+    , _pgaasUploadType = Nothing+    , _pgaasName = pPgaasName_+    , _pgaasCallback = Nothing+    }+++-- | V1 error format.+pgaasXgafv :: Lens' ProjectsGetAccessApprovalSettings (Maybe Xgafv)+pgaasXgafv+  = lens _pgaasXgafv (\ s a -> s{_pgaasXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+pgaasUploadProtocol :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)+pgaasUploadProtocol+  = lens _pgaasUploadProtocol+      (\ s a -> s{_pgaasUploadProtocol = a})++-- | OAuth access token.+pgaasAccessToken :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)+pgaasAccessToken+  = lens _pgaasAccessToken+      (\ s a -> s{_pgaasAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+pgaasUploadType :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)+pgaasUploadType+  = lens _pgaasUploadType+      (\ s a -> s{_pgaasUploadType = a})++-- | Name of the AccessApprovalSettings to retrieve.+pgaasName :: Lens' ProjectsGetAccessApprovalSettings Text+pgaasName+  = lens _pgaasName (\ s a -> s{_pgaasName = a})++-- | JSONP+pgaasCallback :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)+pgaasCallback+  = lens _pgaasCallback+      (\ s a -> s{_pgaasCallback = a})++instance GoogleRequest+           ProjectsGetAccessApprovalSettings+         where+        type Rs ProjectsGetAccessApprovalSettings =+             AccessApprovalSettings+        type Scopes ProjectsGetAccessApprovalSettings =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient ProjectsGetAccessApprovalSettings'{..}+          = go _pgaasName _pgaasXgafv _pgaasUploadProtocol+              _pgaasAccessToken+              _pgaasUploadType+              _pgaasCallback+              (Just AltJSON)+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy ProjectsGetAccessApprovalSettingsResource)+                      mempty
+ gen/Network/Google/Resource/AccessApproval/Projects/UpdateAccessApprovalSettings.hs view
@@ -0,0 +1,175 @@+{-# 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.AccessApproval.Projects.UpdateAccessApprovalSettings+-- 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)+--+-- Updates the settings associated with a project, folder, or organization.+-- Completely replaces the existing settings.+--+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.updateAccessApprovalSettings@.+module Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings+    (+    -- * REST Resource+      ProjectsUpdateAccessApprovalSettingsResource++    -- * Creating a Request+    , projectsUpdateAccessApprovalSettings+    , ProjectsUpdateAccessApprovalSettings++    -- * Request Lenses+    , puaasXgafv+    , puaasUploadProtocol+    , puaasAccessToken+    , puaasUploadType+    , puaasPayload+    , puaasName+    , puaasCallback+    ) where++import           Network.Google.AccessApproval.Types+import           Network.Google.Prelude++-- | A resource alias for @accessapproval.projects.updateAccessApprovalSettings@ method which the+-- 'ProjectsUpdateAccessApprovalSettings' request conforms to.+type ProjectsUpdateAccessApprovalSettingsResource =+     "v1beta1" :>+       Capture "name" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] AccessApprovalSettings :>+                       Patch '[JSON] AccessApprovalSettings++-- | Updates the settings associated with a project, folder, or organization.+-- Completely replaces the existing settings.+--+-- /See:/ 'projectsUpdateAccessApprovalSettings' smart constructor.+data ProjectsUpdateAccessApprovalSettings =+  ProjectsUpdateAccessApprovalSettings'+    { _puaasXgafv          :: !(Maybe Xgafv)+    , _puaasUploadProtocol :: !(Maybe Text)+    , _puaasAccessToken    :: !(Maybe Text)+    , _puaasUploadType     :: !(Maybe Text)+    , _puaasPayload        :: !AccessApprovalSettings+    , _puaasName           :: !Text+    , _puaasCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ProjectsUpdateAccessApprovalSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'puaasXgafv'+--+-- * 'puaasUploadProtocol'+--+-- * 'puaasAccessToken'+--+-- * 'puaasUploadType'+--+-- * 'puaasPayload'+--+-- * 'puaasName'+--+-- * 'puaasCallback'+projectsUpdateAccessApprovalSettings+    :: AccessApprovalSettings -- ^ 'puaasPayload'+    -> Text -- ^ 'puaasName'+    -> ProjectsUpdateAccessApprovalSettings+projectsUpdateAccessApprovalSettings pPuaasPayload_ pPuaasName_ =+  ProjectsUpdateAccessApprovalSettings'+    { _puaasXgafv = Nothing+    , _puaasUploadProtocol = Nothing+    , _puaasAccessToken = Nothing+    , _puaasUploadType = Nothing+    , _puaasPayload = pPuaasPayload_+    , _puaasName = pPuaasName_+    , _puaasCallback = Nothing+    }+++-- | V1 error format.+puaasXgafv :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Xgafv)+puaasXgafv+  = lens _puaasXgafv (\ s a -> s{_puaasXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+puaasUploadProtocol :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)+puaasUploadProtocol+  = lens _puaasUploadProtocol+      (\ s a -> s{_puaasUploadProtocol = a})++-- | OAuth access token.+puaasAccessToken :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)+puaasAccessToken+  = lens _puaasAccessToken+      (\ s a -> s{_puaasAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+puaasUploadType :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)+puaasUploadType+  = lens _puaasUploadType+      (\ s a -> s{_puaasUploadType = a})++-- | Multipart request metadata.+puaasPayload :: Lens' ProjectsUpdateAccessApprovalSettings AccessApprovalSettings+puaasPayload+  = lens _puaasPayload (\ s a -> s{_puaasPayload = a})++-- | The resource name of the settings. Format is one of:+-- \"projects\/{project_id}\/accessApprovalSettings\"+-- \"folders\/{folder_id}\/accessApprovalSettings\"+-- \"organizations\/{organization_id}\/accessApprovalSettings\"+puaasName :: Lens' ProjectsUpdateAccessApprovalSettings Text+puaasName+  = lens _puaasName (\ s a -> s{_puaasName = a})++-- | JSONP+puaasCallback :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)+puaasCallback+  = lens _puaasCallback+      (\ s a -> s{_puaasCallback = a})++instance GoogleRequest+           ProjectsUpdateAccessApprovalSettings+         where+        type Rs ProjectsUpdateAccessApprovalSettings =+             AccessApprovalSettings+        type Scopes ProjectsUpdateAccessApprovalSettings =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient+          ProjectsUpdateAccessApprovalSettings'{..}+          = go _puaasName _puaasXgafv _puaasUploadProtocol+              _puaasAccessToken+              _puaasUploadType+              _puaasCallback+              (Just AltJSON)+              _puaasPayload+              accessApprovalService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy ProjectsUpdateAccessApprovalSettingsResource)+                      mempty
+ gogol-accessapproval.cabal view
@@ -0,0 +1,63 @@+name:                  gogol-accessapproval+version:               0.5.0+synopsis:              Google Access Approval SDK.+homepage:              https://github.com/brendanhay/gogol+bug-reports:           https://github.com/brendanhay/gogol/issues+license:               OtherLicense+license-file:          LICENSE+author:                Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay@gmail.com>+copyright:             Copyright (c) 2015-2016 Brendan Hay+category:              Network, Google, Cloud+build-type:            Simple+cabal-version:         >= 1.10+extra-source-files:    README.md src/.gitkeep++description:+    An API for controlling access to data by Google personnel.+    .+    /Warning:/ This is an experimental prototype/preview release which is still+    under exploratory development and not intended for public use, caveat emptor!+    .+    This library is compatible with version @v1beta1@+    of the API.++source-repository head+    type:     git+    location: git://github.com/brendanhay/gogol.git++library+    default-language:  Haskell2010+    hs-source-dirs:    src gen++    ghc-options:       -Wall++    exposed-modules:+          Network.Google.AccessApproval+        , Network.Google.AccessApproval.Types+        , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve+        , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss+        , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get+        , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List+        , Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings+        , Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings+        , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve+        , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss+        , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get+        , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List+        , Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings+        , Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings+        , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve+        , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss+        , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get+        , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List+        , Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings+        , Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings++    other-modules:+          Network.Google.AccessApproval.Types.Product+        , Network.Google.AccessApproval.Types.Sum++    build-depends:+          gogol-core == 0.5.0.*+        , base       >= 4.7 && < 5
+ src/.gitkeep view