{-# 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.AnalyticsReporting.UserActivity.Search
(
UserActivitySearchResource
, userActivitySearch
, UserActivitySearch
, uasXgafv
, uasUploadProtocol
, uasAccessToken
, uasUploadType
, uasPayload
, uasCallback
) where
import Network.Google.AnalyticsReporting.Types
import Network.Google.Prelude
type UserActivitySearchResource =
"v4" :>
"userActivity:search" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] SearchUserActivityRequest :>
Post '[JSON] SearchUserActivityResponse
data UserActivitySearch =
UserActivitySearch'
{ _uasXgafv :: !(Maybe Xgafv)
, _uasUploadProtocol :: !(Maybe Text)
, _uasAccessToken :: !(Maybe Text)
, _uasUploadType :: !(Maybe Text)
, _uasPayload :: !SearchUserActivityRequest
, _uasCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
userActivitySearch
:: SearchUserActivityRequest
-> UserActivitySearch
userActivitySearch pUasPayload_ =
UserActivitySearch'
{ _uasXgafv = Nothing
, _uasUploadProtocol = Nothing
, _uasAccessToken = Nothing
, _uasUploadType = Nothing
, _uasPayload = pUasPayload_
, _uasCallback = Nothing
}
uasXgafv :: Lens' UserActivitySearch (Maybe Xgafv)
uasXgafv = lens _uasXgafv (\ s a -> s{_uasXgafv = a})
uasUploadProtocol :: Lens' UserActivitySearch (Maybe Text)
uasUploadProtocol
= lens _uasUploadProtocol
(\ s a -> s{_uasUploadProtocol = a})
uasAccessToken :: Lens' UserActivitySearch (Maybe Text)
uasAccessToken
= lens _uasAccessToken
(\ s a -> s{_uasAccessToken = a})
uasUploadType :: Lens' UserActivitySearch (Maybe Text)
uasUploadType
= lens _uasUploadType
(\ s a -> s{_uasUploadType = a})
uasPayload :: Lens' UserActivitySearch SearchUserActivityRequest
uasPayload
= lens _uasPayload (\ s a -> s{_uasPayload = a})
uasCallback :: Lens' UserActivitySearch (Maybe Text)
uasCallback
= lens _uasCallback (\ s a -> s{_uasCallback = a})
instance GoogleRequest UserActivitySearch where
type Rs UserActivitySearch =
SearchUserActivityResponse
type Scopes UserActivitySearch =
'["https://www.googleapis.com/auth/analytics",
"https://www.googleapis.com/auth/analytics.readonly"]
requestClient UserActivitySearch'{..}
= go _uasXgafv _uasUploadProtocol _uasAccessToken
_uasUploadType
_uasCallback
(Just AltJSON)
_uasPayload
analyticsReportingService
where go
= buildClient
(Proxy :: Proxy UserActivitySearchResource)
mempty