gogol-admin-reports (empty) → 0.0.1

raw patch · 13 files changed

+2751/−0 lines, 13 filesdep +basedep +gogol-coresetup-changed

Dependencies added: base, gogol-core

Files

• LICENSE +367/−0
• README.md +28/−0
• Setup.hs +2/−0
• gen/Network/Google/Reports.hs +190/−0
• gen/Network/Google/Reports/Types.hs +167/−0
• gen/Network/Google/Reports/Types/Product.hs +1126/−0
• gen/Network/Google/Reports/Types/Sum.hs +19/−0
• gen/Network/Google/Resource/Admin/Channels/Stop.hs +86/−0
• gen/Network/Google/Resource/Reports/Activities/List.hs +202/−0
• gen/Network/Google/Resource/Reports/Activities/Watch.hs +217/−0
• gen/Network/Google/Resource/Reports/CustomerUsageReports/Get.hs +127/−0
• gen/Network/Google/Resource/Reports/UserUsageReport/Get.hs +169/−0
• gogol-admin-reports.cabal +51/−0

@@ -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.

@@ -0,0 +1,28 @@+# gogol-admin-reports++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version++`0.0.1`+++## Description++A client library for the Google Admin Reports.+++## Contribute++For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).++> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+++## Licence++`gogol-admin-reports` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).

@@ -0,0 +1,2 @@+import           Distribution.Simple+main = defaultMain

