{-# 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.Suggestscore
(
CommentsSuggestscoreResource
, commentsSuggestscore
, CommentsSuggestscore
, csXgafv
, csUploadProtocol
, csAccessToken
, csUploadType
, csPayload
, csCallback
) where
import Network.Google.CommentAnalyzer.Types
import Network.Google.Prelude
type CommentsSuggestscoreResource =
"v1alpha1" :>
"comments:suggestscore" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] SuggestCommentScoreRequest :>
Post '[JSON] SuggestCommentScoreResponse
data CommentsSuggestscore =
CommentsSuggestscore'
{ _csXgafv :: !(Maybe Xgafv)
, _csUploadProtocol :: !(Maybe Text)
, _csAccessToken :: !(Maybe Text)
, _csUploadType :: !(Maybe Text)
, _csPayload :: !SuggestCommentScoreRequest
, _csCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
commentsSuggestscore
:: SuggestCommentScoreRequest
-> CommentsSuggestscore
commentsSuggestscore pCsPayload_ =
CommentsSuggestscore'
{ _csXgafv = Nothing
, _csUploadProtocol = Nothing
, _csAccessToken = Nothing
, _csUploadType = Nothing
, _csPayload = pCsPayload_
, _csCallback = Nothing
}
csXgafv :: Lens' CommentsSuggestscore (Maybe Xgafv)
csXgafv = lens _csXgafv (\ s a -> s{_csXgafv = a})
csUploadProtocol :: Lens' CommentsSuggestscore (Maybe Text)
csUploadProtocol
= lens _csUploadProtocol
(\ s a -> s{_csUploadProtocol = a})
csAccessToken :: Lens' CommentsSuggestscore (Maybe Text)
csAccessToken
= lens _csAccessToken
(\ s a -> s{_csAccessToken = a})
csUploadType :: Lens' CommentsSuggestscore (Maybe Text)
csUploadType
= lens _csUploadType (\ s a -> s{_csUploadType = a})
csPayload :: Lens' CommentsSuggestscore SuggestCommentScoreRequest
csPayload
= lens _csPayload (\ s a -> s{_csPayload = a})
csCallback :: Lens' CommentsSuggestscore (Maybe Text)
csCallback
= lens _csCallback (\ s a -> s{_csCallback = a})
instance GoogleRequest CommentsSuggestscore where
type Rs CommentsSuggestscore =
SuggestCommentScoreResponse
type Scopes CommentsSuggestscore =
'["https://www.googleapis.com/auth/userinfo.email"]
requestClient CommentsSuggestscore'{..}
= go _csXgafv _csUploadProtocol _csAccessToken
_csUploadType
_csCallback
(Just AltJSON)
_csPayload
commentAnalyzerService
where go
= buildClient
(Proxy :: Proxy CommentsSuggestscoreResource)
mempty