{-# 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.List
(
GroupItemsListResource
, groupItemsList
, GroupItemsList
, gilXgafv
, gilUploadProtocol
, gilAccessToken
, gilUploadType
, gilOnBehalfOfContentOwner
, gilGroupId
, gilCallback
) where
import Network.Google.Prelude
import Network.Google.YouTubeAnalytics.Types
type GroupItemsListResource =
"v2" :>
"groupItems" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "onBehalfOfContentOwner" Text :>
QueryParam "groupId" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListGroupItemsResponse
data GroupItemsList = GroupItemsList'
{ _gilXgafv :: !(Maybe Xgafv)
, _gilUploadProtocol :: !(Maybe Text)
, _gilAccessToken :: !(Maybe Text)
, _gilUploadType :: !(Maybe Text)
, _gilOnBehalfOfContentOwner :: !(Maybe Text)
, _gilGroupId :: !(Maybe Text)
, _gilCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
groupItemsList
:: GroupItemsList
groupItemsList =
GroupItemsList'
{ _gilXgafv = Nothing
, _gilUploadProtocol = Nothing
, _gilAccessToken = Nothing
, _gilUploadType = Nothing
, _gilOnBehalfOfContentOwner = Nothing
, _gilGroupId = Nothing
, _gilCallback = Nothing
}
gilXgafv :: Lens' GroupItemsList (Maybe Xgafv)
gilXgafv = lens _gilXgafv (\ s a -> s{_gilXgafv = a})
gilUploadProtocol :: Lens' GroupItemsList (Maybe Text)
gilUploadProtocol
= lens _gilUploadProtocol
(\ s a -> s{_gilUploadProtocol = a})
gilAccessToken :: Lens' GroupItemsList (Maybe Text)
gilAccessToken
= lens _gilAccessToken
(\ s a -> s{_gilAccessToken = a})
gilUploadType :: Lens' GroupItemsList (Maybe Text)
gilUploadType
= lens _gilUploadType
(\ s a -> s{_gilUploadType = a})
gilOnBehalfOfContentOwner :: Lens' GroupItemsList (Maybe Text)
gilOnBehalfOfContentOwner
= lens _gilOnBehalfOfContentOwner
(\ s a -> s{_gilOnBehalfOfContentOwner = a})
gilGroupId :: Lens' GroupItemsList (Maybe Text)
gilGroupId
= lens _gilGroupId (\ s a -> s{_gilGroupId = a})
gilCallback :: Lens' GroupItemsList (Maybe Text)
gilCallback
= lens _gilCallback (\ s a -> s{_gilCallback = a})
instance GoogleRequest GroupItemsList where
type Rs GroupItemsList = ListGroupItemsResponse
type Scopes GroupItemsList =
'["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 GroupItemsList'{..}
= go _gilXgafv _gilUploadProtocol _gilAccessToken
_gilUploadType
_gilOnBehalfOfContentOwner
_gilGroupId
_gilCallback
(Just AltJSON)
youTubeAnalyticsService
where go
= buildClient (Proxy :: Proxy GroupItemsListResource)
mempty