{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MonoLocalBinds #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
module ORYHydra.API.Public where
import ORYHydra.Core
import ORYHydra.MimeTypes
import ORYHydra.Model as M
import qualified Data.Aeson as A
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
import qualified Data.Foldable as P
import qualified Data.Map as Map
import qualified Data.Maybe as P
import qualified Data.Proxy as P (Proxy(..))
import qualified Data.Set as Set
import qualified Data.String as P
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Data.Text.Lazy as TL
import qualified Data.Text.Lazy.Encoding as TL
import qualified Data.Time as TI
import qualified Network.HTTP.Client.MultipartFormData as NH
import qualified Network.HTTP.Media as ME
import qualified Network.HTTP.Types as NH
import qualified Web.FormUrlEncoded as WH
import qualified Web.HttpApiData as WH
import Data.Text (Text)
import GHC.Base ((<|>))
import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
import qualified Prelude as P
disconnectUser
:: ORYHydraRequest DisconnectUser MimeNoContent NoContent MimeNoContent
disconnectUser :: ORYHydraRequest
DisconnectUser MimeNoContent NoContent MimeNoContent
disconnectUser =
Method
-> [ByteString]
-> ORYHydraRequest
DisconnectUser MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/oauth2/sessions/logout"]
data DisconnectUser
instance Produces DisconnectUser MimeNoContent
discoverOpenIDConfiguration
:: ORYHydraRequest DiscoverOpenIDConfiguration MimeNoContent WellKnown MimeJSON
discoverOpenIDConfiguration :: ORYHydraRequest
DiscoverOpenIDConfiguration MimeNoContent WellKnown MimeJSON
discoverOpenIDConfiguration =
Method
-> [ByteString]
-> ORYHydraRequest
DiscoverOpenIDConfiguration MimeNoContent WellKnown MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/.well-known/openid-configuration"]
data DiscoverOpenIDConfiguration
instance Produces DiscoverOpenIDConfiguration MimeJSON
isInstanceReady
:: ORYHydraRequest IsInstanceReady MimeNoContent HealthStatus MimeJSON
isInstanceReady :: ORYHydraRequest IsInstanceReady MimeNoContent HealthStatus MimeJSON
isInstanceReady =
Method
-> [ByteString]
-> ORYHydraRequest
IsInstanceReady MimeNoContent HealthStatus MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/health/ready"]
data IsInstanceReady
instance Produces IsInstanceReady MimeJSON
oauth2Token
:: (Consumes Oauth2Token MimeFormUrlEncoded)
=> GrantType
-> ORYHydraRequest Oauth2Token MimeFormUrlEncoded Oauth2TokenResponse MimeJSON
oauth2Token :: GrantType
-> ORYHydraRequest
Oauth2Token MimeFormUrlEncoded Oauth2TokenResponse MimeJSON
oauth2Token (GrantType Text
grantType) =
Method
-> [ByteString]
-> ORYHydraRequest
Oauth2Token MimeFormUrlEncoded Oauth2TokenResponse MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/oauth2/token"]
ORYHydraRequest
Oauth2Token MimeFormUrlEncoded Oauth2TokenResponse MimeJSON
-> Proxy AuthBasicBasic
-> ORYHydraRequest
Oauth2Token MimeFormUrlEncoded Oauth2TokenResponse MimeJSON
forall authMethod req contentType res accept.
AuthMethod authMethod =>
ORYHydraRequest req contentType res accept
-> Proxy authMethod -> ORYHydraRequest req contentType res accept
`_hasAuthType` (Proxy AuthBasicBasic
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthBasicBasic)
ORYHydraRequest
Oauth2Token MimeFormUrlEncoded Oauth2TokenResponse MimeJSON
-> Proxy AuthOAuthOauth2
-> ORYHydraRequest
Oauth2Token MimeFormUrlEncoded Oauth2TokenResponse MimeJSON
forall authMethod req contentType res accept.
AuthMethod authMethod =>
ORYHydraRequest req contentType res accept
-> Proxy authMethod -> ORYHydraRequest req contentType res accept
`_hasAuthType` (Proxy AuthOAuthOauth2
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthOAuthOauth2)
ORYHydraRequest
Oauth2Token MimeFormUrlEncoded Oauth2TokenResponse MimeJSON
-> Form
-> ORYHydraRequest
Oauth2Token MimeFormUrlEncoded Oauth2TokenResponse MimeJSON
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> Form -> ORYHydraRequest req contentType res accept
`addForm` (Method, Text) -> Form
forall v. ToHttpApiData v => (Method, v) -> Form
toForm (Method
"grant_type", Text
grantType)
data Oauth2Token
instance HasOptionalParam Oauth2Token Code where
applyOptionalParam :: ORYHydraRequest Oauth2Token contentType res accept
-> Code -> ORYHydraRequest Oauth2Token contentType res accept
applyOptionalParam ORYHydraRequest Oauth2Token contentType res accept
req (Code Text
xs) =
ORYHydraRequest Oauth2Token contentType res accept
req ORYHydraRequest Oauth2Token contentType res accept
-> Form -> ORYHydraRequest Oauth2Token contentType res accept
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> Form -> ORYHydraRequest req contentType res accept
`addForm` (Method, Text) -> Form
forall v. ToHttpApiData v => (Method, v) -> Form
toForm (Method
"code", Text
xs)
instance HasOptionalParam Oauth2Token RefreshToken where
applyOptionalParam :: ORYHydraRequest Oauth2Token contentType res accept
-> RefreshToken
-> ORYHydraRequest Oauth2Token contentType res accept
applyOptionalParam ORYHydraRequest Oauth2Token contentType res accept
req (RefreshToken Text
xs) =
ORYHydraRequest Oauth2Token contentType res accept
req ORYHydraRequest Oauth2Token contentType res accept
-> Form -> ORYHydraRequest Oauth2Token contentType res accept
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> Form -> ORYHydraRequest req contentType res accept
`addForm` (Method, Text) -> Form
forall v. ToHttpApiData v => (Method, v) -> Form
toForm (Method
"refresh_token", Text
xs)
instance HasOptionalParam Oauth2Token RedirectUri where
applyOptionalParam :: ORYHydraRequest Oauth2Token contentType res accept
-> RedirectUri
-> ORYHydraRequest Oauth2Token contentType res accept
applyOptionalParam ORYHydraRequest Oauth2Token contentType res accept
req (RedirectUri Text
xs) =
ORYHydraRequest Oauth2Token contentType res accept
req ORYHydraRequest Oauth2Token contentType res accept
-> Form -> ORYHydraRequest Oauth2Token contentType res accept
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> Form -> ORYHydraRequest req contentType res accept
`addForm` (Method, Text) -> Form
forall v. ToHttpApiData v => (Method, v) -> Form
toForm (Method
"redirect_uri", Text
xs)
instance HasOptionalParam Oauth2Token ClientId where
applyOptionalParam :: ORYHydraRequest Oauth2Token contentType res accept
-> ClientId -> ORYHydraRequest Oauth2Token contentType res accept
applyOptionalParam ORYHydraRequest Oauth2Token contentType res accept
req (ClientId Text
xs) =
ORYHydraRequest Oauth2Token contentType res accept
req ORYHydraRequest Oauth2Token contentType res accept
-> Form -> ORYHydraRequest Oauth2Token contentType res accept
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> Form -> ORYHydraRequest req contentType res accept
`addForm` (Method, Text) -> Form
forall v. ToHttpApiData v => (Method, v) -> Form
toForm (Method
"client_id", Text
xs)
instance Consumes Oauth2Token MimeFormUrlEncoded
instance Produces Oauth2Token MimeJSON
oauthAuth
:: ORYHydraRequest OauthAuth MimeNoContent res MimeJSON
oauthAuth :: ORYHydraRequest OauthAuth MimeNoContent res MimeJSON
oauthAuth =
Method
-> [ByteString]
-> ORYHydraRequest OauthAuth MimeNoContent res MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/oauth2/auth"]
data OauthAuth
instance Produces OauthAuth MimeJSON
revokeOAuth2Token
:: (Consumes RevokeOAuth2Token MimeFormUrlEncoded)
=> Token
-> ORYHydraRequest RevokeOAuth2Token MimeFormUrlEncoded res MimeJSON
revokeOAuth2Token :: Token
-> ORYHydraRequest
RevokeOAuth2Token MimeFormUrlEncoded res MimeJSON
revokeOAuth2Token (Token Text
token) =
Method
-> [ByteString]
-> ORYHydraRequest
RevokeOAuth2Token MimeFormUrlEncoded res MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/oauth2/revoke"]
ORYHydraRequest RevokeOAuth2Token MimeFormUrlEncoded res MimeJSON
-> Proxy AuthBasicBasic
-> ORYHydraRequest
RevokeOAuth2Token MimeFormUrlEncoded res MimeJSON
forall authMethod req contentType res accept.
AuthMethod authMethod =>
ORYHydraRequest req contentType res accept
-> Proxy authMethod -> ORYHydraRequest req contentType res accept
`_hasAuthType` (Proxy AuthBasicBasic
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthBasicBasic)
ORYHydraRequest RevokeOAuth2Token MimeFormUrlEncoded res MimeJSON
-> Proxy AuthOAuthOauth2
-> ORYHydraRequest
RevokeOAuth2Token MimeFormUrlEncoded res MimeJSON
forall authMethod req contentType res accept.
AuthMethod authMethod =>
ORYHydraRequest req contentType res accept
-> Proxy authMethod -> ORYHydraRequest req contentType res accept
`_hasAuthType` (Proxy AuthOAuthOauth2
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthOAuthOauth2)
ORYHydraRequest RevokeOAuth2Token MimeFormUrlEncoded res MimeJSON
-> Form
-> ORYHydraRequest
RevokeOAuth2Token MimeFormUrlEncoded res MimeJSON
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> Form -> ORYHydraRequest req contentType res accept
`addForm` (Method, Text) -> Form
forall v. ToHttpApiData v => (Method, v) -> Form
toForm (Method
"token", Text
token)
data RevokeOAuth2Token
instance Consumes RevokeOAuth2Token MimeFormUrlEncoded
instance Produces RevokeOAuth2Token MimeJSON
userinfo
:: ORYHydraRequest Userinfo MimeNoContent UserinfoResponse MimeJSON
userinfo :: ORYHydraRequest Userinfo MimeNoContent UserinfoResponse MimeJSON
userinfo =
Method
-> [ByteString]
-> ORYHydraRequest Userinfo MimeNoContent UserinfoResponse MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/userinfo"]
ORYHydraRequest Userinfo MimeNoContent UserinfoResponse MimeJSON
-> Proxy AuthOAuthOauth2
-> ORYHydraRequest Userinfo MimeNoContent UserinfoResponse MimeJSON
forall authMethod req contentType res accept.
AuthMethod authMethod =>
ORYHydraRequest req contentType res accept
-> Proxy authMethod -> ORYHydraRequest req contentType res accept
`_hasAuthType` (Proxy AuthOAuthOauth2
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthOAuthOauth2)
data Userinfo
instance Produces Userinfo MimeJSON
wellKnown0
:: ORYHydraRequest WellKnown0 MimeNoContent JSONWebKeySet MimeJSON
wellKnown0 :: ORYHydraRequest WellKnown0 MimeNoContent JSONWebKeySet MimeJSON
wellKnown0 =
Method
-> [ByteString]
-> ORYHydraRequest WellKnown0 MimeNoContent JSONWebKeySet MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/.well-known/jwks.json"]
data WellKnown0
instance Produces WellKnown0 MimeJSON