{-# 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.Subscriptions.Delete
(
SubscriptionsDeleteResource
, subscriptionsDelete
, SubscriptionsDelete
, sdId
) where
import Network.Google.Prelude
import Network.Google.YouTube.Types
type SubscriptionsDeleteResource =
"youtube" :>
"v3" :>
"subscriptions" :>
QueryParam "id" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
newtype SubscriptionsDelete = SubscriptionsDelete'
{ _sdId :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
subscriptionsDelete
:: Text
-> SubscriptionsDelete
subscriptionsDelete pSdId_ =
SubscriptionsDelete'
{ _sdId = pSdId_
}
sdId :: Lens' SubscriptionsDelete Text
sdId = lens _sdId (\ s a -> s{_sdId = a})
instance GoogleRequest SubscriptionsDelete where
type Rs SubscriptionsDelete = ()
type Scopes SubscriptionsDelete =
'["https://www.googleapis.com/auth/youtube",
"https://www.googleapis.com/auth/youtube.force-ssl",
"https://www.googleapis.com/auth/youtubepartner"]
requestClient SubscriptionsDelete'{..}
= go (Just _sdId) (Just AltJSON) youTubeService
where go
= buildClient
(Proxy :: Proxy SubscriptionsDeleteResource)
mempty