{-# 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.YouTubeAnalytics.GroupItems.Delete
(
GroupItemsDeleteResource
, groupItemsDelete
, GroupItemsDelete
, gidXgafv
, gidUploadProtocol
, gidAccessToken
, gidUploadType
, gidOnBehalfOfContentOwner
, gidId
, gidCallback
) where
import Network.Google.Prelude
import Network.Google.YouTubeAnalytics.Types
type GroupItemsDeleteResource =
"v2" :>
"groupItems" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "onBehalfOfContentOwner" Text :>
QueryParam "id" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Delete '[JSON] EmptyResponse
data GroupItemsDelete = GroupItemsDelete'
{ _gidXgafv :: !(Maybe Xgafv)
, _gidUploadProtocol :: !(Maybe Text)
, _gidAccessToken :: !(Maybe Text)
, _gidUploadType :: !(Maybe Text)
, _gidOnBehalfOfContentOwner :: !(Maybe Text)
, _gidId :: !(Maybe Text)
, _gidCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
groupItemsDelete
:: GroupItemsDelete
groupItemsDelete =
GroupItemsDelete'
{ _gidXgafv = Nothing
, _gidUploadProtocol = Nothing
, _gidAccessToken = Nothing
, _gidUploadType = Nothing
, _gidOnBehalfOfContentOwner = Nothing
, _gidId = Nothing
, _gidCallback = Nothing
}
gidXgafv :: Lens' GroupItemsDelete (Maybe Xgafv)
gidXgafv = lens _gidXgafv (\ s a -> s{_gidXgafv = a})
gidUploadProtocol :: Lens' GroupItemsDelete (Maybe Text)
gidUploadProtocol
= lens _gidUploadProtocol
(\ s a -> s{_gidUploadProtocol = a})
gidAccessToken :: Lens' GroupItemsDelete (Maybe Text)
gidAccessToken
= lens _gidAccessToken
(\ s a -> s{_gidAccessToken = a})
gidUploadType :: Lens' GroupItemsDelete (Maybe Text)
gidUploadType
= lens _gidUploadType
(\ s a -> s{_gidUploadType = a})
gidOnBehalfOfContentOwner :: Lens' GroupItemsDelete (Maybe Text)
gidOnBehalfOfContentOwner
= lens _gidOnBehalfOfContentOwner
(\ s a -> s{_gidOnBehalfOfContentOwner = a})
gidId :: Lens' GroupItemsDelete (Maybe Text)
gidId = lens _gidId (\ s a -> s{_gidId = a})
gidCallback :: Lens' GroupItemsDelete (Maybe Text)
gidCallback
= lens _gidCallback (\ s a -> s{_gidCallback = a})
instance GoogleRequest GroupItemsDelete where
type Rs GroupItemsDelete = EmptyResponse
type Scopes GroupItemsDelete =
'["https://www.googleapis.com/auth/youtube",
"https://www.googleapis.com/auth/youtube.readonly",
"https://www.googleapis.com/auth/youtubepartner",
"https://www.googleapis.com/auth/yt-analytics-monetary.readonly",
"https://www.googleapis.com/auth/yt-analytics.readonly"]
requestClient GroupItemsDelete'{..}
= go _gidXgafv _gidUploadProtocol _gidAccessToken
_gidUploadType
_gidOnBehalfOfContentOwner
_gidId
_gidCallback
(Just AltJSON)
youTubeAnalyticsService
where go
= buildClient
(Proxy :: Proxy GroupItemsDeleteResource)
mempty