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