diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/CloudAsset.hs b/gen/Network/Google/CloudAsset.hs --- a/gen/Network/Google/CloudAsset.hs +++ b/gen/Network/Google/CloudAsset.hs @@ -16,7 +16,7 @@ -- The cloud asset API manages the history and inventory of cloud -- resources. -- --- /See:/ +-- /See:/ 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 diff --git a/gen/Network/Google/CloudAsset/Types.hs b/gen/Network/Google/CloudAsset/Types.hs --- a/gen/Network/Google/CloudAsset/Types.hs +++ b/gen/Network/Google/CloudAsset/Types.hs @@ -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 diff --git a/gen/Network/Google/CloudAsset/Types/Product.hs b/gen/Network/Google/CloudAsset/Types/Product.hs --- a/gen/Network/Google/CloudAsset/Types/Product.hs +++ b/gen/Network/Google/CloudAsset/Types/Product.hs @@ -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}) diff --git a/gen/Network/Google/Resource/CloudAsset/BatchGetAssetsHistory.hs b/gen/Network/Google/Resource/CloudAsset/BatchGetAssetsHistory.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudAsset/BatchGetAssetsHistory.hs @@ -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 +-- 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:/ 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 diff --git a/gen/Network/Google/Resource/CloudAsset/ExportAssets.hs b/gen/Network/Google/Resource/CloudAsset/ExportAssets.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudAsset/ExportAssets.hs @@ -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 +-- 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:/ 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 diff --git a/gen/Network/Google/Resource/CloudAsset/Operations/Get.hs b/gen/Network/Google/Resource/CloudAsset/Operations/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudAsset/Operations/Get.hs @@ -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 +-- 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:/ 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 diff --git a/gen/Network/Google/Resource/CloudAsset/Organizations/BatchGetAssetsHistory.hs b/gen/Network/Google/Resource/CloudAsset/Organizations/BatchGetAssetsHistory.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudAsset/Organizations/BatchGetAssetsHistory.hs +++ /dev/null @@ -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 --- 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:/ 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 diff --git a/gen/Network/Google/Resource/CloudAsset/Organizations/ExportAssets.hs b/gen/Network/Google/Resource/CloudAsset/Organizations/ExportAssets.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudAsset/Organizations/ExportAssets.hs +++ /dev/null @@ -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 --- 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:/ 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 diff --git a/gen/Network/Google/Resource/CloudAsset/Organizations/Operations/Get.hs b/gen/Network/Google/Resource/CloudAsset/Organizations/Operations/Get.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudAsset/Organizations/Operations/Get.hs +++ /dev/null @@ -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 --- 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:/ 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 diff --git a/gen/Network/Google/Resource/CloudAsset/Projects/BatchGetAssetsHistory.hs b/gen/Network/Google/Resource/CloudAsset/Projects/BatchGetAssetsHistory.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudAsset/Projects/BatchGetAssetsHistory.hs +++ /dev/null @@ -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 --- 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:/ 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 diff --git a/gen/Network/Google/Resource/CloudAsset/Projects/ExportAssets.hs b/gen/Network/Google/Resource/CloudAsset/Projects/ExportAssets.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudAsset/Projects/ExportAssets.hs +++ /dev/null @@ -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 --- 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:/ 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 diff --git a/gen/Network/Google/Resource/CloudAsset/Projects/Operations/Get.hs b/gen/Network/Google/Resource/CloudAsset/Projects/Operations/Get.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudAsset/Projects/Operations/Get.hs +++ /dev/null @@ -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 --- 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:/ 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 diff --git a/gogol-cloudasset.cabal b/gogol-cloudasset.cabal --- a/gogol-cloudasset.cabal +++ b/gogol-cloudasset.cabal @@ -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