module Network.Google.Resource.PubSub.Projects.Subscriptions.Get
(
ProjectsSubscriptionsGetResource
, projectsSubscriptionsGet
, ProjectsSubscriptionsGet
, psgXgafv
, psgUploadProtocol
, psgPp
, psgAccessToken
, psgUploadType
, psgBearerToken
, psgSubscription
, psgCallback
) where
import Network.Google.Prelude
import Network.Google.PubSub.Types
type ProjectsSubscriptionsGetResource =
"v1" :>
Capture "subscription" 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] Subscription
data ProjectsSubscriptionsGet = ProjectsSubscriptionsGet'
{ _psgXgafv :: !(Maybe Xgafv)
, _psgUploadProtocol :: !(Maybe Text)
, _psgPp :: !Bool
, _psgAccessToken :: !(Maybe Text)
, _psgUploadType :: !(Maybe Text)
, _psgBearerToken :: !(Maybe Text)
, _psgSubscription :: !Text
, _psgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsSubscriptionsGet
:: Text
-> ProjectsSubscriptionsGet
projectsSubscriptionsGet pPsgSubscription_ =
ProjectsSubscriptionsGet'
{ _psgXgafv = Nothing
, _psgUploadProtocol = Nothing
, _psgPp = True
, _psgAccessToken = Nothing
, _psgUploadType = Nothing
, _psgBearerToken = Nothing
, _psgSubscription = pPsgSubscription_
, _psgCallback = Nothing
}
psgXgafv :: Lens' ProjectsSubscriptionsGet (Maybe Xgafv)
psgXgafv = lens _psgXgafv (\ s a -> s{_psgXgafv = a})
psgUploadProtocol :: Lens' ProjectsSubscriptionsGet (Maybe Text)
psgUploadProtocol
= lens _psgUploadProtocol
(\ s a -> s{_psgUploadProtocol = a})
psgPp :: Lens' ProjectsSubscriptionsGet Bool
psgPp = lens _psgPp (\ s a -> s{_psgPp = a})
psgAccessToken :: Lens' ProjectsSubscriptionsGet (Maybe Text)
psgAccessToken
= lens _psgAccessToken
(\ s a -> s{_psgAccessToken = a})
psgUploadType :: Lens' ProjectsSubscriptionsGet (Maybe Text)
psgUploadType
= lens _psgUploadType
(\ s a -> s{_psgUploadType = a})
psgBearerToken :: Lens' ProjectsSubscriptionsGet (Maybe Text)
psgBearerToken
= lens _psgBearerToken
(\ s a -> s{_psgBearerToken = a})
psgSubscription :: Lens' ProjectsSubscriptionsGet Text
psgSubscription
= lens _psgSubscription
(\ s a -> s{_psgSubscription = a})
psgCallback :: Lens' ProjectsSubscriptionsGet (Maybe Text)
psgCallback
= lens _psgCallback (\ s a -> s{_psgCallback = a})
instance GoogleRequest ProjectsSubscriptionsGet where
type Rs ProjectsSubscriptionsGet = Subscription
type Scopes ProjectsSubscriptionsGet =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/pubsub"]
requestClient ProjectsSubscriptionsGet'{..}
= go _psgSubscription _psgXgafv _psgUploadProtocol
(Just _psgPp)
_psgAccessToken
_psgUploadType
_psgBearerToken
_psgCallback
(Just AltJSON)
pubSubService
where go
= buildClient
(Proxy :: Proxy ProjectsSubscriptionsGetResource)
mempty