module Network.Google.Resource.Slides.Presentations.Create
(
PresentationsCreateResource
, presentationsCreate
, PresentationsCreate
, pcXgafv
, pcUploadProtocol
, pcPp
, pcAccessToken
, pcUploadType
, pcPayload
, pcBearerToken
, pcCallback
) where
import Network.Google.Prelude
import Network.Google.Slides.Types
type PresentationsCreateResource =
"v1" :>
"presentations" :>
QueryParam "$.xgafv" Xgafv :>
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] Presentation :>
Post '[JSON] Presentation
data PresentationsCreate = PresentationsCreate'
{ _pcXgafv :: !(Maybe Xgafv)
, _pcUploadProtocol :: !(Maybe Text)
, _pcPp :: !Bool
, _pcAccessToken :: !(Maybe Text)
, _pcUploadType :: !(Maybe Text)
, _pcPayload :: !Presentation
, _pcBearerToken :: !(Maybe Text)
, _pcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
presentationsCreate
:: Presentation
-> PresentationsCreate
presentationsCreate pPcPayload_ =
PresentationsCreate'
{ _pcXgafv = Nothing
, _pcUploadProtocol = Nothing
, _pcPp = True
, _pcAccessToken = Nothing
, _pcUploadType = Nothing
, _pcPayload = pPcPayload_
, _pcBearerToken = Nothing
, _pcCallback = Nothing
}
pcXgafv :: Lens' PresentationsCreate (Maybe Xgafv)
pcXgafv = lens _pcXgafv (\ s a -> s{_pcXgafv = a})
pcUploadProtocol :: Lens' PresentationsCreate (Maybe Text)
pcUploadProtocol
= lens _pcUploadProtocol
(\ s a -> s{_pcUploadProtocol = a})
pcPp :: Lens' PresentationsCreate Bool
pcPp = lens _pcPp (\ s a -> s{_pcPp = a})
pcAccessToken :: Lens' PresentationsCreate (Maybe Text)
pcAccessToken
= lens _pcAccessToken
(\ s a -> s{_pcAccessToken = a})
pcUploadType :: Lens' PresentationsCreate (Maybe Text)
pcUploadType
= lens _pcUploadType (\ s a -> s{_pcUploadType = a})
pcPayload :: Lens' PresentationsCreate Presentation
pcPayload
= lens _pcPayload (\ s a -> s{_pcPayload = a})
pcBearerToken :: Lens' PresentationsCreate (Maybe Text)
pcBearerToken
= lens _pcBearerToken
(\ s a -> s{_pcBearerToken = a})
pcCallback :: Lens' PresentationsCreate (Maybe Text)
pcCallback
= lens _pcCallback (\ s a -> s{_pcCallback = a})
instance GoogleRequest PresentationsCreate where
type Rs PresentationsCreate = Presentation
type Scopes PresentationsCreate =
'["https://www.googleapis.com/auth/drive",
"https://www.googleapis.com/auth/presentations"]
requestClient PresentationsCreate'{..}
= go _pcXgafv _pcUploadProtocol (Just _pcPp)
_pcAccessToken
_pcUploadType
_pcBearerToken
_pcCallback
(Just AltJSON)
_pcPayload
slidesService
where go
= buildClient
(Proxy :: Proxy PresentationsCreateResource)
mempty