{-# 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.Admin.Channels.Stop
(
ChannelsStopResource
, channelsStop
, ChannelsStop
, csPayload
) where
import Network.Google.Prelude
import Network.Google.Reports.Types
type ChannelsStopResource =
"admin" :>
"reports" :>
"v1" :>
"admin" :>
"reports_v1" :>
"channels" :>
"stop" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Channel :> Post '[JSON] ()
-- | Stop watching resources through this channel
--
-- /See:/ 'channelsStop' smart constructor.
newtype ChannelsStop = ChannelsStop'
{ _csPayload :: Channel
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'ChannelsStop' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'csPayload'
channelsStop
:: Channel -- ^ 'csPayload'
-> ChannelsStop
channelsStop pCsPayload_ =
ChannelsStop'
{ _csPayload = pCsPayload_
}
-- | Multipart request metadata.
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/admin.reports.audit.readonly"]
requestClient ChannelsStop'{..}
= go (Just AltJSON) _csPayload reportsService
where go
= buildClient (Proxy :: Proxy ChannelsStopResource)
mempty