module Network.Google.Resource.Partners.UserEvents.Log
(
UserEventsLogResource
, userEventsLog
, UserEventsLog
, uelXgafv
, uelUploadProtocol
, uelPp
, uelAccessToken
, uelUploadType
, uelPayload
, uelBearerToken
, uelCallback
) where
import Network.Google.Partners.Types
import Network.Google.Prelude
type UserEventsLogResource =
"v2" :>
"userEvents:log" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] LogUserEventRequest :>
Post '[JSON] LogUserEventResponse
data UserEventsLog = UserEventsLog'
{ _uelXgafv :: !(Maybe Text)
, _uelUploadProtocol :: !(Maybe Text)
, _uelPp :: !Bool
, _uelAccessToken :: !(Maybe Text)
, _uelUploadType :: !(Maybe Text)
, _uelPayload :: !LogUserEventRequest
, _uelBearerToken :: !(Maybe Text)
, _uelCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
userEventsLog
:: LogUserEventRequest
-> UserEventsLog
userEventsLog pUelPayload_ =
UserEventsLog'
{ _uelXgafv = Nothing
, _uelUploadProtocol = Nothing
, _uelPp = True
, _uelAccessToken = Nothing
, _uelUploadType = Nothing
, _uelPayload = pUelPayload_
, _uelBearerToken = Nothing
, _uelCallback = Nothing
}
uelXgafv :: Lens' UserEventsLog (Maybe Text)
uelXgafv = lens _uelXgafv (\ s a -> s{_uelXgafv = a})
uelUploadProtocol :: Lens' UserEventsLog (Maybe Text)
uelUploadProtocol
= lens _uelUploadProtocol
(\ s a -> s{_uelUploadProtocol = a})
uelPp :: Lens' UserEventsLog Bool
uelPp = lens _uelPp (\ s a -> s{_uelPp = a})
uelAccessToken :: Lens' UserEventsLog (Maybe Text)
uelAccessToken
= lens _uelAccessToken
(\ s a -> s{_uelAccessToken = a})
uelUploadType :: Lens' UserEventsLog (Maybe Text)
uelUploadType
= lens _uelUploadType
(\ s a -> s{_uelUploadType = a})
uelPayload :: Lens' UserEventsLog LogUserEventRequest
uelPayload
= lens _uelPayload (\ s a -> s{_uelPayload = a})
uelBearerToken :: Lens' UserEventsLog (Maybe Text)
uelBearerToken
= lens _uelBearerToken
(\ s a -> s{_uelBearerToken = a})
uelCallback :: Lens' UserEventsLog (Maybe Text)
uelCallback
= lens _uelCallback (\ s a -> s{_uelCallback = a})
instance GoogleRequest UserEventsLog where
type Rs UserEventsLog = LogUserEventResponse
type Scopes UserEventsLog = '[]
requestClient UserEventsLog'{..}
= go _uelXgafv _uelUploadProtocol (Just _uelPp)
_uelAccessToken
_uelUploadType
_uelBearerToken
_uelCallback
(Just AltJSON)
_uelPayload
partnersService
where go
= buildClient (Proxy :: Proxy UserEventsLogResource)
mempty