module Network.Google.Resource.Partners.ClientMessages.Log
(
ClientMessagesLogResource
, clientMessagesLog
, ClientMessagesLog
, cmlXgafv
, cmlUploadProtocol
, cmlPp
, cmlAccessToken
, cmlUploadType
, cmlPayload
, cmlBearerToken
, cmlCallback
) where
import Network.Google.Partners.Types
import Network.Google.Prelude
type ClientMessagesLogResource =
"v2" :>
"clientMessages: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] LogMessageRequest :>
Post '[JSON] LogMessageResponse
data ClientMessagesLog = ClientMessagesLog'
{ _cmlXgafv :: !(Maybe Text)
, _cmlUploadProtocol :: !(Maybe Text)
, _cmlPp :: !Bool
, _cmlAccessToken :: !(Maybe Text)
, _cmlUploadType :: !(Maybe Text)
, _cmlPayload :: !LogMessageRequest
, _cmlBearerToken :: !(Maybe Text)
, _cmlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
clientMessagesLog
:: LogMessageRequest
-> ClientMessagesLog
clientMessagesLog pCmlPayload_ =
ClientMessagesLog'
{ _cmlXgafv = Nothing
, _cmlUploadProtocol = Nothing
, _cmlPp = True
, _cmlAccessToken = Nothing
, _cmlUploadType = Nothing
, _cmlPayload = pCmlPayload_
, _cmlBearerToken = Nothing
, _cmlCallback = Nothing
}
cmlXgafv :: Lens' ClientMessagesLog (Maybe Text)
cmlXgafv = lens _cmlXgafv (\ s a -> s{_cmlXgafv = a})
cmlUploadProtocol :: Lens' ClientMessagesLog (Maybe Text)
cmlUploadProtocol
= lens _cmlUploadProtocol
(\ s a -> s{_cmlUploadProtocol = a})
cmlPp :: Lens' ClientMessagesLog Bool
cmlPp = lens _cmlPp (\ s a -> s{_cmlPp = a})
cmlAccessToken :: Lens' ClientMessagesLog (Maybe Text)
cmlAccessToken
= lens _cmlAccessToken
(\ s a -> s{_cmlAccessToken = a})
cmlUploadType :: Lens' ClientMessagesLog (Maybe Text)
cmlUploadType
= lens _cmlUploadType
(\ s a -> s{_cmlUploadType = a})
cmlPayload :: Lens' ClientMessagesLog LogMessageRequest
cmlPayload
= lens _cmlPayload (\ s a -> s{_cmlPayload = a})
cmlBearerToken :: Lens' ClientMessagesLog (Maybe Text)
cmlBearerToken
= lens _cmlBearerToken
(\ s a -> s{_cmlBearerToken = a})
cmlCallback :: Lens' ClientMessagesLog (Maybe Text)
cmlCallback
= lens _cmlCallback (\ s a -> s{_cmlCallback = a})
instance GoogleRequest ClientMessagesLog where
type Rs ClientMessagesLog = LogMessageResponse
type Scopes ClientMessagesLog = '[]
requestClient ClientMessagesLog'{..}
= go _cmlXgafv _cmlUploadProtocol (Just _cmlPp)
_cmlAccessToken
_cmlUploadType
_cmlBearerToken
_cmlCallback
(Just AltJSON)
_cmlPayload
partnersService
where go
= buildClient
(Proxy :: Proxy ClientMessagesLogResource)
mempty