{-# 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.Admin 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
acceptConsentRequest0
:: (Consumes AcceptConsentRequest0 MimeJSON)
=> ConsentChallenge
-> ORYHydraRequest AcceptConsentRequest0 MimeJSON CompletedRequest MimeJSON
acceptConsentRequest0 :: ConsentChallenge
-> ORYHydraRequest
AcceptConsentRequest0 MimeJSON CompletedRequest MimeJSON
acceptConsentRequest0 (ConsentChallenge Text
consentChallenge) =
Method
-> [ByteString]
-> ORYHydraRequest
AcceptConsentRequest0 MimeJSON CompletedRequest MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/oauth2/auth/requests/consent/accept"]
ORYHydraRequest
AcceptConsentRequest0 MimeJSON CompletedRequest MimeJSON
-> [QueryItem]
-> ORYHydraRequest
AcceptConsentRequest0 MimeJSON CompletedRequest MimeJSON
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"consent_challenge", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
consentChallenge)
data AcceptConsentRequest0
instance HasBodyParam AcceptConsentRequest0 AcceptConsentRequest
instance Consumes AcceptConsentRequest0 MimeJSON
instance Produces AcceptConsentRequest0 MimeJSON
acceptLoginRequest0
:: (Consumes AcceptLoginRequest0 MimeJSON)
=> LoginChallenge
-> ORYHydraRequest AcceptLoginRequest0 MimeJSON CompletedRequest MimeJSON
acceptLoginRequest0 :: LoginChallenge
-> ORYHydraRequest
AcceptLoginRequest0 MimeJSON CompletedRequest MimeJSON
acceptLoginRequest0 (LoginChallenge Text
loginChallenge) =
Method
-> [ByteString]
-> ORYHydraRequest
AcceptLoginRequest0 MimeJSON CompletedRequest MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/oauth2/auth/requests/login/accept"]
ORYHydraRequest
AcceptLoginRequest0 MimeJSON CompletedRequest MimeJSON
-> [QueryItem]
-> ORYHydraRequest
AcceptLoginRequest0 MimeJSON CompletedRequest MimeJSON
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"login_challenge", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
loginChallenge)
data AcceptLoginRequest0
instance HasBodyParam AcceptLoginRequest0 AcceptLoginRequest
instance Consumes AcceptLoginRequest0 MimeJSON
instance Produces AcceptLoginRequest0 MimeJSON
acceptLogoutRequest
:: LogoutChallenge
-> ORYHydraRequest AcceptLogoutRequest MimeNoContent CompletedRequest MimeJSON
acceptLogoutRequest :: LogoutChallenge
-> ORYHydraRequest
AcceptLogoutRequest MimeNoContent CompletedRequest MimeJSON
acceptLogoutRequest (LogoutChallenge Text
logoutChallenge) =
Method
-> [ByteString]
-> ORYHydraRequest
AcceptLogoutRequest MimeNoContent CompletedRequest MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/oauth2/auth/requests/logout/accept"]
ORYHydraRequest
AcceptLogoutRequest MimeNoContent CompletedRequest MimeJSON
-> [QueryItem]
-> ORYHydraRequest
AcceptLogoutRequest MimeNoContent CompletedRequest MimeJSON
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"logout_challenge", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
logoutChallenge)
data AcceptLogoutRequest
instance Produces AcceptLogoutRequest MimeJSON
createJsonWebKeySet
:: (Consumes CreateJsonWebKeySet MimeJSON)
=> Set
-> ORYHydraRequest CreateJsonWebKeySet MimeJSON JSONWebKeySet MimeJSON
createJsonWebKeySet :: Set
-> ORYHydraRequest
CreateJsonWebKeySet MimeJSON JSONWebKeySet MimeJSON
createJsonWebKeySet (Set Text
set) =
Method
-> [ByteString]
-> ORYHydraRequest
CreateJsonWebKeySet MimeJSON JSONWebKeySet MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/keys/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
set]
data CreateJsonWebKeySet
instance HasBodyParam CreateJsonWebKeySet JsonWebKeySetGeneratorRequest
instance Consumes CreateJsonWebKeySet MimeJSON
instance Produces CreateJsonWebKeySet MimeJSON
createOAuth2Client
:: (Consumes CreateOAuth2Client MimeJSON, MimeRender MimeJSON OAuth2Client)
=> OAuth2Client
-> ORYHydraRequest CreateOAuth2Client MimeJSON OAuth2Client MimeJSON
createOAuth2Client :: OAuth2Client
-> ORYHydraRequest
CreateOAuth2Client MimeJSON OAuth2Client MimeJSON
createOAuth2Client OAuth2Client
body =
Method
-> [ByteString]
-> ORYHydraRequest
CreateOAuth2Client MimeJSON OAuth2Client MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/clients"]
ORYHydraRequest CreateOAuth2Client MimeJSON OAuth2Client MimeJSON
-> OAuth2Client
-> ORYHydraRequest
CreateOAuth2Client MimeJSON OAuth2Client MimeJSON
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
ORYHydraRequest req contentType res accept
-> param -> ORYHydraRequest req contentType res accept
`setBodyParam` OAuth2Client
body
data CreateOAuth2Client
instance HasBodyParam CreateOAuth2Client OAuth2Client
instance Consumes CreateOAuth2Client MimeJSON
instance Produces CreateOAuth2Client MimeJSON
deleteJsonWebKey
:: Kid
-> Set
-> ORYHydraRequest DeleteJsonWebKey MimeNoContent NoContent MimeNoContent
deleteJsonWebKey :: Kid
-> Set
-> ORYHydraRequest
DeleteJsonWebKey MimeNoContent NoContent MimeNoContent
deleteJsonWebKey (Kid Text
kid) (Set Text
set) =
Method
-> [ByteString]
-> ORYHydraRequest
DeleteJsonWebKey MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/keys/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
set,ByteString
"/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
kid]
data DeleteJsonWebKey
instance Produces DeleteJsonWebKey MimeNoContent
deleteJsonWebKeySet
:: Set
-> ORYHydraRequest DeleteJsonWebKeySet MimeNoContent NoContent MimeNoContent
deleteJsonWebKeySet :: Set
-> ORYHydraRequest
DeleteJsonWebKeySet MimeNoContent NoContent MimeNoContent
deleteJsonWebKeySet (Set Text
set) =
Method
-> [ByteString]
-> ORYHydraRequest
DeleteJsonWebKeySet MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/keys/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
set]
data DeleteJsonWebKeySet
instance Produces DeleteJsonWebKeySet MimeNoContent
deleteOAuth2Client
:: Id
-> ORYHydraRequest DeleteOAuth2Client MimeNoContent NoContent MimeNoContent
deleteOAuth2Client :: Id
-> ORYHydraRequest
DeleteOAuth2Client MimeNoContent NoContent MimeNoContent
deleteOAuth2Client (Id Text
id) =
Method
-> [ByteString]
-> ORYHydraRequest
DeleteOAuth2Client MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/clients/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
id]
data DeleteOAuth2Client
instance Produces DeleteOAuth2Client MimeNoContent
deleteOAuth2Token
:: ClientId
-> ORYHydraRequest DeleteOAuth2Token MimeNoContent NoContent MimeNoContent
deleteOAuth2Token :: ClientId
-> ORYHydraRequest
DeleteOAuth2Token MimeNoContent NoContent MimeNoContent
deleteOAuth2Token (ClientId Text
clientId) =
Method
-> [ByteString]
-> ORYHydraRequest
DeleteOAuth2Token MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/oauth2/tokens"]
ORYHydraRequest
DeleteOAuth2Token MimeNoContent NoContent MimeNoContent
-> [QueryItem]
-> ORYHydraRequest
DeleteOAuth2Token MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"client_id", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
clientId)
data DeleteOAuth2Token
instance Produces DeleteOAuth2Token MimeNoContent
flushInactiveOAuth2Tokens
:: (Consumes FlushInactiveOAuth2Tokens MimeJSON)
=> ORYHydraRequest FlushInactiveOAuth2Tokens MimeJSON NoContent MimeNoContent
flushInactiveOAuth2Tokens :: ORYHydraRequest
FlushInactiveOAuth2Tokens MimeJSON NoContent MimeNoContent
flushInactiveOAuth2Tokens =
Method
-> [ByteString]
-> ORYHydraRequest
FlushInactiveOAuth2Tokens MimeJSON NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/oauth2/flush"]
data FlushInactiveOAuth2Tokens
instance HasBodyParam FlushInactiveOAuth2Tokens FlushInactiveOAuth2TokensRequest
instance Consumes FlushInactiveOAuth2Tokens MimeJSON
instance Produces FlushInactiveOAuth2Tokens MimeNoContent
getConsentRequest
:: ConsentChallenge
-> ORYHydraRequest GetConsentRequest MimeNoContent ConsentRequest MimeJSON
getConsentRequest :: ConsentChallenge
-> ORYHydraRequest
GetConsentRequest MimeNoContent ConsentRequest MimeJSON
getConsentRequest (ConsentChallenge Text
consentChallenge) =
Method
-> [ByteString]
-> ORYHydraRequest
GetConsentRequest MimeNoContent ConsentRequest MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/oauth2/auth/requests/consent"]
ORYHydraRequest
GetConsentRequest MimeNoContent ConsentRequest MimeJSON
-> [QueryItem]
-> ORYHydraRequest
GetConsentRequest MimeNoContent ConsentRequest MimeJSON
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"consent_challenge", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
consentChallenge)
data GetConsentRequest
instance Produces GetConsentRequest MimeJSON
getJsonWebKey
:: Kid
-> Set
-> ORYHydraRequest GetJsonWebKey MimeNoContent JSONWebKeySet MimeJSON
getJsonWebKey :: Kid
-> Set
-> ORYHydraRequest
GetJsonWebKey MimeNoContent JSONWebKeySet MimeJSON
getJsonWebKey (Kid Text
kid) (Set Text
set) =
Method
-> [ByteString]
-> ORYHydraRequest
GetJsonWebKey MimeNoContent JSONWebKeySet MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/keys/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
set,ByteString
"/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
kid]
data GetJsonWebKey
instance Produces GetJsonWebKey MimeJSON
getJsonWebKeySet
:: Set
-> ORYHydraRequest GetJsonWebKeySet MimeNoContent JSONWebKeySet MimeJSON
getJsonWebKeySet :: Set
-> ORYHydraRequest
GetJsonWebKeySet MimeNoContent JSONWebKeySet MimeJSON
getJsonWebKeySet (Set Text
set) =
Method
-> [ByteString]
-> ORYHydraRequest
GetJsonWebKeySet MimeNoContent JSONWebKeySet MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/keys/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
set]
data GetJsonWebKeySet
instance Produces GetJsonWebKeySet MimeJSON
getLoginRequest
:: LoginChallenge
-> ORYHydraRequest GetLoginRequest MimeNoContent LoginRequest MimeJSON
getLoginRequest :: LoginChallenge
-> ORYHydraRequest
GetLoginRequest MimeNoContent LoginRequest MimeJSON
getLoginRequest (LoginChallenge Text
loginChallenge) =
Method
-> [ByteString]
-> ORYHydraRequest
GetLoginRequest MimeNoContent LoginRequest MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/oauth2/auth/requests/login"]
ORYHydraRequest GetLoginRequest MimeNoContent LoginRequest MimeJSON
-> [QueryItem]
-> ORYHydraRequest
GetLoginRequest MimeNoContent LoginRequest MimeJSON
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"login_challenge", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
loginChallenge)
data GetLoginRequest
instance Produces GetLoginRequest MimeJSON
getLogoutRequest
:: LogoutChallenge
-> ORYHydraRequest GetLogoutRequest MimeNoContent LogoutRequest MimeJSON
getLogoutRequest :: LogoutChallenge
-> ORYHydraRequest
GetLogoutRequest MimeNoContent LogoutRequest MimeJSON
getLogoutRequest (LogoutChallenge Text
logoutChallenge) =
Method
-> [ByteString]
-> ORYHydraRequest
GetLogoutRequest MimeNoContent LogoutRequest MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/oauth2/auth/requests/logout"]
ORYHydraRequest
GetLogoutRequest MimeNoContent LogoutRequest MimeJSON
-> [QueryItem]
-> ORYHydraRequest
GetLogoutRequest MimeNoContent LogoutRequest MimeJSON
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"logout_challenge", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
logoutChallenge)
data GetLogoutRequest
instance Produces GetLogoutRequest MimeJSON
getOAuth2Client
:: Id
-> ORYHydraRequest GetOAuth2Client MimeNoContent OAuth2Client MimeJSON
getOAuth2Client :: Id
-> ORYHydraRequest
GetOAuth2Client MimeNoContent OAuth2Client MimeJSON
getOAuth2Client (Id Text
id) =
Method
-> [ByteString]
-> ORYHydraRequest
GetOAuth2Client MimeNoContent OAuth2Client MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/clients/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
id]
data GetOAuth2Client
instance Produces GetOAuth2Client MimeJSON
getVersion
:: ORYHydraRequest GetVersion MimeNoContent Version MimeJSON
getVersion :: ORYHydraRequest GetVersion MimeNoContent Version MimeJSON
getVersion =
Method
-> [ByteString]
-> ORYHydraRequest GetVersion MimeNoContent Version MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/version"]
data GetVersion
instance Produces GetVersion MimeJSON
introspectOAuth2Token
:: (Consumes IntrospectOAuth2Token MimeFormUrlEncoded)
=> Token
-> ORYHydraRequest IntrospectOAuth2Token MimeFormUrlEncoded OAuth2TokenIntrospection MimeJSON
introspectOAuth2Token :: Token
-> ORYHydraRequest
IntrospectOAuth2Token
MimeFormUrlEncoded
OAuth2TokenIntrospection
MimeJSON
introspectOAuth2Token (Token Text
token) =
Method
-> [ByteString]
-> ORYHydraRequest
IntrospectOAuth2Token
MimeFormUrlEncoded
OAuth2TokenIntrospection
MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/oauth2/introspect"]
ORYHydraRequest
IntrospectOAuth2Token
MimeFormUrlEncoded
OAuth2TokenIntrospection
MimeJSON
-> Form
-> ORYHydraRequest
IntrospectOAuth2Token
MimeFormUrlEncoded
OAuth2TokenIntrospection
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 IntrospectOAuth2Token
instance HasOptionalParam IntrospectOAuth2Token Scope where
applyOptionalParam :: ORYHydraRequest IntrospectOAuth2Token contentType res accept
-> Scope
-> ORYHydraRequest IntrospectOAuth2Token contentType res accept
applyOptionalParam ORYHydraRequest IntrospectOAuth2Token contentType res accept
req (Scope Text
xs) =
ORYHydraRequest IntrospectOAuth2Token contentType res accept
req ORYHydraRequest IntrospectOAuth2Token contentType res accept
-> Form
-> ORYHydraRequest IntrospectOAuth2Token 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
"scope", Text
xs)
instance Consumes IntrospectOAuth2Token MimeFormUrlEncoded
instance Produces IntrospectOAuth2Token MimeJSON
isInstanceAlive
:: ORYHydraRequest IsInstanceAlive MimeNoContent HealthStatus MimeJSON
isInstanceAlive :: ORYHydraRequest IsInstanceAlive MimeNoContent HealthStatus MimeJSON
isInstanceAlive =
Method
-> [ByteString]
-> ORYHydraRequest
IsInstanceAlive MimeNoContent HealthStatus MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/health/alive"]
data IsInstanceAlive
instance Produces IsInstanceAlive MimeJSON
listOAuth2Clients
:: ORYHydraRequest ListOAuth2Clients MimeNoContent [OAuth2Client] MimeJSON
listOAuth2Clients :: ORYHydraRequest
ListOAuth2Clients MimeNoContent [OAuth2Client] MimeJSON
listOAuth2Clients =
Method
-> [ByteString]
-> ORYHydraRequest
ListOAuth2Clients MimeNoContent [OAuth2Client] MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/clients"]
data ListOAuth2Clients
instance HasOptionalParam ListOAuth2Clients Limit where
applyOptionalParam :: ORYHydraRequest ListOAuth2Clients contentType res accept
-> Limit
-> ORYHydraRequest ListOAuth2Clients contentType res accept
applyOptionalParam ORYHydraRequest ListOAuth2Clients contentType res accept
req (Limit Integer
xs) =
ORYHydraRequest ListOAuth2Clients contentType res accept
req ORYHydraRequest ListOAuth2Clients contentType res accept
-> [QueryItem]
-> ORYHydraRequest ListOAuth2Clients contentType res accept
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Integer) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"limit", Integer -> Maybe Integer
forall a. a -> Maybe a
Just Integer
xs)
instance HasOptionalParam ListOAuth2Clients Offset where
applyOptionalParam :: ORYHydraRequest ListOAuth2Clients contentType res accept
-> Offset
-> ORYHydraRequest ListOAuth2Clients contentType res accept
applyOptionalParam ORYHydraRequest ListOAuth2Clients contentType res accept
req (Offset Integer
xs) =
ORYHydraRequest ListOAuth2Clients contentType res accept
req ORYHydraRequest ListOAuth2Clients contentType res accept
-> [QueryItem]
-> ORYHydraRequest ListOAuth2Clients contentType res accept
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Integer) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"offset", Integer -> Maybe Integer
forall a. a -> Maybe a
Just Integer
xs)
instance Produces ListOAuth2Clients MimeJSON
listSubjectConsentSessions
:: Subject
-> ORYHydraRequest ListSubjectConsentSessions MimeNoContent [PreviousConsentSession] MimeJSON
listSubjectConsentSessions :: Subject
-> ORYHydraRequest
ListSubjectConsentSessions
MimeNoContent
[PreviousConsentSession]
MimeJSON
listSubjectConsentSessions (Subject Text
subject) =
Method
-> [ByteString]
-> ORYHydraRequest
ListSubjectConsentSessions
MimeNoContent
[PreviousConsentSession]
MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/oauth2/auth/sessions/consent"]
ORYHydraRequest
ListSubjectConsentSessions
MimeNoContent
[PreviousConsentSession]
MimeJSON
-> [QueryItem]
-> ORYHydraRequest
ListSubjectConsentSessions
MimeNoContent
[PreviousConsentSession]
MimeJSON
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"subject", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
subject)
data ListSubjectConsentSessions
instance Produces ListSubjectConsentSessions MimeJSON
prometheus
:: ORYHydraRequest Prometheus MimeNoContent NoContent MimeNoContent
prometheus :: ORYHydraRequest Prometheus MimeNoContent NoContent MimeNoContent
prometheus =
Method
-> [ByteString]
-> ORYHydraRequest Prometheus MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/metrics/prometheus"]
data Prometheus
instance Produces Prometheus MimeNoContent
rejectConsentRequest
:: (Consumes RejectConsentRequest MimeJSON)
=> ConsentChallenge
-> ORYHydraRequest RejectConsentRequest MimeJSON CompletedRequest MimeJSON
rejectConsentRequest :: ConsentChallenge
-> ORYHydraRequest
RejectConsentRequest MimeJSON CompletedRequest MimeJSON
rejectConsentRequest (ConsentChallenge Text
consentChallenge) =
Method
-> [ByteString]
-> ORYHydraRequest
RejectConsentRequest MimeJSON CompletedRequest MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/oauth2/auth/requests/consent/reject"]
ORYHydraRequest
RejectConsentRequest MimeJSON CompletedRequest MimeJSON
-> [QueryItem]
-> ORYHydraRequest
RejectConsentRequest MimeJSON CompletedRequest MimeJSON
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"consent_challenge", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
consentChallenge)
data RejectConsentRequest
instance HasBodyParam RejectConsentRequest RejectRequest
instance Consumes RejectConsentRequest MimeJSON
instance Produces RejectConsentRequest MimeJSON
rejectLoginRequest
:: (Consumes RejectLoginRequest MimeJSON)
=> LoginChallenge
-> ORYHydraRequest RejectLoginRequest MimeJSON CompletedRequest MimeJSON
rejectLoginRequest :: LoginChallenge
-> ORYHydraRequest
RejectLoginRequest MimeJSON CompletedRequest MimeJSON
rejectLoginRequest (LoginChallenge Text
loginChallenge) =
Method
-> [ByteString]
-> ORYHydraRequest
RejectLoginRequest MimeJSON CompletedRequest MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/oauth2/auth/requests/login/reject"]
ORYHydraRequest
RejectLoginRequest MimeJSON CompletedRequest MimeJSON
-> [QueryItem]
-> ORYHydraRequest
RejectLoginRequest MimeJSON CompletedRequest MimeJSON
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"login_challenge", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
loginChallenge)
data RejectLoginRequest
instance HasBodyParam RejectLoginRequest RejectRequest
instance Consumes RejectLoginRequest MimeJSON
instance Produces RejectLoginRequest MimeJSON
rejectLogoutRequest
:: (Consumes RejectLogoutRequest contentType)
=> ContentType contentType
-> LogoutChallenge
-> ORYHydraRequest RejectLogoutRequest contentType NoContent MimeNoContent
rejectLogoutRequest :: ContentType contentType
-> LogoutChallenge
-> ORYHydraRequest
RejectLogoutRequest contentType NoContent MimeNoContent
rejectLogoutRequest ContentType contentType
_ (LogoutChallenge Text
logoutChallenge) =
Method
-> [ByteString]
-> ORYHydraRequest
RejectLogoutRequest contentType NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/oauth2/auth/requests/logout/reject"]
ORYHydraRequest
RejectLogoutRequest contentType NoContent MimeNoContent
-> [QueryItem]
-> ORYHydraRequest
RejectLogoutRequest contentType NoContent MimeNoContent
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"logout_challenge", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
logoutChallenge)
data RejectLogoutRequest
instance HasBodyParam RejectLogoutRequest RejectRequest
instance Consumes RejectLogoutRequest MimeJSON
instance Consumes RejectLogoutRequest MimeFormUrlEncoded
instance Produces RejectLogoutRequest MimeNoContent
revokeAuthenticationSession
:: Subject
-> ORYHydraRequest RevokeAuthenticationSession MimeNoContent NoContent MimeNoContent
revokeAuthenticationSession :: Subject
-> ORYHydraRequest
RevokeAuthenticationSession MimeNoContent NoContent MimeNoContent
revokeAuthenticationSession (Subject Text
subject) =
Method
-> [ByteString]
-> ORYHydraRequest
RevokeAuthenticationSession MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/oauth2/auth/sessions/login"]
ORYHydraRequest
RevokeAuthenticationSession MimeNoContent NoContent MimeNoContent
-> [QueryItem]
-> ORYHydraRequest
RevokeAuthenticationSession MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"subject", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
subject)
data RevokeAuthenticationSession
instance Produces RevokeAuthenticationSession MimeNoContent
revokeConsentSessions
:: Subject
-> ORYHydraRequest RevokeConsentSessions MimeNoContent NoContent MimeNoContent
revokeConsentSessions :: Subject
-> ORYHydraRequest
RevokeConsentSessions MimeNoContent NoContent MimeNoContent
revokeConsentSessions (Subject Text
subject) =
Method
-> [ByteString]
-> ORYHydraRequest
RevokeConsentSessions MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/oauth2/auth/sessions/consent"]
ORYHydraRequest
RevokeConsentSessions MimeNoContent NoContent MimeNoContent
-> [QueryItem]
-> ORYHydraRequest
RevokeConsentSessions MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"subject", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
subject)
data RevokeConsentSessions
instance HasOptionalParam RevokeConsentSessions Client where
applyOptionalParam :: ORYHydraRequest RevokeConsentSessions contentType res accept
-> Client
-> ORYHydraRequest RevokeConsentSessions contentType res accept
applyOptionalParam ORYHydraRequest RevokeConsentSessions contentType res accept
req (Client Text
xs) =
ORYHydraRequest RevokeConsentSessions contentType res accept
req ORYHydraRequest RevokeConsentSessions contentType res accept
-> [QueryItem]
-> ORYHydraRequest RevokeConsentSessions contentType res accept
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"client", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam RevokeConsentSessions All where
applyOptionalParam :: ORYHydraRequest RevokeConsentSessions contentType res accept
-> All
-> ORYHydraRequest RevokeConsentSessions contentType res accept
applyOptionalParam ORYHydraRequest RevokeConsentSessions contentType res accept
req (All Bool
xs) =
ORYHydraRequest RevokeConsentSessions contentType res accept
req ORYHydraRequest RevokeConsentSessions contentType res accept
-> [QueryItem]
-> ORYHydraRequest RevokeConsentSessions contentType res accept
forall req contentType res accept.
ORYHydraRequest req contentType res accept
-> [QueryItem] -> ORYHydraRequest req contentType res accept
`addQuery` (Method, Maybe Bool) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"all", Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
xs)
instance Produces RevokeConsentSessions MimeNoContent
updateJsonWebKey
:: (Consumes UpdateJsonWebKey MimeJSON)
=> Kid
-> Set
-> ORYHydraRequest UpdateJsonWebKey MimeJSON JSONWebKey MimeJSON
updateJsonWebKey :: Kid
-> Set
-> ORYHydraRequest UpdateJsonWebKey MimeJSON JSONWebKey MimeJSON
updateJsonWebKey (Kid Text
kid) (Set Text
set) =
Method
-> [ByteString]
-> ORYHydraRequest UpdateJsonWebKey MimeJSON JSONWebKey MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/keys/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
set,ByteString
"/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
kid]
data UpdateJsonWebKey
instance HasBodyParam UpdateJsonWebKey JSONWebKey
instance Consumes UpdateJsonWebKey MimeJSON
instance Produces UpdateJsonWebKey MimeJSON
updateJsonWebKeySet
:: (Consumes UpdateJsonWebKeySet MimeJSON)
=> Set
-> ORYHydraRequest UpdateJsonWebKeySet MimeJSON JSONWebKeySet MimeJSON
updateJsonWebKeySet :: Set
-> ORYHydraRequest
UpdateJsonWebKeySet MimeJSON JSONWebKeySet MimeJSON
updateJsonWebKeySet (Set Text
set) =
Method
-> [ByteString]
-> ORYHydraRequest
UpdateJsonWebKeySet MimeJSON JSONWebKeySet MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/keys/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
set]
data UpdateJsonWebKeySet
instance HasBodyParam UpdateJsonWebKeySet JSONWebKeySet
instance Consumes UpdateJsonWebKeySet MimeJSON
instance Produces UpdateJsonWebKeySet MimeJSON
updateOAuth2Client
:: (Consumes UpdateOAuth2Client MimeJSON, MimeRender MimeJSON OAuth2Client)
=> OAuth2Client
-> Id
-> ORYHydraRequest UpdateOAuth2Client MimeJSON OAuth2Client MimeJSON
updateOAuth2Client :: OAuth2Client
-> Id
-> ORYHydraRequest
UpdateOAuth2Client MimeJSON OAuth2Client MimeJSON
updateOAuth2Client OAuth2Client
body (Id Text
id) =
Method
-> [ByteString]
-> ORYHydraRequest
UpdateOAuth2Client MimeJSON OAuth2Client MimeJSON
forall req contentType res accept.
Method
-> [ByteString] -> ORYHydraRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/clients/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
id]
ORYHydraRequest UpdateOAuth2Client MimeJSON OAuth2Client MimeJSON
-> OAuth2Client
-> ORYHydraRequest
UpdateOAuth2Client MimeJSON OAuth2Client MimeJSON
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
ORYHydraRequest req contentType res accept
-> param -> ORYHydraRequest req contentType res accept
`setBodyParam` OAuth2Client
body
data UpdateOAuth2Client
instance HasBodyParam UpdateOAuth2Client OAuth2Client
instance Consumes UpdateOAuth2Client MimeJSON
instance Produces UpdateOAuth2Client MimeJSON