{-# 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.Get
(
UserInfoGetResource
, userInfoGet
, UserInfoGet
) where
import Network.Google.OAuth2.Types
import Network.Google.Prelude
type UserInfoGetResource =
"oauth2" :>
"v2" :>
"userinfo" :>
QueryParam "alt" AltJSON :> Get '[JSON] UserInfoplus
data UserInfoGet =
UserInfoGet'
deriving (Eq,Show,Data,Typeable,Generic)
userInfoGet
:: UserInfoGet
userInfoGet = UserInfoGet'
instance GoogleRequest UserInfoGet where
type Rs UserInfoGet = UserInfoplus
type Scopes UserInfoGet =
'["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 UserInfoGet'{}
= go (Just AltJSON) oAuth2Service
where go
= buildClient (Proxy :: Proxy UserInfoGetResource)
mempty