{-# 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.OAuth2.UserInfo.V2.Me.Get
(
UserInfoV2MeGetResource
, userInfoV2MeGet
, UserInfoV2MeGet
) where
import Network.Google.OAuth2.Types
import Network.Google.Prelude
type UserInfoV2MeGetResource =
"userinfo" :>
"v2" :>
"me" :>
QueryParam "alt" AltJSON :> Get '[JSON] UserInfoplus
data UserInfoV2MeGet =
UserInfoV2MeGet'
deriving (Eq,Show,Data,Typeable,Generic)
userInfoV2MeGet
:: UserInfoV2MeGet
userInfoV2MeGet = UserInfoV2MeGet'
instance GoogleRequest UserInfoV2MeGet where
type Rs UserInfoV2MeGet = UserInfoplus
type Scopes UserInfoV2MeGet =
'["https://www.googleapis.com/auth/plus.login",
"https://www.googleapis.com/auth/plus.me",
"https://www.googleapis.com/auth/userinfo.email",
"https://www.googleapis.com/auth/userinfo.profile"]
requestClient UserInfoV2MeGet'{}
= go (Just AltJSON) oAuth2Service
where go
= buildClient
(Proxy :: Proxy UserInfoV2MeGetResource)
mempty