gogol-cloudasset 0.4.0 → 0.5.0

raw patch · 14 files changed

+739/−1234 lines, 14 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/CloudAsset.hs +14/−28
• gen/Network/Google/CloudAsset/Types.hs +4/−3
• gen/Network/Google/CloudAsset/Types/Product.hs +165/−109
• gen/Network/Google/Resource/CloudAsset/BatchGetAssetsHistory.hs +230/−0
• gen/Network/Google/Resource/CloudAsset/ExportAssets.hs +169/−0
• gen/Network/Google/Resource/CloudAsset/Operations/Get.hs +150/−0
• gen/Network/Google/Resource/CloudAsset/Organizations/BatchGetAssetsHistory.hs +0/−225
• gen/Network/Google/Resource/CloudAsset/Organizations/ExportAssets.hs +0/−169
• gen/Network/Google/Resource/CloudAsset/Organizations/Operations/Get.hs +0/−149
• gen/Network/Google/Resource/CloudAsset/Projects/BatchGetAssetsHistory.hs +0/−225
• gen/Network/Google/Resource/CloudAsset/Projects/ExportAssets.hs +0/−168
• gen/Network/Google/Resource/CloudAsset/Projects/Operations/Get.hs +0/−148
• gogol-cloudasset.cabal +6/−9

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -16,7 +16,7 @@ -- The cloud asset API manages the history and inventory of cloud -- resources. ----- /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference>+-- /See:/ <https://cloud.google.com/resource-manager/docs/cloud-asset-inventory/quickstart-cloud-asset-inventory Cloud Asset API Reference> module Network.Google.CloudAsset     (     -- * Service Configuration@@ -30,23 +30,14 @@      -- * Resources -    -- ** cloudasset.organizations.batchGetAssetsHistory-    , module Network.Google.Resource.CloudAsset.Organizations.BatchGetAssetsHistory--    -- ** cloudasset.organizations.exportAssets-    , module Network.Google.Resource.CloudAsset.Organizations.ExportAssets--    -- ** cloudasset.organizations.operations.get-    , module Network.Google.Resource.CloudAsset.Organizations.Operations.Get--    -- ** cloudasset.projects.batchGetAssetsHistory-    , module Network.Google.Resource.CloudAsset.Projects.BatchGetAssetsHistory+    -- ** cloudasset.batchGetAssetsHistory+    , module Network.Google.Resource.CloudAsset.BatchGetAssetsHistory -    -- ** cloudasset.projects.exportAssets-    , module Network.Google.Resource.CloudAsset.Projects.ExportAssets+    -- ** cloudasset.exportAssets+    , module Network.Google.Resource.CloudAsset.ExportAssets -    -- ** cloudasset.projects.operations.get-    , module Network.Google.Resource.CloudAsset.Projects.Operations.Get+    -- ** cloudasset.operations.get+    , module Network.Google.Resource.CloudAsset.Operations.Get      -- * Types @@ -94,6 +85,7 @@     -- ** GcsDestination     , GcsDestination     , gcsDestination+    , gdURIPrefix     , gdURI      -- ** StatusDetailsItem@@ -187,12 +179,9 @@  import           Network.Google.CloudAsset.Types import           Network.Google.Prelude-import           Network.Google.Resource.CloudAsset.Organizations.BatchGetAssetsHistory-import           Network.Google.Resource.CloudAsset.Organizations.ExportAssets-import           Network.Google.Resource.CloudAsset.Organizations.Operations.Get-import           Network.Google.Resource.CloudAsset.Projects.BatchGetAssetsHistory-import           Network.Google.Resource.CloudAsset.Projects.ExportAssets-import           Network.Google.Resource.CloudAsset.Projects.Operations.Get+import           Network.Google.Resource.CloudAsset.BatchGetAssetsHistory+import           Network.Google.Resource.CloudAsset.ExportAssets+import           Network.Google.Resource.CloudAsset.Operations.Get  {- $resources TODO@@ -200,9 +189,6 @@  -- | Represents the entirety of the methods and resources available for the Cloud Asset API service. type CloudAssetAPI =-     OrganizationsOperationsGetResource :<|>-       OrganizationsExportAssetsResource-       :<|> OrganizationsBatchGetAssetsHistoryResource-       :<|> ProjectsOperationsGetResource-       :<|> ProjectsExportAssetsResource-       :<|> ProjectsBatchGetAssetsHistoryResource+     ExportAssetsResource :<|>+       BatchGetAssetsHistoryResource+       :<|> OperationsGetResource

@@ -66,6 +66,7 @@     -- * GcsDestination     , GcsDestination     , gcsDestination+    , gdURIPrefix     , gdURI      -- * StatusDetailsItem@@ -161,12 +162,12 @@ import           Network.Google.CloudAsset.Types.Sum import           Network.Google.Prelude --- | Default request referring to version 'v1beta1' of the Cloud Asset API. This contains the host and root path used as a starting point for constructing service requests.+-- | Default request referring to version 'v1' of the Cloud Asset API. This contains the host and root path used as a starting point for constructing service requests. cloudAssetService :: ServiceConfig cloudAssetService-  = defaultService (ServiceId "cloudasset:v1beta1")+  = defaultService (ServiceId "cloudasset:v1")       "cloudasset.googleapis.com"  -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy;+cloudPlatformScope = Proxy

