module Network.Google.Resource.Sheets.Spreadsheets.Values.Append
(
SpreadsheetsValuesAppendResource
, spreadsheetsValuesAppend
, SpreadsheetsValuesAppend
, svaXgafv
, svaUploadProtocol
, svaPp
, svaAccessToken
, svaSpreadsheetId
, svaUploadType
, svaValueInputOption
, svaPayload
, svaInsertDataOption
, svaBearerToken
, svaRange
, svaCallback
) where
import Network.Google.Prelude
import Network.Google.Sheets.Types
type SpreadsheetsValuesAppendResource =
"v4" :>
"spreadsheets" :>
Capture "spreadsheetId" Text :>
"values" :>
CaptureMode "range" "append" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "valueInputOption" Text :>
QueryParam "insertDataOption" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] ValueRange :>
Post '[JSON] AppendValuesResponse
data SpreadsheetsValuesAppend = SpreadsheetsValuesAppend'
{ _svaXgafv :: !(Maybe Xgafv)
, _svaUploadProtocol :: !(Maybe Text)
, _svaPp :: !Bool
, _svaAccessToken :: !(Maybe Text)
, _svaSpreadsheetId :: !Text
, _svaUploadType :: !(Maybe Text)
, _svaValueInputOption :: !(Maybe Text)
, _svaPayload :: !ValueRange
, _svaInsertDataOption :: !(Maybe Text)
, _svaBearerToken :: !(Maybe Text)
, _svaRange :: !Text
, _svaCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
spreadsheetsValuesAppend
:: Text
-> ValueRange
-> Text
-> SpreadsheetsValuesAppend
spreadsheetsValuesAppend pSvaSpreadsheetId_ pSvaPayload_ pSvaRange_ =
SpreadsheetsValuesAppend'
{ _svaXgafv = Nothing
, _svaUploadProtocol = Nothing
, _svaPp = True
, _svaAccessToken = Nothing
, _svaSpreadsheetId = pSvaSpreadsheetId_
, _svaUploadType = Nothing
, _svaValueInputOption = Nothing
, _svaPayload = pSvaPayload_
, _svaInsertDataOption = Nothing
, _svaBearerToken = Nothing
, _svaRange = pSvaRange_
, _svaCallback = Nothing
}
svaXgafv :: Lens' SpreadsheetsValuesAppend (Maybe Xgafv)
svaXgafv = lens _svaXgafv (\ s a -> s{_svaXgafv = a})
svaUploadProtocol :: Lens' SpreadsheetsValuesAppend (Maybe Text)
svaUploadProtocol
= lens _svaUploadProtocol
(\ s a -> s{_svaUploadProtocol = a})
svaPp :: Lens' SpreadsheetsValuesAppend Bool
svaPp = lens _svaPp (\ s a -> s{_svaPp = a})
svaAccessToken :: Lens' SpreadsheetsValuesAppend (Maybe Text)
svaAccessToken
= lens _svaAccessToken
(\ s a -> s{_svaAccessToken = a})
svaSpreadsheetId :: Lens' SpreadsheetsValuesAppend Text
svaSpreadsheetId
= lens _svaSpreadsheetId
(\ s a -> s{_svaSpreadsheetId = a})
svaUploadType :: Lens' SpreadsheetsValuesAppend (Maybe Text)
svaUploadType
= lens _svaUploadType
(\ s a -> s{_svaUploadType = a})
svaValueInputOption :: Lens' SpreadsheetsValuesAppend (Maybe Text)
svaValueInputOption
= lens _svaValueInputOption
(\ s a -> s{_svaValueInputOption = a})
svaPayload :: Lens' SpreadsheetsValuesAppend ValueRange
svaPayload
= lens _svaPayload (\ s a -> s{_svaPayload = a})
svaInsertDataOption :: Lens' SpreadsheetsValuesAppend (Maybe Text)
svaInsertDataOption
= lens _svaInsertDataOption
(\ s a -> s{_svaInsertDataOption = a})
svaBearerToken :: Lens' SpreadsheetsValuesAppend (Maybe Text)
svaBearerToken
= lens _svaBearerToken
(\ s a -> s{_svaBearerToken = a})
svaRange :: Lens' SpreadsheetsValuesAppend Text
svaRange = lens _svaRange (\ s a -> s{_svaRange = a})
svaCallback :: Lens' SpreadsheetsValuesAppend (Maybe Text)
svaCallback
= lens _svaCallback (\ s a -> s{_svaCallback = a})
instance GoogleRequest SpreadsheetsValuesAppend where
type Rs SpreadsheetsValuesAppend =
AppendValuesResponse
type Scopes SpreadsheetsValuesAppend =
'["https://www.googleapis.com/auth/drive",
"https://www.googleapis.com/auth/spreadsheets"]
requestClient SpreadsheetsValuesAppend'{..}
= go _svaSpreadsheetId _svaRange _svaXgafv
_svaUploadProtocol
(Just _svaPp)
_svaAccessToken
_svaUploadType
_svaValueInputOption
_svaInsertDataOption
_svaBearerToken
_svaCallback
(Just AltJSON)
_svaPayload
sheetsService
where go
= buildClient
(Proxy :: Proxy SpreadsheetsValuesAppendResource)
mempty