{-# 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.Dataflow.Projects.Locations.SQL.Validate
(
ProjectsLocationsSQLValidateResource
, projectsLocationsSQLValidate
, ProjectsLocationsSQLValidate
, plsqlvXgafv
, plsqlvUploadProtocol
, plsqlvLocation
, plsqlvAccessToken
, plsqlvUploadType
, plsqlvQuery
, plsqlvProjectId
, plsqlvCallback
) where
import Network.Google.Dataflow.Types
import Network.Google.Prelude
type ProjectsLocationsSQLValidateResource =
"v1b3" :>
"projects" :>
Capture "projectId" Text :>
"locations" :>
Capture "location" Text :>
"sql:validate" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "query" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ValidateResponse
data ProjectsLocationsSQLValidate =
ProjectsLocationsSQLValidate'
{ _plsqlvXgafv :: !(Maybe Xgafv)
, _plsqlvUploadProtocol :: !(Maybe Text)
, _plsqlvLocation :: !Text
, _plsqlvAccessToken :: !(Maybe Text)
, _plsqlvUploadType :: !(Maybe Text)
, _plsqlvQuery :: !(Maybe Text)
, _plsqlvProjectId :: !Text
, _plsqlvCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsLocationsSQLValidate
:: Text
-> Text
-> ProjectsLocationsSQLValidate
projectsLocationsSQLValidate pPlsqlvLocation_ pPlsqlvProjectId_ =
ProjectsLocationsSQLValidate'
{ _plsqlvXgafv = Nothing
, _plsqlvUploadProtocol = Nothing
, _plsqlvLocation = pPlsqlvLocation_
, _plsqlvAccessToken = Nothing
, _plsqlvUploadType = Nothing
, _plsqlvQuery = Nothing
, _plsqlvProjectId = pPlsqlvProjectId_
, _plsqlvCallback = Nothing
}
plsqlvXgafv :: Lens' ProjectsLocationsSQLValidate (Maybe Xgafv)
plsqlvXgafv
= lens _plsqlvXgafv (\ s a -> s{_plsqlvXgafv = a})
plsqlvUploadProtocol :: Lens' ProjectsLocationsSQLValidate (Maybe Text)
plsqlvUploadProtocol
= lens _plsqlvUploadProtocol
(\ s a -> s{_plsqlvUploadProtocol = a})
plsqlvLocation :: Lens' ProjectsLocationsSQLValidate Text
plsqlvLocation
= lens _plsqlvLocation
(\ s a -> s{_plsqlvLocation = a})
plsqlvAccessToken :: Lens' ProjectsLocationsSQLValidate (Maybe Text)
plsqlvAccessToken
= lens _plsqlvAccessToken
(\ s a -> s{_plsqlvAccessToken = a})
plsqlvUploadType :: Lens' ProjectsLocationsSQLValidate (Maybe Text)
plsqlvUploadType
= lens _plsqlvUploadType
(\ s a -> s{_plsqlvUploadType = a})
plsqlvQuery :: Lens' ProjectsLocationsSQLValidate (Maybe Text)
plsqlvQuery
= lens _plsqlvQuery (\ s a -> s{_plsqlvQuery = a})
plsqlvProjectId :: Lens' ProjectsLocationsSQLValidate Text
plsqlvProjectId
= lens _plsqlvProjectId
(\ s a -> s{_plsqlvProjectId = a})
plsqlvCallback :: Lens' ProjectsLocationsSQLValidate (Maybe Text)
plsqlvCallback
= lens _plsqlvCallback
(\ s a -> s{_plsqlvCallback = a})
instance GoogleRequest ProjectsLocationsSQLValidate
where
type Rs ProjectsLocationsSQLValidate =
ValidateResponse
type Scopes ProjectsLocationsSQLValidate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/userinfo.email"]
requestClient ProjectsLocationsSQLValidate'{..}
= go _plsqlvProjectId _plsqlvLocation _plsqlvXgafv
_plsqlvUploadProtocol
_plsqlvAccessToken
_plsqlvUploadType
_plsqlvQuery
_plsqlvCallback
(Just AltJSON)
dataflowService
where go
= buildClient
(Proxy :: Proxy ProjectsLocationsSQLValidateResource)
mempty