{-# 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.ConsumerSurveys.MobileApppanels.Get
(
MobileApppanelsGetResource
, mobileApppanelsGet
, MobileApppanelsGet
, magPanelId
) where
import Network.Google.ConsumerSurveys.Types
import Network.Google.Prelude
type MobileApppanelsGetResource =
"consumersurveys" :>
"v2" :>
"mobileAppPanels" :>
Capture "panelId" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] MobileAppPanel
newtype MobileApppanelsGet = MobileApppanelsGet'
{ _magPanelId :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
mobileApppanelsGet
:: Text
-> MobileApppanelsGet
mobileApppanelsGet pMagPanelId_ =
MobileApppanelsGet'
{ _magPanelId = pMagPanelId_
}
magPanelId :: Lens' MobileApppanelsGet Text
magPanelId
= lens _magPanelId (\ s a -> s{_magPanelId = a})
instance GoogleRequest MobileApppanelsGet where
type Rs MobileApppanelsGet = MobileAppPanel
type Scopes MobileApppanelsGet =
'["https://www.googleapis.com/auth/consumersurveys",
"https://www.googleapis.com/auth/consumersurveys.readonly",
"https://www.googleapis.com/auth/userinfo.email"]
requestClient MobileApppanelsGet'{..}
= go _magPanelId (Just AltJSON)
consumerSurveysService
where go
= buildClient
(Proxy :: Proxy MobileApppanelsGetResource)
mempty