{-# 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.Jwk 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
createJsonWebKeySet0
:: (Consumes CreateJsonWebKeySet0 MimeJSON, MimeRender MimeJSON CreateJsonWebKeySet)
=> CreateJsonWebKeySet
-> Set
-> OryHydraRequest CreateJsonWebKeySet0 MimeJSON JsonWebKeySet MimeJSON
createJsonWebKeySet0 :: (Consumes CreateJsonWebKeySet0 MimeJSON,
MimeRender MimeJSON CreateJsonWebKeySet) =>
CreateJsonWebKeySet
-> Set
-> OryHydraRequest
CreateJsonWebKeySet0 MimeJSON JsonWebKeySet MimeJSON
createJsonWebKeySet0 CreateJsonWebKeySet
createJsonWebKeySet (Set Text
set) =
forall req contentType res accept.
Method
-> [ByteString] -> OryHydraRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/admin/keys/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
set]
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` CreateJsonWebKeySet
createJsonWebKeySet
data CreateJsonWebKeySet0
instance HasBodyParam CreateJsonWebKeySet0 CreateJsonWebKeySet
instance Consumes CreateJsonWebKeySet0 MimeJSON
instance Produces CreateJsonWebKeySet0 MimeJSON
deleteJsonWebKey
:: Set
-> Kid
-> OryHydraRequest DeleteJsonWebKey MimeNoContent NoContent MimeNoContent
deleteJsonWebKey :: Set
-> Kid
-> OryHydraRequest
DeleteJsonWebKey MimeNoContent NoContent MimeNoContent
deleteJsonWebKey (Set Text
set) (Kid Text
kid) =
forall req contentType res accept.
Method
-> [ByteString] -> OryHydraRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/admin/keys/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
set,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) =
forall req contentType res accept.
Method
-> [ByteString] -> OryHydraRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/admin/keys/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
set]
data DeleteJsonWebKeySet
instance Produces DeleteJsonWebKeySet MimeNoContent
getJsonWebKey
:: Set
-> Kid
-> OryHydraRequest GetJsonWebKey MimeNoContent JsonWebKeySet MimeJSON
getJsonWebKey :: Set
-> Kid
-> OryHydraRequest
GetJsonWebKey MimeNoContent JsonWebKeySet MimeJSON
getJsonWebKey (Set Text
set) (Kid Text
kid) =
forall req contentType res accept.
Method
-> [ByteString] -> OryHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/admin/keys/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
set,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) =
forall req contentType res accept.
Method
-> [ByteString] -> OryHydraRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/admin/keys/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
set]
data GetJsonWebKeySet
instance Produces GetJsonWebKeySet MimeJSON
setJsonWebKey
:: (Consumes SetJsonWebKey MimeJSON)
=> Set
-> Kid
-> OryHydraRequest SetJsonWebKey MimeJSON JsonWebKey MimeJSON
setJsonWebKey :: Consumes SetJsonWebKey MimeJSON =>
Set
-> Kid
-> OryHydraRequest SetJsonWebKey MimeJSON JsonWebKey MimeJSON
setJsonWebKey (Set Text
set) (Kid Text
kid) =
forall req contentType res accept.
Method
-> [ByteString] -> OryHydraRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/admin/keys/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
set,ByteString
"/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
kid]
data SetJsonWebKey
instance HasBodyParam SetJsonWebKey JsonWebKey
instance Consumes SetJsonWebKey MimeJSON
instance Produces SetJsonWebKey MimeJSON
setJsonWebKeySet
:: (Consumes SetJsonWebKeySet MimeJSON)
=> Set
-> OryHydraRequest SetJsonWebKeySet MimeJSON JsonWebKeySet MimeJSON
setJsonWebKeySet :: Consumes SetJsonWebKeySet MimeJSON =>
Set
-> OryHydraRequest SetJsonWebKeySet MimeJSON JsonWebKeySet MimeJSON
setJsonWebKeySet (Set Text
set) =
forall req contentType res accept.
Method
-> [ByteString] -> OryHydraRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/admin/keys/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
set]
data SetJsonWebKeySet
instance HasBodyParam SetJsonWebKeySet JsonWebKeySet
instance Consumes SetJsonWebKeySet MimeJSON
instance Produces SetJsonWebKeySet MimeJSON