@@ -0,0 +1,190 @@+{-# LANGUAGE DataKinds         #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# LANGUAGE TypeOperators     #-}++{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- |+-- Module      : Network.Google.Reports+-- Copyright   : (c) 2015 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)+--+-- Allows the administrators of Google Apps customers to fetch reports+-- about the usage, collaboration, security and risk for their users.+--+-- /See:/ <https://developers.google.com/admin-sdk/reports/ Admin Reports API Reference>+module Network.Google.Reports+    (+    -- * Service Configuration+      reportsService++    -- * API Declaration+    , ReportsAPI++    -- * Resources++    -- ** admin.channels.stop+    , module Network.Google.Resource.Admin.Channels.Stop++    -- ** reports.activities.list+    , module Network.Google.Resource.Reports.Activities.List++    -- ** reports.activities.watch+    , module Network.Google.Resource.Reports.Activities.Watch++    -- ** reports.customerUsageReports.get+    , module Network.Google.Resource.Reports.CustomerUsageReports.Get++    -- ** reports.userUsageReport.get+    , module Network.Google.Resource.Reports.UserUsageReport.Get++    -- * Types++    -- ** UsageReportParametersItem+    , UsageReportParametersItem+    , usageReportParametersItem+    , urpiDatetimeValue+    , urpiBoolValue+    , urpiIntValue+    , urpiStringValue+    , urpiName+    , urpiMsgValue++    -- ** ActivityId+    , ActivityId+    , activityId+    , aiTime+    , aiUniqueQualifier+    , aiCustomerId+    , aiApplicationName++    -- ** UsageReports+    , UsageReports+    , usageReports+    , urEtag+    , urNextPageToken+    , urUsageReports+    , urKind+    , urWarnings++    -- ** UsageReportParametersItemMsgValueItem+    , UsageReportParametersItemMsgValueItem+    , usageReportParametersItemMsgValueItem+    , urpimviAddtional++    -- ** Activities+    , Activities+    , activities+    , aEtag+    , aNextPageToken+    , aKind+    , aItems++    -- ** Channel+    , Channel+    , channel+    , cResourceURI+    , cResourceId+    , cKind+    , cExpiration+    , cToken+    , cAddress+    , cPayload+    , cParams+    , cId+    , cType++    -- ** UsageReport+    , UsageReport+    , usageReport+    , uEtag+    , uKind+    , uDate+    , uParameters+    , uEntity++    -- ** UsageReportsWarningsItemDataItem+    , UsageReportsWarningsItemDataItem+    , usageReportsWarningsItemDataItem+    , urwidiValue+    , urwidiKey++    -- ** UsageReportsWarningsItem+    , UsageReportsWarningsItem+    , usageReportsWarningsItem+    , urwiData+    , urwiCode+    , urwiMessage++    -- ** ActivityEventsItem+    , ActivityEventsItem+    , activityEventsItem+    , aeiName+    , aeiParameters+    , aeiType++    -- ** ChannelParams+    , ChannelParams+    , channelParams+    , cpAddtional++    -- ** Activity+    , Activity+    , activity+    , actEtag+    , actIPAddress+    , actKind+    , actActor+    , actOwnerDomain+    , actEvents+    , actId++    -- ** UsageReportEntity+    , UsageReportEntity+    , usageReportEntity+    , ureProFileId+    , ureCustomerId+    , ureUserEmail+    , ureType++    -- ** ActivityEventsItemParametersItem+    , ActivityEventsItemParametersItem+    , activityEventsItemParametersItem+    , aeipiBoolValue+    , aeipiIntValue+    , aeipiValue+    , aeipiMultiIntValue+    , aeipiName+    , aeipiMultiValue++    -- ** ActivityActor+    , ActivityActor+    , activityActor+    , aaEmail+    , aaCallerType+    , aaProFileId+    , aaKey+    ) where++import           Network.Google.Prelude+import           Network.Google.Reports.Types+import           Network.Google.Resource.Admin.Channels.Stop+import           Network.Google.Resource.Reports.Activities.List+import           Network.Google.Resource.Reports.Activities.Watch+import           Network.Google.Resource.Reports.CustomerUsageReports.Get+import           Network.Google.Resource.Reports.UserUsageReport.Get++{- $resources+TODO+-}++-- | Represents the entirety of the methods and resources available for the Admin Reports API service.+type ReportsAPI =+     ChannelsStopResource :<|> ActivitiesListResource :<|>+       ActivitiesWatchResource+       :<|> CustomerUsageReportsGetResource+       :<|> UserUsageReportGetResource

@@ -0,0 +1,167 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE NoImplicitPrelude  #-}+{-# LANGUAGE OverloadedStrings  #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Network.Google.Reports.Types+-- Copyright   : (c) 2015 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.Reports.Types+    (+    -- * Service Configuration+      reportsService++    -- * OAuth Scopes+    , adminReportsUsageReadonlyScope+    , adminReportsAuditReadonlyScope++    -- * UsageReportParametersItem+    , UsageReportParametersItem+    , usageReportParametersItem+    , urpiDatetimeValue+    , urpiBoolValue+    , urpiIntValue+    , urpiStringValue+    , urpiName+    , urpiMsgValue++    -- * ActivityId+    , ActivityId+    , activityId+    , aiTime+    , aiUniqueQualifier+    , aiCustomerId+    , aiApplicationName++    -- * UsageReports+    , UsageReports+    , usageReports+    , urEtag+    , urNextPageToken+    , urUsageReports+    , urKind+    , urWarnings++    -- * UsageReportParametersItemMsgValueItem+    , UsageReportParametersItemMsgValueItem+    , usageReportParametersItemMsgValueItem+    , urpimviAddtional++    -- * Activities+    , Activities+    , activities+    , aEtag+    , aNextPageToken+    , aKind+    , aItems++    -- * Channel+    , Channel+    , channel+    , cResourceURI+    , cResourceId+    , cKind+    , cExpiration+    , cToken+    , cAddress+    , cPayload+    , cParams+    , cId+    , cType++    -- * UsageReport+    , UsageReport+    , usageReport+    , uEtag+    , uKind+    , uDate+    , uParameters+    , uEntity++    -- * UsageReportsWarningsItemDataItem+    , UsageReportsWarningsItemDataItem+    , usageReportsWarningsItemDataItem+    , urwidiValue+    , urwidiKey++    -- * UsageReportsWarningsItem+    , UsageReportsWarningsItem+    , usageReportsWarningsItem+    , urwiData+    , urwiCode+    , urwiMessage++    -- * ActivityEventsItem+    , ActivityEventsItem+    , activityEventsItem+    , aeiName+    , aeiParameters+    , aeiType++    -- * ChannelParams+    , ChannelParams+    , channelParams+    , cpAddtional++    -- * Activity+    , Activity+    , activity+    , actEtag+    , actIPAddress+    , actKind+    , actActor+    , actOwnerDomain+    , actEvents+    , actId++    -- * UsageReportEntity+    , UsageReportEntity+    , usageReportEntity+    , ureProFileId+    , ureCustomerId+    , ureUserEmail+    , ureType++    -- * ActivityEventsItemParametersItem+    , ActivityEventsItemParametersItem+    , activityEventsItemParametersItem+    , aeipiBoolValue+    , aeipiIntValue+    , aeipiValue+    , aeipiMultiIntValue+    , aeipiName+    , aeipiMultiValue++    -- * ActivityActor+    , ActivityActor+    , activityActor+    , aaEmail+    , aaCallerType+    , aaProFileId+    , aaKey+    ) where++import           Network.Google.Prelude+import           Network.Google.Reports.Types.Product+import           Network.Google.Reports.Types.Sum++-- | Default request referring to version 'reports_v1' of the Admin Reports API. This contains the host and root path used as a starting point for constructing service requests.+reportsService :: Service+reportsService+  = defaultService (ServiceId "admin:reports_v1")+      "www.googleapis.com"++-- | View usage reports of Google Apps for your domain+adminReportsUsageReadonlyScope :: OAuthScope+adminReportsUsageReadonlyScope = "https://www.googleapis.com/auth/admin.reports.usage.readonly";++-- | View audit reports of Google Apps for your domain+adminReportsAuditReadonlyScope :: OAuthScope+adminReportsAuditReadonlyScope = "https://www.googleapis.com/auth/admin.reports.audit.readonly";

@@ -0,0 +1,1126 @@+{-# 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.Reports.Types.Product+-- Copyright   : (c) 2015 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.Reports.Types.Product where++import           Network.Google.Prelude+import           Network.Google.Reports.Types.Sum++--+-- /See:/ 'usageReportParametersItem' smart constructor.+data UsageReportParametersItem = UsageReportParametersItem+    { _urpiDatetimeValue :: !(Maybe DateTime')+    , _urpiBoolValue     :: !(Maybe Bool)+    , _urpiIntValue      :: !(Maybe (Textual Int64))+    , _urpiStringValue   :: !(Maybe Text)+    , _urpiName          :: !(Maybe Text)+    , _urpiMsgValue      :: !(Maybe [UsageReportParametersItemMsgValueItem])+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'UsageReportParametersItem' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urpiDatetimeValue'+--+-- * 'urpiBoolValue'+--+-- * 'urpiIntValue'+--+-- * 'urpiStringValue'+--+-- * 'urpiName'+--+-- * 'urpiMsgValue'+usageReportParametersItem+    :: UsageReportParametersItem+usageReportParametersItem =+    UsageReportParametersItem+    { _urpiDatetimeValue = Nothing+    , _urpiBoolValue = Nothing+    , _urpiIntValue = Nothing+    , _urpiStringValue = Nothing+    , _urpiName = Nothing+    , _urpiMsgValue = Nothing+    }++-- | RFC 3339 formatted value of the parameter.+urpiDatetimeValue :: Lens' UsageReportParametersItem (Maybe UTCTime)+urpiDatetimeValue+  = lens _urpiDatetimeValue+      (\ s a -> s{_urpiDatetimeValue = a})+      . mapping _DateTime++-- | Boolean value of the parameter.+urpiBoolValue :: Lens' UsageReportParametersItem (Maybe Bool)+urpiBoolValue+  = lens _urpiBoolValue+      (\ s a -> s{_urpiBoolValue = a})++-- | Integral value of the parameter.+urpiIntValue :: Lens' UsageReportParametersItem (Maybe Int64)+urpiIntValue+  = lens _urpiIntValue (\ s a -> s{_urpiIntValue = a})+      . mapping _Coerce++-- | String value of the parameter.+urpiStringValue :: Lens' UsageReportParametersItem (Maybe Text)+urpiStringValue+  = lens _urpiStringValue+      (\ s a -> s{_urpiStringValue = a})++-- | The name of the parameter.+urpiName :: Lens' UsageReportParametersItem (Maybe Text)+urpiName = lens _urpiName (\ s a -> s{_urpiName = a})++-- | Nested message value of the parameter.+urpiMsgValue :: Lens' UsageReportParametersItem [UsageReportParametersItemMsgValueItem]+urpiMsgValue+  = lens _urpiMsgValue (\ s a -> s{_urpiMsgValue = a})+      . _Default+      . _Coerce++instance FromJSON UsageReportParametersItem where+        parseJSON+          = withObject "UsageReportParametersItem"+              (\ o ->+                 UsageReportParametersItem <$>+                   (o .:? "datetimeValue") <*> (o .:? "boolValue") <*>+                     (o .:? "intValue")+                     <*> (o .:? "stringValue")+                     <*> (o .:? "name")+                     <*> (o .:? "msgValue" .!= mempty))++instance ToJSON UsageReportParametersItem where+        toJSON UsageReportParametersItem{..}+          = object+              (catMaybes+                 [("datetimeValue" .=) <$> _urpiDatetimeValue,+                  ("boolValue" .=) <$> _urpiBoolValue,+                  ("intValue" .=) <$> _urpiIntValue,+                  ("stringValue" .=) <$> _urpiStringValue,+                  ("name" .=) <$> _urpiName,+                  ("msgValue" .=) <$> _urpiMsgValue])++-- | Unique identifier for each activity record.+--+-- /See:/ 'activityId' smart constructor.+data ActivityId = ActivityId+    { _aiTime            :: !(Maybe DateTime')+    , _aiUniqueQualifier :: !(Maybe (Textual Int64))+    , _aiCustomerId      :: !(Maybe Text)+    , _aiApplicationName :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ActivityId' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aiTime'+--+-- * 'aiUniqueQualifier'+--+-- * 'aiCustomerId'+--+-- * 'aiApplicationName'+activityId+    :: ActivityId+activityId =+    ActivityId+    { _aiTime = Nothing+    , _aiUniqueQualifier = Nothing+    , _aiCustomerId = Nothing+    , _aiApplicationName = Nothing+    }++-- | Time of occurrence of the activity.+aiTime :: Lens' ActivityId (Maybe UTCTime)+aiTime+  = lens _aiTime (\ s a -> s{_aiTime = a}) .+      mapping _DateTime++-- | Unique qualifier if multiple events have the same time.+aiUniqueQualifier :: Lens' ActivityId (Maybe Int64)+aiUniqueQualifier+  = lens _aiUniqueQualifier+      (\ s a -> s{_aiUniqueQualifier = a})+      . mapping _Coerce++-- | Obfuscated customer ID of the source customer.+aiCustomerId :: Lens' ActivityId (Maybe Text)+aiCustomerId+  = lens _aiCustomerId (\ s a -> s{_aiCustomerId = a})++-- | Application name to which the event belongs.+aiApplicationName :: Lens' ActivityId (Maybe Text)+aiApplicationName+  = lens _aiApplicationName+      (\ s a -> s{_aiApplicationName = a})++instance FromJSON ActivityId where+        parseJSON+          = withObject "ActivityId"+              (\ o ->+                 ActivityId <$>+                   (o .:? "time") <*> (o .:? "uniqueQualifier") <*>+                     (o .:? "customerId")+                     <*> (o .:? "applicationName"))++instance ToJSON ActivityId where+        toJSON ActivityId{..}+          = object+              (catMaybes+                 [("time" .=) <$> _aiTime,+                  ("uniqueQualifier" .=) <$> _aiUniqueQualifier,+                  ("customerId" .=) <$> _aiCustomerId,+                  ("applicationName" .=) <$> _aiApplicationName])++-- | JSON template for a collection of usage reports.+--+-- /See:/ 'usageReports' smart constructor.+data UsageReports = UsageReports+    { _urEtag          :: !(Maybe Text)+    , _urNextPageToken :: !(Maybe Text)+    , _urUsageReports  :: !(Maybe [UsageReport])+    , _urKind          :: !Text+    , _urWarnings      :: !(Maybe [UsageReportsWarningsItem])+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'UsageReports' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urEtag'+--+-- * 'urNextPageToken'+--+-- * 'urUsageReports'+--+-- * 'urKind'+--+-- * 'urWarnings'+usageReports+    :: UsageReports+usageReports =+    UsageReports+    { _urEtag = Nothing+    , _urNextPageToken = Nothing+    , _urUsageReports = Nothing+    , _urKind = "admin#reports#usageReports"+    , _urWarnings = Nothing+    }++-- | ETag of the resource.+urEtag :: Lens' UsageReports (Maybe Text)+urEtag = lens _urEtag (\ s a -> s{_urEtag = a})++-- | Token for retrieving the next page+urNextPageToken :: Lens' UsageReports (Maybe Text)+urNextPageToken+  = lens _urNextPageToken+      (\ s a -> s{_urNextPageToken = a})++-- | Various application parameter records.+urUsageReports :: Lens' UsageReports [UsageReport]+urUsageReports+  = lens _urUsageReports+      (\ s a -> s{_urUsageReports = a})+      . _Default+      . _Coerce++-- | The kind of object.+urKind :: Lens' UsageReports Text+urKind = lens _urKind (\ s a -> s{_urKind = a})++-- | Warnings if any.+urWarnings :: Lens' UsageReports [UsageReportsWarningsItem]+urWarnings+  = lens _urWarnings (\ s a -> s{_urWarnings = a}) .+      _Default+      . _Coerce++instance FromJSON UsageReports where+        parseJSON+          = withObject "UsageReports"+              (\ o ->+                 UsageReports <$>+                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>+                     (o .:? "usageReports" .!= mempty)+                     <*> (o .:? "kind" .!= "admin#reports#usageReports")+                     <*> (o .:? "warnings" .!= mempty))++instance ToJSON UsageReports where+        toJSON UsageReports{..}+          = object+              (catMaybes+                 [("etag" .=) <$> _urEtag,+                  ("nextPageToken" .=) <$> _urNextPageToken,+                  ("usageReports" .=) <$> _urUsageReports,+                  Just ("kind" .= _urKind),+                  ("warnings" .=) <$> _urWarnings])++--+-- /See:/ 'usageReportParametersItemMsgValueItem' smart constructor.+newtype UsageReportParametersItemMsgValueItem = UsageReportParametersItemMsgValueItem+    { _urpimviAddtional :: HashMap Text JSONValue+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'UsageReportParametersItemMsgValueItem' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urpimviAddtional'+usageReportParametersItemMsgValueItem+    :: HashMap Text JSONValue -- ^ 'urpimviAddtional'+    -> UsageReportParametersItemMsgValueItem+usageReportParametersItemMsgValueItem pUrpimviAddtional_ =+    UsageReportParametersItemMsgValueItem+    { _urpimviAddtional = _Coerce # pUrpimviAddtional_+    }++urpimviAddtional :: Lens' UsageReportParametersItemMsgValueItem (HashMap Text JSONValue)+urpimviAddtional+  = lens _urpimviAddtional+      (\ s a -> s{_urpimviAddtional = a})+      . _Coerce++instance FromJSON+         UsageReportParametersItemMsgValueItem where+        parseJSON+          = withObject "UsageReportParametersItemMsgValueItem"+              (\ o ->+                 UsageReportParametersItemMsgValueItem <$>+                   (parseJSONObject o))++instance ToJSON UsageReportParametersItemMsgValueItem+         where+        toJSON = toJSON . _urpimviAddtional++-- | JSON template for a collection of activites.+--+-- /See:/ 'activities' smart constructor.+data Activities = Activities+    { _aEtag          :: !(Maybe Text)+    , _aNextPageToken :: !(Maybe Text)+    , _aKind          :: !Text+    , _aItems         :: !(Maybe [Activity])+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'Activities' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aEtag'+--+-- * 'aNextPageToken'+--+-- * 'aKind'+--+-- * 'aItems'+activities+    :: Activities+activities =+    Activities+    { _aEtag = Nothing+    , _aNextPageToken = Nothing+    , _aKind = "admin#reports#activities"+    , _aItems = Nothing+    }++-- | ETag of the resource.+aEtag :: Lens' Activities (Maybe Text)+aEtag = lens _aEtag (\ s a -> s{_aEtag = a})++-- | Token for retrieving the next page+aNextPageToken :: Lens' Activities (Maybe Text)+aNextPageToken+  = lens _aNextPageToken+      (\ s a -> s{_aNextPageToken = a})++-- | Kind of list response this is.+aKind :: Lens' Activities Text+aKind = lens _aKind (\ s a -> s{_aKind = a})++-- | Each record in read response.+aItems :: Lens' Activities [Activity]+aItems+  = lens _aItems (\ s a -> s{_aItems = a}) . _Default .+      _Coerce++instance FromJSON Activities where+        parseJSON+          = withObject "Activities"+              (\ o ->+                 Activities <$>+                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>+                     (o .:? "kind" .!= "admin#reports#activities")+                     <*> (o .:? "items" .!= mempty))++instance ToJSON Activities where+        toJSON Activities{..}+          = object+              (catMaybes+                 [("etag" .=) <$> _aEtag,+                  ("nextPageToken" .=) <$> _aNextPageToken,+                  Just ("kind" .= _aKind), ("items" .=) <$> _aItems])++-- | An notification channel used to watch for resource changes.+--+-- /See:/ 'channel' smart constructor.+data Channel = Channel+    { _cResourceURI :: !(Maybe Text)+    , _cResourceId  :: !(Maybe Text)+    , _cKind        :: !Text+    , _cExpiration  :: !(Maybe (Textual Int64))+    , _cToken       :: !(Maybe Text)+    , _cAddress     :: !(Maybe Text)+    , _cPayload     :: !(Maybe Bool)+    , _cParams      :: !(Maybe ChannelParams)+    , _cId          :: !(Maybe Text)+    , _cType        :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'Channel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cResourceURI'+--+-- * 'cResourceId'+--+-- * 'cKind'+--+-- * 'cExpiration'+--+-- * 'cToken'+--+-- * 'cAddress'+--+-- * 'cPayload'+--+-- * 'cParams'+--+-- * 'cId'+--+-- * 'cType'+channel+    :: Channel+channel =+    Channel+    { _cResourceURI = Nothing+    , _cResourceId = Nothing+    , _cKind = "api#channel"+    , _cExpiration = Nothing+    , _cToken = Nothing+    , _cAddress = Nothing+    , _cPayload = Nothing+    , _cParams = Nothing+    , _cId = Nothing+    , _cType = Nothing+    }++-- | A version-specific identifier for the watched resource.+cResourceURI :: Lens' Channel (Maybe Text)+cResourceURI+  = lens _cResourceURI (\ s a -> s{_cResourceURI = a})++-- | An opaque ID that identifies the resource being watched on this channel.+-- Stable across different API versions.+cResourceId :: Lens' Channel (Maybe Text)+cResourceId+  = lens _cResourceId (\ s a -> s{_cResourceId = a})++-- | Identifies this as a notification channel used to watch for changes to a+-- resource. Value: the fixed string \"api#channel\".+cKind :: Lens' Channel Text+cKind = lens _cKind (\ s a -> s{_cKind = a})++-- | Date and time of notification channel expiration, expressed as a Unix+-- timestamp, in milliseconds. Optional.+cExpiration :: Lens' Channel (Maybe Int64)+cExpiration+  = lens _cExpiration (\ s a -> s{_cExpiration = a}) .+      mapping _Coerce++-- | An arbitrary string delivered to the target address with each+-- notification delivered over this channel. Optional.+cToken :: Lens' Channel (Maybe Text)+cToken = lens _cToken (\ s a -> s{_cToken = a})++-- | The address where notifications are delivered for this channel.+cAddress :: Lens' Channel (Maybe Text)+cAddress = lens _cAddress (\ s a -> s{_cAddress = a})++-- | A Boolean value to indicate whether payload is wanted. Optional.+cPayload :: Lens' Channel (Maybe Bool)+cPayload = lens _cPayload (\ s a -> s{_cPayload = a})++-- | Additional parameters controlling delivery channel behavior. Optional.+cParams :: Lens' Channel (Maybe ChannelParams)+cParams = lens _cParams (\ s a -> s{_cParams = a})++-- | A UUID or similar unique string that identifies this channel.+cId :: Lens' Channel (Maybe Text)+cId = lens _cId (\ s a -> s{_cId = a})++-- | The type of delivery mechanism used for this channel.+cType :: Lens' Channel (Maybe Text)+cType = lens _cType (\ s a -> s{_cType = a})++instance FromJSON Channel where+        parseJSON+          = withObject "Channel"+              (\ o ->+                 Channel <$>+                   (o .:? "resourceUri") <*> (o .:? "resourceId") <*>+                     (o .:? "kind" .!= "api#channel")+                     <*> (o .:? "expiration")+                     <*> (o .:? "token")+                     <*> (o .:? "address")+                     <*> (o .:? "payload")+                     <*> (o .:? "params")+                     <*> (o .:? "id")+                     <*> (o .:? "type"))++instance ToJSON Channel where+        toJSON Channel{..}+          = object+              (catMaybes+                 [("resourceUri" .=) <$> _cResourceURI,+                  ("resourceId" .=) <$> _cResourceId,+                  Just ("kind" .= _cKind),+                  ("expiration" .=) <$> _cExpiration,+                  ("token" .=) <$> _cToken,+                  ("address" .=) <$> _cAddress,+                  ("payload" .=) <$> _cPayload,+                  ("params" .=) <$> _cParams, ("id" .=) <$> _cId,+                  ("type" .=) <$> _cType])++-- | JSON template for a usage report.+--+-- /See:/ 'usageReport' smart constructor.+data UsageReport = UsageReport+    { _uEtag       :: !(Maybe Text)+    , _uKind       :: !Text+    , _uDate       :: !(Maybe Text)+    , _uParameters :: !(Maybe [UsageReportParametersItem])+    , _uEntity     :: !(Maybe UsageReportEntity)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'UsageReport' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uEtag'+--+-- * 'uKind'+--+-- * 'uDate'+--+-- * 'uParameters'+--+-- * 'uEntity'+usageReport+    :: UsageReport+usageReport =+    UsageReport+    { _uEtag = Nothing+    , _uKind = "admin#reports#usageReport"+    , _uDate = Nothing+    , _uParameters = Nothing+    , _uEntity = Nothing+    }++-- | ETag of the resource.+uEtag :: Lens' UsageReport (Maybe Text)+uEtag = lens _uEtag (\ s a -> s{_uEtag = a})++-- | The kind of object.+uKind :: Lens' UsageReport Text+uKind = lens _uKind (\ s a -> s{_uKind = a})++-- | The date to which the record belongs.+uDate :: Lens' UsageReport (Maybe Text)+uDate = lens _uDate (\ s a -> s{_uDate = a})++-- | Parameter value pairs for various applications.+uParameters :: Lens' UsageReport [UsageReportParametersItem]+uParameters+  = lens _uParameters (\ s a -> s{_uParameters = a}) .+      _Default+      . _Coerce++-- | Information about the type of the item.+uEntity :: Lens' UsageReport (Maybe UsageReportEntity)+uEntity = lens _uEntity (\ s a -> s{_uEntity = a})++instance FromJSON UsageReport where+        parseJSON+          = withObject "UsageReport"+              (\ o ->+                 UsageReport <$>+                   (o .:? "etag") <*>+                     (o .:? "kind" .!= "admin#reports#usageReport")+                     <*> (o .:? "date")+                     <*> (o .:? "parameters" .!= mempty)+                     <*> (o .:? "entity"))++instance ToJSON UsageReport where+        toJSON UsageReport{..}+          = object+              (catMaybes+                 [("etag" .=) <$> _uEtag, Just ("kind" .= _uKind),+                  ("date" .=) <$> _uDate,+                  ("parameters" .=) <$> _uParameters,+                  ("entity" .=) <$> _uEntity])++--+-- /See:/ 'usageReportsWarningsItemDataItem' smart constructor.+data UsageReportsWarningsItemDataItem = UsageReportsWarningsItemDataItem+    { _urwidiValue :: !(Maybe Text)+    , _urwidiKey   :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'UsageReportsWarningsItemDataItem' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urwidiValue'+--+-- * 'urwidiKey'+usageReportsWarningsItemDataItem+    :: UsageReportsWarningsItemDataItem+usageReportsWarningsItemDataItem =+    UsageReportsWarningsItemDataItem+    { _urwidiValue = Nothing+    , _urwidiKey = Nothing+    }++-- | Value associated with a key-value pair to give detailed information on+-- the warning.+urwidiValue :: Lens' UsageReportsWarningsItemDataItem (Maybe Text)+urwidiValue+  = lens _urwidiValue (\ s a -> s{_urwidiValue = a})++-- | Key associated with a key-value pair to give detailed information on the+-- warning.+urwidiKey :: Lens' UsageReportsWarningsItemDataItem (Maybe Text)+urwidiKey+  = lens _urwidiKey (\ s a -> s{_urwidiKey = a})++instance FromJSON UsageReportsWarningsItemDataItem+         where+        parseJSON+          = withObject "UsageReportsWarningsItemDataItem"+              (\ o ->+                 UsageReportsWarningsItemDataItem <$>+                   (o .:? "value") <*> (o .:? "key"))++instance ToJSON UsageReportsWarningsItemDataItem+         where+        toJSON UsageReportsWarningsItemDataItem{..}+          = object+              (catMaybes+                 [("value" .=) <$> _urwidiValue,+                  ("key" .=) <$> _urwidiKey])++--+-- /See:/ 'usageReportsWarningsItem' smart constructor.+data UsageReportsWarningsItem = UsageReportsWarningsItem+    { _urwiData    :: !(Maybe [UsageReportsWarningsItemDataItem])+    , _urwiCode    :: !(Maybe Text)+    , _urwiMessage :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'UsageReportsWarningsItem' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urwiData'+--+-- * 'urwiCode'+--+-- * 'urwiMessage'+usageReportsWarningsItem+    :: UsageReportsWarningsItem+usageReportsWarningsItem =+    UsageReportsWarningsItem+    { _urwiData = Nothing+    , _urwiCode = Nothing+    , _urwiMessage = Nothing+    }++-- | Key-Value pairs to give detailed information on the warning.+urwiData :: Lens' UsageReportsWarningsItem [UsageReportsWarningsItemDataItem]+urwiData+  = lens _urwiData (\ s a -> s{_urwiData = a}) .+      _Default+      . _Coerce++-- | Machine readable code \/ warning type.+urwiCode :: Lens' UsageReportsWarningsItem (Maybe Text)+urwiCode = lens _urwiCode (\ s a -> s{_urwiCode = a})++-- | Human readable message for the warning.+urwiMessage :: Lens' UsageReportsWarningsItem (Maybe Text)+urwiMessage+  = lens _urwiMessage (\ s a -> s{_urwiMessage = a})++instance FromJSON UsageReportsWarningsItem where+        parseJSON+          = withObject "UsageReportsWarningsItem"+              (\ o ->+                 UsageReportsWarningsItem <$>+                   (o .:? "data" .!= mempty) <*> (o .:? "code") <*>+                     (o .:? "message"))++instance ToJSON UsageReportsWarningsItem where+        toJSON UsageReportsWarningsItem{..}+          = object+              (catMaybes+                 [("data" .=) <$> _urwiData,+                  ("code" .=) <$> _urwiCode,+                  ("message" .=) <$> _urwiMessage])++--+-- /See:/ 'activityEventsItem' smart constructor.+data ActivityEventsItem = ActivityEventsItem+    { _aeiName       :: !(Maybe Text)+    , _aeiParameters :: !(Maybe [ActivityEventsItemParametersItem])+    , _aeiType       :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ActivityEventsItem' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aeiName'+--+-- * 'aeiParameters'+--+-- * 'aeiType'+activityEventsItem+    :: ActivityEventsItem+activityEventsItem =+    ActivityEventsItem+    { _aeiName = Nothing+    , _aeiParameters = Nothing+    , _aeiType = Nothing+    }++-- | Name of event.+aeiName :: Lens' ActivityEventsItem (Maybe Text)+aeiName = lens _aeiName (\ s a -> s{_aeiName = a})++-- | Parameter value pairs for various applications.+aeiParameters :: Lens' ActivityEventsItem [ActivityEventsItemParametersItem]+aeiParameters+  = lens _aeiParameters+      (\ s a -> s{_aeiParameters = a})+      . _Default+      . _Coerce++-- | Type of event.+aeiType :: Lens' ActivityEventsItem (Maybe Text)+aeiType = lens _aeiType (\ s a -> s{_aeiType = a})++instance FromJSON ActivityEventsItem where+        parseJSON+          = withObject "ActivityEventsItem"+              (\ o ->+                 ActivityEventsItem <$>+                   (o .:? "name") <*> (o .:? "parameters" .!= mempty)+                     <*> (o .:? "type"))++instance ToJSON ActivityEventsItem where+        toJSON ActivityEventsItem{..}+          = object+              (catMaybes+                 [("name" .=) <$> _aeiName,+                  ("parameters" .=) <$> _aeiParameters,+                  ("type" .=) <$> _aeiType])++-- | Additional parameters controlling delivery channel behavior. Optional.+--+-- /See:/ 'channelParams' smart constructor.+newtype ChannelParams = ChannelParams+    { _cpAddtional :: HashMap Text Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ChannelParams' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpAddtional'+channelParams+    :: HashMap Text Text -- ^ 'cpAddtional'+    -> ChannelParams+channelParams pCpAddtional_ =+    ChannelParams+    { _cpAddtional = _Coerce # pCpAddtional_+    }++-- | Declares a new parameter by name.+cpAddtional :: Lens' ChannelParams (HashMap Text Text)+cpAddtional+  = lens _cpAddtional (\ s a -> s{_cpAddtional = a}) .+      _Coerce++instance FromJSON ChannelParams where+        parseJSON+          = withObject "ChannelParams"+              (\ o -> ChannelParams <$> (parseJSONObject o))++instance ToJSON ChannelParams where+        toJSON = toJSON . _cpAddtional++-- | JSON template for the activity resource.+--+-- /See:/ 'activity' smart constructor.+data Activity = Activity+    { _actEtag        :: !(Maybe Text)+    , _actIPAddress   :: !(Maybe Text)+    , _actKind        :: !Text+    , _actActor       :: !(Maybe ActivityActor)+    , _actOwnerDomain :: !(Maybe Text)+    , _actEvents      :: !(Maybe [ActivityEventsItem])+    , _actId          :: !(Maybe ActivityId)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'Activity' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'actEtag'+--+-- * 'actIPAddress'+--+-- * 'actKind'+--+-- * 'actActor'+--+-- * 'actOwnerDomain'+--+-- * 'actEvents'+--+-- * 'actId'+activity+    :: Activity+activity =+    Activity+    { _actEtag = Nothing+    , _actIPAddress = Nothing+    , _actKind = "admin#reports#activity"+    , _actActor = Nothing+    , _actOwnerDomain = Nothing+    , _actEvents = Nothing+    , _actId = Nothing+    }++-- | ETag of the entry.+actEtag :: Lens' Activity (Maybe Text)+actEtag = lens _actEtag (\ s a -> s{_actEtag = a})++-- | IP Address of the user doing the action.+actIPAddress :: Lens' Activity (Maybe Text)+actIPAddress+  = lens _actIPAddress (\ s a -> s{_actIPAddress = a})++-- | Kind of resource this is.+actKind :: Lens' Activity Text+actKind = lens _actKind (\ s a -> s{_actKind = a})++-- | User doing the action.+actActor :: Lens' Activity (Maybe ActivityActor)+actActor = lens _actActor (\ s a -> s{_actActor = a})++-- | Domain of source customer.+actOwnerDomain :: Lens' Activity (Maybe Text)+actOwnerDomain+  = lens _actOwnerDomain+      (\ s a -> s{_actOwnerDomain = a})++-- | Activity events.+actEvents :: Lens' Activity [ActivityEventsItem]+actEvents+  = lens _actEvents (\ s a -> s{_actEvents = a}) .+      _Default+      . _Coerce++-- | Unique identifier for each activity record.+actId :: Lens' Activity (Maybe ActivityId)+actId = lens _actId (\ s a -> s{_actId = a})++instance FromJSON Activity where+        parseJSON+          = withObject "Activity"+              (\ o ->+                 Activity <$>+                   (o .:? "etag") <*> (o .:? "ipAddress") <*>+                     (o .:? "kind" .!= "admin#reports#activity")+                     <*> (o .:? "actor")+                     <*> (o .:? "ownerDomain")+                     <*> (o .:? "events" .!= mempty)+                     <*> (o .:? "id"))++instance ToJSON Activity where+        toJSON Activity{..}+          = object+              (catMaybes+                 [("etag" .=) <$> _actEtag,+                  ("ipAddress" .=) <$> _actIPAddress,+                  Just ("kind" .= _actKind),+                  ("actor" .=) <$> _actActor,+                  ("ownerDomain" .=) <$> _actOwnerDomain,+                  ("events" .=) <$> _actEvents, ("id" .=) <$> _actId])++-- | Information about the type of the item.+--+-- /See:/ 'usageReportEntity' smart constructor.+data UsageReportEntity = UsageReportEntity+    { _ureProFileId  :: !(Maybe Text)+    , _ureCustomerId :: !(Maybe Text)+    , _ureUserEmail  :: !(Maybe Text)+    , _ureType       :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'UsageReportEntity' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ureProFileId'+--+-- * 'ureCustomerId'+--+-- * 'ureUserEmail'+--+-- * 'ureType'+usageReportEntity+    :: UsageReportEntity+usageReportEntity =+    UsageReportEntity+    { _ureProFileId = Nothing+    , _ureCustomerId = Nothing+    , _ureUserEmail = Nothing+    , _ureType = Nothing+    }++-- | Obfuscated user id for the record.+ureProFileId :: Lens' UsageReportEntity (Maybe Text)+ureProFileId+  = lens _ureProFileId (\ s a -> s{_ureProFileId = a})++-- | Obfuscated customer id for the record.+ureCustomerId :: Lens' UsageReportEntity (Maybe Text)+ureCustomerId+  = lens _ureCustomerId+      (\ s a -> s{_ureCustomerId = a})++-- | user\'s email.+ureUserEmail :: Lens' UsageReportEntity (Maybe Text)+ureUserEmail+  = lens _ureUserEmail (\ s a -> s{_ureUserEmail = a})++-- | The type of item, can be a customer or user.+ureType :: Lens' UsageReportEntity (Maybe Text)+ureType = lens _ureType (\ s a -> s{_ureType = a})++instance FromJSON UsageReportEntity where+        parseJSON+          = withObject "UsageReportEntity"+              (\ o ->+                 UsageReportEntity <$>+                   (o .:? "profileId") <*> (o .:? "customerId") <*>+                     (o .:? "userEmail")+                     <*> (o .:? "type"))++instance ToJSON UsageReportEntity where+        toJSON UsageReportEntity{..}+          = object+              (catMaybes+                 [("profileId" .=) <$> _ureProFileId,+                  ("customerId" .=) <$> _ureCustomerId,+                  ("userEmail" .=) <$> _ureUserEmail,+                  ("type" .=) <$> _ureType])++--+-- /See:/ 'activityEventsItemParametersItem' smart constructor.+data ActivityEventsItemParametersItem = ActivityEventsItemParametersItem+    { _aeipiBoolValue     :: !(Maybe Bool)+    , _aeipiIntValue      :: !(Maybe (Textual Int64))+    , _aeipiValue         :: !(Maybe Text)+    , _aeipiMultiIntValue :: !(Maybe [Textual Int64])+    , _aeipiName          :: !(Maybe Text)+    , _aeipiMultiValue    :: !(Maybe [Text])+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ActivityEventsItemParametersItem' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aeipiBoolValue'+--+-- * 'aeipiIntValue'+--+-- * 'aeipiValue'+--+-- * 'aeipiMultiIntValue'+--+-- * 'aeipiName'+--+-- * 'aeipiMultiValue'+activityEventsItemParametersItem+    :: ActivityEventsItemParametersItem+activityEventsItemParametersItem =+    ActivityEventsItemParametersItem+    { _aeipiBoolValue = Nothing+    , _aeipiIntValue = Nothing+    , _aeipiValue = Nothing+    , _aeipiMultiIntValue = Nothing+    , _aeipiName = Nothing+    , _aeipiMultiValue = Nothing+    }++-- | Boolean value of the parameter.+aeipiBoolValue :: Lens' ActivityEventsItemParametersItem (Maybe Bool)+aeipiBoolValue+  = lens _aeipiBoolValue+      (\ s a -> s{_aeipiBoolValue = a})++-- | Integral value of the parameter.+aeipiIntValue :: Lens' ActivityEventsItemParametersItem (Maybe Int64)+aeipiIntValue+  = lens _aeipiIntValue+      (\ s a -> s{_aeipiIntValue = a})+      . mapping _Coerce++-- | String value of the parameter.+aeipiValue :: Lens' ActivityEventsItemParametersItem (Maybe Text)+aeipiValue+  = lens _aeipiValue (\ s a -> s{_aeipiValue = a})++-- | Multi-int value of the parameter.+aeipiMultiIntValue :: Lens' ActivityEventsItemParametersItem [Int64]+aeipiMultiIntValue+  = lens _aeipiMultiIntValue+      (\ s a -> s{_aeipiMultiIntValue = a})+      . _Default+      . _Coerce++-- | The name of the parameter.+aeipiName :: Lens' ActivityEventsItemParametersItem (Maybe Text)+aeipiName+  = lens _aeipiName (\ s a -> s{_aeipiName = a})++-- | Multi-string value of the parameter.+aeipiMultiValue :: Lens' ActivityEventsItemParametersItem [Text]+aeipiMultiValue+  = lens _aeipiMultiValue+      (\ s a -> s{_aeipiMultiValue = a})+      . _Default+      . _Coerce++instance FromJSON ActivityEventsItemParametersItem+         where+        parseJSON+          = withObject "ActivityEventsItemParametersItem"+              (\ o ->+                 ActivityEventsItemParametersItem <$>+                   (o .:? "boolValue") <*> (o .:? "intValue") <*>+                     (o .:? "value")+                     <*> (o .:? "multiIntValue" .!= mempty)+                     <*> (o .:? "name")+                     <*> (o .:? "multiValue" .!= mempty))++instance ToJSON ActivityEventsItemParametersItem+         where+        toJSON ActivityEventsItemParametersItem{..}+          = object+              (catMaybes+                 [("boolValue" .=) <$> _aeipiBoolValue,+                  ("intValue" .=) <$> _aeipiIntValue,+                  ("value" .=) <$> _aeipiValue,+                  ("multiIntValue" .=) <$> _aeipiMultiIntValue,+                  ("name" .=) <$> _aeipiName,+                  ("multiValue" .=) <$> _aeipiMultiValue])++-- | User doing the action.+--+-- /See:/ 'activityActor' smart constructor.+data ActivityActor = ActivityActor+    { _aaEmail      :: !(Maybe Text)+    , _aaCallerType :: !(Maybe Text)+    , _aaProFileId  :: !(Maybe Text)+    , _aaKey        :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ActivityActor' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aaEmail'+--+-- * 'aaCallerType'+--+-- * 'aaProFileId'+--+-- * 'aaKey'+activityActor+    :: ActivityActor+activityActor =+    ActivityActor+    { _aaEmail = Nothing+    , _aaCallerType = Nothing+    , _aaProFileId = Nothing+    , _aaKey = Nothing+    }++-- | Email address of the user.+aaEmail :: Lens' ActivityActor (Maybe Text)+aaEmail = lens _aaEmail (\ s a -> s{_aaEmail = a})++-- | User or OAuth 2LO request.+aaCallerType :: Lens' ActivityActor (Maybe Text)+aaCallerType+  = lens _aaCallerType (\ s a -> s{_aaCallerType = a})++-- | Obfuscated user id of the user.+aaProFileId :: Lens' ActivityActor (Maybe Text)+aaProFileId+  = lens _aaProFileId (\ s a -> s{_aaProFileId = a})++-- | For OAuth 2LO API requests, consumer_key of the requestor.+aaKey :: Lens' ActivityActor (Maybe Text)+aaKey = lens _aaKey (\ s a -> s{_aaKey = a})++instance FromJSON ActivityActor where+        parseJSON+          = withObject "ActivityActor"+              (\ o ->+                 ActivityActor <$>+                   (o .:? "email") <*> (o .:? "callerType") <*>+                     (o .:? "profileId")+                     <*> (o .:? "key"))++instance ToJSON ActivityActor where+        toJSON ActivityActor{..}+          = object+              (catMaybes+                 [("email" .=) <$> _aaEmail,+                  ("callerType" .=) <$> _aaCallerType,+                  ("profileId" .=) <$> _aaProFileId,+                  ("key" .=) <$> _aaKey])

@@ -0,0 +1,19 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE LambdaCase         #-}+{-# LANGUAGE NoImplicitPrelude  #-}+{-# LANGUAGE OverloadedStrings  #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Network.Google.Reports.Types.Sum+-- Copyright   : (c) 2015 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.Reports.Types.Sum where++import           Network.Google.Prelude

@@ -0,0 +1,86 @@+{-# 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.Admin.Channels.Stop+-- Copyright   : (c) 2015 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)+--+-- Stop watching resources through this channel+--+-- /See:/ <https://developers.google.com/admin-sdk/reports/ Admin Reports API Reference> for @admin.channels.stop@.+module Network.Google.Resource.Admin.Channels.Stop+    (+    -- * REST Resource+      ChannelsStopResource++    -- * Creating a Request+    , channelsStop+    , ChannelsStop++    -- * Request Lenses+    , csPayload+    ) where++import           Network.Google.Prelude+import           Network.Google.Reports.Types++-- | A resource alias for @admin.channels.stop@ method which the+-- 'ChannelsStop' request conforms to.+type ChannelsStopResource =+     "admin" :>+       "reports" :>+         "v1" :>+           "admin" :>+             "reports_v1" :>+               "channels" :>+                 "stop" :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] Channel :> Post '[JSON] ()++-- | Stop watching resources through this channel+--+-- /See:/ 'channelsStop' smart constructor.+newtype ChannelsStop = ChannelsStop+    { _csPayload :: Channel+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ChannelsStop' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csPayload'+channelsStop+    :: Channel -- ^ 'csPayload'+    -> ChannelsStop+channelsStop pCsPayload_ =+    ChannelsStop+    { _csPayload = pCsPayload_+    }++-- | Multipart request metadata.+csPayload :: Lens' ChannelsStop Channel+csPayload+  = lens _csPayload (\ s a -> s{_csPayload = a})++instance GoogleRequest ChannelsStop where+        type Rs ChannelsStop = ()+        requestClient ChannelsStop{..}+          = go (Just AltJSON) _csPayload reportsService+          where go+                  = buildClient (Proxy :: Proxy ChannelsStopResource)+                      mempty

@@ -0,0 +1,202 @@+{-# 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.Reports.Activities.List+-- Copyright   : (c) 2015 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)+--+-- Retrieves a list of activities for a specific customer and application.+--+-- /See:/ <https://developers.google.com/admin-sdk/reports/ Admin Reports API Reference> for @reports.activities.list@.+module Network.Google.Resource.Reports.Activities.List+    (+    -- * REST Resource+      ActivitiesListResource++    -- * Creating a Request+    , activitiesList+    , ActivitiesList++    -- * Request Lenses+    , alStartTime+    , alFilters+    , alCustomerId+    , alActorIPAddress+    , alEndTime+    , alApplicationName+    , alPageToken+    , alEventName+    , alUserKey+    , alMaxResults+    ) where++import           Network.Google.Prelude+import           Network.Google.Reports.Types++-- | A resource alias for @reports.activities.list@ method which the+-- 'ActivitiesList' request conforms to.+type ActivitiesListResource =+     "admin" :>+       "reports" :>+         "v1" :>+           "activity" :>+             "users" :>+               Capture "userKey" Text :>+                 "applications" :>+                   Capture "applicationName" Text :>+                     QueryParam "startTime" Text :>+                       QueryParam "filters" Text :>+                         QueryParam "customerId" Text :>+                           QueryParam "actorIpAddress" Text :>+                             QueryParam "endTime" Text :>+                               QueryParam "pageToken" Text :>+                                 QueryParam "eventName" Text :>+                                   QueryParam "maxResults" (Textual Int32) :>+                                     QueryParam "alt" AltJSON :>+                                       Get '[JSON] Activities++-- | Retrieves a list of activities for a specific customer and application.+--+-- /See:/ 'activitiesList' smart constructor.+data ActivitiesList = ActivitiesList+    { _alStartTime       :: !(Maybe Text)+    , _alFilters         :: !(Maybe Text)+    , _alCustomerId      :: !(Maybe Text)+    , _alActorIPAddress  :: !(Maybe Text)+    , _alEndTime         :: !(Maybe Text)+    , _alApplicationName :: !Text+    , _alPageToken       :: !(Maybe Text)+    , _alEventName       :: !(Maybe Text)+    , _alUserKey         :: !Text+    , _alMaxResults      :: !(Maybe (Textual Int32))+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ActivitiesList' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'alStartTime'+--+-- * 'alFilters'+--+-- * 'alCustomerId'+--+-- * 'alActorIPAddress'+--+-- * 'alEndTime'+--+-- * 'alApplicationName'+--+-- * 'alPageToken'+--+-- * 'alEventName'+--+-- * 'alUserKey'+--+-- * 'alMaxResults'+activitiesList+    :: Text -- ^ 'alApplicationName'+    -> Text -- ^ 'alUserKey'+    -> ActivitiesList+activitiesList pAlApplicationName_ pAlUserKey_ =+    ActivitiesList+    { _alStartTime = Nothing+    , _alFilters = Nothing+    , _alCustomerId = Nothing+    , _alActorIPAddress = Nothing+    , _alEndTime = Nothing+    , _alApplicationName = pAlApplicationName_+    , _alPageToken = Nothing+    , _alEventName = Nothing+    , _alUserKey = pAlUserKey_+    , _alMaxResults = Nothing+    }++-- | Return events which occured at or after this time.+alStartTime :: Lens' ActivitiesList (Maybe Text)+alStartTime+  = lens _alStartTime (\ s a -> s{_alStartTime = a})++-- | Event parameters in the form [parameter1 name][operator][parameter1+-- value],[parameter2 name][operator][parameter2 value],...+alFilters :: Lens' ActivitiesList (Maybe Text)+alFilters+  = lens _alFilters (\ s a -> s{_alFilters = a})++-- | Represents the customer for which the data is to be fetched.+alCustomerId :: Lens' ActivitiesList (Maybe Text)+alCustomerId+  = lens _alCustomerId (\ s a -> s{_alCustomerId = a})++-- | IP Address of host where the event was performed. Supports both IPv4 and+-- IPv6 addresses.+alActorIPAddress :: Lens' ActivitiesList (Maybe Text)+alActorIPAddress+  = lens _alActorIPAddress+      (\ s a -> s{_alActorIPAddress = a})++-- | Return events which occured at or before this time.+alEndTime :: Lens' ActivitiesList (Maybe Text)+alEndTime+  = lens _alEndTime (\ s a -> s{_alEndTime = a})++-- | Application name for which the events are to be retrieved.+alApplicationName :: Lens' ActivitiesList Text+alApplicationName+  = lens _alApplicationName+      (\ s a -> s{_alApplicationName = a})++-- | Token to specify next page.+alPageToken :: Lens' ActivitiesList (Maybe Text)+alPageToken+  = lens _alPageToken (\ s a -> s{_alPageToken = a})++-- | Name of the event being queried.+alEventName :: Lens' ActivitiesList (Maybe Text)+alEventName+  = lens _alEventName (\ s a -> s{_alEventName = a})++-- | Represents the profile id or the user email for which the data should be+-- filtered. When \'all\' is specified as the userKey, it returns+-- usageReports for all users.+alUserKey :: Lens' ActivitiesList Text+alUserKey+  = lens _alUserKey (\ s a -> s{_alUserKey = a})++-- | Number of activity records to be shown in each page.+alMaxResults :: Lens' ActivitiesList (Maybe Int32)+alMaxResults+  = lens _alMaxResults (\ s a -> s{_alMaxResults = a})+      . mapping _Coerce++instance GoogleRequest ActivitiesList where+        type Rs ActivitiesList = Activities+        requestClient ActivitiesList{..}+          = go _alUserKey _alApplicationName _alStartTime+              _alFilters+              _alCustomerId+              _alActorIPAddress+              _alEndTime+              _alPageToken+              _alEventName+              _alMaxResults+              (Just AltJSON)+              reportsService+          where go+                  = buildClient (Proxy :: Proxy ActivitiesListResource)+                      mempty

@@ -0,0 +1,217 @@+{-# 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.Reports.Activities.Watch+-- Copyright   : (c) 2015 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)+--+-- Push changes to activities+--+-- /See:/ <https://developers.google.com/admin-sdk/reports/ Admin Reports API Reference> for @reports.activities.watch@.+module Network.Google.Resource.Reports.Activities.Watch+    (+    -- * REST Resource+      ActivitiesWatchResource++    -- * Creating a Request+    , activitiesWatch+    , ActivitiesWatch++    -- * Request Lenses+    , awStartTime+    , awFilters+    , awPayload+    , awCustomerId+    , awActorIPAddress+    , awEndTime+    , awApplicationName+    , awPageToken+    , awEventName+    , awUserKey+    , awMaxResults+    ) where++import           Network.Google.Prelude+import           Network.Google.Reports.Types++-- | A resource alias for @reports.activities.watch@ method which the+-- 'ActivitiesWatch' request conforms to.+type ActivitiesWatchResource =+     "admin" :>+       "reports" :>+         "v1" :>+           "activity" :>+             "users" :>+               Capture "userKey" Text :>+                 "applications" :>+                   Capture "applicationName" Text :>+                     "watch" :>+                       QueryParam "startTime" Text :>+                         QueryParam "filters" Text :>+                           QueryParam "customerId" Text :>+                             QueryParam "actorIpAddress" Text :>+                               QueryParam "endTime" Text :>+                                 QueryParam "pageToken" Text :>+                                   QueryParam "eventName" Text :>+                                     QueryParam "maxResults" (Textual Int32) :>+                                       QueryParam "alt" AltJSON :>+                                         ReqBody '[JSON] Channel :>+                                           Post '[JSON] Channel++-- | Push changes to activities+--+-- /See:/ 'activitiesWatch' smart constructor.+data ActivitiesWatch = ActivitiesWatch+    { _awStartTime       :: !(Maybe Text)+    , _awFilters         :: !(Maybe Text)+    , _awPayload         :: !Channel+    , _awCustomerId      :: !(Maybe Text)+    , _awActorIPAddress  :: !(Maybe Text)+    , _awEndTime         :: !(Maybe Text)+    , _awApplicationName :: !Text+    , _awPageToken       :: !(Maybe Text)+    , _awEventName       :: !(Maybe Text)+    , _awUserKey         :: !Text+    , _awMaxResults      :: !(Maybe (Textual Int32))+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ActivitiesWatch' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'awStartTime'+--+-- * 'awFilters'+--+-- * 'awPayload'+--+-- * 'awCustomerId'+--+-- * 'awActorIPAddress'+--+-- * 'awEndTime'+--+-- * 'awApplicationName'+--+-- * 'awPageToken'+--+-- * 'awEventName'+--+-- * 'awUserKey'+--+-- * 'awMaxResults'+activitiesWatch+    :: Channel -- ^ 'awPayload'+    -> Text -- ^ 'awApplicationName'+    -> Text -- ^ 'awUserKey'+    -> ActivitiesWatch+activitiesWatch pAwPayload_ pAwApplicationName_ pAwUserKey_ =+    ActivitiesWatch+    { _awStartTime = Nothing+    , _awFilters = Nothing+    , _awPayload = pAwPayload_+    , _awCustomerId = Nothing+    , _awActorIPAddress = Nothing+    , _awEndTime = Nothing+    , _awApplicationName = pAwApplicationName_+    , _awPageToken = Nothing+    , _awEventName = Nothing+    , _awUserKey = pAwUserKey_+    , _awMaxResults = Nothing+    }++-- | Return events which occured at or after this time.+awStartTime :: Lens' ActivitiesWatch (Maybe Text)+awStartTime+  = lens _awStartTime (\ s a -> s{_awStartTime = a})++-- | Event parameters in the form [parameter1 name][operator][parameter1+-- value],[parameter2 name][operator][parameter2 value],...+awFilters :: Lens' ActivitiesWatch (Maybe Text)+awFilters+  = lens _awFilters (\ s a -> s{_awFilters = a})++-- | Multipart request metadata.+awPayload :: Lens' ActivitiesWatch Channel+awPayload+  = lens _awPayload (\ s a -> s{_awPayload = a})++-- | Represents the customer for which the data is to be fetched.+awCustomerId :: Lens' ActivitiesWatch (Maybe Text)+awCustomerId+  = lens _awCustomerId (\ s a -> s{_awCustomerId = a})++-- | IP Address of host where the event was performed. Supports both IPv4 and+-- IPv6 addresses.+awActorIPAddress :: Lens' ActivitiesWatch (Maybe Text)+awActorIPAddress+  = lens _awActorIPAddress+      (\ s a -> s{_awActorIPAddress = a})++-- | Return events which occured at or before this time.+awEndTime :: Lens' ActivitiesWatch (Maybe Text)+awEndTime+  = lens _awEndTime (\ s a -> s{_awEndTime = a})++-- | Application name for which the events are to be retrieved.+awApplicationName :: Lens' ActivitiesWatch Text+awApplicationName+  = lens _awApplicationName+      (\ s a -> s{_awApplicationName = a})++-- | Token to specify next page.+awPageToken :: Lens' ActivitiesWatch (Maybe Text)+awPageToken+  = lens _awPageToken (\ s a -> s{_awPageToken = a})++-- | Name of the event being queried.+awEventName :: Lens' ActivitiesWatch (Maybe Text)+awEventName+  = lens _awEventName (\ s a -> s{_awEventName = a})++-- | Represents the profile id or the user email for which the data should be+-- filtered. When \'all\' is specified as the userKey, it returns+-- usageReports for all users.+awUserKey :: Lens' ActivitiesWatch Text+awUserKey+  = lens _awUserKey (\ s a -> s{_awUserKey = a})++-- | Number of activity records to be shown in each page.+awMaxResults :: Lens' ActivitiesWatch (Maybe Int32)+awMaxResults+  = lens _awMaxResults (\ s a -> s{_awMaxResults = a})+      . mapping _Coerce++instance GoogleRequest ActivitiesWatch where+        type Rs ActivitiesWatch = Channel+        requestClient ActivitiesWatch{..}+          = go _awUserKey _awApplicationName _awStartTime+              _awFilters+              _awCustomerId+              _awActorIPAddress+              _awEndTime+              _awPageToken+              _awEventName+              _awMaxResults+              (Just AltJSON)+              _awPayload+              reportsService+          where go+                  = buildClient+                      (Proxy :: Proxy ActivitiesWatchResource)+                      mempty

@@ -0,0 +1,127 @@+{-# 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.Reports.CustomerUsageReports.Get+-- Copyright   : (c) 2015 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)+--+-- Retrieves a report which is a collection of properties \/ statistics for+-- a specific customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/reports/ Admin Reports API Reference> for @reports.customerUsageReports.get@.+module Network.Google.Resource.Reports.CustomerUsageReports.Get+    (+    -- * REST Resource+      CustomerUsageReportsGetResource++    -- * Creating a Request+    , customerUsageReportsGet+    , CustomerUsageReportsGet++    -- * Request Lenses+    , curgCustomerId+    , curgDate+    , curgParameters+    , curgPageToken+    ) where++import           Network.Google.Prelude+import           Network.Google.Reports.Types++-- | A resource alias for @reports.customerUsageReports.get@ method which the+-- 'CustomerUsageReportsGet' request conforms to.+type CustomerUsageReportsGetResource =+     "admin" :>+       "reports" :>+         "v1" :>+           "usage" :>+             "dates" :>+               Capture "date" Text :>+                 QueryParam "customerId" Text :>+                   QueryParam "parameters" Text :>+                     QueryParam "pageToken" Text :>+                       QueryParam "alt" AltJSON :> Get '[JSON] UsageReports++-- | Retrieves a report which is a collection of properties \/ statistics for+-- a specific customer.+--+-- /See:/ 'customerUsageReportsGet' smart constructor.+data CustomerUsageReportsGet = CustomerUsageReportsGet+    { _curgCustomerId :: !(Maybe Text)+    , _curgDate       :: !Text+    , _curgParameters :: !(Maybe Text)+    , _curgPageToken  :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'CustomerUsageReportsGet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'curgCustomerId'+--+-- * 'curgDate'+--+-- * 'curgParameters'+--+-- * 'curgPageToken'+customerUsageReportsGet+    :: Text -- ^ 'curgDate'+    -> CustomerUsageReportsGet+customerUsageReportsGet pCurgDate_ =+    CustomerUsageReportsGet+    { _curgCustomerId = Nothing+    , _curgDate = pCurgDate_+    , _curgParameters = Nothing+    , _curgPageToken = Nothing+    }++-- | Represents the customer for which the data is to be fetched.+curgCustomerId :: Lens' CustomerUsageReportsGet (Maybe Text)+curgCustomerId+  = lens _curgCustomerId+      (\ s a -> s{_curgCustomerId = a})++-- | Represents the date in yyyy-mm-dd format for which the data is to be+-- fetched.+curgDate :: Lens' CustomerUsageReportsGet Text+curgDate = lens _curgDate (\ s a -> s{_curgDate = a})++-- | Represents the application name, parameter name pairs to fetch in csv as+-- app_name1:param_name1, app_name2:param_name2.+curgParameters :: Lens' CustomerUsageReportsGet (Maybe Text)+curgParameters+  = lens _curgParameters+      (\ s a -> s{_curgParameters = a})++-- | Token to specify next page.+curgPageToken :: Lens' CustomerUsageReportsGet (Maybe Text)+curgPageToken+  = lens _curgPageToken+      (\ s a -> s{_curgPageToken = a})++instance GoogleRequest CustomerUsageReportsGet where+        type Rs CustomerUsageReportsGet = UsageReports+        requestClient CustomerUsageReportsGet{..}+          = go _curgDate _curgCustomerId _curgParameters+              _curgPageToken+              (Just AltJSON)+              reportsService+          where go+                  = buildClient+                      (Proxy :: Proxy CustomerUsageReportsGetResource)+                      mempty

@@ -0,0 +1,169 @@+{-# 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.Reports.UserUsageReport.Get+-- Copyright   : (c) 2015 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)+--+-- Retrieves a report which is a collection of properties \/ statistics for+-- a set of users.+--+-- /See:/ <https://developers.google.com/admin-sdk/reports/ Admin Reports API Reference> for @reports.userUsageReport.get@.+module Network.Google.Resource.Reports.UserUsageReport.Get+    (+    -- * REST Resource+      UserUsageReportGetResource++    -- * Creating a Request+    , userUsageReportGet+    , UserUsageReportGet++    -- * Request Lenses+    , uurgFilters+    , uurgCustomerId+    , uurgDate+    , uurgParameters+    , uurgPageToken+    , uurgUserKey+    , uurgMaxResults+    ) where++import           Network.Google.Prelude+import           Network.Google.Reports.Types++-- | A resource alias for @reports.userUsageReport.get@ method which the+-- 'UserUsageReportGet' request conforms to.+type UserUsageReportGetResource =+     "admin" :>+       "reports" :>+         "v1" :>+           "usage" :>+             "users" :>+               Capture "userKey" Text :>+                 "dates" :>+                   Capture "date" Text :>+                     QueryParam "filters" Text :>+                       QueryParam "customerId" Text :>+                         QueryParam "parameters" Text :>+                           QueryParam "pageToken" Text :>+                             QueryParam "maxResults" (Textual Word32) :>+                               QueryParam "alt" AltJSON :>+                                 Get '[JSON] UsageReports++-- | Retrieves a report which is a collection of properties \/ statistics for+-- a set of users.+--+-- /See:/ 'userUsageReportGet' smart constructor.+data UserUsageReportGet = UserUsageReportGet+    { _uurgFilters    :: !(Maybe Text)+    , _uurgCustomerId :: !(Maybe Text)+    , _uurgDate       :: !Text+    , _uurgParameters :: !(Maybe Text)+    , _uurgPageToken  :: !(Maybe Text)+    , _uurgUserKey    :: !Text+    , _uurgMaxResults :: !(Maybe (Textual Word32))+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'UserUsageReportGet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uurgFilters'+--+-- * 'uurgCustomerId'+--+-- * 'uurgDate'+--+-- * 'uurgParameters'+--+-- * 'uurgPageToken'+--+-- * 'uurgUserKey'+--+-- * 'uurgMaxResults'+userUsageReportGet+    :: Text -- ^ 'uurgDate'+    -> Text -- ^ 'uurgUserKey'+    -> UserUsageReportGet+userUsageReportGet pUurgDate_ pUurgUserKey_ =+    UserUsageReportGet+    { _uurgFilters = Nothing+    , _uurgCustomerId = Nothing+    , _uurgDate = pUurgDate_+    , _uurgParameters = Nothing+    , _uurgPageToken = Nothing+    , _uurgUserKey = pUurgUserKey_+    , _uurgMaxResults = Nothing+    }++-- | Represents the set of filters including parameter operator value.+uurgFilters :: Lens' UserUsageReportGet (Maybe Text)+uurgFilters+  = lens _uurgFilters (\ s a -> s{_uurgFilters = a})++-- | Represents the customer for which the data is to be fetched.+uurgCustomerId :: Lens' UserUsageReportGet (Maybe Text)+uurgCustomerId+  = lens _uurgCustomerId+      (\ s a -> s{_uurgCustomerId = a})++-- | Represents the date in yyyy-mm-dd format for which the data is to be+-- fetched.+uurgDate :: Lens' UserUsageReportGet Text+uurgDate = lens _uurgDate (\ s a -> s{_uurgDate = a})++-- | Represents the application name, parameter name pairs to fetch in csv as+-- app_name1:param_name1, app_name2:param_name2.+uurgParameters :: Lens' UserUsageReportGet (Maybe Text)+uurgParameters+  = lens _uurgParameters+      (\ s a -> s{_uurgParameters = a})++-- | Token to specify next page.+uurgPageToken :: Lens' UserUsageReportGet (Maybe Text)+uurgPageToken+  = lens _uurgPageToken+      (\ s a -> s{_uurgPageToken = a})++-- | Represents the profile id or the user email for which the data should be+-- filtered.+uurgUserKey :: Lens' UserUsageReportGet Text+uurgUserKey+  = lens _uurgUserKey (\ s a -> s{_uurgUserKey = a})++-- | Maximum number of results to return. Maximum allowed is 1000+uurgMaxResults :: Lens' UserUsageReportGet (Maybe Word32)+uurgMaxResults+  = lens _uurgMaxResults+      (\ s a -> s{_uurgMaxResults = a})+      . mapping _Coerce++instance GoogleRequest UserUsageReportGet where+        type Rs UserUsageReportGet = UsageReports+        requestClient UserUsageReportGet{..}+          = go _uurgUserKey _uurgDate _uurgFilters+              _uurgCustomerId+              _uurgParameters+              _uurgPageToken+              _uurgMaxResults+              (Just AltJSON)+              reportsService+          where go+                  = buildClient+                      (Proxy :: Proxy UserUsageReportGetResource)+                      mempty

@@ -0,0 +1,51 @@+name:                  gogol-admin-reports+version:               0.0.1+synopsis:              Google Admin Reports 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 Brendan Hay+category:              Network, Google, Cloud+build-type:            Simple+cabal-version:         >= 1.10+extra-source-files:    README.md++description:+    Allows the administrators of Google Apps customers to fetch reports+    about the usage, collaboration, security and risk for their users.+    .+    /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 @reports_v1@+    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.Reports+        , Network.Google.Reports.Types+        , Network.Google.Resource.Admin.Channels.Stop+        , Network.Google.Resource.Reports.Activities.List+        , Network.Google.Resource.Reports.Activities.Watch+        , Network.Google.Resource.Reports.CustomerUsageReports.Get+        , Network.Google.Resource.Reports.UserUsageReport.Get++    other-modules:+          Network.Google.Reports.Types.Product+        , Network.Google.Reports.Types.Sum++    build-depends:+          gogol-core == 0.0.1.*+        , base       >= 4.7 && < 5