{-# 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.Calendar.Channels.Stop
(
ChannelsStopResource
, channelsStop
, ChannelsStop
, csPayload
) where
import Network.Google.AppsCalendar.Types
import Network.Google.Prelude
type ChannelsStopResource =
"calendar" :>
"v3" :>
"channels" :>
"stop" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Channel :> Post '[JSON] ()
newtype ChannelsStop =
ChannelsStop'
{ _csPayload :: Channel
}
deriving (Eq, Show, Data, Typeable, Generic)
channelsStop
:: Channel
-> ChannelsStop
channelsStop pCsPayload_ = ChannelsStop' {_csPayload = pCsPayload_}
csPayload :: Lens' ChannelsStop Channel
csPayload
= lens _csPayload (\ s a -> s{_csPayload = a})
instance GoogleRequest ChannelsStop where
type Rs ChannelsStop = ()
type Scopes ChannelsStop =
'["https://www.googleapis.com/auth/calendar",
"https://www.googleapis.com/auth/calendar.events",
"https://www.googleapis.com/auth/calendar.events.readonly",
"https://www.googleapis.com/auth/calendar.readonly",
"https://www.googleapis.com/auth/calendar.settings.readonly"]
requestClient ChannelsStop'{..}
= go (Just AltJSON) _csPayload appsCalendarService
where go
= buildClient (Proxy :: Proxy ChannelsStopResource)
mempty