{-# 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.Analytics.Management.Uploads.DeleteUploadData
(
ManagementUploadsDeleteUploadDataResource
, managementUploadsDeleteUploadData
, ManagementUploadsDeleteUploadData
, mududWebPropertyId
, mududCustomDataSourceId
, mududPayload
, mududAccountId
) where
import Network.Google.Analytics.Types
import Network.Google.Prelude
type ManagementUploadsDeleteUploadDataResource =
"analytics" :>
"v3" :>
"management" :>
"accounts" :>
Capture "accountId" Text :>
"webproperties" :>
Capture "webPropertyId" Text :>
"customDataSources" :>
Capture "customDataSourceId" Text :>
"deleteUploadData" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
AnalyticsDataimportDeleteUploadDataRequest
:> Post '[JSON] ()
-- | Delete data associated with a previous upload.
--
-- /See:/ 'managementUploadsDeleteUploadData' smart constructor.
data ManagementUploadsDeleteUploadData = ManagementUploadsDeleteUploadData'
{ _mududWebPropertyId :: !Text
, _mududCustomDataSourceId :: !Text
, _mududPayload :: !AnalyticsDataimportDeleteUploadDataRequest
, _mududAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'ManagementUploadsDeleteUploadData' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'mududWebPropertyId'
--
-- * 'mududCustomDataSourceId'
--
-- * 'mududPayload'
--
-- * 'mududAccountId'
managementUploadsDeleteUploadData
:: Text -- ^ 'mududWebPropertyId'
-> Text -- ^ 'mududCustomDataSourceId'
-> AnalyticsDataimportDeleteUploadDataRequest -- ^ 'mududPayload'
-> Text -- ^ 'mududAccountId'
-> ManagementUploadsDeleteUploadData
managementUploadsDeleteUploadData pMududWebPropertyId_ pMududCustomDataSourceId_ pMududPayload_ pMududAccountId_ =
ManagementUploadsDeleteUploadData'
{ _mududWebPropertyId = pMududWebPropertyId_
, _mududCustomDataSourceId = pMududCustomDataSourceId_
, _mududPayload = pMududPayload_
, _mududAccountId = pMududAccountId_
}
-- | Web property Id for the uploads to be deleted.
mududWebPropertyId :: Lens' ManagementUploadsDeleteUploadData Text
mududWebPropertyId
= lens _mududWebPropertyId
(\ s a -> s{_mududWebPropertyId = a})
-- | Custom data source Id for the uploads to be deleted.
mududCustomDataSourceId :: Lens' ManagementUploadsDeleteUploadData Text
mududCustomDataSourceId
= lens _mududCustomDataSourceId
(\ s a -> s{_mududCustomDataSourceId = a})
-- | Multipart request metadata.
mududPayload :: Lens' ManagementUploadsDeleteUploadData AnalyticsDataimportDeleteUploadDataRequest
mududPayload
= lens _mududPayload (\ s a -> s{_mududPayload = a})
-- | Account Id for the uploads to be deleted.
mududAccountId :: Lens' ManagementUploadsDeleteUploadData Text
mududAccountId
= lens _mududAccountId
(\ s a -> s{_mududAccountId = a})
instance GoogleRequest
ManagementUploadsDeleteUploadData where
type Rs ManagementUploadsDeleteUploadData = ()
type Scopes ManagementUploadsDeleteUploadData =
'["https://www.googleapis.com/auth/analytics",
"https://www.googleapis.com/auth/analytics.edit"]
requestClient ManagementUploadsDeleteUploadData'{..}
= go _mududAccountId _mududWebPropertyId
_mududCustomDataSourceId
(Just AltJSON)
_mududPayload
analyticsService
where go
= buildClient
(Proxy ::
Proxy ManagementUploadsDeleteUploadDataResource)
mempty