{-# 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.CommentAnalyzer.Comments.Analyze
(
CommentsAnalyzeResource
, commentsAnalyze
, CommentsAnalyze
, caXgafv
, caUploadProtocol
, caAccessToken
, caUploadType
, caPayload
, caCallback
) where
import Network.Google.CommentAnalyzer.Types
import Network.Google.Prelude
type CommentsAnalyzeResource =
"v1alpha1" :>
"comments:analyze" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] AnalyzeCommentRequest :>
Post '[JSON] AnalyzeCommentResponse
data CommentsAnalyze =
CommentsAnalyze'
{ _caXgafv :: !(Maybe Xgafv)
, _caUploadProtocol :: !(Maybe Text)
, _caAccessToken :: !(Maybe Text)
, _caUploadType :: !(Maybe Text)
, _caPayload :: !AnalyzeCommentRequest
, _caCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
commentsAnalyze
:: AnalyzeCommentRequest
-> CommentsAnalyze
commentsAnalyze pCaPayload_ =
CommentsAnalyze'
{ _caXgafv = Nothing
, _caUploadProtocol = Nothing
, _caAccessToken = Nothing
, _caUploadType = Nothing
, _caPayload = pCaPayload_
, _caCallback = Nothing
}
caXgafv :: Lens' CommentsAnalyze (Maybe Xgafv)
caXgafv = lens _caXgafv (\ s a -> s{_caXgafv = a})
caUploadProtocol :: Lens' CommentsAnalyze (Maybe Text)
caUploadProtocol
= lens _caUploadProtocol
(\ s a -> s{_caUploadProtocol = a})
caAccessToken :: Lens' CommentsAnalyze (Maybe Text)
caAccessToken
= lens _caAccessToken
(\ s a -> s{_caAccessToken = a})
caUploadType :: Lens' CommentsAnalyze (Maybe Text)
caUploadType
= lens _caUploadType (\ s a -> s{_caUploadType = a})
caPayload :: Lens' CommentsAnalyze AnalyzeCommentRequest
caPayload
= lens _caPayload (\ s a -> s{_caPayload = a})
caCallback :: Lens' CommentsAnalyze (Maybe Text)
caCallback
= lens _caCallback (\ s a -> s{_caCallback = a})
instance GoogleRequest CommentsAnalyze where
type Rs CommentsAnalyze = AnalyzeCommentResponse
type Scopes CommentsAnalyze =
'["https://www.googleapis.com/auth/userinfo.email"]
requestClient CommentsAnalyze'{..}
= go _caXgafv _caUploadProtocol _caAccessToken
_caUploadType
_caCallback
(Just AltJSON)
_caPayload
commentAnalyzerService
where go
= buildClient
(Proxy :: Proxy CommentsAnalyzeResource)
mempty