module Network.Google.Resource.Slides.Presentations.Pages.Get
(
PresentationsPagesGetResource
, presentationsPagesGet
, PresentationsPagesGet
, ppgXgafv
, ppgUploadProtocol
, ppgPp
, ppgAccessToken
, ppgPageObjectId
, ppgUploadType
, ppgPresentationId
, ppgBearerToken
, ppgCallback
) where
import Network.Google.Prelude
import Network.Google.Slides.Types
type PresentationsPagesGetResource =
"v1" :>
"presentations" :>
Capture "presentationId" Text :>
"pages" :>
Capture "pageObjectId" Text :>
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 :> Get '[JSON] Page
data PresentationsPagesGet = PresentationsPagesGet'
{ _ppgXgafv :: !(Maybe Xgafv)
, _ppgUploadProtocol :: !(Maybe Text)
, _ppgPp :: !Bool
, _ppgAccessToken :: !(Maybe Text)
, _ppgPageObjectId :: !Text
, _ppgUploadType :: !(Maybe Text)
, _ppgPresentationId :: !Text
, _ppgBearerToken :: !(Maybe Text)
, _ppgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
presentationsPagesGet
:: Text
-> Text
-> PresentationsPagesGet
presentationsPagesGet pPpgPageObjectId_ pPpgPresentationId_ =
PresentationsPagesGet'
{ _ppgXgafv = Nothing
, _ppgUploadProtocol = Nothing
, _ppgPp = True
, _ppgAccessToken = Nothing
, _ppgPageObjectId = pPpgPageObjectId_
, _ppgUploadType = Nothing
, _ppgPresentationId = pPpgPresentationId_
, _ppgBearerToken = Nothing
, _ppgCallback = Nothing
}
ppgXgafv :: Lens' PresentationsPagesGet (Maybe Xgafv)
ppgXgafv = lens _ppgXgafv (\ s a -> s{_ppgXgafv = a})
ppgUploadProtocol :: Lens' PresentationsPagesGet (Maybe Text)
ppgUploadProtocol
= lens _ppgUploadProtocol
(\ s a -> s{_ppgUploadProtocol = a})
ppgPp :: Lens' PresentationsPagesGet Bool
ppgPp = lens _ppgPp (\ s a -> s{_ppgPp = a})
ppgAccessToken :: Lens' PresentationsPagesGet (Maybe Text)
ppgAccessToken
= lens _ppgAccessToken
(\ s a -> s{_ppgAccessToken = a})
ppgPageObjectId :: Lens' PresentationsPagesGet Text
ppgPageObjectId
= lens _ppgPageObjectId
(\ s a -> s{_ppgPageObjectId = a})
ppgUploadType :: Lens' PresentationsPagesGet (Maybe Text)
ppgUploadType
= lens _ppgUploadType
(\ s a -> s{_ppgUploadType = a})
ppgPresentationId :: Lens' PresentationsPagesGet Text
ppgPresentationId
= lens _ppgPresentationId
(\ s a -> s{_ppgPresentationId = a})
ppgBearerToken :: Lens' PresentationsPagesGet (Maybe Text)
ppgBearerToken
= lens _ppgBearerToken
(\ s a -> s{_ppgBearerToken = a})
ppgCallback :: Lens' PresentationsPagesGet (Maybe Text)
ppgCallback
= lens _ppgCallback (\ s a -> s{_ppgCallback = a})
instance GoogleRequest PresentationsPagesGet where
type Rs PresentationsPagesGet = Page
type Scopes PresentationsPagesGet =
'["https://www.googleapis.com/auth/drive",
"https://www.googleapis.com/auth/drive.readonly",
"https://www.googleapis.com/auth/presentations",
"https://www.googleapis.com/auth/presentations.readonly"]
requestClient PresentationsPagesGet'{..}
= go _ppgPresentationId _ppgPageObjectId _ppgXgafv
_ppgUploadProtocol
(Just _ppgPp)
_ppgAccessToken
_ppgUploadType
_ppgBearerToken
_ppgCallback
(Just AltJSON)
slidesService
where go
= buildClient
(Proxy :: Proxy PresentationsPagesGetResource)
mempty