{-# 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.YouTube.PlayListItems.Delete
(
PlayListItemsDeleteResource
, playListItemsDelete
, PlayListItemsDelete
, plidOnBehalfOfContentOwner
, plidId
) where
import Network.Google.Prelude
import Network.Google.YouTube.Types
type PlayListItemsDeleteResource =
"youtube" :>
"v3" :>
"playlistItems" :>
QueryParam "id" Text :>
QueryParam "onBehalfOfContentOwner" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data PlayListItemsDelete = PlayListItemsDelete'
{ _plidOnBehalfOfContentOwner :: !(Maybe Text)
, _plidId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
playListItemsDelete
:: Text
-> PlayListItemsDelete
playListItemsDelete pPlidId_ =
PlayListItemsDelete'
{ _plidOnBehalfOfContentOwner = Nothing
, _plidId = pPlidId_
}
plidOnBehalfOfContentOwner :: Lens' PlayListItemsDelete (Maybe Text)
plidOnBehalfOfContentOwner
= lens _plidOnBehalfOfContentOwner
(\ s a -> s{_plidOnBehalfOfContentOwner = a})
plidId :: Lens' PlayListItemsDelete Text
plidId = lens _plidId (\ s a -> s{_plidId = a})
instance GoogleRequest PlayListItemsDelete where
type Rs PlayListItemsDelete = ()
type Scopes PlayListItemsDelete =
'["https://www.googleapis.com/auth/youtube",
"https://www.googleapis.com/auth/youtube.force-ssl",
"https://www.googleapis.com/auth/youtubepartner"]
requestClient PlayListItemsDelete'{..}
= go (Just _plidId) _plidOnBehalfOfContentOwner
(Just AltJSON)
youTubeService
where go
= buildClient
(Proxy :: Proxy PlayListItemsDeleteResource)
mempty