@@ -57,12 +57,15 @@ -- security\/privacy reasons. -- -- /See:/ 'status' smart constructor.-data Status = Status'+data Status =+  Status'     { _sDetails :: !(Maybe [StatusDetailsItem])     , _sCode    :: !(Maybe (Textual Int32))     , _sMessage :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Status' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,13 +77,9 @@ -- * 'sMessage' status     :: Status-status =-    Status'-    { _sDetails = Nothing-    , _sCode = Nothing-    , _sMessage = Nothing-    }+status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing} + -- | A list of messages that carry the error details. There is a common set -- of message types for APIs to use. sDetails :: Lens' Status [StatusDetailsItem]@@ -136,11 +135,14 @@ -- DATA_WRITE logging. -- -- /See:/ 'auditConfig' smart constructor.-data AuditConfig = AuditConfig'+data AuditConfig =+  AuditConfig'     { _acService         :: !(Maybe Text)     , _acAuditLogConfigs :: !(Maybe [AuditLogConfig])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AuditConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -150,12 +152,9 @@ -- * 'acAuditLogConfigs' auditConfig     :: AuditConfig-auditConfig =-    AuditConfig'-    { _acService = Nothing-    , _acAuditLogConfigs = Nothing-    }+auditConfig = AuditConfig' {_acService = Nothing, _acAuditLogConfigs = Nothing} + -- | Specifies a service that will be enabled for audit logging. For example, -- \`storage.googleapis.com\`, \`cloudsql.googleapis.com\`. \`allServices\` -- is a special value that covers all services.@@ -191,13 +190,16 @@ -- expression: \"size(request.user) > 0\" -- -- /See:/ 'expr' smart constructor.-data Expr = Expr'+data Expr =+  Expr'     { _eLocation    :: !(Maybe Text)     , _eExpression  :: !(Maybe Text)     , _eTitle       :: !(Maybe Text)     , _eDescription :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Expr' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -212,13 +214,14 @@ expr     :: Expr expr =-    Expr'+  Expr'     { _eLocation = Nothing     , _eExpression = Nothing     , _eTitle = Nothing     , _eDescription = Nothing     } + -- | An optional string indicating the location of the expression for error -- reporting, e.g. a file name and a position in the file. eLocation :: Lens' Expr (Maybe Text)@@ -266,14 +269,17 @@ -- a network API call. -- -- /See:/ 'operation' smart constructor.-data Operation = Operation'+data Operation =+  Operation'     { _oDone     :: !(Maybe Bool)     , _oError    :: !(Maybe Status)     , _oResponse :: !(Maybe OperationResponse)     , _oName     :: !(Maybe Text)     , _oMetadata :: !(Maybe OperationMetadata)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Operation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -290,7 +296,7 @@ operation     :: Operation operation =-    Operation'+  Operation'     { _oDone = Nothing     , _oError = Nothing     , _oResponse = Nothing@@ -298,6 +304,7 @@     , _oMetadata = Nothing     } + -- | If the value is \`false\`, it means the operation is still in progress. -- If \`true\`, the operation is completed, and either \`error\` or -- \`response\` is available.@@ -357,13 +364,16 @@ -- IAM policies, and other non-GCP assets. -- -- /See:/ 'asset' smart constructor.-data Asset = Asset'+data Asset =+  Asset'     { _aName      :: !(Maybe Text)     , _aResource  :: !(Maybe Resource)     , _aIAMPolicy :: !(Maybe Policy)     , _aAssetType :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Asset' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -378,13 +388,14 @@ asset     :: Asset asset =-    Asset'+  Asset'     { _aName = Nothing     , _aResource = Nothing     , _aIAMPolicy = Nothing     , _aAssetType = Nothing     } + -- | The full name of the asset. For example: -- \`\/\/compute.googleapis.com\/projects\/my_project_123\/zones\/zone1\/instances\/instance1\`. -- See [Resource@@ -404,7 +415,7 @@ aIAMPolicy   = lens _aIAMPolicy (\ s a -> s{_aIAMPolicy = a}) --- | Type of the asset. Example: \"google.compute.Disk\".+-- | Type of the asset. Example: \"compute.googleapis.com\/Disk\". aAssetType :: Lens' Asset (Maybe Text) aAssetType   = lens _aAssetType (\ s a -> s{_aAssetType = a})@@ -430,22 +441,39 @@ -- | A Cloud Storage location. -- -- /See:/ 'gcsDestination' smart constructor.-newtype GcsDestination = GcsDestination'-    { _gdURI :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+data GcsDestination =+  GcsDestination'+    { _gdURIPrefix :: !(Maybe Text)+    , _gdURI       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GcsDestination' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'gdURIPrefix'+-- -- * 'gdURI' gcsDestination     :: GcsDestination-gcsDestination =-    GcsDestination'-    { _gdURI = Nothing-    }+gcsDestination = GcsDestination' {_gdURIPrefix = Nothing, _gdURI = Nothing} ++-- | The uri prefix of all generated Cloud Storage objects. For example:+-- \"gs:\/\/bucket_name\/object_name_prefix\". Each object uri is in+-- format: \"gs:\/\/bucket_name\/object_name_prefix\/\/ and only contains+-- assets for that type. starts from 0. For example:+-- \"gs:\/\/bucket_name\/object_name_prefix\/compute.googleapis.com\/Disk\/0\"+-- is the first shard of output objects containing all+-- compute.googleapis.com\/Disk assets. An INVALID_ARGUMENT error will be+-- returned if file with the same name+-- \"gs:\/\/bucket_name\/object_name_prefix\" already exists.+gdURIPrefix :: Lens' GcsDestination (Maybe Text)+gdURIPrefix+  = lens _gdURIPrefix (\ s a -> s{_gdURIPrefix = a})+ -- | The uri of the Cloud Storage object. It\'s the same uri that is used by -- gsutil. For example: \"gs:\/\/bucket_name\/object_name\". See [Viewing -- and Editing Object@@ -457,18 +485,26 @@ instance FromJSON GcsDestination where         parseJSON           = withObject "GcsDestination"-              (\ o -> GcsDestination' <$> (o .:? "uri"))+              (\ o ->+                 GcsDestination' <$>+                   (o .:? "uriPrefix") <*> (o .:? "uri"))  instance ToJSON GcsDestination where         toJSON GcsDestination'{..}-          = object (catMaybes [("uri" .=) <$> _gdURI])+          = object+              (catMaybes+                 [("uriPrefix" .=) <$> _gdURIPrefix,+                  ("uri" .=) <$> _gdURI])  -- -- /See:/ 'statusDetailsItem' smart constructor.-newtype StatusDetailsItem = StatusDetailsItem'+newtype StatusDetailsItem =+  StatusDetailsItem'     { _sdiAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -478,10 +514,9 @@     :: HashMap Text JSONValue -- ^ 'sdiAddtional'     -> StatusDetailsItem statusDetailsItem pSdiAddtional_ =-    StatusDetailsItem'-    { _sdiAddtional = _Coerce # pSdiAddtional_-    }+  StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_} + -- | Properties of the object. Contains field \'type with type URL. sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) sdiAddtional@@ -499,13 +534,16 @@ -- | Export asset request. -- -- /See:/ 'exportAssetsRequest' smart constructor.-data ExportAssetsRequest = ExportAssetsRequest'+data ExportAssetsRequest =+  ExportAssetsRequest'     { _earReadTime     :: !(Maybe DateTime')     , _earAssetTypes   :: !(Maybe [Text])     , _earOutputConfig :: !(Maybe OutputConfig)     , _earContentType  :: !(Maybe ExportAssetsRequestContentType)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExportAssetsRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -520,13 +558,14 @@ exportAssetsRequest     :: ExportAssetsRequest exportAssetsRequest =-    ExportAssetsRequest'+  ExportAssetsRequest'     { _earReadTime = Nothing     , _earAssetTypes = Nothing     , _earOutputConfig = Nothing     , _earContentType = Nothing     } + -- | Timestamp to take an asset snapshot. This can only be set to a timestamp -- between 2018-10-02 UTC (inclusive) and the current time. If not -- specified, the current time will be used. Due to delays in resource data@@ -538,8 +577,8 @@       mapping _DateTime  -- | A list of asset types of which to take a snapshot for. For example:--- \"google.compute.Disk\". If specified, only matching assets will be--- returned. See [Introduction to Cloud Asset+-- \"compute.googleapis.com\/Disk\". If specified, only matching assets+-- will be returned. See [Introduction to Cloud Asset -- Inventory](https:\/\/cloud.google.com\/resource-manager\/docs\/cloud-asset-inventory\/overview) -- for all supported asset types. earAssetTypes :: Lens' ExportAssetsRequest [Text]@@ -585,11 +624,14 @@ -- | A time window of (start_time, end_time]. -- -- /See:/ 'timeWindow' smart constructor.-data TimeWindow = TimeWindow'+data TimeWindow =+  TimeWindow'     { _twStartTime :: !(Maybe DateTime')     , _twEndTime   :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TimeWindow' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -599,12 +641,9 @@ -- * 'twEndTime' timeWindow     :: TimeWindow-timeWindow =-    TimeWindow'-    { _twStartTime = Nothing-    , _twEndTime = Nothing-    }+timeWindow = TimeWindow' {_twStartTime = Nothing, _twEndTime = Nothing} + -- | Start time of the time window (exclusive). twStartTime :: Lens' TimeWindow (Maybe UTCTime) twStartTime@@ -636,12 +675,15 @@ -- the status of the asset and valid from and to time of it. -- -- /See:/ 'temporalAsset' smart constructor.-data TemporalAsset = TemporalAsset'+data TemporalAsset =+  TemporalAsset'     { _taWindow  :: !(Maybe TimeWindow)     , _taAsset   :: !(Maybe Asset)     , _taDeleted :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TemporalAsset' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -654,12 +696,9 @@ temporalAsset     :: TemporalAsset temporalAsset =-    TemporalAsset'-    { _taWindow = Nothing-    , _taAsset = Nothing-    , _taDeleted = Nothing-    }+  TemporalAsset' {_taWindow = Nothing, _taAsset = Nothing, _taDeleted = Nothing} + -- | The time window when the asset data and state was observed. taWindow :: Lens' TemporalAsset (Maybe TimeWindow) taWindow = lens _taWindow (\ s a -> s{_taWindow = a})@@ -692,15 +731,18 @@ -- | Representation of a cloud resource. -- -- /See:/ 'resource' smart constructor.-data Resource = Resource'+data Resource =+  Resource'     { _rParent               :: !(Maybe Text)     , _rData                 :: !(Maybe ResourceData)     , _rVersion              :: !(Maybe Text)     , _rDiscoveryName        :: !(Maybe Text)     , _rDiscoveryDocumentURI :: !(Maybe Text)     , _rResourceURL          :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Resource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -719,7 +761,7 @@ resource     :: Resource resource =-    Resource'+  Resource'     { _rParent = Nothing     , _rData = Nothing     , _rVersion = Nothing@@ -728,6 +770,7 @@     , _rResourceURL = Nothing     } + -- | The full name of the immediate parent of this resource. See [Resource -- Names](https:\/\/cloud.google.com\/apis\/design\/resource_names#full_resource_name) -- for more information. For GCP assets, it is the parent resource defined@@ -800,10 +843,13 @@ -- away and may not be present. -- -- /See:/ 'resourceData' smart constructor.-newtype ResourceData = ResourceData'+newtype ResourceData =+  ResourceData'     { _rdAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResourceData' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -813,10 +859,9 @@     :: HashMap Text JSONValue -- ^ 'rdAddtional'     -> ResourceData resourceData pRdAddtional_ =-    ResourceData'-    { _rdAddtional = _Coerce # pRdAddtional_-    }+  ResourceData' {_rdAddtional = _Coerce # pRdAddtional_} + -- | Properties of the object. rdAddtional :: Lens' ResourceData (HashMap Text JSONValue) rdAddtional@@ -834,10 +879,13 @@ -- | Output configuration for export assets destination. -- -- /See:/ 'outputConfig' smart constructor.-newtype OutputConfig = OutputConfig'+newtype OutputConfig =+  OutputConfig'     { _ocGcsDestination :: Maybe GcsDestination-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OutputConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -845,11 +893,9 @@ -- * 'ocGcsDestination' outputConfig     :: OutputConfig-outputConfig =-    OutputConfig'-    { _ocGcsDestination = Nothing-    }+outputConfig = OutputConfig' {_ocGcsDestination = Nothing} + -- | Destination on Cloud Storage. ocGcsDestination :: Lens' OutputConfig (Maybe GcsDestination) ocGcsDestination@@ -886,13 +932,16 @@ -- guide](https:\/\/cloud.google.com\/iam\/docs). -- -- /See:/ 'policy' smart constructor.-data Policy = Policy'+data Policy =+  Policy'     { _pAuditConfigs :: !(Maybe [AuditConfig])     , _pEtag         :: !(Maybe Bytes)     , _pVersion      :: !(Maybe (Textual Int32))     , _pBindings     :: !(Maybe [Binding])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Policy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -907,13 +956,14 @@ policy     :: Policy policy =-    Policy'+  Policy'     { _pAuditConfigs = Nothing     , _pEtag = Nothing     , _pVersion = Nothing     , _pBindings = Nothing     } + -- | Specifies cloud audit logging configuration for this policy. pAuditConfigs :: Lens' Policy [AuditConfig] pAuditConfigs@@ -970,10 +1020,13 @@ -- | Batch get assets history response. -- -- /See:/ 'batchGetAssetsHistoryResponse' smart constructor.-newtype BatchGetAssetsHistoryResponse = BatchGetAssetsHistoryResponse'+newtype BatchGetAssetsHistoryResponse =+  BatchGetAssetsHistoryResponse'     { _bgahrAssets :: Maybe [TemporalAsset]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BatchGetAssetsHistoryResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -982,10 +1035,9 @@ batchGetAssetsHistoryResponse     :: BatchGetAssetsHistoryResponse batchGetAssetsHistoryResponse =-    BatchGetAssetsHistoryResponse'-    { _bgahrAssets = Nothing-    }+  BatchGetAssetsHistoryResponse' {_bgahrAssets = Nothing} + -- | A list of assets with valid time windows. bgahrAssets :: Lens' BatchGetAssetsHistoryResponse [TemporalAsset] bgahrAssets@@ -1010,10 +1062,13 @@ -- long-running operation should document the metadata type, if any. -- -- /See:/ 'operationMetadata' smart constructor.-newtype OperationMetadata = OperationMetadata'+newtype OperationMetadata =+  OperationMetadata'     { _omAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1023,10 +1078,9 @@     :: HashMap Text JSONValue -- ^ 'omAddtional'     -> OperationMetadata operationMetadata pOmAddtional_ =-    OperationMetadata'-    { _omAddtional = _Coerce # pOmAddtional_-    }+  OperationMetadata' {_omAddtional = _Coerce # pOmAddtional_} + -- | Properties of the object. Contains field \'type with type URL. omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue) omAddtional@@ -1048,11 +1102,14 @@ -- logging, while exempting foo\'gmail.com from DATA_READ logging. -- -- /See:/ 'auditLogConfig' smart constructor.-data AuditLogConfig = AuditLogConfig'+data AuditLogConfig =+  AuditLogConfig'     { _alcLogType         :: !(Maybe AuditLogConfigLogType)     , _alcExemptedMembers :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AuditLogConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1063,11 +1120,9 @@ auditLogConfig     :: AuditLogConfig auditLogConfig =-    AuditLogConfig'-    { _alcLogType = Nothing-    , _alcExemptedMembers = Nothing-    }+  AuditLogConfig' {_alcLogType = Nothing, _alcExemptedMembers = Nothing} + -- | The log type that this config enables. alcLogType :: Lens' AuditLogConfig (Maybe AuditLogConfigLogType) alcLogType@@ -1107,10 +1162,13 @@ -- \`TakeSnapshotResponse\`. -- -- /See:/ 'operationResponse' smart constructor.-newtype OperationResponse = OperationResponse'+newtype OperationResponse =+  OperationResponse'     { _orAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1120,10 +1178,9 @@     :: HashMap Text JSONValue -- ^ 'orAddtional'     -> OperationResponse operationResponse pOrAddtional_ =-    OperationResponse'-    { _orAddtional = _Coerce # pOrAddtional_-    }+  OperationResponse' {_orAddtional = _Coerce # pOrAddtional_} + -- | Properties of the object. Contains field \'type with type URL. orAddtional :: Lens' OperationResponse (HashMap Text JSONValue) orAddtional@@ -1141,12 +1198,15 @@ -- | Associates \`members\` with a \`role\`. -- -- /See:/ 'binding' smart constructor.-data Binding = Binding'+data Binding =+  Binding'     { _bMembers   :: !(Maybe [Text])     , _bRole      :: !(Maybe Text)     , _bCondition :: !(Maybe Expr)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Binding' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1159,12 +1219,9 @@ binding     :: Binding binding =-    Binding'-    { _bMembers = Nothing-    , _bRole = Nothing-    , _bCondition = Nothing-    }+  Binding' {_bMembers = Nothing, _bRole = Nothing, _bCondition = Nothing} + -- | Specifies the identities requesting access for a Cloud Platform -- resource. \`members\` can have the following values: * \`allUsers\`: A -- special identifier that represents anyone who is on the internet; with@@ -1176,8 +1233,8 @@ -- that represents a service account. For example, -- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An -- email address that represents a Google group. For example,--- \`admins\'example.com\`. * \`domain:{domain}\`: A Google Apps domain--- name that represents all the users of that domain. For example,+-- \`admins\'example.com\`. * \`domain:{domain}\`: The G Suite domain+-- (primary) that represents all the users of that domain. For example, -- \`google.com\` or \`example.com\`. bMembers :: Lens' Binding [Text] bMembers@@ -1190,10 +1247,9 @@ bRole :: Lens' Binding (Maybe Text) bRole = lens _bRole (\ s a -> s{_bRole = a}) --- | Unimplemented. The condition that is associated with this binding. NOTE:--- an unsatisfied condition will not allow user access via current binding.--- Different bindings, including their conditions, are examined--- independently.+-- | The condition that is associated with this binding. NOTE: An unsatisfied+-- condition will not allow user access via current binding. Different+-- bindings, including their conditions, are examined independently. bCondition :: Lens' Binding (Maybe Expr) bCondition   = lens _bCondition (\ s a -> s{_bCondition = a})

@@ -0,0 +1,230 @@+{-# 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.CloudAsset.BatchGetAssetsHistory+-- 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)+--+-- Batch gets the update history of assets that overlap a time window. For+-- RESOURCE content, this API outputs history with asset in both non-delete+-- or deleted status. For IAM_POLICY content, this API outputs history when+-- the asset and its attached IAM POLICY both exist. This can create gaps+-- in the output history. If a specified asset does not exist, this API+-- returns an INVALID_ARGUMENT error.+--+-- /See:/ <https://cloud.google.com/resource-manager/docs/cloud-asset-inventory/quickstart-cloud-asset-inventory Cloud Asset API Reference> for @cloudasset.batchGetAssetsHistory@.+module Network.Google.Resource.CloudAsset.BatchGetAssetsHistory+    (+    -- * REST Resource+      BatchGetAssetsHistoryResource++    -- * Creating a Request+    , batchGetAssetsHistory+    , BatchGetAssetsHistory++    -- * Request Lenses+    , bgahParent+    , bgahXgafv+    , bgahReadTimeWindowEndTime+    , bgahUploadProtocol+    , bgahAccessToken+    , bgahUploadType+    , bgahAssetNames+    , bgahReadTimeWindowStartTime+    , bgahContentType+    , bgahCallback+    ) where++import           Network.Google.CloudAsset.Types+import           Network.Google.Prelude++-- | A resource alias for @cloudasset.batchGetAssetsHistory@ method which the+-- 'BatchGetAssetsHistory' request conforms to.+type BatchGetAssetsHistoryResource =+     "v1" :>+       CaptureMode "parent" "batchGetAssetsHistory" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "readTimeWindow.endTime" DateTime' :>+             QueryParam "upload_protocol" Text :>+               QueryParam "access_token" Text :>+                 QueryParam "uploadType" Text :>+                   QueryParams "assetNames" Text :>+                     QueryParam "readTimeWindow.startTime" DateTime' :>+                       QueryParam "contentType" Text :>+                         QueryParam "callback" Text :>+                           QueryParam "alt" AltJSON :>+                             Get '[JSON] BatchGetAssetsHistoryResponse++-- | Batch gets the update history of assets that overlap a time window. For+-- RESOURCE content, this API outputs history with asset in both non-delete+-- or deleted status. For IAM_POLICY content, this API outputs history when+-- the asset and its attached IAM POLICY both exist. This can create gaps+-- in the output history. If a specified asset does not exist, this API+-- returns an INVALID_ARGUMENT error.+--+-- /See:/ 'batchGetAssetsHistory' smart constructor.+data BatchGetAssetsHistory =+  BatchGetAssetsHistory'+    { _bgahParent                  :: !Text+    , _bgahXgafv                   :: !(Maybe Xgafv)+    , _bgahReadTimeWindowEndTime   :: !(Maybe DateTime')+    , _bgahUploadProtocol          :: !(Maybe Text)+    , _bgahAccessToken             :: !(Maybe Text)+    , _bgahUploadType              :: !(Maybe Text)+    , _bgahAssetNames              :: !(Maybe [Text])+    , _bgahReadTimeWindowStartTime :: !(Maybe DateTime')+    , _bgahContentType             :: !(Maybe Text)+    , _bgahCallback                :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BatchGetAssetsHistory' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bgahParent'+--+-- * 'bgahXgafv'+--+-- * 'bgahReadTimeWindowEndTime'+--+-- * 'bgahUploadProtocol'+--+-- * 'bgahAccessToken'+--+-- * 'bgahUploadType'+--+-- * 'bgahAssetNames'+--+-- * 'bgahReadTimeWindowStartTime'+--+-- * 'bgahContentType'+--+-- * 'bgahCallback'+batchGetAssetsHistory+    :: Text -- ^ 'bgahParent'+    -> BatchGetAssetsHistory+batchGetAssetsHistory pBgahParent_ =+  BatchGetAssetsHistory'+    { _bgahParent = pBgahParent_+    , _bgahXgafv = Nothing+    , _bgahReadTimeWindowEndTime = Nothing+    , _bgahUploadProtocol = Nothing+    , _bgahAccessToken = Nothing+    , _bgahUploadType = Nothing+    , _bgahAssetNames = Nothing+    , _bgahReadTimeWindowStartTime = Nothing+    , _bgahContentType = Nothing+    , _bgahCallback = Nothing+    }+++-- | Required. The relative name of the root asset. It can only be an+-- organization number (such as \"organizations\/123\"), a project ID (such+-- as \"projects\/my-project-id\")\", or a project number (such as+-- \"projects\/12345\").+bgahParent :: Lens' BatchGetAssetsHistory Text+bgahParent+  = lens _bgahParent (\ s a -> s{_bgahParent = a})++-- | V1 error format.+bgahXgafv :: Lens' BatchGetAssetsHistory (Maybe Xgafv)+bgahXgafv+  = lens _bgahXgafv (\ s a -> s{_bgahXgafv = a})++-- | End time of the time window (inclusive). Current timestamp if not+-- specified.+bgahReadTimeWindowEndTime :: Lens' BatchGetAssetsHistory (Maybe UTCTime)+bgahReadTimeWindowEndTime+  = lens _bgahReadTimeWindowEndTime+      (\ s a -> s{_bgahReadTimeWindowEndTime = a})+      . mapping _DateTime++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+bgahUploadProtocol :: Lens' BatchGetAssetsHistory (Maybe Text)+bgahUploadProtocol+  = lens _bgahUploadProtocol+      (\ s a -> s{_bgahUploadProtocol = a})++-- | OAuth access token.+bgahAccessToken :: Lens' BatchGetAssetsHistory (Maybe Text)+bgahAccessToken+  = lens _bgahAccessToken+      (\ s a -> s{_bgahAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+bgahUploadType :: Lens' BatchGetAssetsHistory (Maybe Text)+bgahUploadType+  = lens _bgahUploadType+      (\ s a -> s{_bgahUploadType = a})++-- | A list of the full names of the assets. For example:+-- \`\/\/compute.googleapis.com\/projects\/my_project_123\/zones\/zone1\/instances\/instance1\`.+-- See [Resource+-- Names](https:\/\/cloud.google.com\/apis\/design\/resource_names#full_resource_name)+-- and [Resource Name+-- Format](https:\/\/cloud.google.com\/resource-manager\/docs\/cloud-asset-inventory\/resource-name-format)+-- for more info. The request becomes a no-op if the asset name list is+-- empty, and the max size of the asset name list is 100 in one request.+bgahAssetNames :: Lens' BatchGetAssetsHistory [Text]+bgahAssetNames+  = lens _bgahAssetNames+      (\ s a -> s{_bgahAssetNames = a})+      . _Default+      . _Coerce++-- | Start time of the time window (exclusive).+bgahReadTimeWindowStartTime :: Lens' BatchGetAssetsHistory (Maybe UTCTime)+bgahReadTimeWindowStartTime+  = lens _bgahReadTimeWindowStartTime+      (\ s a -> s{_bgahReadTimeWindowStartTime = a})+      . mapping _DateTime++-- | Required. The content type.+bgahContentType :: Lens' BatchGetAssetsHistory (Maybe Text)+bgahContentType+  = lens _bgahContentType+      (\ s a -> s{_bgahContentType = a})++-- | JSONP+bgahCallback :: Lens' BatchGetAssetsHistory (Maybe Text)+bgahCallback+  = lens _bgahCallback (\ s a -> s{_bgahCallback = a})++instance GoogleRequest BatchGetAssetsHistory where+        type Rs BatchGetAssetsHistory =+             BatchGetAssetsHistoryResponse+        type Scopes BatchGetAssetsHistory =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient BatchGetAssetsHistory'{..}+          = go _bgahParent _bgahXgafv+              _bgahReadTimeWindowEndTime+              _bgahUploadProtocol+              _bgahAccessToken+              _bgahUploadType+              (_bgahAssetNames ^. _Default)+              _bgahReadTimeWindowStartTime+              _bgahContentType+              _bgahCallback+              (Just AltJSON)+              cloudAssetService+          where go+                  = buildClient+                      (Proxy :: Proxy BatchGetAssetsHistoryResource)+                      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.CloudAsset.ExportAssets+-- 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)+--+-- Exports assets with time and resource types to a given Cloud Storage+-- location. The output format is newline-delimited JSON. This API+-- implements the google.longrunning.Operation API allowing you to keep+-- track of the export.+--+-- /See:/ <https://cloud.google.com/resource-manager/docs/cloud-asset-inventory/quickstart-cloud-asset-inventory Cloud Asset API Reference> for @cloudasset.exportAssets@.+module Network.Google.Resource.CloudAsset.ExportAssets+    (+    -- * REST Resource+      ExportAssetsResource++    -- * Creating a Request+    , exportAssets+    , ExportAssets++    -- * Request Lenses+    , eaParent+    , eaXgafv+    , eaUploadProtocol+    , eaAccessToken+    , eaUploadType+    , eaPayload+    , eaCallback+    ) where++import           Network.Google.CloudAsset.Types+import           Network.Google.Prelude++-- | A resource alias for @cloudasset.exportAssets@ method which the+-- 'ExportAssets' request conforms to.+type ExportAssetsResource =+     "v1" :>+       CaptureMode "parent" "exportAssets" Text :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] ExportAssetsRequest :>+                       Post '[JSON] Operation++-- | Exports assets with time and resource types to a given Cloud Storage+-- location. The output format is newline-delimited JSON. This API+-- implements the google.longrunning.Operation API allowing you to keep+-- track of the export.+--+-- /See:/ 'exportAssets' smart constructor.+data ExportAssets =+  ExportAssets'+    { _eaParent         :: !Text+    , _eaXgafv          :: !(Maybe Xgafv)+    , _eaUploadProtocol :: !(Maybe Text)+    , _eaAccessToken    :: !(Maybe Text)+    , _eaUploadType     :: !(Maybe Text)+    , _eaPayload        :: !ExportAssetsRequest+    , _eaCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ExportAssets' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eaParent'+--+-- * 'eaXgafv'+--+-- * 'eaUploadProtocol'+--+-- * 'eaAccessToken'+--+-- * 'eaUploadType'+--+-- * 'eaPayload'+--+-- * 'eaCallback'+exportAssets+    :: Text -- ^ 'eaParent'+    -> ExportAssetsRequest -- ^ 'eaPayload'+    -> ExportAssets+exportAssets pEaParent_ pEaPayload_ =+  ExportAssets'+    { _eaParent = pEaParent_+    , _eaXgafv = Nothing+    , _eaUploadProtocol = Nothing+    , _eaAccessToken = Nothing+    , _eaUploadType = Nothing+    , _eaPayload = pEaPayload_+    , _eaCallback = Nothing+    }+++-- | Required. The relative name of the root asset. This can only be an+-- organization number (such as \"organizations\/123\"), a project ID (such+-- as \"projects\/my-project-id\"), or a project number (such as+-- \"projects\/12345\"), or a folder number (such as \"folders\/123\").+eaParent :: Lens' ExportAssets Text+eaParent = lens _eaParent (\ s a -> s{_eaParent = a})++-- | V1 error format.+eaXgafv :: Lens' ExportAssets (Maybe Xgafv)+eaXgafv = lens _eaXgafv (\ s a -> s{_eaXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+eaUploadProtocol :: Lens' ExportAssets (Maybe Text)+eaUploadProtocol+  = lens _eaUploadProtocol+      (\ s a -> s{_eaUploadProtocol = a})++-- | OAuth access token.+eaAccessToken :: Lens' ExportAssets (Maybe Text)+eaAccessToken+  = lens _eaAccessToken+      (\ s a -> s{_eaAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+eaUploadType :: Lens' ExportAssets (Maybe Text)+eaUploadType+  = lens _eaUploadType (\ s a -> s{_eaUploadType = a})++-- | Multipart request metadata.+eaPayload :: Lens' ExportAssets ExportAssetsRequest+eaPayload+  = lens _eaPayload (\ s a -> s{_eaPayload = a})++-- | JSONP+eaCallback :: Lens' ExportAssets (Maybe Text)+eaCallback+  = lens _eaCallback (\ s a -> s{_eaCallback = a})++instance GoogleRequest ExportAssets where+        type Rs ExportAssets = Operation+        type Scopes ExportAssets =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient ExportAssets'{..}+          = go _eaParent _eaXgafv _eaUploadProtocol+              _eaAccessToken+              _eaUploadType+              _eaCallback+              (Just AltJSON)+              _eaPayload+              cloudAssetService+          where go+                  = buildClient (Proxy :: Proxy ExportAssetsResource)+                      mempty

@@ -0,0 +1,150 @@+{-# 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.CloudAsset.Operations.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 the latest state of a long-running operation. Clients can use this+-- method to poll the operation result at intervals as recommended by the+-- API service.+--+-- /See:/ <https://cloud.google.com/resource-manager/docs/cloud-asset-inventory/quickstart-cloud-asset-inventory Cloud Asset API Reference> for @cloudasset.operations.get@.+module Network.Google.Resource.CloudAsset.Operations.Get+    (+    -- * REST Resource+      OperationsGetResource++    -- * Creating a Request+    , operationsGet+    , OperationsGet++    -- * Request Lenses+    , ogXgafv+    , ogUploadProtocol+    , ogAccessToken+    , ogUploadType+    , ogName+    , ogCallback+    ) where++import           Network.Google.CloudAsset.Types+import           Network.Google.Prelude++-- | A resource alias for @cloudasset.operations.get@ method which the+-- 'OperationsGet' request conforms to.+type OperationsGetResource =+     "v1" :>+       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] Operation++-- | Gets the latest state of a long-running operation. Clients can use this+-- method to poll the operation result at intervals as recommended by the+-- API service.+--+-- /See:/ 'operationsGet' smart constructor.+data OperationsGet =+  OperationsGet'+    { _ogXgafv          :: !(Maybe Xgafv)+    , _ogUploadProtocol :: !(Maybe Text)+    , _ogAccessToken    :: !(Maybe Text)+    , _ogUploadType     :: !(Maybe Text)+    , _ogName           :: !Text+    , _ogCallback       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OperationsGet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ogXgafv'+--+-- * 'ogUploadProtocol'+--+-- * 'ogAccessToken'+--+-- * 'ogUploadType'+--+-- * 'ogName'+--+-- * 'ogCallback'+operationsGet+    :: Text -- ^ 'ogName'+    -> OperationsGet+operationsGet pOgName_ =+  OperationsGet'+    { _ogXgafv = Nothing+    , _ogUploadProtocol = Nothing+    , _ogAccessToken = Nothing+    , _ogUploadType = Nothing+    , _ogName = pOgName_+    , _ogCallback = Nothing+    }+++-- | V1 error format.+ogXgafv :: Lens' OperationsGet (Maybe Xgafv)+ogXgafv = lens _ogXgafv (\ s a -> s{_ogXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+ogUploadProtocol :: Lens' OperationsGet (Maybe Text)+ogUploadProtocol+  = lens _ogUploadProtocol+      (\ s a -> s{_ogUploadProtocol = a})++-- | OAuth access token.+ogAccessToken :: Lens' OperationsGet (Maybe Text)+ogAccessToken+  = lens _ogAccessToken+      (\ s a -> s{_ogAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+ogUploadType :: Lens' OperationsGet (Maybe Text)+ogUploadType+  = lens _ogUploadType (\ s a -> s{_ogUploadType = a})++-- | The name of the operation resource.+ogName :: Lens' OperationsGet Text+ogName = lens _ogName (\ s a -> s{_ogName = a})++-- | JSONP+ogCallback :: Lens' OperationsGet (Maybe Text)+ogCallback+  = lens _ogCallback (\ s a -> s{_ogCallback = a})++instance GoogleRequest OperationsGet where+        type Rs OperationsGet = Operation+        type Scopes OperationsGet =+             '["https://www.googleapis.com/auth/cloud-platform"]+        requestClient OperationsGet'{..}+          = go _ogName _ogXgafv _ogUploadProtocol+              _ogAccessToken+              _ogUploadType+              _ogCallback+              (Just AltJSON)+              cloudAssetService+          where go+                  = buildClient (Proxy :: Proxy OperationsGetResource)+                      mempty

@@ -1,225 +0,0 @@-{-# 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.CloudAsset.Organizations.BatchGetAssetsHistory--- 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)------ Batch gets the update history of assets that overlap a time window. For--- RESOURCE content, this API outputs history with asset in both non-delete--- or deleted status. For IAM_POLICY content, this API outputs history when--- the asset and its attached IAM POLICY both exist. This can create gaps--- in the output history.------ /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.organizations.batchGetAssetsHistory@.-module Network.Google.Resource.CloudAsset.Organizations.BatchGetAssetsHistory-    (-    -- * REST Resource-      OrganizationsBatchGetAssetsHistoryResource--    -- * Creating a Request-    , organizationsBatchGetAssetsHistory-    , OrganizationsBatchGetAssetsHistory--    -- * Request Lenses-    , obgahParent-    , obgahXgafv-    , obgahReadTimeWindowEndTime-    , obgahUploadProtocol-    , obgahAccessToken-    , obgahUploadType-    , obgahAssetNames-    , obgahReadTimeWindowStartTime-    , obgahContentType-    , obgahCallback-    ) where--import           Network.Google.CloudAsset.Types-import           Network.Google.Prelude---- | A resource alias for @cloudasset.organizations.batchGetAssetsHistory@ method which the--- 'OrganizationsBatchGetAssetsHistory' request conforms to.-type OrganizationsBatchGetAssetsHistoryResource =-     "v1beta1" :>-       CaptureMode "parent" "batchGetAssetsHistory" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "readTimeWindow.endTime" DateTime' :>-             QueryParam "upload_protocol" Text :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParams "assetNames" Text :>-                     QueryParam "readTimeWindow.startTime" DateTime' :>-                       QueryParam "contentType" Text :>-                         QueryParam "callback" Text :>-                           QueryParam "alt" AltJSON :>-                             Get '[JSON] BatchGetAssetsHistoryResponse---- | Batch gets the update history of assets that overlap a time window. For--- RESOURCE content, this API outputs history with asset in both non-delete--- or deleted status. For IAM_POLICY content, this API outputs history when--- the asset and its attached IAM POLICY both exist. This can create gaps--- in the output history.------ /See:/ 'organizationsBatchGetAssetsHistory' smart constructor.-data OrganizationsBatchGetAssetsHistory = OrganizationsBatchGetAssetsHistory'-    { _obgahParent                  :: !Text-    , _obgahXgafv                   :: !(Maybe Xgafv)-    , _obgahReadTimeWindowEndTime   :: !(Maybe DateTime')-    , _obgahUploadProtocol          :: !(Maybe Text)-    , _obgahAccessToken             :: !(Maybe Text)-    , _obgahUploadType              :: !(Maybe Text)-    , _obgahAssetNames              :: !(Maybe [Text])-    , _obgahReadTimeWindowStartTime :: !(Maybe DateTime')-    , _obgahContentType             :: !(Maybe Text)-    , _obgahCallback                :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'OrganizationsBatchGetAssetsHistory' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'obgahParent'------ * 'obgahXgafv'------ * 'obgahReadTimeWindowEndTime'------ * 'obgahUploadProtocol'------ * 'obgahAccessToken'------ * 'obgahUploadType'------ * 'obgahAssetNames'------ * 'obgahReadTimeWindowStartTime'------ * 'obgahContentType'------ * 'obgahCallback'-organizationsBatchGetAssetsHistory-    :: Text -- ^ 'obgahParent'-    -> OrganizationsBatchGetAssetsHistory-organizationsBatchGetAssetsHistory pObgahParent_ =-    OrganizationsBatchGetAssetsHistory'-    { _obgahParent = pObgahParent_-    , _obgahXgafv = Nothing-    , _obgahReadTimeWindowEndTime = Nothing-    , _obgahUploadProtocol = Nothing-    , _obgahAccessToken = Nothing-    , _obgahUploadType = Nothing-    , _obgahAssetNames = Nothing-    , _obgahReadTimeWindowStartTime = Nothing-    , _obgahContentType = Nothing-    , _obgahCallback = Nothing-    }---- | Required. The relative name of the root asset. It can only be an--- organization number (such as \"organizations\/123\"), a project ID (such--- as \"projects\/my-project-id\")\", or a project number (such as--- \"projects\/12345\").-obgahParent :: Lens' OrganizationsBatchGetAssetsHistory Text-obgahParent-  = lens _obgahParent (\ s a -> s{_obgahParent = a})---- | V1 error format.-obgahXgafv :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Xgafv)-obgahXgafv-  = lens _obgahXgafv (\ s a -> s{_obgahXgafv = a})---- | End time of the time window (inclusive). Current timestamp if not--- specified.-obgahReadTimeWindowEndTime :: Lens' OrganizationsBatchGetAssetsHistory (Maybe UTCTime)-obgahReadTimeWindowEndTime-  = lens _obgahReadTimeWindowEndTime-      (\ s a -> s{_obgahReadTimeWindowEndTime = a})-      . mapping _DateTime---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-obgahUploadProtocol :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Text)-obgahUploadProtocol-  = lens _obgahUploadProtocol-      (\ s a -> s{_obgahUploadProtocol = a})---- | OAuth access token.-obgahAccessToken :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Text)-obgahAccessToken-  = lens _obgahAccessToken-      (\ s a -> s{_obgahAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-obgahUploadType :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Text)-obgahUploadType-  = lens _obgahUploadType-      (\ s a -> s{_obgahUploadType = a})---- | A list of the full names of the assets. For example:--- \`\/\/compute.googleapis.com\/projects\/my_project_123\/zones\/zone1\/instances\/instance1\`.--- See [Resource--- Names](https:\/\/cloud.google.com\/apis\/design\/resource_names#full_resource_name)--- for more info. The request becomes a no-op if the asset name list is--- empty, and the max size of the asset name list is 100 in one request.-obgahAssetNames :: Lens' OrganizationsBatchGetAssetsHistory [Text]-obgahAssetNames-  = lens _obgahAssetNames-      (\ s a -> s{_obgahAssetNames = a})-      . _Default-      . _Coerce---- | Start time of the time window (exclusive).-obgahReadTimeWindowStartTime :: Lens' OrganizationsBatchGetAssetsHistory (Maybe UTCTime)-obgahReadTimeWindowStartTime-  = lens _obgahReadTimeWindowStartTime-      (\ s a -> s{_obgahReadTimeWindowStartTime = a})-      . mapping _DateTime---- | Required. The content type.-obgahContentType :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Text)-obgahContentType-  = lens _obgahContentType-      (\ s a -> s{_obgahContentType = a})---- | JSONP-obgahCallback :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Text)-obgahCallback-  = lens _obgahCallback-      (\ s a -> s{_obgahCallback = a})--instance GoogleRequest-         OrganizationsBatchGetAssetsHistory where-        type Rs OrganizationsBatchGetAssetsHistory =-             BatchGetAssetsHistoryResponse-        type Scopes OrganizationsBatchGetAssetsHistory =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient OrganizationsBatchGetAssetsHistory'{..}-          = go _obgahParent _obgahXgafv-              _obgahReadTimeWindowEndTime-              _obgahUploadProtocol-              _obgahAccessToken-              _obgahUploadType-              (_obgahAssetNames ^. _Default)-              _obgahReadTimeWindowStartTime-              _obgahContentType-              _obgahCallback-              (Just AltJSON)-              cloudAssetService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy OrganizationsBatchGetAssetsHistoryResource)-                      mempty

@@ -1,169 +0,0 @@-{-# 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.CloudAsset.Organizations.ExportAssets--- 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)------ Exports assets with time and resource types to a given Cloud Storage--- location. The output format is newline-delimited JSON. This API--- implements the google.longrunning.Operation API allowing you to keep--- track of the export.------ /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.organizations.exportAssets@.-module Network.Google.Resource.CloudAsset.Organizations.ExportAssets-    (-    -- * REST Resource-      OrganizationsExportAssetsResource--    -- * Creating a Request-    , organizationsExportAssets-    , OrganizationsExportAssets--    -- * Request Lenses-    , oeaParent-    , oeaXgafv-    , oeaUploadProtocol-    , oeaAccessToken-    , oeaUploadType-    , oeaPayload-    , oeaCallback-    ) where--import           Network.Google.CloudAsset.Types-import           Network.Google.Prelude---- | A resource alias for @cloudasset.organizations.exportAssets@ method which the--- 'OrganizationsExportAssets' request conforms to.-type OrganizationsExportAssetsResource =-     "v1beta1" :>-       CaptureMode "parent" "exportAssets" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] ExportAssetsRequest :>-                       Post '[JSON] Operation---- | Exports assets with time and resource types to a given Cloud Storage--- location. The output format is newline-delimited JSON. This API--- implements the google.longrunning.Operation API allowing you to keep--- track of the export.------ /See:/ 'organizationsExportAssets' smart constructor.-data OrganizationsExportAssets = OrganizationsExportAssets'-    { _oeaParent         :: !Text-    , _oeaXgafv          :: !(Maybe Xgafv)-    , _oeaUploadProtocol :: !(Maybe Text)-    , _oeaAccessToken    :: !(Maybe Text)-    , _oeaUploadType     :: !(Maybe Text)-    , _oeaPayload        :: !ExportAssetsRequest-    , _oeaCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'OrganizationsExportAssets' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oeaParent'------ * 'oeaXgafv'------ * 'oeaUploadProtocol'------ * 'oeaAccessToken'------ * 'oeaUploadType'------ * 'oeaPayload'------ * 'oeaCallback'-organizationsExportAssets-    :: Text -- ^ 'oeaParent'-    -> ExportAssetsRequest -- ^ 'oeaPayload'-    -> OrganizationsExportAssets-organizationsExportAssets pOeaParent_ pOeaPayload_ =-    OrganizationsExportAssets'-    { _oeaParent = pOeaParent_-    , _oeaXgafv = Nothing-    , _oeaUploadProtocol = Nothing-    , _oeaAccessToken = Nothing-    , _oeaUploadType = Nothing-    , _oeaPayload = pOeaPayload_-    , _oeaCallback = Nothing-    }---- | Required. The relative name of the root asset. This can only be an--- organization number (such as \"organizations\/123\"), a project ID (such--- as \"projects\/my-project-id\"), or a project number (such as--- \"projects\/12345\").-oeaParent :: Lens' OrganizationsExportAssets Text-oeaParent-  = lens _oeaParent (\ s a -> s{_oeaParent = a})---- | V1 error format.-oeaXgafv :: Lens' OrganizationsExportAssets (Maybe Xgafv)-oeaXgafv = lens _oeaXgafv (\ s a -> s{_oeaXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-oeaUploadProtocol :: Lens' OrganizationsExportAssets (Maybe Text)-oeaUploadProtocol-  = lens _oeaUploadProtocol-      (\ s a -> s{_oeaUploadProtocol = a})---- | OAuth access token.-oeaAccessToken :: Lens' OrganizationsExportAssets (Maybe Text)-oeaAccessToken-  = lens _oeaAccessToken-      (\ s a -> s{_oeaAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-oeaUploadType :: Lens' OrganizationsExportAssets (Maybe Text)-oeaUploadType-  = lens _oeaUploadType-      (\ s a -> s{_oeaUploadType = a})---- | Multipart request metadata.-oeaPayload :: Lens' OrganizationsExportAssets ExportAssetsRequest-oeaPayload-  = lens _oeaPayload (\ s a -> s{_oeaPayload = a})---- | JSONP-oeaCallback :: Lens' OrganizationsExportAssets (Maybe Text)-oeaCallback-  = lens _oeaCallback (\ s a -> s{_oeaCallback = a})--instance GoogleRequest OrganizationsExportAssets-         where-        type Rs OrganizationsExportAssets = Operation-        type Scopes OrganizationsExportAssets =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient OrganizationsExportAssets'{..}-          = go _oeaParent _oeaXgafv _oeaUploadProtocol-              _oeaAccessToken-              _oeaUploadType-              _oeaCallback-              (Just AltJSON)-              _oeaPayload-              cloudAssetService-          where go-                  = buildClient-                      (Proxy :: Proxy OrganizationsExportAssetsResource)-                      mempty

@@ -1,149 +0,0 @@-{-# 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.CloudAsset.Organizations.Operations.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 the latest state of a long-running operation. Clients can use this--- method to poll the operation result at intervals as recommended by the--- API service.------ /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.organizations.operations.get@.-module Network.Google.Resource.CloudAsset.Organizations.Operations.Get-    (-    -- * REST Resource-      OrganizationsOperationsGetResource--    -- * Creating a Request-    , organizationsOperationsGet-    , OrganizationsOperationsGet--    -- * Request Lenses-    , oogXgafv-    , oogUploadProtocol-    , oogAccessToken-    , oogUploadType-    , oogName-    , oogCallback-    ) where--import           Network.Google.CloudAsset.Types-import           Network.Google.Prelude---- | A resource alias for @cloudasset.organizations.operations.get@ method which the--- 'OrganizationsOperationsGet' request conforms to.-type OrganizationsOperationsGetResource =-     "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] Operation---- | Gets the latest state of a long-running operation. Clients can use this--- method to poll the operation result at intervals as recommended by the--- API service.------ /See:/ 'organizationsOperationsGet' smart constructor.-data OrganizationsOperationsGet = OrganizationsOperationsGet'-    { _oogXgafv          :: !(Maybe Xgafv)-    , _oogUploadProtocol :: !(Maybe Text)-    , _oogAccessToken    :: !(Maybe Text)-    , _oogUploadType     :: !(Maybe Text)-    , _oogName           :: !Text-    , _oogCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'OrganizationsOperationsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oogXgafv'------ * 'oogUploadProtocol'------ * 'oogAccessToken'------ * 'oogUploadType'------ * 'oogName'------ * 'oogCallback'-organizationsOperationsGet-    :: Text -- ^ 'oogName'-    -> OrganizationsOperationsGet-organizationsOperationsGet pOogName_ =-    OrganizationsOperationsGet'-    { _oogXgafv = Nothing-    , _oogUploadProtocol = Nothing-    , _oogAccessToken = Nothing-    , _oogUploadType = Nothing-    , _oogName = pOogName_-    , _oogCallback = Nothing-    }---- | V1 error format.-oogXgafv :: Lens' OrganizationsOperationsGet (Maybe Xgafv)-oogXgafv = lens _oogXgafv (\ s a -> s{_oogXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-oogUploadProtocol :: Lens' OrganizationsOperationsGet (Maybe Text)-oogUploadProtocol-  = lens _oogUploadProtocol-      (\ s a -> s{_oogUploadProtocol = a})---- | OAuth access token.-oogAccessToken :: Lens' OrganizationsOperationsGet (Maybe Text)-oogAccessToken-  = lens _oogAccessToken-      (\ s a -> s{_oogAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-oogUploadType :: Lens' OrganizationsOperationsGet (Maybe Text)-oogUploadType-  = lens _oogUploadType-      (\ s a -> s{_oogUploadType = a})---- | The name of the operation resource.-oogName :: Lens' OrganizationsOperationsGet Text-oogName = lens _oogName (\ s a -> s{_oogName = a})---- | JSONP-oogCallback :: Lens' OrganizationsOperationsGet (Maybe Text)-oogCallback-  = lens _oogCallback (\ s a -> s{_oogCallback = a})--instance GoogleRequest OrganizationsOperationsGet-         where-        type Rs OrganizationsOperationsGet = Operation-        type Scopes OrganizationsOperationsGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient OrganizationsOperationsGet'{..}-          = go _oogName _oogXgafv _oogUploadProtocol-              _oogAccessToken-              _oogUploadType-              _oogCallback-              (Just AltJSON)-              cloudAssetService-          where go-                  = buildClient-                      (Proxy :: Proxy OrganizationsOperationsGetResource)-                      mempty

@@ -1,225 +0,0 @@-{-# 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.CloudAsset.Projects.BatchGetAssetsHistory--- 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)------ Batch gets the update history of assets that overlap a time window. For--- RESOURCE content, this API outputs history with asset in both non-delete--- or deleted status. For IAM_POLICY content, this API outputs history when--- the asset and its attached IAM POLICY both exist. This can create gaps--- in the output history.------ /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.projects.batchGetAssetsHistory@.-module Network.Google.Resource.CloudAsset.Projects.BatchGetAssetsHistory-    (-    -- * REST Resource-      ProjectsBatchGetAssetsHistoryResource--    -- * Creating a Request-    , projectsBatchGetAssetsHistory-    , ProjectsBatchGetAssetsHistory--    -- * Request Lenses-    , pbgahParent-    , pbgahXgafv-    , pbgahReadTimeWindowEndTime-    , pbgahUploadProtocol-    , pbgahAccessToken-    , pbgahUploadType-    , pbgahAssetNames-    , pbgahReadTimeWindowStartTime-    , pbgahContentType-    , pbgahCallback-    ) where--import           Network.Google.CloudAsset.Types-import           Network.Google.Prelude---- | A resource alias for @cloudasset.projects.batchGetAssetsHistory@ method which the--- 'ProjectsBatchGetAssetsHistory' request conforms to.-type ProjectsBatchGetAssetsHistoryResource =-     "v1beta1" :>-       CaptureMode "parent" "batchGetAssetsHistory" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "readTimeWindow.endTime" DateTime' :>-             QueryParam "upload_protocol" Text :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParams "assetNames" Text :>-                     QueryParam "readTimeWindow.startTime" DateTime' :>-                       QueryParam "contentType" Text :>-                         QueryParam "callback" Text :>-                           QueryParam "alt" AltJSON :>-                             Get '[JSON] BatchGetAssetsHistoryResponse---- | Batch gets the update history of assets that overlap a time window. For--- RESOURCE content, this API outputs history with asset in both non-delete--- or deleted status. For IAM_POLICY content, this API outputs history when--- the asset and its attached IAM POLICY both exist. This can create gaps--- in the output history.------ /See:/ 'projectsBatchGetAssetsHistory' smart constructor.-data ProjectsBatchGetAssetsHistory = ProjectsBatchGetAssetsHistory'-    { _pbgahParent                  :: !Text-    , _pbgahXgafv                   :: !(Maybe Xgafv)-    , _pbgahReadTimeWindowEndTime   :: !(Maybe DateTime')-    , _pbgahUploadProtocol          :: !(Maybe Text)-    , _pbgahAccessToken             :: !(Maybe Text)-    , _pbgahUploadType              :: !(Maybe Text)-    , _pbgahAssetNames              :: !(Maybe [Text])-    , _pbgahReadTimeWindowStartTime :: !(Maybe DateTime')-    , _pbgahContentType             :: !(Maybe Text)-    , _pbgahCallback                :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'ProjectsBatchGetAssetsHistory' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pbgahParent'------ * 'pbgahXgafv'------ * 'pbgahReadTimeWindowEndTime'------ * 'pbgahUploadProtocol'------ * 'pbgahAccessToken'------ * 'pbgahUploadType'------ * 'pbgahAssetNames'------ * 'pbgahReadTimeWindowStartTime'------ * 'pbgahContentType'------ * 'pbgahCallback'-projectsBatchGetAssetsHistory-    :: Text -- ^ 'pbgahParent'-    -> ProjectsBatchGetAssetsHistory-projectsBatchGetAssetsHistory pPbgahParent_ =-    ProjectsBatchGetAssetsHistory'-    { _pbgahParent = pPbgahParent_-    , _pbgahXgafv = Nothing-    , _pbgahReadTimeWindowEndTime = Nothing-    , _pbgahUploadProtocol = Nothing-    , _pbgahAccessToken = Nothing-    , _pbgahUploadType = Nothing-    , _pbgahAssetNames = Nothing-    , _pbgahReadTimeWindowStartTime = Nothing-    , _pbgahContentType = Nothing-    , _pbgahCallback = Nothing-    }---- | Required. The relative name of the root asset. It can only be an--- organization number (such as \"organizations\/123\"), a project ID (such--- as \"projects\/my-project-id\")\", or a project number (such as--- \"projects\/12345\").-pbgahParent :: Lens' ProjectsBatchGetAssetsHistory Text-pbgahParent-  = lens _pbgahParent (\ s a -> s{_pbgahParent = a})---- | V1 error format.-pbgahXgafv :: Lens' ProjectsBatchGetAssetsHistory (Maybe Xgafv)-pbgahXgafv-  = lens _pbgahXgafv (\ s a -> s{_pbgahXgafv = a})---- | End time of the time window (inclusive). Current timestamp if not--- specified.-pbgahReadTimeWindowEndTime :: Lens' ProjectsBatchGetAssetsHistory (Maybe UTCTime)-pbgahReadTimeWindowEndTime-  = lens _pbgahReadTimeWindowEndTime-      (\ s a -> s{_pbgahReadTimeWindowEndTime = a})-      . mapping _DateTime---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pbgahUploadProtocol :: Lens' ProjectsBatchGetAssetsHistory (Maybe Text)-pbgahUploadProtocol-  = lens _pbgahUploadProtocol-      (\ s a -> s{_pbgahUploadProtocol = a})---- | OAuth access token.-pbgahAccessToken :: Lens' ProjectsBatchGetAssetsHistory (Maybe Text)-pbgahAccessToken-  = lens _pbgahAccessToken-      (\ s a -> s{_pbgahAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pbgahUploadType :: Lens' ProjectsBatchGetAssetsHistory (Maybe Text)-pbgahUploadType-  = lens _pbgahUploadType-      (\ s a -> s{_pbgahUploadType = a})---- | A list of the full names of the assets. For example:--- \`\/\/compute.googleapis.com\/projects\/my_project_123\/zones\/zone1\/instances\/instance1\`.--- See [Resource--- Names](https:\/\/cloud.google.com\/apis\/design\/resource_names#full_resource_name)--- for more info. The request becomes a no-op if the asset name list is--- empty, and the max size of the asset name list is 100 in one request.-pbgahAssetNames :: Lens' ProjectsBatchGetAssetsHistory [Text]-pbgahAssetNames-  = lens _pbgahAssetNames-      (\ s a -> s{_pbgahAssetNames = a})-      . _Default-      . _Coerce---- | Start time of the time window (exclusive).-pbgahReadTimeWindowStartTime :: Lens' ProjectsBatchGetAssetsHistory (Maybe UTCTime)-pbgahReadTimeWindowStartTime-  = lens _pbgahReadTimeWindowStartTime-      (\ s a -> s{_pbgahReadTimeWindowStartTime = a})-      . mapping _DateTime---- | Required. The content type.-pbgahContentType :: Lens' ProjectsBatchGetAssetsHistory (Maybe Text)-pbgahContentType-  = lens _pbgahContentType-      (\ s a -> s{_pbgahContentType = a})---- | JSONP-pbgahCallback :: Lens' ProjectsBatchGetAssetsHistory (Maybe Text)-pbgahCallback-  = lens _pbgahCallback-      (\ s a -> s{_pbgahCallback = a})--instance GoogleRequest ProjectsBatchGetAssetsHistory-         where-        type Rs ProjectsBatchGetAssetsHistory =-             BatchGetAssetsHistoryResponse-        type Scopes ProjectsBatchGetAssetsHistory =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsBatchGetAssetsHistory'{..}-          = go _pbgahParent _pbgahXgafv-              _pbgahReadTimeWindowEndTime-              _pbgahUploadProtocol-              _pbgahAccessToken-              _pbgahUploadType-              (_pbgahAssetNames ^. _Default)-              _pbgahReadTimeWindowStartTime-              _pbgahContentType-              _pbgahCallback-              (Just AltJSON)-              cloudAssetService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsBatchGetAssetsHistoryResource)-                      mempty

@@ -1,168 +0,0 @@-{-# 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.CloudAsset.Projects.ExportAssets--- 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)------ Exports assets with time and resource types to a given Cloud Storage--- location. The output format is newline-delimited JSON. This API--- implements the google.longrunning.Operation API allowing you to keep--- track of the export.------ /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.projects.exportAssets@.-module Network.Google.Resource.CloudAsset.Projects.ExportAssets-    (-    -- * REST Resource-      ProjectsExportAssetsResource--    -- * Creating a Request-    , projectsExportAssets-    , ProjectsExportAssets--    -- * Request Lenses-    , peaParent-    , peaXgafv-    , peaUploadProtocol-    , peaAccessToken-    , peaUploadType-    , peaPayload-    , peaCallback-    ) where--import           Network.Google.CloudAsset.Types-import           Network.Google.Prelude---- | A resource alias for @cloudasset.projects.exportAssets@ method which the--- 'ProjectsExportAssets' request conforms to.-type ProjectsExportAssetsResource =-     "v1beta1" :>-       CaptureMode "parent" "exportAssets" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] ExportAssetsRequest :>-                       Post '[JSON] Operation---- | Exports assets with time and resource types to a given Cloud Storage--- location. The output format is newline-delimited JSON. This API--- implements the google.longrunning.Operation API allowing you to keep--- track of the export.------ /See:/ 'projectsExportAssets' smart constructor.-data ProjectsExportAssets = ProjectsExportAssets'-    { _peaParent         :: !Text-    , _peaXgafv          :: !(Maybe Xgafv)-    , _peaUploadProtocol :: !(Maybe Text)-    , _peaAccessToken    :: !(Maybe Text)-    , _peaUploadType     :: !(Maybe Text)-    , _peaPayload        :: !ExportAssetsRequest-    , _peaCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'ProjectsExportAssets' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'peaParent'------ * 'peaXgafv'------ * 'peaUploadProtocol'------ * 'peaAccessToken'------ * 'peaUploadType'------ * 'peaPayload'------ * 'peaCallback'-projectsExportAssets-    :: Text -- ^ 'peaParent'-    -> ExportAssetsRequest -- ^ 'peaPayload'-    -> ProjectsExportAssets-projectsExportAssets pPeaParent_ pPeaPayload_ =-    ProjectsExportAssets'-    { _peaParent = pPeaParent_-    , _peaXgafv = Nothing-    , _peaUploadProtocol = Nothing-    , _peaAccessToken = Nothing-    , _peaUploadType = Nothing-    , _peaPayload = pPeaPayload_-    , _peaCallback = Nothing-    }---- | Required. The relative name of the root asset. This can only be an--- organization number (such as \"organizations\/123\"), a project ID (such--- as \"projects\/my-project-id\"), or a project number (such as--- \"projects\/12345\").-peaParent :: Lens' ProjectsExportAssets Text-peaParent-  = lens _peaParent (\ s a -> s{_peaParent = a})---- | V1 error format.-peaXgafv :: Lens' ProjectsExportAssets (Maybe Xgafv)-peaXgafv = lens _peaXgafv (\ s a -> s{_peaXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-peaUploadProtocol :: Lens' ProjectsExportAssets (Maybe Text)-peaUploadProtocol-  = lens _peaUploadProtocol-      (\ s a -> s{_peaUploadProtocol = a})---- | OAuth access token.-peaAccessToken :: Lens' ProjectsExportAssets (Maybe Text)-peaAccessToken-  = lens _peaAccessToken-      (\ s a -> s{_peaAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-peaUploadType :: Lens' ProjectsExportAssets (Maybe Text)-peaUploadType-  = lens _peaUploadType-      (\ s a -> s{_peaUploadType = a})---- | Multipart request metadata.-peaPayload :: Lens' ProjectsExportAssets ExportAssetsRequest-peaPayload-  = lens _peaPayload (\ s a -> s{_peaPayload = a})---- | JSONP-peaCallback :: Lens' ProjectsExportAssets (Maybe Text)-peaCallback-  = lens _peaCallback (\ s a -> s{_peaCallback = a})--instance GoogleRequest ProjectsExportAssets where-        type Rs ProjectsExportAssets = Operation-        type Scopes ProjectsExportAssets =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsExportAssets'{..}-          = go _peaParent _peaXgafv _peaUploadProtocol-              _peaAccessToken-              _peaUploadType-              _peaCallback-              (Just AltJSON)-              _peaPayload-              cloudAssetService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsExportAssetsResource)-                      mempty

@@ -1,148 +0,0 @@-{-# 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.CloudAsset.Projects.Operations.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 the latest state of a long-running operation. Clients can use this--- method to poll the operation result at intervals as recommended by the--- API service.------ /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.projects.operations.get@.-module Network.Google.Resource.CloudAsset.Projects.Operations.Get-    (-    -- * REST Resource-      ProjectsOperationsGetResource--    -- * Creating a Request-    , projectsOperationsGet-    , ProjectsOperationsGet--    -- * Request Lenses-    , pogXgafv-    , pogUploadProtocol-    , pogAccessToken-    , pogUploadType-    , pogName-    , pogCallback-    ) where--import           Network.Google.CloudAsset.Types-import           Network.Google.Prelude---- | A resource alias for @cloudasset.projects.operations.get@ method which the--- 'ProjectsOperationsGet' request conforms to.-type ProjectsOperationsGetResource =-     "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] Operation---- | Gets the latest state of a long-running operation. Clients can use this--- method to poll the operation result at intervals as recommended by the--- API service.------ /See:/ 'projectsOperationsGet' smart constructor.-data ProjectsOperationsGet = ProjectsOperationsGet'-    { _pogXgafv          :: !(Maybe Xgafv)-    , _pogUploadProtocol :: !(Maybe Text)-    , _pogAccessToken    :: !(Maybe Text)-    , _pogUploadType     :: !(Maybe Text)-    , _pogName           :: !Text-    , _pogCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'ProjectsOperationsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pogXgafv'------ * 'pogUploadProtocol'------ * 'pogAccessToken'------ * 'pogUploadType'------ * 'pogName'------ * 'pogCallback'-projectsOperationsGet-    :: Text -- ^ 'pogName'-    -> ProjectsOperationsGet-projectsOperationsGet pPogName_ =-    ProjectsOperationsGet'-    { _pogXgafv = Nothing-    , _pogUploadProtocol = Nothing-    , _pogAccessToken = Nothing-    , _pogUploadType = Nothing-    , _pogName = pPogName_-    , _pogCallback = Nothing-    }---- | V1 error format.-pogXgafv :: Lens' ProjectsOperationsGet (Maybe Xgafv)-pogXgafv = lens _pogXgafv (\ s a -> s{_pogXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pogUploadProtocol :: Lens' ProjectsOperationsGet (Maybe Text)-pogUploadProtocol-  = lens _pogUploadProtocol-      (\ s a -> s{_pogUploadProtocol = a})---- | OAuth access token.-pogAccessToken :: Lens' ProjectsOperationsGet (Maybe Text)-pogAccessToken-  = lens _pogAccessToken-      (\ s a -> s{_pogAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pogUploadType :: Lens' ProjectsOperationsGet (Maybe Text)-pogUploadType-  = lens _pogUploadType-      (\ s a -> s{_pogUploadType = a})---- | The name of the operation resource.-pogName :: Lens' ProjectsOperationsGet Text-pogName = lens _pogName (\ s a -> s{_pogName = a})---- | JSONP-pogCallback :: Lens' ProjectsOperationsGet (Maybe Text)-pogCallback-  = lens _pogCallback (\ s a -> s{_pogCallback = a})--instance GoogleRequest ProjectsOperationsGet where-        type Rs ProjectsOperationsGet = Operation-        type Scopes ProjectsOperationsGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsOperationsGet'{..}-          = go _pogName _pogXgafv _pogUploadProtocol-              _pogAccessToken-              _pogUploadType-              _pogCallback-              (Just AltJSON)-              cloudAssetService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsOperationsGetResource)-                      mempty

@@ -1,5 +1,5 @@ name:                  gogol-cloudasset-version:               0.4.0+version:               0.5.0 synopsis:              Google Cloud Asset SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -20,7 +20,7 @@     /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@+    This library is compatible with version @v1@     of the API.  source-repository head@@ -36,17 +36,14 @@     exposed-modules:           Network.Google.CloudAsset         , Network.Google.CloudAsset.Types-        , Network.Google.Resource.CloudAsset.Organizations.BatchGetAssetsHistory-        , Network.Google.Resource.CloudAsset.Organizations.ExportAssets-        , Network.Google.Resource.CloudAsset.Organizations.Operations.Get-        , Network.Google.Resource.CloudAsset.Projects.BatchGetAssetsHistory-        , Network.Google.Resource.CloudAsset.Projects.ExportAssets-        , Network.Google.Resource.CloudAsset.Projects.Operations.Get+        , Network.Google.Resource.CloudAsset.BatchGetAssetsHistory+        , Network.Google.Resource.CloudAsset.ExportAssets+        , Network.Google.Resource.CloudAsset.Operations.Get      other-modules:           Network.Google.CloudAsset.Types.Product         , Network.Google.CloudAsset.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5