ory-hydra-client 1.10.1 → 2.0.3

raw patch · 31 files changed

+11263/−9950 lines, 31 filesdep ~aesondep ~textPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: aeson, text

API changes (from Hackage documentation)

Files

• README.md +13/−13
• lib/ORYHydra.hs +0/−30
• lib/ORYHydra/API/Admin.hs +0/−733
• lib/ORYHydra/API/Public.hs +0/−236
• lib/ORYHydra/Client.hs +0/−223
• lib/ORYHydra/Core.hs +0/−576
• lib/ORYHydra/Logging.hs +0/−33
• lib/ORYHydra/LoggingKatip.hs +0/−117
• lib/ORYHydra/LoggingMonadLogger.hs +0/−126
• lib/ORYHydra/MimeTypes.hs +0/−203
• lib/ORYHydra/Model.hs +0/−2216
• lib/ORYHydra/ModelLens.hs +0/−1434
• lib/OryHydra.hs +31/−0
• lib/OryHydra/API/Jwk.hs +213/−0
• lib/OryHydra/API/Metadata.hs +113/−0
• lib/OryHydra/API/OAuth2.hs +763/−0
• lib/OryHydra/API/Oidc.hs +218/−0
• lib/OryHydra/API/Wellknown.hs +77/−0
• lib/OryHydra/Client.hs +224/−0
• lib/OryHydra/Core.hs +582/−0
• lib/OryHydra/Logging.hs +34/−0
• lib/OryHydra/LoggingKatip.hs +118/−0
• lib/OryHydra/LoggingMonadLogger.hs +127/−0
• lib/OryHydra/MimeTypes.hs +204/−0
• lib/OryHydra/Model.hs +2238/−0
• lib/OryHydra/ModelLens.hs +1500/−0
• openapi.yaml +4339/−3561
• ory-hydra-client.cabal +24/−21
• tests/Instances.hs +409/−392
• tests/PropMime.hs +1/−1
• tests/Test.hs +35/−35

@@ -1,8 +1,8 @@-## OpenAPI Auto-Generated [http-client](https://www.stackage.org/lts-10.0/package/http-client-0.5.7.1) Bindings to `ORY Hydra`+## OpenAPI Auto-Generated [http-client](https://www.stackage.org/lts-10.0/package/http-client-0.5.7.1) Bindings to `Ory Hydra API` -The library in `lib` provides auto-generated-from-OpenAPI [http-client](https://www.stackage.org/lts-10.0/package/http-client-0.5.7.1) bindings to the ORY Hydra API.+The library in `lib` provides auto-generated-from-OpenAPI [http-client](https://www.stackage.org/lts-10.0/package/http-client-0.5.7.1) bindings to the Ory Hydra API API. -OpenApi Version: 3.0.1+OpenApi Version: 3.0.3  ## Installation @@ -59,11 +59,11 @@ | allowFromJsonNulls              | allow JSON Null during model decoding from JSON                                                                               | true     | true              | | allowNonUniqueOperationIds      | allow *different* API modules to contain the same operationId. Each API must be imported qualified                            | false    | true    | | allowToJsonNulls                | allow emitting JSON Null during model encoding to JSON                                                                        | false    | false                |-| baseModule                      | Set the base module namespace                                                                                                 |          | ORYHydra                      |+| baseModule                      | Set the base module namespace                                                                                                 |          | OryHydra                      | | cabalPackage                    | Set the cabal package name, which consists of one or more alphanumeric words separated by hyphens                             |          | ory-hydra-client                    | | cabalVersion                    | Set the cabal version number, consisting of a sequence of one or more integers separated by dots                              | 0.1.0.0  | 0.1.0.0                    | | customTestInstanceModule        | test module used to provide typeclass instances for types not known by the generator                                          |          |         |-| configType                      | Set the name of the type used for configuration                                                                               |          | ORYHydraConfig                      |+| configType                      | Set the name of the type used for configuration                                                                               |          | OryHydraConfig                      | | dateFormat                      | format string used to parse/render a date                                                                                     | %Y-%m-%d | %Y-%m-%d                      | | dateTimeFormat                  | format string used to parse/render a datetime. (Defaults to [formatISO8601Millis][1] when not provided)                       |          |                   | | dateTimeParseFormat             | overrides the format string used to parse a datetime                                                                          |          |              |@@ -73,7 +73,7 @@ | generateModelConstructors       | Generate smart constructors (only supply required fields) for models                                                          | true     | true       | | inlineMimeTypes                 | Inline (hardcode) the content-type and accept parameters on operations, when there is only 1 option                           | true     | true                 | | modelDeriving                   | Additional classes to include in the deriving() clause of Models                                                              |          |                    |-| requestType                     | Set the name of the type used to generate requests                                                                            |          | ORYHydraRequest                     |+| requestType                     | Set the name of the type used to generate requests                                                                            |          | OryHydraRequest                     | | strictFields                    | Add strictness annotations to all model fields                                                                                | true     | false                  | | useKatip                        | Sets the default value for the UseKatip cabal flag. If true, the katip package provides logging instead of monad-logger       | true     | true                      | | queryExtraUnreserved            | Configures additional querystring characters which must not be URI encoded, e.g. '+' or ':'                                   |          |           |@@ -112,13 +112,13 @@  | MODULE              | NOTES                                               | | ------------------- | --------------------------------------------------- |-| ORYHydra.Client    | use the "dispatch" functions to send requests       |-| ORYHydra.Core      | core functions, config and request types            |-| ORYHydra.API       | construct api requests                              |-| ORYHydra.Model     | describes api models                                |-| ORYHydra.MimeTypes | encoding/decoding MIME types (content-types/accept) |-| ORYHydra.ModelLens | lenses for model fields                             |-| ORYHydra.Logging   | logging functions and utils                         |+| OryHydra.Client    | use the "dispatch" functions to send requests       |+| OryHydra.Core      | core functions, config and request types            |+| OryHydra.API       | construct api requests                              |+| OryHydra.Model     | describes api models                                |+| OryHydra.MimeTypes | encoding/decoding MIME types (content-types/accept) |+| OryHydra.ModelLens | lenses for model fields                             |+| OryHydra.Logging   | logging functions and utils                         |   ### MimeTypes

@@ -1,30 +0,0 @@-{--   ORY Hydra--   Welcome to the ORY Hydra HTTP API documentation. You will find documentation for all HTTP APIs here.--   OpenAPI Version: 3.0.1-   ORY Hydra API version: latest-   Generated by OpenAPI Generator (https://openapi-generator.tech)--}--{-|-Module : ORYHydra--}--module ORYHydra-  (  module ORYHydra.Client-  , module ORYHydra.Core-  , module ORYHydra.Logging-  , module ORYHydra.MimeTypes-  , module ORYHydra.Model-  , module ORYHydra.ModelLens-  ) where---import ORYHydra.Client-import ORYHydra.Core-import ORYHydra.Logging-import ORYHydra.MimeTypes-import ORYHydra.Model-import ORYHydra.ModelLens

@@ -1,733 +0,0 @@-{--   ORY Hydra--   Welcome to the ORY Hydra HTTP API documentation. You will find documentation for all HTTP APIs here.--   OpenAPI Version: 3.0.1-   ORY Hydra API version: latest-   Generated by OpenAPI Generator (https://openapi-generator.tech)--}--{-|-Module : ORYHydra.API.Admin--}--{-# 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---- * Operations----- ** Admin---- *** acceptConsentRequest0---- | @PUT \/oauth2\/auth\/requests\/consent\/accept@--- --- Accept a Consent Request--- --- When an authorization code, hybrid, or implicit OAuth 2.0 Flow is initiated, ORY Hydra asks the login provider to authenticate the subject and then tell ORY Hydra now about it. If the subject authenticated, he/she must now be asked if the OAuth 2.0 Client which initiated the flow should be allowed to access the resources on the subject's behalf.  The consent provider which handles this request and is a web app implemented and hosted by you. It shows a subject interface which asks the subject to grant or deny the client access to the requested scope (\"Application my-dropbox-app wants write access to all your private files\").  The consent challenge is appended to the consent provider's URL to which the subject's user-agent (browser) is redirected to. The consent provider uses that challenge to fetch information on the OAuth2 request and then tells ORY Hydra if the subject accepted or rejected the request.  This endpoint tells ORY Hydra that the subject has authorized the OAuth 2.0 client to access resources on his/her behalf. The consent provider includes additional information, such as session data for access and ID tokens, and if the consent request should be used as basis for future requests.  The response contains a redirect URL which the consent provider should redirect the user-agent to.--- -acceptConsentRequest0-  :: (Consumes AcceptConsentRequest0 MimeJSON)-  => ConsentChallenge -- ^ "consentChallenge"-  -> ORYHydraRequest AcceptConsentRequest0 MimeJSON CompletedRequest MimeJSON-acceptConsentRequest0 (ConsentChallenge consentChallenge) =-  _mkRequest "PUT" ["/oauth2/auth/requests/consent/accept"]-    `addQuery` toQuery ("consent_challenge", Just consentChallenge)--data AcceptConsentRequest0 -instance HasBodyParam AcceptConsentRequest0 AcceptConsentRequest ---- | @application/json@-instance Consumes AcceptConsentRequest0 MimeJSON---- | @application/json@-instance Produces AcceptConsentRequest0 MimeJSON----- *** acceptLoginRequest0---- | @PUT \/oauth2\/auth\/requests\/login\/accept@--- --- Accept a Login Request--- --- When an authorization code, hybrid, or implicit OAuth 2.0 Flow is initiated, ORY Hydra asks the login provider (sometimes called \"identity provider\") to authenticate the subject and then tell ORY Hydra now about it. The login provider is an web-app you write and host, and it must be able to authenticate (\"show the subject a login screen\") a subject (in OAuth2 the proper name for subject is \"resource owner\").  The authentication challenge is appended to the login provider URL to which the subject's user-agent (browser) is redirected to. The login provider uses that challenge to fetch information on the OAuth2 request and then accept or reject the requested authentication process.  This endpoint tells ORY Hydra that the subject has successfully authenticated and includes additional information such as the subject's ID and if ORY Hydra should remember the subject's subject agent for future authentication attempts by setting a cookie.  The response contains a redirect URL which the login provider should redirect the user-agent to.--- -acceptLoginRequest0-  :: (Consumes AcceptLoginRequest0 MimeJSON)-  => LoginChallenge -- ^ "loginChallenge"-  -> ORYHydraRequest AcceptLoginRequest0 MimeJSON CompletedRequest MimeJSON-acceptLoginRequest0 (LoginChallenge loginChallenge) =-  _mkRequest "PUT" ["/oauth2/auth/requests/login/accept"]-    `addQuery` toQuery ("login_challenge", Just loginChallenge)--data AcceptLoginRequest0 -instance HasBodyParam AcceptLoginRequest0 AcceptLoginRequest ---- | @application/json@-instance Consumes AcceptLoginRequest0 MimeJSON---- | @application/json@-instance Produces AcceptLoginRequest0 MimeJSON----- *** acceptLogoutRequest---- | @PUT \/oauth2\/auth\/requests\/logout\/accept@--- --- Accept a Logout Request--- --- When a user or an application requests ORY Hydra to log out a user, this endpoint is used to confirm that logout request. No body is required.  The response contains a redirect URL which the consent provider should redirect the user-agent to.--- -acceptLogoutRequest-  :: LogoutChallenge -- ^ "logoutChallenge"-  -> ORYHydraRequest AcceptLogoutRequest MimeNoContent CompletedRequest MimeJSON-acceptLogoutRequest (LogoutChallenge logoutChallenge) =-  _mkRequest "PUT" ["/oauth2/auth/requests/logout/accept"]-    `addQuery` toQuery ("logout_challenge", Just logoutChallenge)--data AcceptLogoutRequest  --- | @application/json@-instance Produces AcceptLogoutRequest MimeJSON----- *** createJsonWebKeySet---- | @POST \/keys\/{set}@--- --- Generate a New JSON Web Key--- --- This endpoint is capable of generating JSON Web Key Sets for you. There a different strategies available, such as symmetric cryptographic keys (HS256, HS512) and asymetric cryptographic keys (RS256, ECDSA). If the specified JSON Web Key Set does not exist, it will be created.  A JSON Web Key (JWK) is a JavaScript Object Notation (JSON) data structure that represents a cryptographic key. A JWK Set is a JSON data structure that represents a set of JWKs. A JSON Web Key is identified by its set and key id. ORY Hydra uses this functionality to store cryptographic keys used for TLS and JSON Web Tokens (such as OpenID Connect ID tokens), and allows storing user-defined keys as well.--- -createJsonWebKeySet-  :: (Consumes CreateJsonWebKeySet MimeJSON)-  => Set -- ^ "set" -  The set-  -> ORYHydraRequest CreateJsonWebKeySet MimeJSON JSONWebKeySet MimeJSON-createJsonWebKeySet (Set set) =-  _mkRequest "POST" ["/keys/",toPath set]--data CreateJsonWebKeySet -instance HasBodyParam CreateJsonWebKeySet JsonWebKeySetGeneratorRequest ---- | @application/json@-instance Consumes CreateJsonWebKeySet MimeJSON---- | @application/json@-instance Produces CreateJsonWebKeySet MimeJSON----- *** createOAuth2Client---- | @POST \/clients@--- --- Create an OAuth 2.0 Client--- --- Create a new OAuth 2.0 client If you pass `client_secret` the secret will be used, otherwise a random secret will be generated. The secret will be returned in the response and you will not be able to retrieve it later on. Write the secret down and keep it somwhere safe.  OAuth 2.0 clients are used to perform OAuth 2.0 and OpenID Connect flows. Usually, OAuth 2.0 clients are generated for applications which want to consume your OAuth 2.0 or OpenID Connect capabilities. To manage ORY Hydra, you will need an OAuth 2.0 Client as well. Make sure that this endpoint is well protected and only callable by first-party components.--- -createOAuth2Client-  :: (Consumes CreateOAuth2Client MimeJSON, MimeRender MimeJSON OAuth2Client)-  => OAuth2Client -- ^ "body"-  -> ORYHydraRequest CreateOAuth2Client MimeJSON OAuth2Client MimeJSON-createOAuth2Client body =-  _mkRequest "POST" ["/clients"]-    `setBodyParam` body--data CreateOAuth2Client -instance HasBodyParam CreateOAuth2Client OAuth2Client ---- | @application/json@-instance Consumes CreateOAuth2Client MimeJSON---- | @application/json@-instance Produces CreateOAuth2Client MimeJSON----- *** deleteJsonWebKey---- | @DELETE \/keys\/{set}\/{kid}@--- --- Delete a JSON Web Key--- --- Use this endpoint to delete a single JSON Web Key.  A JSON Web Key (JWK) is a JavaScript Object Notation (JSON) data structure that represents a cryptographic key. A JWK Set is a JSON data structure that represents a set of JWKs. A JSON Web Key is identified by its set and key id. ORY Hydra uses this functionality to store cryptographic keys used for TLS and JSON Web Tokens (such as OpenID Connect ID tokens), and allows storing user-defined keys as well.--- -deleteJsonWebKey-  :: Kid -- ^ "kid" -  The kid of the desired key-  -> Set -- ^ "set" -  The set-  -> ORYHydraRequest DeleteJsonWebKey MimeNoContent NoContent MimeNoContent-deleteJsonWebKey (Kid kid) (Set set) =-  _mkRequest "DELETE" ["/keys/",toPath set,"/",toPath kid]--data DeleteJsonWebKey  -instance Produces DeleteJsonWebKey MimeNoContent----- *** deleteJsonWebKeySet---- | @DELETE \/keys\/{set}@--- --- Delete a JSON Web Key Set--- --- Use this endpoint to delete a complete JSON Web Key Set and all the keys in that set.  A JSON Web Key (JWK) is a JavaScript Object Notation (JSON) data structure that represents a cryptographic key. A JWK Set is a JSON data structure that represents a set of JWKs. A JSON Web Key is identified by its set and key id. ORY Hydra uses this functionality to store cryptographic keys used for TLS and JSON Web Tokens (such as OpenID Connect ID tokens), and allows storing user-defined keys as well.--- -deleteJsonWebKeySet-  :: Set -- ^ "set" -  The set-  -> ORYHydraRequest DeleteJsonWebKeySet MimeNoContent NoContent MimeNoContent-deleteJsonWebKeySet (Set set) =-  _mkRequest "DELETE" ["/keys/",toPath set]--data DeleteJsonWebKeySet  -instance Produces DeleteJsonWebKeySet MimeNoContent----- *** deleteOAuth2Client---- | @DELETE \/clients\/{id}@--- --- Deletes an OAuth 2.0 Client--- --- Delete an existing OAuth 2.0 Client by its ID.  OAuth 2.0 clients are used to perform OAuth 2.0 and OpenID Connect flows. Usually, OAuth 2.0 clients are generated for applications which want to consume your OAuth 2.0 or OpenID Connect capabilities. To manage ORY Hydra, you will need an OAuth 2.0 Client as well. Make sure that this endpoint is well protected and only callable by first-party components.--- -deleteOAuth2Client-  :: Id -- ^ "id" -  The id of the OAuth 2.0 Client.-  -> ORYHydraRequest DeleteOAuth2Client MimeNoContent NoContent MimeNoContent-deleteOAuth2Client (Id id) =-  _mkRequest "DELETE" ["/clients/",toPath id]--data DeleteOAuth2Client  -instance Produces DeleteOAuth2Client MimeNoContent----- *** deleteOAuth2Token---- | @DELETE \/oauth2\/tokens@--- --- Delete OAuth2 Access Tokens from a Client--- --- This endpoint deletes OAuth2 access tokens issued for a client from the database--- -deleteOAuth2Token-  :: ClientId -- ^ "clientId"-  -> ORYHydraRequest DeleteOAuth2Token MimeNoContent NoContent MimeNoContent-deleteOAuth2Token (ClientId clientId) =-  _mkRequest "DELETE" ["/oauth2/tokens"]-    `addQuery` toQuery ("client_id", Just clientId)--data DeleteOAuth2Token  -instance Produces DeleteOAuth2Token MimeNoContent----- *** flushInactiveOAuth2Tokens---- | @POST \/oauth2\/flush@--- --- Flush Expired OAuth2 Access Tokens--- --- This endpoint flushes expired OAuth2 access tokens from the database. You can set a time after which no tokens will be not be touched, in case you want to keep recent tokens for auditing. Refresh tokens can not be flushed as they are deleted automatically when performing the refresh flow.--- -flushInactiveOAuth2Tokens-  :: (Consumes FlushInactiveOAuth2Tokens MimeJSON)-  => ORYHydraRequest FlushInactiveOAuth2Tokens MimeJSON NoContent MimeNoContent-flushInactiveOAuth2Tokens =-  _mkRequest "POST" ["/oauth2/flush"]--data FlushInactiveOAuth2Tokens -instance HasBodyParam FlushInactiveOAuth2Tokens FlushInactiveOAuth2TokensRequest ---- | @application/json@-instance Consumes FlushInactiveOAuth2Tokens MimeJSON--instance Produces FlushInactiveOAuth2Tokens MimeNoContent----- *** getConsentRequest---- | @GET \/oauth2\/auth\/requests\/consent@--- --- Get Consent Request Information--- --- When an authorization code, hybrid, or implicit OAuth 2.0 Flow is initiated, ORY Hydra asks the login provider to authenticate the subject and then tell ORY Hydra now about it. If the subject authenticated, he/she must now be asked if the OAuth 2.0 Client which initiated the flow should be allowed to access the resources on the subject's behalf.  The consent provider which handles this request and is a web app implemented and hosted by you. It shows a subject interface which asks the subject to grant or deny the client access to the requested scope (\"Application my-dropbox-app wants write access to all your private files\").  The consent challenge is appended to the consent provider's URL to which the subject's user-agent (browser) is redirected to. The consent provider uses that challenge to fetch information on the OAuth2 request and then tells ORY Hydra if the subject accepted or rejected the request.--- -getConsentRequest-  :: ConsentChallenge -- ^ "consentChallenge"-  -> ORYHydraRequest GetConsentRequest MimeNoContent ConsentRequest MimeJSON-getConsentRequest (ConsentChallenge consentChallenge) =-  _mkRequest "GET" ["/oauth2/auth/requests/consent"]-    `addQuery` toQuery ("consent_challenge", Just consentChallenge)--data GetConsentRequest  --- | @application/json@-instance Produces GetConsentRequest MimeJSON----- *** getJsonWebKey---- | @GET \/keys\/{set}\/{kid}@--- --- Fetch a JSON Web Key--- --- This endpoint returns a singular JSON Web Key, identified by the set and the specific key ID (kid).--- -getJsonWebKey-  :: Kid -- ^ "kid" -  The kid of the desired key-  -> Set -- ^ "set" -  The set-  -> ORYHydraRequest GetJsonWebKey MimeNoContent JSONWebKeySet MimeJSON-getJsonWebKey (Kid kid) (Set set) =-  _mkRequest "GET" ["/keys/",toPath set,"/",toPath kid]--data GetJsonWebKey  --- | @application/json@-instance Produces GetJsonWebKey MimeJSON----- *** getJsonWebKeySet---- | @GET \/keys\/{set}@--- --- Retrieve a JSON Web Key Set--- --- This endpoint can be used to retrieve JWK Sets stored in ORY Hydra.  A JSON Web Key (JWK) is a JavaScript Object Notation (JSON) data structure that represents a cryptographic key. A JWK Set is a JSON data structure that represents a set of JWKs. A JSON Web Key is identified by its set and key id. ORY Hydra uses this functionality to store cryptographic keys used for TLS and JSON Web Tokens (such as OpenID Connect ID tokens), and allows storing user-defined keys as well.--- -getJsonWebKeySet-  :: Set -- ^ "set" -  The set-  -> ORYHydraRequest GetJsonWebKeySet MimeNoContent JSONWebKeySet MimeJSON-getJsonWebKeySet (Set set) =-  _mkRequest "GET" ["/keys/",toPath set]--data GetJsonWebKeySet  --- | @application/json@-instance Produces GetJsonWebKeySet MimeJSON----- *** getLoginRequest---- | @GET \/oauth2\/auth\/requests\/login@--- --- Get a Login Request--- --- When an authorization code, hybrid, or implicit OAuth 2.0 Flow is initiated, ORY Hydra asks the login provider (sometimes called \"identity provider\") to authenticate the subject and then tell ORY Hydra now about it. The login provider is an web-app you write and host, and it must be able to authenticate (\"show the subject a login screen\") a subject (in OAuth2 the proper name for subject is \"resource owner\").  The authentication challenge is appended to the login provider URL to which the subject's user-agent (browser) is redirected to. The login provider uses that challenge to fetch information on the OAuth2 request and then accept or reject the requested authentication process.--- -getLoginRequest-  :: LoginChallenge -- ^ "loginChallenge"-  -> ORYHydraRequest GetLoginRequest MimeNoContent LoginRequest MimeJSON-getLoginRequest (LoginChallenge loginChallenge) =-  _mkRequest "GET" ["/oauth2/auth/requests/login"]-    `addQuery` toQuery ("login_challenge", Just loginChallenge)--data GetLoginRequest  --- | @application/json@-instance Produces GetLoginRequest MimeJSON----- *** getLogoutRequest---- | @GET \/oauth2\/auth\/requests\/logout@--- --- Get a Logout Request--- --- Use this endpoint to fetch a logout request.--- -getLogoutRequest-  :: LogoutChallenge -- ^ "logoutChallenge"-  -> ORYHydraRequest GetLogoutRequest MimeNoContent LogoutRequest MimeJSON-getLogoutRequest (LogoutChallenge logoutChallenge) =-  _mkRequest "GET" ["/oauth2/auth/requests/logout"]-    `addQuery` toQuery ("logout_challenge", Just logoutChallenge)--data GetLogoutRequest  --- | @application/json@-instance Produces GetLogoutRequest MimeJSON----- *** getOAuth2Client---- | @GET \/clients\/{id}@--- --- Get an OAuth 2.0 Client.--- --- Get an OAUth 2.0 client by its ID. This endpoint never returns passwords.  OAuth 2.0 clients are used to perform OAuth 2.0 and OpenID Connect flows. Usually, OAuth 2.0 clients are generated for applications which want to consume your OAuth 2.0 or OpenID Connect capabilities. To manage ORY Hydra, you will need an OAuth 2.0 Client as well. Make sure that this endpoint is well protected and only callable by first-party components.--- -getOAuth2Client-  :: Id -- ^ "id" -  The id of the OAuth 2.0 Client.-  -> ORYHydraRequest GetOAuth2Client MimeNoContent OAuth2Client MimeJSON-getOAuth2Client (Id id) =-  _mkRequest "GET" ["/clients/",toPath id]--data GetOAuth2Client  --- | @application/json@-instance Produces GetOAuth2Client MimeJSON----- *** getVersion---- | @GET \/version@--- --- Get Service Version--- --- This endpoint returns the service version typically notated using semantic versioning.  If the service supports TLS Edge Termination, this endpoint does not require the `X-Forwarded-Proto` header to be set.--- -getVersion-  :: ORYHydraRequest GetVersion MimeNoContent Version MimeJSON-getVersion =-  _mkRequest "GET" ["/version"]--data GetVersion  --- | @application/json@-instance Produces GetVersion MimeJSON----- *** introspectOAuth2Token---- | @POST \/oauth2\/introspect@--- --- Introspect OAuth2 Tokens--- --- The introspection endpoint allows to check if a token (both refresh and access) is active or not. An active token is neither expired nor revoked. If a token is active, additional information on the token will be included. You can set additional data for a token by setting `accessTokenExtra` during the consent flow.  For more information [read this blog post](https://www.oauth.com/oauth2-servers/token-introspection-endpoint/).--- -introspectOAuth2Token-  :: (Consumes IntrospectOAuth2Token MimeFormUrlEncoded)-  => Token -- ^ "token" -  The string value of the token. For access tokens, this is the \\\"access_token\\\" value returned from the token endpoint defined in OAuth 2.0. For refresh tokens, this is the \\\"refresh_token\\\" value returned.-  -> ORYHydraRequest IntrospectOAuth2Token MimeFormUrlEncoded OAuth2TokenIntrospection MimeJSON-introspectOAuth2Token (Token token) =-  _mkRequest "POST" ["/oauth2/introspect"]-    `addForm` toForm ("token", token)--data IntrospectOAuth2Token  ---- | /Optional Param/ "scope" - An optional, space separated list of required scopes. If the access token was not granted one of the scopes, the result of active will be false.-instance HasOptionalParam IntrospectOAuth2Token Scope where-  applyOptionalParam req (Scope xs) =-    req `addForm` toForm ("scope", xs)---- | @application/x-www-form-urlencoded@-instance Consumes IntrospectOAuth2Token MimeFormUrlEncoded---- | @application/json@-instance Produces IntrospectOAuth2Token MimeJSON----- *** isInstanceAlive---- | @GET \/health\/alive@--- --- Check Alive Status--- --- This endpoint returns a 200 status code when the HTTP server is up running. This status does currently not include checks whether the database connection is working.  If the service supports TLS Edge Termination, this endpoint does not require the `X-Forwarded-Proto` header to be set.  Be aware that if you are running multiple nodes of this service, the health status will never refer to the cluster state, only to a single instance.--- -isInstanceAlive-  :: ORYHydraRequest IsInstanceAlive MimeNoContent HealthStatus MimeJSON-isInstanceAlive =-  _mkRequest "GET" ["/health/alive"]--data IsInstanceAlive  --- | @application/json@-instance Produces IsInstanceAlive MimeJSON----- *** listOAuth2Clients---- | @GET \/clients@--- --- List OAuth 2.0 Clients--- --- This endpoint lists all clients in the database, and never returns client secrets. As a default it lists the first 100 clients. The `limit` parameter can be used to retrieve more clients, but it has an upper bound at 500 objects. Pagination should be used to retrieve more than 500 objects.  OAuth 2.0 clients are used to perform OAuth 2.0 and OpenID Connect flows. Usually, OAuth 2.0 clients are generated for applications which want to consume your OAuth 2.0 or OpenID Connect capabilities. To manage ORY Hydra, you will need an OAuth 2.0 Client as well. Make sure that this endpoint is well protected and only callable by first-party components. The \"Link\" header is also included in successful responses, which contains one or more links for pagination, formatted like so: '<https://hydra-url/admin/clients?limit={limit}&offset={offset}>; rel=\"{page}\"', where page is one of the following applicable pages: 'first', 'next', 'last', and 'previous'. Multiple links can be included in this header, and will be separated by a comma.--- -listOAuth2Clients-  :: ORYHydraRequest ListOAuth2Clients MimeNoContent [OAuth2Client] MimeJSON-listOAuth2Clients =-  _mkRequest "GET" ["/clients"]--data ListOAuth2Clients  ---- | /Optional Param/ "limit" - The maximum amount of policies returned, upper bound is 500 policies-instance HasOptionalParam ListOAuth2Clients Limit where-  applyOptionalParam req (Limit xs) =-    req `addQuery` toQuery ("limit", Just xs)---- | /Optional Param/ "offset" - The offset from where to start looking.-instance HasOptionalParam ListOAuth2Clients Offset where-  applyOptionalParam req (Offset xs) =-    req `addQuery` toQuery ("offset", Just xs)--- | @application/json@-instance Produces ListOAuth2Clients MimeJSON----- *** listSubjectConsentSessions---- | @GET \/oauth2\/auth\/sessions\/consent@--- --- Lists All Consent Sessions of a Subject--- --- This endpoint lists all subject's granted consent sessions, including client and granted scope. If the subject is unknown or has not granted any consent sessions yet, the endpoint returns an empty JSON array with status code 200 OK.   The \"Link\" header is also included in successful responses, which contains one or more links for pagination, formatted like so: '<https://hydra-url/admin/oauth2/auth/sessions/consent?subject={user}&limit={limit}&offset={offset}>; rel=\"{page}\"', where page is one of the following applicable pages: 'first', 'next', 'last', and 'previous'. Multiple links can be included in this header, and will be separated by a comma.--- -listSubjectConsentSessions-  :: Subject -- ^ "subject"-  -> ORYHydraRequest ListSubjectConsentSessions MimeNoContent [PreviousConsentSession] MimeJSON-listSubjectConsentSessions (Subject subject) =-  _mkRequest "GET" ["/oauth2/auth/sessions/consent"]-    `addQuery` toQuery ("subject", Just subject)--data ListSubjectConsentSessions  --- | @application/json@-instance Produces ListSubjectConsentSessions MimeJSON----- *** prometheus---- | @GET \/metrics\/prometheus@--- --- Get Snapshot Metrics from the Hydra Service.--- --- If you're using k8s, you can then add annotations to your deployment like so:  ``` metadata: annotations: prometheus.io/port: \"4445\" prometheus.io/path: \"/metrics/prometheus\" ```  If the service supports TLS Edge Termination, this endpoint does not require the `X-Forwarded-Proto` header to be set.--- -prometheus-  :: ORYHydraRequest Prometheus MimeNoContent NoContent MimeNoContent-prometheus =-  _mkRequest "GET" ["/metrics/prometheus"]--data Prometheus  -instance Produces Prometheus MimeNoContent----- *** rejectConsentRequest---- | @PUT \/oauth2\/auth\/requests\/consent\/reject@--- --- Reject a Consent Request--- --- When an authorization code, hybrid, or implicit OAuth 2.0 Flow is initiated, ORY Hydra asks the login provider to authenticate the subject and then tell ORY Hydra now about it. If the subject authenticated, he/she must now be asked if the OAuth 2.0 Client which initiated the flow should be allowed to access the resources on the subject's behalf.  The consent provider which handles this request and is a web app implemented and hosted by you. It shows a subject interface which asks the subject to grant or deny the client access to the requested scope (\"Application my-dropbox-app wants write access to all your private files\").  The consent challenge is appended to the consent provider's URL to which the subject's user-agent (browser) is redirected to. The consent provider uses that challenge to fetch information on the OAuth2 request and then tells ORY Hydra if the subject accepted or rejected the request.  This endpoint tells ORY Hydra that the subject has not authorized the OAuth 2.0 client to access resources on his/her behalf. The consent provider must include a reason why the consent was not granted.  The response contains a redirect URL which the consent provider should redirect the user-agent to.--- -rejectConsentRequest-  :: (Consumes RejectConsentRequest MimeJSON)-  => ConsentChallenge -- ^ "consentChallenge"-  -> ORYHydraRequest RejectConsentRequest MimeJSON CompletedRequest MimeJSON-rejectConsentRequest (ConsentChallenge consentChallenge) =-  _mkRequest "PUT" ["/oauth2/auth/requests/consent/reject"]-    `addQuery` toQuery ("consent_challenge", Just consentChallenge)--data RejectConsentRequest -instance HasBodyParam RejectConsentRequest RejectRequest ---- | @application/json@-instance Consumes RejectConsentRequest MimeJSON---- | @application/json@-instance Produces RejectConsentRequest MimeJSON----- *** rejectLoginRequest---- | @PUT \/oauth2\/auth\/requests\/login\/reject@--- --- Reject a Login Request--- --- When an authorization code, hybrid, or implicit OAuth 2.0 Flow is initiated, ORY Hydra asks the login provider (sometimes called \"identity provider\") to authenticate the subject and then tell ORY Hydra now about it. The login provider is an web-app you write and host, and it must be able to authenticate (\"show the subject a login screen\") a subject (in OAuth2 the proper name for subject is \"resource owner\").  The authentication challenge is appended to the login provider URL to which the subject's user-agent (browser) is redirected to. The login provider uses that challenge to fetch information on the OAuth2 request and then accept or reject the requested authentication process.  This endpoint tells ORY Hydra that the subject has not authenticated and includes a reason why the authentication was be denied.  The response contains a redirect URL which the login provider should redirect the user-agent to.--- -rejectLoginRequest-  :: (Consumes RejectLoginRequest MimeJSON)-  => LoginChallenge -- ^ "loginChallenge"-  -> ORYHydraRequest RejectLoginRequest MimeJSON CompletedRequest MimeJSON-rejectLoginRequest (LoginChallenge loginChallenge) =-  _mkRequest "PUT" ["/oauth2/auth/requests/login/reject"]-    `addQuery` toQuery ("login_challenge", Just loginChallenge)--data RejectLoginRequest -instance HasBodyParam RejectLoginRequest RejectRequest ---- | @application/json@-instance Consumes RejectLoginRequest MimeJSON---- | @application/json@-instance Produces RejectLoginRequest MimeJSON----- *** rejectLogoutRequest---- | @PUT \/oauth2\/auth\/requests\/logout\/reject@--- --- Reject a Logout Request--- --- When a user or an application requests ORY Hydra to log out a user, this endpoint is used to deny that logout request. No body is required.  The response is empty as the logout provider has to chose what action to perform next.--- -rejectLogoutRequest-  :: (Consumes RejectLogoutRequest contentType)-  => ContentType contentType -- ^ request content-type ('MimeType')-  -> LogoutChallenge -- ^ "logoutChallenge"-  -> ORYHydraRequest RejectLogoutRequest contentType NoContent MimeNoContent-rejectLogoutRequest _ (LogoutChallenge logoutChallenge) =-  _mkRequest "PUT" ["/oauth2/auth/requests/logout/reject"]-    `addQuery` toQuery ("logout_challenge", Just logoutChallenge)--data RejectLogoutRequest -instance HasBodyParam RejectLogoutRequest RejectRequest ---- | @application/json@-instance Consumes RejectLogoutRequest MimeJSON--- | @application/x-www-form-urlencoded@-instance Consumes RejectLogoutRequest MimeFormUrlEncoded--instance Produces RejectLogoutRequest MimeNoContent----- *** revokeAuthenticationSession---- | @DELETE \/oauth2\/auth\/sessions\/login@--- --- Invalidates All Login Sessions of a Certain User Invalidates a Subject's Authentication Session--- --- This endpoint invalidates a subject's authentication session. After revoking the authentication session, the subject has to re-authenticate at ORY Hydra. This endpoint does not invalidate any tokens and does not work with OpenID Connect Front- or Back-channel logout.--- -revokeAuthenticationSession-  :: Subject -- ^ "subject"-  -> ORYHydraRequest RevokeAuthenticationSession MimeNoContent NoContent MimeNoContent-revokeAuthenticationSession (Subject subject) =-  _mkRequest "DELETE" ["/oauth2/auth/sessions/login"]-    `addQuery` toQuery ("subject", Just subject)--data RevokeAuthenticationSession  -instance Produces RevokeAuthenticationSession MimeNoContent----- *** revokeConsentSessions---- | @DELETE \/oauth2\/auth\/sessions\/consent@--- --- Revokes Consent Sessions of a Subject for a Specific OAuth 2.0 Client--- --- This endpoint revokes a subject's granted consent sessions for a specific OAuth 2.0 Client and invalidates all associated OAuth 2.0 Access Tokens.--- -revokeConsentSessions-  :: Subject -- ^ "subject" -  The subject (Subject) who's consent sessions should be deleted.-  -> ORYHydraRequest RevokeConsentSessions MimeNoContent NoContent MimeNoContent-revokeConsentSessions (Subject subject) =-  _mkRequest "DELETE" ["/oauth2/auth/sessions/consent"]-    `addQuery` toQuery ("subject", Just subject)--data RevokeConsentSessions  ---- | /Optional Param/ "client" - If set, deletes only those consent sessions by the Subject that have been granted to the specified OAuth 2.0 Client ID-instance HasOptionalParam RevokeConsentSessions Client where-  applyOptionalParam req (Client xs) =-    req `addQuery` toQuery ("client", Just xs)---- | /Optional Param/ "all" - If set to `?all=true`, deletes all consent sessions by the Subject that have been granted.-instance HasOptionalParam RevokeConsentSessions All where-  applyOptionalParam req (All xs) =-    req `addQuery` toQuery ("all", Just xs)-instance Produces RevokeConsentSessions MimeNoContent----- *** updateJsonWebKey---- | @PUT \/keys\/{set}\/{kid}@--- --- Update a JSON Web Key--- --- Use this method if you do not want to let Hydra generate the JWKs for you, but instead save your own.  A JSON Web Key (JWK) is a JavaScript Object Notation (JSON) data structure that represents a cryptographic key. A JWK Set is a JSON data structure that represents a set of JWKs. A JSON Web Key is identified by its set and key id. ORY Hydra uses this functionality to store cryptographic keys used for TLS and JSON Web Tokens (such as OpenID Connect ID tokens), and allows storing user-defined keys as well.--- -updateJsonWebKey-  :: (Consumes UpdateJsonWebKey MimeJSON)-  => Kid -- ^ "kid" -  The kid of the desired key-  -> Set -- ^ "set" -  The set-  -> ORYHydraRequest UpdateJsonWebKey MimeJSON JSONWebKey MimeJSON-updateJsonWebKey (Kid kid) (Set set) =-  _mkRequest "PUT" ["/keys/",toPath set,"/",toPath kid]--data UpdateJsonWebKey -instance HasBodyParam UpdateJsonWebKey JSONWebKey ---- | @application/json@-instance Consumes UpdateJsonWebKey MimeJSON---- | @application/json@-instance Produces UpdateJsonWebKey MimeJSON----- *** updateJsonWebKeySet---- | @PUT \/keys\/{set}@--- --- Update a JSON Web Key Set--- --- Use this method if you do not want to let Hydra generate the JWKs for you, but instead save your own.  A JSON Web Key (JWK) is a JavaScript Object Notation (JSON) data structure that represents a cryptographic key. A JWK Set is a JSON data structure that represents a set of JWKs. A JSON Web Key is identified by its set and key id. ORY Hydra uses this functionality to store cryptographic keys used for TLS and JSON Web Tokens (such as OpenID Connect ID tokens), and allows storing user-defined keys as well.--- -updateJsonWebKeySet-  :: (Consumes UpdateJsonWebKeySet MimeJSON)-  => Set -- ^ "set" -  The set-  -> ORYHydraRequest UpdateJsonWebKeySet MimeJSON JSONWebKeySet MimeJSON-updateJsonWebKeySet (Set set) =-  _mkRequest "PUT" ["/keys/",toPath set]--data UpdateJsonWebKeySet -instance HasBodyParam UpdateJsonWebKeySet JSONWebKeySet ---- | @application/json@-instance Consumes UpdateJsonWebKeySet MimeJSON---- | @application/json@-instance Produces UpdateJsonWebKeySet MimeJSON----- *** updateOAuth2Client---- | @PUT \/clients\/{id}@--- --- Update an OAuth 2.0 Client--- --- Update an existing OAuth 2.0 Client. If you pass `client_secret` the secret will be updated and returned via the API. This is the only time you will be able to retrieve the client secret, so write it down and keep it safe.  OAuth 2.0 clients are used to perform OAuth 2.0 and OpenID Connect flows. Usually, OAuth 2.0 clients are generated for applications which want to consume your OAuth 2.0 or OpenID Connect capabilities. To manage ORY Hydra, you will need an OAuth 2.0 Client as well. Make sure that this endpoint is well protected and only callable by first-party components.--- -updateOAuth2Client-  :: (Consumes UpdateOAuth2Client MimeJSON, MimeRender MimeJSON OAuth2Client)-  => OAuth2Client -- ^ "body"-  -> Id -- ^ "id"-  -> ORYHydraRequest UpdateOAuth2Client MimeJSON OAuth2Client MimeJSON-updateOAuth2Client body (Id id) =-  _mkRequest "PUT" ["/clients/",toPath id]-    `setBodyParam` body--data UpdateOAuth2Client -instance HasBodyParam UpdateOAuth2Client OAuth2Client ---- | @application/json@-instance Consumes UpdateOAuth2Client MimeJSON---- | @application/json@-instance Produces UpdateOAuth2Client MimeJSON-

@@ -1,236 +0,0 @@-{--   ORY Hydra--   Welcome to the ORY Hydra HTTP API documentation. You will find documentation for all HTTP APIs here.--   OpenAPI Version: 3.0.1-   ORY Hydra API version: latest-   Generated by OpenAPI Generator (https://openapi-generator.tech)--}--{-|-Module : ORYHydra.API.Public--}--{-# 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---- * Operations----- ** Public---- *** disconnectUser---- | @GET \/oauth2\/sessions\/logout@--- --- OpenID Connect Front-Backchannel Enabled Logout--- --- This endpoint initiates and completes user logout at ORY Hydra and initiates OpenID Connect Front-/Back-channel logout:  https://openid.net/specs/openid-connect-frontchannel-1_0.html https://openid.net/specs/openid-connect-backchannel-1_0.html--- -disconnectUser-  :: ORYHydraRequest DisconnectUser MimeNoContent NoContent MimeNoContent-disconnectUser =-  _mkRequest "GET" ["/oauth2/sessions/logout"]--data DisconnectUser  -instance Produces DisconnectUser MimeNoContent----- *** discoverOpenIDConfiguration---- | @GET \/.well-known\/openid-configuration@--- --- OpenID Connect Discovery--- --- The well known endpoint an be used to retrieve information for OpenID Connect clients. We encourage you to not roll your own OpenID Connect client but to use an OpenID Connect client library instead. You can learn more on this flow at https://openid.net/specs/openid-connect-discovery-1_0.html .  Popular libraries for OpenID Connect clients include oidc-client-js (JavaScript), go-oidc (Golang), and others. For a full list of clients go here: https://openid.net/developers/certified/--- -discoverOpenIDConfiguration-  :: ORYHydraRequest DiscoverOpenIDConfiguration MimeNoContent WellKnown MimeJSON-discoverOpenIDConfiguration =-  _mkRequest "GET" ["/.well-known/openid-configuration"]--data DiscoverOpenIDConfiguration  --- | @application/json@-instance Produces DiscoverOpenIDConfiguration MimeJSON----- *** isInstanceReady---- | @GET \/health\/ready@--- --- Check Readiness Status--- --- This endpoint returns a 200 status code when the HTTP server is up running and the environment dependencies (e.g. the database) are responsive as well.  If the service supports TLS Edge Termination, this endpoint does not require the `X-Forwarded-Proto` header to be set.  Be aware that if you are running multiple nodes of this service, the health status will never refer to the cluster state, only to a single instance.--- -isInstanceReady-  :: ORYHydraRequest IsInstanceReady MimeNoContent HealthStatus MimeJSON-isInstanceReady =-  _mkRequest "GET" ["/health/ready"]--data IsInstanceReady  --- | @application/json@-instance Produces IsInstanceReady MimeJSON----- *** oauth2Token---- | @POST \/oauth2\/token@--- --- The OAuth 2.0 Token Endpoint--- --- The client makes a request to the token endpoint by sending the following parameters using the \"application/x-www-form-urlencoded\" HTTP request entity-body.  > Do not implement a client for this endpoint yourself. Use a library. There are many libraries > available for any programming language. You can find a list of libraries here: https://oauth.net/code/ > > Do note that Hydra SDK does not implement this endpoint properly. Use one of the libraries listed above!--- --- AuthMethod: 'AuthBasicBasic', 'AuthOAuthOauth2'--- -oauth2Token-  :: (Consumes Oauth2Token MimeFormUrlEncoded)-  => GrantType -- ^ "grantType"-  -> ORYHydraRequest Oauth2Token MimeFormUrlEncoded Oauth2TokenResponse MimeJSON-oauth2Token (GrantType grantType) =-  _mkRequest "POST" ["/oauth2/token"]-    `_hasAuthType` (P.Proxy :: P.Proxy AuthBasicBasic)-    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthOauth2)-    `addForm` toForm ("grant_type", grantType)--data Oauth2Token  -instance HasOptionalParam Oauth2Token Code where-  applyOptionalParam req (Code xs) =-    req `addForm` toForm ("code", xs)-instance HasOptionalParam Oauth2Token RefreshToken where-  applyOptionalParam req (RefreshToken xs) =-    req `addForm` toForm ("refresh_token", xs)-instance HasOptionalParam Oauth2Token RedirectUri where-  applyOptionalParam req (RedirectUri xs) =-    req `addForm` toForm ("redirect_uri", xs)-instance HasOptionalParam Oauth2Token ClientId where-  applyOptionalParam req (ClientId xs) =-    req `addForm` toForm ("client_id", xs)---- | @application/x-www-form-urlencoded@-instance Consumes Oauth2Token MimeFormUrlEncoded---- | @application/json@-instance Produces Oauth2Token MimeJSON----- *** oauthAuth---- | @GET \/oauth2\/auth@--- --- The OAuth 2.0 Authorize Endpoint--- --- This endpoint is not documented here because you should never use your own implementation to perform OAuth2 flows. OAuth2 is a very popular protocol and a library for your programming language will exists.  To learn more about this flow please refer to the specification: https://tools.ietf.org/html/rfc6749--- -oauthAuth-  :: ORYHydraRequest OauthAuth MimeNoContent NoContent MimeNoContent-oauthAuth =-  _mkRequest "GET" ["/oauth2/auth"]--data OauthAuth  -instance Produces OauthAuth MimeNoContent----- *** revokeOAuth2Token---- | @POST \/oauth2\/revoke@--- --- Revoke OAuth2 Tokens--- --- Revoking a token (both access and refresh) means that the tokens will be invalid. A revoked access token can no longer be used to make access requests, and a revoked refresh token can no longer be used to refresh an access token. Revoking a refresh token also invalidates the access token that was created with it. A token may only be revoked by the client the token was generated for.--- --- AuthMethod: 'AuthBasicBasic', 'AuthOAuthOauth2'--- -revokeOAuth2Token-  :: (Consumes RevokeOAuth2Token MimeFormUrlEncoded)-  => Token -- ^ "token"-  -> ORYHydraRequest RevokeOAuth2Token MimeFormUrlEncoded NoContent MimeNoContent-revokeOAuth2Token (Token token) =-  _mkRequest "POST" ["/oauth2/revoke"]-    `_hasAuthType` (P.Proxy :: P.Proxy AuthBasicBasic)-    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthOauth2)-    `addForm` toForm ("token", token)--data RevokeOAuth2Token  ---- | @application/x-www-form-urlencoded@-instance Consumes RevokeOAuth2Token MimeFormUrlEncoded--instance Produces RevokeOAuth2Token MimeNoContent----- *** userinfo---- | @GET \/userinfo@--- --- OpenID Connect Userinfo--- --- This endpoint returns the payload of the ID Token, including the idTokenExtra values, of the provided OAuth 2.0 Access Token.  For more information please [refer to the spec](http://openid.net/specs/openid-connect-core-1_0.html#UserInfo).--- --- AuthMethod: 'AuthOAuthOauth2'--- -userinfo-  :: ORYHydraRequest Userinfo MimeNoContent UserinfoResponse MimeJSON-userinfo =-  _mkRequest "GET" ["/userinfo"]-    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthOauth2)--data Userinfo  --- | @application/json@-instance Produces Userinfo MimeJSON----- *** wellKnown0---- | @GET \/.well-known\/jwks.json@--- --- JSON Web Keys Discovery--- --- This endpoint returns JSON Web Keys to be used as public keys for verifying OpenID Connect ID Tokens and, if enabled, OAuth 2.0 JWT Access Tokens. This endpoint can be used with client libraries like [node-jwks-rsa](https://github.com/auth0/node-jwks-rsa) among others.--- -wellKnown0-  :: ORYHydraRequest WellKnown0 MimeNoContent JSONWebKeySet MimeJSON-wellKnown0 =-  _mkRequest "GET" ["/.well-known/jwks.json"]--data WellKnown0  --- | @application/json@-instance Produces WellKnown0 MimeJSON-

@@ -1,223 +0,0 @@-{--   ORY Hydra--   Welcome to the ORY Hydra HTTP API documentation. You will find documentation for all HTTP APIs here.--   OpenAPI Version: 3.0.1-   ORY Hydra API version: latest-   Generated by OpenAPI Generator (https://openapi-generator.tech)--}--{-|-Module : ORYHydra.Client--}--{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RankNTypes #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE FlexibleContexts #-}-{-# LANGUAGE ScopedTypeVariables #-}-{-# LANGUAGE DeriveFunctor #-}-{-# LANGUAGE DeriveFoldable #-}-{-# LANGUAGE DeriveTraversable #-}-{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}--module ORYHydra.Client where--import ORYHydra.Core-import ORYHydra.Logging-import ORYHydra.MimeTypes--import qualified Control.Exception.Safe as E-import qualified Control.Monad.IO.Class as P-import qualified Control.Monad as P-import qualified Data.Aeson.Types as A-import qualified Data.ByteString as B-import qualified Data.ByteString.Char8 as BC-import qualified Data.ByteString.Lazy as BL-import qualified Data.ByteString.Lazy.Char8 as BCL-import qualified Data.Proxy as P (Proxy(..))-import qualified Data.Text as T-import qualified Data.Text.Encoding as T-import qualified Network.HTTP.Client as NH-import qualified Network.HTTP.Client.MultipartFormData as NH-import qualified Network.HTTP.Types as NH-import qualified Web.FormUrlEncoded as WH-import qualified Web.HttpApiData as WH--import Data.Function ((&))-import Data.Monoid ((<>))-import Data.Text (Text)-import GHC.Exts (IsString(..))---- * Dispatch---- ** Lbs---- | send a request returning the raw http response-dispatchLbs-  :: (Produces req accept, MimeType contentType)-  => NH.Manager -- ^ http-client Connection manager-  -> ORYHydraConfig -- ^ config-  -> ORYHydraRequest req contentType res accept -- ^ request-  -> IO (NH.Response BCL.ByteString) -- ^ response-dispatchLbs manager config request  = do-  initReq <- _toInitRequest config request-  dispatchInitUnsafe manager config initReq---- ** Mime---- | pair of decoded http body and http response-data MimeResult res =-  MimeResult { mimeResult :: Either MimeError res -- ^ decoded http body-             , mimeResultResponse :: NH.Response BCL.ByteString -- ^ http response-             }-  deriving (Show, Functor, Foldable, Traversable)---- | pair of unrender/parser error and http response-data MimeError =-  MimeError {-    mimeError :: String -- ^ unrender/parser error-  , mimeErrorResponse :: NH.Response BCL.ByteString -- ^ http response-  } deriving (Show)---- | send a request returning the 'MimeResult'-dispatchMime-  :: forall req contentType res accept. (Produces req accept, MimeUnrender accept res, MimeType contentType)-  => NH.Manager -- ^ http-client Connection manager-  -> ORYHydraConfig -- ^ config-  -> ORYHydraRequest req contentType res accept -- ^ request-  -> IO (MimeResult res) -- ^ response-dispatchMime manager config request = do-  httpResponse <- dispatchLbs manager config request-  let statusCode = NH.statusCode . NH.responseStatus $ httpResponse-  parsedResult <--    runConfigLogWithExceptions "Client" config $-    do if (statusCode >= 400 && statusCode < 600)-         then do-           let s = "error statusCode: " ++ show statusCode-           _log "Client" levelError (T.pack s)-           pure (Left (MimeError s httpResponse))-         else case mimeUnrender (P.Proxy :: P.Proxy accept) (NH.responseBody httpResponse) of-           Left s -> do-             _log "Client" levelError (T.pack s)-             pure (Left (MimeError s httpResponse))-           Right r -> pure (Right r)-  return (MimeResult parsedResult httpResponse)---- | like 'dispatchMime', but only returns the decoded http body-dispatchMime'-  :: (Produces req accept, MimeUnrender accept res, MimeType contentType)-  => NH.Manager -- ^ http-client Connection manager-  -> ORYHydraConfig -- ^ config-  -> ORYHydraRequest req contentType res accept -- ^ request-  -> IO (Either MimeError res) -- ^ response-dispatchMime' manager config request  = do-    MimeResult parsedResult _ <- dispatchMime manager config request-    return parsedResult---- ** Unsafe---- | like 'dispatchReqLbs', but does not validate the operation is a 'Producer' of the "accept" 'MimeType'.  (Useful if the server's response is undocumented)-dispatchLbsUnsafe-  :: (MimeType accept, MimeType contentType)-  => NH.Manager -- ^ http-client Connection manager-  -> ORYHydraConfig -- ^ config-  -> ORYHydraRequest req contentType res accept -- ^ request-  -> IO (NH.Response BCL.ByteString) -- ^ response-dispatchLbsUnsafe manager config request  = do-  initReq <- _toInitRequest config request-  dispatchInitUnsafe manager config initReq---- | dispatch an InitRequest-dispatchInitUnsafe-  :: NH.Manager -- ^ http-client Connection manager-  -> ORYHydraConfig -- ^ config-  -> InitRequest req contentType res accept -- ^ init request-  -> IO (NH.Response BCL.ByteString) -- ^ response-dispatchInitUnsafe manager config (InitRequest req) = do-  runConfigLogWithExceptions src config $-    do _log src levelInfo requestLogMsg-       _log src levelDebug requestDbgLogMsg-       res <- P.liftIO $ NH.httpLbs req manager-       _log src levelInfo (responseLogMsg res)-       _log src levelDebug ((T.pack . show) res)-       return res-  where-    src = "Client"-    endpoint =-      T.pack $-      BC.unpack $-      NH.method req <> " " <> NH.host req <> NH.path req <> NH.queryString req-    requestLogMsg = "REQ:" <> endpoint-    requestDbgLogMsg =-      "Headers=" <> (T.pack . show) (NH.requestHeaders req) <> " Body=" <>-      (case NH.requestBody req of-         NH.RequestBodyLBS xs -> T.decodeUtf8 (BL.toStrict xs)-         _ -> "<RequestBody>")-    responseStatusCode = (T.pack . show) . NH.statusCode . NH.responseStatus-    responseLogMsg res =-      "RES:statusCode=" <> responseStatusCode res <> " (" <> endpoint <> ")"---- * InitRequest---- | wraps an http-client 'Request' with request/response type parameters-newtype InitRequest req contentType res accept = InitRequest-  { unInitRequest :: NH.Request-  } deriving (Show)---- |  Build an http-client 'Request' record from the supplied config and request-_toInitRequest-  :: (MimeType accept, MimeType contentType)-  => ORYHydraConfig -- ^ config-  -> ORYHydraRequest req contentType res accept -- ^ request-  -> IO (InitRequest req contentType res accept) -- ^ initialized request-_toInitRequest config req0  =-  runConfigLogWithExceptions "Client" config $ do-    parsedReq <- P.liftIO $ NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (rUrlPath req0))-    req1 <- P.liftIO $ _applyAuthMethods req0 config-    P.when-        (configValidateAuthMethods config && (not . null . rAuthTypes) req1)-        (E.throw $ AuthMethodException $ "AuthMethod not configured: " <> (show . head . rAuthTypes) req1)-    let req2 = req1 & _setContentTypeHeader & _setAcceptHeader-        params = rParams req2-        reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders params-        reqQuery = let query = paramsQuery params-                       queryExtraUnreserved = configQueryExtraUnreserved config-                   in if B.null queryExtraUnreserved-                        then NH.renderQuery True query-                        else NH.renderQueryPartialEscape True (toPartialEscapeQuery queryExtraUnreserved query)-        pReq = parsedReq { NH.method = rMethod req2-                        , NH.requestHeaders = reqHeaders-                        , NH.queryString = reqQuery-                        }-    outReq <- case paramsBody params of-        ParamBodyNone -> pure (pReq { NH.requestBody = mempty })-        ParamBodyB bs -> pure (pReq { NH.requestBody = NH.RequestBodyBS bs })-        ParamBodyBL bl -> pure (pReq { NH.requestBody = NH.RequestBodyLBS bl })-        ParamBodyFormUrlEncoded form -> pure (pReq { NH.requestBody = NH.RequestBodyLBS (WH.urlEncodeForm form) })-        ParamBodyMultipartFormData parts -> NH.formDataBody parts pReq--    pure (InitRequest outReq)---- | modify the underlying Request-modifyInitRequest :: InitRequest req contentType res accept -> (NH.Request -> NH.Request) -> InitRequest req contentType res accept-modifyInitRequest (InitRequest req) f = InitRequest (f req)---- | modify the underlying Request (monadic)-modifyInitRequestM :: Monad m => InitRequest req contentType res accept -> (NH.Request -> m NH.Request) -> m (InitRequest req contentType res accept)-modifyInitRequestM (InitRequest req) f = fmap InitRequest (f req)---- ** Logging---- | Run a block using the configured logger instance-runConfigLog-  :: P.MonadIO m-  => ORYHydraConfig -> LogExec m a-runConfigLog config = configLogExecWithContext config (configLogContext config)---- | Run a block using the configured logger instance (logs exceptions)-runConfigLogWithExceptions-  :: (E.MonadCatch m, P.MonadIO m)-  => T.Text -> ORYHydraConfig -> LogExec m a-runConfigLogWithExceptions src config = runConfigLog config . logExceptions src

@@ -1,576 +0,0 @@-{--   ORY Hydra--   Welcome to the ORY Hydra HTTP API documentation. You will find documentation for all HTTP APIs here.--   OpenAPI Version: 3.0.1-   ORY Hydra API version: latest-   Generated by OpenAPI Generator (https://openapi-generator.tech)--}--{-|-Module : ORYHydra.Core--}--{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE ExistentialQuantification #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}-{-# LANGUAGE MultiParamTypeClasses #-}-{-# LANGUAGE NamedFieldPuns #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RankNTypes #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE ScopedTypeVariables #-}-{-# LANGUAGE TupleSections #-}-{-# LANGUAGE TypeFamilies #-}-{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}--module ORYHydra.Core where--import ORYHydra.MimeTypes-import ORYHydra.Logging--import qualified Control.Arrow as P (left)-import qualified Control.DeepSeq as NF-import qualified Control.Exception.Safe as E-import qualified Data.Aeson as A-import qualified Data.ByteString as B-import qualified Data.ByteString.Base64.Lazy as BL64-import qualified Data.ByteString.Builder as BB-import qualified Data.ByteString.Char8 as BC-import qualified Data.ByteString.Lazy as BL-import qualified Data.ByteString.Lazy.Char8 as BCL-import qualified Data.CaseInsensitive as CI-import qualified Data.Data as P (Data, Typeable, TypeRep, typeRep)-import qualified Data.Foldable as P-import qualified Data.Ix as P-import qualified Data.Kind as K (Type)-import qualified Data.Maybe as P-import qualified Data.Proxy as P (Proxy(..))-import qualified Data.Text as T-import qualified Data.Text.Encoding as T-import qualified Data.Time as TI-import qualified Data.Time.ISO8601 as TI-import qualified GHC.Base as P (Alternative)-import qualified Lens.Micro as L-import qualified Network.HTTP.Client.MultipartFormData as NH-import qualified Network.HTTP.Types as NH-import qualified Prelude as P-import qualified Text.Printf as T-import qualified Web.FormUrlEncoded as WH-import qualified Web.HttpApiData as WH--import Control.Applicative ((<|>))-import Control.Applicative (Alternative)-import Control.Monad.Fail (MonadFail)-import Data.Function ((&))-import Data.Foldable(foldlM)-import Data.Monoid ((<>))-import Data.Text (Text)-import Prelude (($), (.), (&&), (<$>), (<*>), Maybe(..), Bool(..), Char, String, fmap, mempty, pure, return, show, IO, Monad, Functor, maybe)---- * ORYHydraConfig---- |-data ORYHydraConfig = ORYHydraConfig-  { configHost  :: BCL.ByteString -- ^ host supplied in the Request-  , configUserAgent :: Text -- ^ user-agent supplied in the Request-  , configLogExecWithContext :: LogExecWithContext -- ^ Run a block using a Logger instance-  , configLogContext :: LogContext -- ^ Configures the logger-  , configAuthMethods :: [AnyAuthMethod] -- ^ List of configured auth methods-  , configValidateAuthMethods :: Bool -- ^ throw exceptions if auth methods are not configured-  , configQueryExtraUnreserved :: B.ByteString -- ^ Configures additional querystring characters which must not be URI encoded, e.g. '+' or ':'-  }---- | display the config-instance P.Show ORYHydraConfig where-  show c =-    T.printf-      "{ configHost = %v, configUserAgent = %v, ..}"-      (show (configHost c))-      (show (configUserAgent c))---- | constructs a default ORYHydraConfig------ configHost:------ @http://localhost@------ configUserAgent:------ @"ory-hydra-client/0.1.0.0"@----newConfig :: IO ORYHydraConfig-newConfig = do-    logCxt <- initLogContext-    return $ ORYHydraConfig-        { configHost = "http://localhost"-        , configUserAgent = "ory-hydra-client/0.1.0.0"-        , configLogExecWithContext = runDefaultLogExecWithContext-        , configLogContext = logCxt-        , configAuthMethods = []-        , configValidateAuthMethods = True-        , configQueryExtraUnreserved = ""-        }---- | updates config use AuthMethod on matching requests-addAuthMethod :: AuthMethod auth => ORYHydraConfig -> auth -> ORYHydraConfig-addAuthMethod config@ORYHydraConfig {configAuthMethods = as} a =-  config { configAuthMethods = AnyAuthMethod a : as}---- | updates the config to use stdout logging-withStdoutLogging :: ORYHydraConfig -> IO ORYHydraConfig-withStdoutLogging p = do-    logCxt <- stdoutLoggingContext (configLogContext p)-    return $ p { configLogExecWithContext = stdoutLoggingExec, configLogContext = logCxt }---- | updates the config to use stderr logging-withStderrLogging :: ORYHydraConfig -> IO ORYHydraConfig-withStderrLogging p = do-    logCxt <- stderrLoggingContext (configLogContext p)-    return $ p { configLogExecWithContext = stderrLoggingExec, configLogContext = logCxt }---- | updates the config to disable logging-withNoLogging :: ORYHydraConfig -> ORYHydraConfig-withNoLogging p = p { configLogExecWithContext =  runNullLogExec}---- * ORYHydraRequest---- | Represents a request.------   Type Variables:------   * req - request operation---   * contentType - 'MimeType' associated with request body---   * res - response model---   * accept - 'MimeType' associated with response body-data ORYHydraRequest req contentType res accept = ORYHydraRequest-  { rMethod  :: NH.Method   -- ^ Method of ORYHydraRequest-  , rUrlPath :: [BCL.ByteString] -- ^ Endpoint of ORYHydraRequest-  , rParams   :: Params -- ^ params of ORYHydraRequest-  , rAuthTypes :: [P.TypeRep] -- ^ types of auth methods-  }-  deriving (P.Show)---- | 'rMethod' Lens-rMethodL :: Lens_' (ORYHydraRequest req contentType res accept) NH.Method-rMethodL f ORYHydraRequest{..} = (\rMethod -> ORYHydraRequest { rMethod, ..} ) <$> f rMethod-{-# INLINE rMethodL #-}---- | 'rUrlPath' Lens-rUrlPathL :: Lens_' (ORYHydraRequest req contentType res accept) [BCL.ByteString]-rUrlPathL f ORYHydraRequest{..} = (\rUrlPath -> ORYHydraRequest { rUrlPath, ..} ) <$> f rUrlPath-{-# INLINE rUrlPathL #-}---- | 'rParams' Lens-rParamsL :: Lens_' (ORYHydraRequest req contentType res accept) Params-rParamsL f ORYHydraRequest{..} = (\rParams -> ORYHydraRequest { rParams, ..} ) <$> f rParams-{-# INLINE rParamsL #-}---- | 'rParams' Lens-rAuthTypesL :: Lens_' (ORYHydraRequest req contentType res accept) [P.TypeRep]-rAuthTypesL f ORYHydraRequest{..} = (\rAuthTypes -> ORYHydraRequest { rAuthTypes, ..} ) <$> f rAuthTypes-{-# INLINE rAuthTypesL #-}---- * HasBodyParam---- | Designates the body parameter of a request-class HasBodyParam req param where-  setBodyParam :: forall contentType res accept. (Consumes req contentType, MimeRender contentType param) => ORYHydraRequest req contentType res accept -> param -> ORYHydraRequest req contentType res accept-  setBodyParam req xs =-    req `_setBodyLBS` mimeRender (P.Proxy :: P.Proxy contentType) xs & _setContentTypeHeader---- * HasOptionalParam---- | Designates the optional parameters of a request-class HasOptionalParam req param where-  {-# MINIMAL applyOptionalParam | (-&-) #-}--  -- | Apply an optional parameter to a request-  applyOptionalParam :: ORYHydraRequest req contentType res accept -> param -> ORYHydraRequest req contentType res accept-  applyOptionalParam = (-&-)-  {-# INLINE applyOptionalParam #-}--  -- | infix operator \/ alias for 'addOptionalParam'-  (-&-) :: ORYHydraRequest req contentType res accept -> param -> ORYHydraRequest req contentType res accept-  (-&-) = applyOptionalParam-  {-# INLINE (-&-) #-}--infixl 2 -&----- | Request Params-data Params = Params-  { paramsQuery :: NH.Query-  , paramsHeaders :: NH.RequestHeaders-  , paramsBody :: ParamBody-  }-  deriving (P.Show)---- | 'paramsQuery' Lens-paramsQueryL :: Lens_' Params NH.Query-paramsQueryL f Params{..} = (\paramsQuery -> Params { paramsQuery, ..} ) <$> f paramsQuery-{-# INLINE paramsQueryL #-}---- | 'paramsHeaders' Lens-paramsHeadersL :: Lens_' Params NH.RequestHeaders-paramsHeadersL f Params{..} = (\paramsHeaders -> Params { paramsHeaders, ..} ) <$> f paramsHeaders-{-# INLINE paramsHeadersL #-}---- | 'paramsBody' Lens-paramsBodyL :: Lens_' Params ParamBody-paramsBodyL f Params{..} = (\paramsBody -> Params { paramsBody, ..} ) <$> f paramsBody-{-# INLINE paramsBodyL #-}---- | Request Body-data ParamBody-  = ParamBodyNone-  | ParamBodyB B.ByteString-  | ParamBodyBL BL.ByteString-  | ParamBodyFormUrlEncoded WH.Form-  | ParamBodyMultipartFormData [NH.Part]-  deriving (P.Show)---- ** ORYHydraRequest Utils--_mkRequest :: NH.Method -- ^ Method-          -> [BCL.ByteString] -- ^ Endpoint-          -> ORYHydraRequest req contentType res accept -- ^ req: Request Type, res: Response Type-_mkRequest m u = ORYHydraRequest m u _mkParams []--_mkParams :: Params-_mkParams = Params [] [] ParamBodyNone--setHeader ::-     ORYHydraRequest req contentType res accept-  -> [NH.Header]-  -> ORYHydraRequest req contentType res accept-setHeader req header =-  req `removeHeader` P.fmap P.fst header-  & (`addHeader` header)--addHeader ::-     ORYHydraRequest req contentType res accept-  -> [NH.Header]-  -> ORYHydraRequest req contentType res accept-addHeader req header = L.over (rParamsL . paramsHeadersL) (header P.++) req--removeHeader :: ORYHydraRequest req contentType res accept -> [NH.HeaderName] -> ORYHydraRequest req contentType res accept-removeHeader req header =-  req &-  L.over-    (rParamsL . paramsHeadersL)-    (P.filter (\h -> cifst h `P.notElem` P.fmap CI.mk header))-  where-    cifst = CI.mk . P.fst---_setContentTypeHeader :: forall req contentType res accept. MimeType contentType => ORYHydraRequest req contentType res accept -> ORYHydraRequest req contentType res accept-_setContentTypeHeader req =-    case mimeType (P.Proxy :: P.Proxy contentType) of-        Just m -> req `setHeader` [("content-type", BC.pack $ P.show m)]-        Nothing -> req `removeHeader` ["content-type"]--_setAcceptHeader :: forall req contentType res accept. MimeType accept => ORYHydraRequest req contentType res accept -> ORYHydraRequest req contentType res accept-_setAcceptHeader req =-    case mimeType (P.Proxy :: P.Proxy accept) of-        Just m -> req `setHeader` [("accept", BC.pack $ P.show m)]-        Nothing -> req `removeHeader` ["accept"]--setQuery ::-     ORYHydraRequest req contentType res accept-  -> [NH.QueryItem]-  -> ORYHydraRequest req contentType res accept-setQuery req query =-  req &-  L.over-    (rParamsL . paramsQueryL)-    (P.filter (\q -> cifst q `P.notElem` P.fmap cifst query)) &-  (`addQuery` query)-  where-    cifst = CI.mk . P.fst--addQuery ::-     ORYHydraRequest req contentType res accept-  -> [NH.QueryItem]-  -> ORYHydraRequest req contentType res accept-addQuery req query = req & L.over (rParamsL . paramsQueryL) (query P.++)--addForm :: ORYHydraRequest req contentType res accept -> WH.Form -> ORYHydraRequest req contentType res accept-addForm req newform =-    let form = case paramsBody (rParams req) of-            ParamBodyFormUrlEncoded _form -> _form-            _ -> mempty-    in req & L.set (rParamsL . paramsBodyL) (ParamBodyFormUrlEncoded (newform <> form))--_addMultiFormPart :: ORYHydraRequest req contentType res accept -> NH.Part -> ORYHydraRequest req contentType res accept-_addMultiFormPart req newpart =-    let parts = case paramsBody (rParams req) of-            ParamBodyMultipartFormData _parts -> _parts-            _ -> []-    in req & L.set (rParamsL . paramsBodyL) (ParamBodyMultipartFormData (newpart : parts))--_setBodyBS :: ORYHydraRequest req contentType res accept -> B.ByteString -> ORYHydraRequest req contentType res accept-_setBodyBS req body =-    req & L.set (rParamsL . paramsBodyL) (ParamBodyB body)--_setBodyLBS :: ORYHydraRequest req contentType res accept -> BL.ByteString -> ORYHydraRequest req contentType res accept-_setBodyLBS req body =-    req & L.set (rParamsL . paramsBodyL) (ParamBodyBL body)--_hasAuthType :: AuthMethod authMethod => ORYHydraRequest req contentType res accept -> P.Proxy authMethod -> ORYHydraRequest req contentType res accept-_hasAuthType req proxy =-  req & L.over rAuthTypesL (P.typeRep proxy :)---- ** Params Utils--toPath-  :: WH.ToHttpApiData a-  => a -> BCL.ByteString-toPath = BB.toLazyByteString . WH.toEncodedUrlPiece--toHeader :: WH.ToHttpApiData a => (NH.HeaderName, a) -> [NH.Header]-toHeader x = [fmap WH.toHeader x]--toForm :: WH.ToHttpApiData v => (BC.ByteString, v) -> WH.Form-toForm (k,v) = WH.toForm [(BC.unpack k,v)]--toQuery :: WH.ToHttpApiData a => (BC.ByteString, Maybe a) -> [NH.QueryItem]-toQuery x = [(fmap . fmap) toQueryParam x]-  where toQueryParam = T.encodeUtf8 . WH.toQueryParam--toPartialEscapeQuery :: B.ByteString -> NH.Query -> NH.PartialEscapeQuery-toPartialEscapeQuery extraUnreserved query = fmap (\(k, v) -> (k, maybe [] go v)) query-  where go :: B.ByteString -> [NH.EscapeItem]-        go v = v & B.groupBy (\a b -> a `B.notElem` extraUnreserved && b `B.notElem` extraUnreserved)-                 & fmap (\xs -> if B.null xs then NH.QN xs-                                  else if B.head xs `B.elem` extraUnreserved-                                          then NH.QN xs -- Not Encoded-                                          else NH.QE xs -- Encoded-                        )---- *** OpenAPI `CollectionFormat` Utils---- | Determines the format of the array if type array is used.-data CollectionFormat-  = CommaSeparated -- ^ CSV format for multiple parameters.-  | SpaceSeparated -- ^ Also called "SSV"-  | TabSeparated -- ^ Also called "TSV"-  | PipeSeparated -- ^ `value1|value2|value2`-  | MultiParamArray -- ^ Using multiple GET parameters, e.g. `foo=bar&foo=baz`. This is valid only for parameters in "query" ('NH.Query') or "formData" ('WH.Form')--toHeaderColl :: WH.ToHttpApiData a => CollectionFormat -> (NH.HeaderName, [a]) -> [NH.Header]-toHeaderColl c xs = _toColl c toHeader xs--toFormColl :: WH.ToHttpApiData v => CollectionFormat -> (BC.ByteString, [v]) -> WH.Form-toFormColl c xs = WH.toForm $ fmap unpack $ _toColl c toHeader $ pack xs-  where-    pack (k,v) = (CI.mk k, v)-    unpack (k,v) = (BC.unpack (CI.original k), BC.unpack v)--toQueryColl :: WH.ToHttpApiData a => CollectionFormat -> (BC.ByteString, Maybe [a]) -> NH.Query-toQueryColl c xs = _toCollA c toQuery xs--_toColl :: P.Traversable f => CollectionFormat -> (f a -> [(b, BC.ByteString)]) -> f [a] -> [(b, BC.ByteString)]-_toColl c encode xs = fmap (fmap P.fromJust) (_toCollA' c fencode BC.singleton (fmap Just xs))-  where fencode = fmap (fmap Just) . encode . fmap P.fromJust-        {-# INLINE fencode #-}--_toCollA :: (P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t BC.ByteString)]) -> f (t [a]) -> [(b, t BC.ByteString)]-_toCollA c encode xs = _toCollA' c encode BC.singleton xs--_toCollA' :: (P.Monoid c, P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t c)]) -> (Char -> c) -> f (t [a]) -> [(b, t c)]-_toCollA' c encode one xs = case c of-  CommaSeparated -> go (one ',')-  SpaceSeparated -> go (one ' ')-  TabSeparated -> go (one '\t')-  PipeSeparated -> go (one '|')-  MultiParamArray -> expandList-  where-    go sep =-      [P.foldl1 (\(sk, sv) (_, v) -> (sk, (combine sep <$> sv <*> v) <|> sv <|> v)) expandList]-    combine sep x y = x <> sep <> y-    expandList = (P.concatMap encode . (P.traverse . P.traverse) P.toList) xs-    {-# INLINE go #-}-    {-# INLINE expandList #-}-    {-# INLINE combine #-}---- * AuthMethods---- | Provides a method to apply auth methods to requests-class P.Typeable a =>-      AuthMethod a  where-  applyAuthMethod-    :: ORYHydraConfig-    -> a-    -> ORYHydraRequest req contentType res accept-    -> IO (ORYHydraRequest req contentType res accept)---- | An existential wrapper for any AuthMethod-data AnyAuthMethod = forall a. AuthMethod a => AnyAuthMethod a deriving (P.Typeable)--instance AuthMethod AnyAuthMethod where applyAuthMethod config (AnyAuthMethod a) req = applyAuthMethod config a req---- | indicates exceptions related to AuthMethods-data AuthMethodException = AuthMethodException String deriving (P.Show, P.Typeable)--instance E.Exception AuthMethodException---- | apply all matching AuthMethods in config to request-_applyAuthMethods-  :: ORYHydraRequest req contentType res accept-  -> ORYHydraConfig-  -> IO (ORYHydraRequest req contentType res accept)-_applyAuthMethods req config@(ORYHydraConfig {configAuthMethods = as}) =-  foldlM go req as-  where-    go r (AnyAuthMethod a) = applyAuthMethod config a r---- * Utils---- | Removes Null fields.  (OpenAPI-Specification 2.0 does not allow Null in JSON)-_omitNulls :: [(A.Key, A.Value)] -> A.Value-_omitNulls = A.object . P.filter notNull-  where-    notNull (_, A.Null) = False-    notNull _ = True---- | Encodes fields using WH.toQueryParam-_toFormItem :: (WH.ToHttpApiData a, Functor f) => t -> f a -> f (t, [Text])-_toFormItem name x = (name,) . (:[]) . WH.toQueryParam <$> x---- | Collapse (Just "") to Nothing-_emptyToNothing :: Maybe String -> Maybe String-_emptyToNothing (Just "") = Nothing-_emptyToNothing x = x-{-# INLINE _emptyToNothing #-}---- | Collapse (Just mempty) to Nothing-_memptyToNothing :: (P.Monoid a, P.Eq a) => Maybe a -> Maybe a-_memptyToNothing (Just x) | x P.== P.mempty = Nothing-_memptyToNothing x = x-{-# INLINE _memptyToNothing #-}---- * DateTime Formatting--newtype DateTime = DateTime { unDateTime :: TI.UTCTime }-  deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)-instance A.FromJSON DateTime where-  parseJSON = A.withText "DateTime" (_readDateTime . T.unpack)-instance A.ToJSON DateTime where-  toJSON (DateTime t) = A.toJSON (_showDateTime t)-instance WH.FromHttpApiData DateTime where-  parseUrlPiece = P.maybe (P.Left "parseUrlPiece @DateTime") P.Right . _readDateTime . T.unpack-instance WH.ToHttpApiData DateTime where-  toUrlPiece (DateTime t) = T.pack (_showDateTime t)-instance P.Show DateTime where-  show (DateTime t) = _showDateTime t-instance MimeRender MimeMultipartFormData DateTime where-  mimeRender _ = mimeRenderDefaultMultipartFormData---- | @_parseISO8601@-_readDateTime :: (MonadFail m, Alternative m) => String -> m DateTime-_readDateTime s =-  DateTime <$> _parseISO8601 s-{-# INLINE _readDateTime #-}---- | @TI.formatISO8601Millis@-_showDateTime :: (t ~ TI.UTCTime, TI.FormatTime t) => t -> String-_showDateTime =-  TI.formatISO8601Millis-{-# INLINE _showDateTime #-}---- | parse an ISO8601 date-time string-_parseISO8601 :: (TI.ParseTime t, MonadFail m, Alternative m) => String -> m t-_parseISO8601 t =-  P.asum $-  P.flip (TI.parseTimeM True TI.defaultTimeLocale) t <$>-  ["%FT%T%QZ", "%FT%T%Q%z", "%FT%T%Q%Z"]-{-# INLINE _parseISO8601 #-}---- * Date Formatting--newtype Date = Date { unDate :: TI.Day }-  deriving (P.Enum,P.Eq,P.Data,P.Ord,P.Ix,NF.NFData)-instance A.FromJSON Date where-  parseJSON = A.withText "Date" (_readDate . T.unpack)-instance A.ToJSON Date where-  toJSON (Date t) = A.toJSON (_showDate t)-instance WH.FromHttpApiData Date where-  parseUrlPiece = P.maybe (P.Left "parseUrlPiece @Date") P.Right . _readDate . T.unpack-instance WH.ToHttpApiData Date where-  toUrlPiece (Date t) = T.pack (_showDate t)-instance P.Show Date where-  show (Date t) = _showDate t-instance MimeRender MimeMultipartFormData Date where-  mimeRender _ = mimeRenderDefaultMultipartFormData---- | @TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"@-_readDate :: MonadFail m => String -> m Date-_readDate s = Date <$> TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d" s-{-# INLINE _readDate #-}---- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@-_showDate :: TI.FormatTime t => t -> String-_showDate =-  TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"-{-# INLINE _showDate #-}---- * Byte/Binary Formatting----- | base64 encoded characters-newtype ByteArray = ByteArray { unByteArray :: BL.ByteString }-  deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)--instance A.FromJSON ByteArray where-  parseJSON = A.withText "ByteArray" _readByteArray-instance A.ToJSON ByteArray where-  toJSON = A.toJSON . _showByteArray-instance WH.FromHttpApiData ByteArray where-  parseUrlPiece = P.maybe (P.Left "parseUrlPiece @ByteArray") P.Right . _readByteArray-instance WH.ToHttpApiData ByteArray where-  toUrlPiece = _showByteArray-instance P.Show ByteArray where-  show = T.unpack . _showByteArray-instance MimeRender MimeMultipartFormData ByteArray where-  mimeRender _ = mimeRenderDefaultMultipartFormData---- | read base64 encoded characters-_readByteArray :: MonadFail m => Text -> m ByteArray-_readByteArray = P.either P.fail (pure . ByteArray) . BL64.decode . BL.fromStrict . T.encodeUtf8-{-# INLINE _readByteArray #-}---- | show base64 encoded characters-_showByteArray :: ByteArray -> Text-_showByteArray = T.decodeUtf8 . BL.toStrict . BL64.encode . unByteArray-{-# INLINE _showByteArray #-}---- | any sequence of octets-newtype Binary = Binary { unBinary :: BL.ByteString }-  deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)--instance A.FromJSON Binary where-  parseJSON = A.withText "Binary" _readBinaryBase64-instance A.ToJSON Binary where-  toJSON = A.toJSON . _showBinaryBase64-instance WH.FromHttpApiData Binary where-  parseUrlPiece = P.maybe (P.Left "parseUrlPiece @Binary") P.Right . _readBinaryBase64-instance WH.ToHttpApiData Binary where-  toUrlPiece = _showBinaryBase64-instance P.Show Binary where-  show = T.unpack . _showBinaryBase64-instance MimeRender MimeMultipartFormData Binary where-  mimeRender _ = unBinary--_readBinaryBase64 :: MonadFail m => Text -> m Binary-_readBinaryBase64 = P.either P.fail (pure . Binary) . BL64.decode . BL.fromStrict . T.encodeUtf8-{-# INLINE _readBinaryBase64 #-}--_showBinaryBase64 :: Binary -> Text-_showBinaryBase64 = T.decodeUtf8 . BL.toStrict . BL64.encode . unBinary-{-# INLINE _showBinaryBase64 #-}---- * Lens Type Aliases--type Lens_' s a = Lens_ s s a a-type Lens_ s t a b = forall (f :: K.Type -> K.Type). Functor f => (a -> f b) -> s -> f t

@@ -1,33 +0,0 @@-{--   ORY Hydra--   Welcome to the ORY Hydra HTTP API documentation. You will find documentation for all HTTP APIs here.--   OpenAPI Version: 3.0.1-   ORY Hydra API version: latest-   Generated by OpenAPI Generator (https://openapi-generator.tech)--}--{-|-Module : ORYHydra.Logging-Logging functions--}-{-# LANGUAGE CPP #-}--#ifdef USE_KATIP--module ORYHydra.Logging-  ( module ORYHydra.LoggingKatip-  ) where--import ORYHydra.LoggingKatip--#else--module ORYHydra.Logging-  ( module ORYHydra.LoggingMonadLogger-  ) where--import ORYHydra.LoggingMonadLogger--#endif

@@ -1,117 +0,0 @@-{--   ORY Hydra--   Welcome to the ORY Hydra HTTP API documentation. You will find documentation for all HTTP APIs here.--   OpenAPI Version: 3.0.1-   ORY Hydra API version: latest-   Generated by OpenAPI Generator (https://openapi-generator.tech)--}--{-|-Module : ORYHydra.LoggingKatip-Katip Logging functions--}--{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RankNTypes #-}-{-# LANGUAGE ScopedTypeVariables #-}--module ORYHydra.LoggingKatip where--import qualified Control.Exception.Safe as E-import qualified Control.Monad.IO.Class as P-import qualified Control.Monad.Trans.Reader as P-import qualified Data.Text as T-import qualified Lens.Micro as L-import qualified System.IO as IO--import Data.Text (Text)-import GHC.Exts (IsString(..))--import qualified Katip as LG---- * Type Aliases (for compatibility)---- | Runs a Katip logging block with the Log environment-type LogExecWithContext = forall m a. P.MonadIO m =>-                                      LogContext -> LogExec m a---- | A Katip logging block-type LogExec m a = LG.KatipT m a -> m a---- | A Katip Log environment-type LogContext = LG.LogEnv---- | A Katip Log severity-type LogLevel = LG.Severity---- * default logger---- | the default log environment-initLogContext :: IO LogContext-initLogContext = LG.initLogEnv "ORYHydra" "dev"---- | Runs a Katip logging block with the Log environment-runDefaultLogExecWithContext :: LogExecWithContext-runDefaultLogExecWithContext = LG.runKatipT---- * stdout logger---- | Runs a Katip logging block with the Log environment-stdoutLoggingExec :: LogExecWithContext-stdoutLoggingExec = runDefaultLogExecWithContext---- | A Katip Log environment which targets stdout-stdoutLoggingContext :: LogContext -> IO LogContext-stdoutLoggingContext cxt = do-    handleScribe <- LG.mkHandleScribe LG.ColorIfTerminal IO.stdout (LG.permitItem LG.InfoS) LG.V2-    LG.registerScribe "stdout" handleScribe LG.defaultScribeSettings cxt---- * stderr logger---- | Runs a Katip logging block with the Log environment-stderrLoggingExec :: LogExecWithContext-stderrLoggingExec = runDefaultLogExecWithContext---- | A Katip Log environment which targets stderr-stderrLoggingContext :: LogContext -> IO LogContext-stderrLoggingContext cxt = do-    handleScribe <- LG.mkHandleScribe LG.ColorIfTerminal IO.stderr (LG.permitItem LG.InfoS) LG.V2-    LG.registerScribe "stderr" handleScribe LG.defaultScribeSettings cxt---- * Null logger---- | Disables Katip logging-runNullLogExec :: LogExecWithContext-runNullLogExec le (LG.KatipT f) = P.runReaderT f (L.set LG.logEnvScribes mempty le)---- * Log Msg---- | Log a katip message-_log :: (Applicative m, LG.Katip m) => Text -> LogLevel -> Text -> m ()-_log src level msg = do-  LG.logMsg (fromString $ T.unpack src) level (LG.logStr msg)---- * Log Exceptions---- | re-throws exceptions after logging them-logExceptions-  :: (LG.Katip m, E.MonadCatch m, Applicative m)-  => Text -> m a -> m a-logExceptions src =-  E.handle-    (\(e :: E.SomeException) -> do-       _log src LG.ErrorS ((T.pack . show) e)-       E.throw e)---- * Log Level--levelInfo :: LogLevel-levelInfo = LG.InfoS--levelError :: LogLevel-levelError = LG.ErrorS--levelDebug :: LogLevel-levelDebug = LG.DebugS

@@ -1,126 +0,0 @@-{--   ORY Hydra--   Welcome to the ORY Hydra HTTP API documentation. You will find documentation for all HTTP APIs here.--   OpenAPI Version: 3.0.1-   ORY Hydra API version: latest-   Generated by OpenAPI Generator (https://openapi-generator.tech)--}--{-|-Module : ORYHydra.LoggingMonadLogger-monad-logger Logging functions--}--{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RankNTypes #-}-{-# LANGUAGE ScopedTypeVariables #-}--module ORYHydra.LoggingMonadLogger where--import qualified Control.Exception.Safe as E-import qualified Control.Monad.IO.Class as P-import qualified Data.Text as T-import qualified Data.Time as TI--import Data.Text (Text)--import qualified Control.Monad.Logger as LG---- * Type Aliases (for compatibility)---- | Runs a monad-logger  block with the filter predicate-type LogExecWithContext = forall m a. P.MonadIO m =>-                                      LogContext -> LogExec m a---- | A monad-logger block-type LogExec m a = LG.LoggingT m a -> m a---- | A monad-logger filter predicate-type LogContext = LG.LogSource -> LG.LogLevel -> Bool---- | A monad-logger log level-type LogLevel = LG.LogLevel---- * default logger---- | the default log environment-initLogContext :: IO LogContext-initLogContext = pure infoLevelFilter---- | Runs a monad-logger block with the filter predicate-runDefaultLogExecWithContext :: LogExecWithContext-runDefaultLogExecWithContext = runNullLogExec---- * stdout logger---- | Runs a monad-logger block targeting stdout, with the filter predicate-stdoutLoggingExec :: LogExecWithContext-stdoutLoggingExec cxt = LG.runStdoutLoggingT . LG.filterLogger cxt---- | @pure@-stdoutLoggingContext :: LogContext -> IO LogContext-stdoutLoggingContext = pure---- * stderr logger---- | Runs a monad-logger block targeting stderr, with the filter predicate-stderrLoggingExec :: LogExecWithContext-stderrLoggingExec cxt = LG.runStderrLoggingT . LG.filterLogger cxt---- | @pure@-stderrLoggingContext :: LogContext -> IO LogContext-stderrLoggingContext = pure---- * Null logger---- | Disables monad-logger logging-runNullLogExec :: LogExecWithContext-runNullLogExec = const (`LG.runLoggingT` nullLogger)---- | monad-logger which does nothing-nullLogger :: LG.Loc -> LG.LogSource -> LG.LogLevel -> LG.LogStr -> IO ()-nullLogger _ _ _ _ = return ()---- * Log Msg---- | Log a message using the current time-_log :: (P.MonadIO m, LG.MonadLogger m) => Text -> LG.LogLevel -> Text -> m ()-_log src level msg = do-  now <- P.liftIO (formatTimeLog <$> TI.getCurrentTime)-  LG.logOtherNS ("ORYHydra." <> src) level ("[" <> now <> "] " <> msg)- where-  formatTimeLog =-    T.pack . TI.formatTime TI.defaultTimeLocale "%Y-%m-%dT%H:%M:%S%Z"---- * Log Exceptions---- | re-throws exceptions after logging them-logExceptions-   :: (LG.MonadLogger m, E.MonadCatch m, P.MonadIO m)-   => Text -> m a -> m a-logExceptions src =-   E.handle-     (\(e :: E.SomeException) -> do-        _log src LG.LevelError ((T.pack . show) e)-        E.throw e)---- * Log Level--levelInfo :: LogLevel-levelInfo = LG.LevelInfo--levelError :: LogLevel-levelError = LG.LevelError--levelDebug :: LogLevel-levelDebug = LG.LevelDebug---- * Level Filter--minLevelFilter :: LG.LogLevel -> LG.LogSource -> LG.LogLevel -> Bool-minLevelFilter l _ l' = l' >= l--infoLevelFilter :: LG.LogSource -> LG.LogLevel -> Bool-infoLevelFilter = minLevelFilter LG.LevelInfo

@@ -1,203 +0,0 @@-{--   ORY Hydra--   Welcome to the ORY Hydra HTTP API documentation. You will find documentation for all HTTP APIs here.--   OpenAPI Version: 3.0.1-   ORY Hydra API version: latest-   Generated by OpenAPI Generator (https://openapi-generator.tech)--}--{-|-Module : ORYHydra.MimeTypes--}--{-# LANGUAGE ConstraintKinds #-}-{-# LANGUAGE ExistentialQuantification #-}-{-# LANGUAGE FlexibleContexts #-}-{-# LANGUAGE FlexibleInstances #-}-{-# LANGUAGE MultiParamTypeClasses #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE ScopedTypeVariables #-}-{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}--module ORYHydra.MimeTypes where--import qualified Control.Arrow as P (left)-import qualified Data.Aeson as A-import qualified Data.ByteString as B-import qualified Data.ByteString.Builder as BB-import qualified Data.ByteString.Char8 as BC-import qualified Data.ByteString.Lazy as BL-import qualified Data.ByteString.Lazy.Char8 as BCL-import qualified Data.Data as P (Typeable)-import qualified Data.Proxy as P (Proxy(..))-import qualified Data.String as P-import qualified Data.Text as T-import qualified Data.Text.Encoding as T-import qualified Network.HTTP.Media as ME-import qualified Web.FormUrlEncoded as WH-import qualified Web.HttpApiData as WH--import Prelude (($), (.),(<$>),(<*>),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty)-import qualified Prelude as P---- * ContentType MimeType--data ContentType a = MimeType a => ContentType { unContentType :: a }---- * Accept MimeType--data Accept a = MimeType a => Accept { unAccept :: a }---- * Consumes Class--class MimeType mtype => Consumes req mtype where---- * Produces Class--class MimeType mtype => Produces req mtype where---- * Default Mime Types--data MimeJSON = MimeJSON deriving (P.Typeable)-data MimeXML = MimeXML deriving (P.Typeable)-data MimePlainText = MimePlainText deriving (P.Typeable)-data MimeFormUrlEncoded = MimeFormUrlEncoded deriving (P.Typeable)-data MimeMultipartFormData = MimeMultipartFormData deriving (P.Typeable)-data MimeOctetStream = MimeOctetStream deriving (P.Typeable)-data MimeNoContent = MimeNoContent deriving (P.Typeable)-data MimeAny = MimeAny deriving (P.Typeable)---- | A type for responses without content-body.-data NoContent = NoContent-  deriving (P.Show, P.Eq, P.Typeable)----- * MimeType Class--class P.Typeable mtype => MimeType mtype  where-  {-# MINIMAL mimeType | mimeTypes #-}--  mimeTypes :: P.Proxy mtype -> [ME.MediaType]-  mimeTypes p =-    case mimeType p of-      Just x -> [x]-      Nothing -> []--  mimeType :: P.Proxy mtype -> Maybe ME.MediaType-  mimeType p =-    case mimeTypes p of-      [] -> Nothing-      (x:_) -> Just x--  mimeType' :: mtype -> Maybe ME.MediaType-  mimeType' _ = mimeType (P.Proxy :: P.Proxy mtype)-  mimeTypes' :: mtype -> [ME.MediaType]-  mimeTypes' _ = mimeTypes (P.Proxy :: P.Proxy mtype)---- Default MimeType Instances---- | @application/json; charset=utf-8@-instance MimeType MimeJSON where-  mimeType _ = Just $ P.fromString "application/json"--- | @application/xml; charset=utf-8@-instance MimeType MimeXML where-  mimeType _ = Just $ P.fromString "application/xml"--- | @application/x-www-form-urlencoded@-instance MimeType MimeFormUrlEncoded where-  mimeType _ = Just $ P.fromString "application/x-www-form-urlencoded"--- | @multipart/form-data@-instance MimeType MimeMultipartFormData where-  mimeType _ = Just $ P.fromString "multipart/form-data"--- | @text/plain; charset=utf-8@-instance MimeType MimePlainText where-  mimeType _ = Just $ P.fromString "text/plain"--- | @application/octet-stream@-instance MimeType MimeOctetStream where-  mimeType _ = Just $ P.fromString "application/octet-stream"--- | @"*/*"@-instance MimeType MimeAny where-  mimeType _ = Just $ P.fromString "*/*"-instance MimeType MimeNoContent where-  mimeType _ = Nothing---- * MimeRender Class--class MimeType mtype => MimeRender mtype x where-    mimeRender  :: P.Proxy mtype -> x -> BL.ByteString-    mimeRender' :: mtype -> x -> BL.ByteString-    mimeRender' _ x = mimeRender (P.Proxy :: P.Proxy mtype) x---mimeRenderDefaultMultipartFormData :: WH.ToHttpApiData a => a -> BL.ByteString-mimeRenderDefaultMultipartFormData = BL.fromStrict . T.encodeUtf8 . WH.toQueryParam---- Default MimeRender Instances---- | `A.encode`-instance A.ToJSON a => MimeRender MimeJSON a where mimeRender _ = A.encode--- | @WH.urlEncodeAsForm@-instance WH.ToForm a => MimeRender MimeFormUrlEncoded a where mimeRender _ = WH.urlEncodeAsForm---- | @P.id@-instance MimeRender MimePlainText BL.ByteString where mimeRender _ = P.id--- | @BL.fromStrict . T.encodeUtf8@-instance MimeRender MimePlainText T.Text where mimeRender _ = BL.fromStrict . T.encodeUtf8--- | @BCL.pack@-instance MimeRender MimePlainText String where mimeRender _ = BCL.pack---- | @P.id@-instance MimeRender MimeOctetStream BL.ByteString where mimeRender _ = P.id--- | @BL.fromStrict . T.encodeUtf8@-instance MimeRender MimeOctetStream T.Text where mimeRender _ = BL.fromStrict . T.encodeUtf8--- | @BCL.pack@-instance MimeRender MimeOctetStream String where mimeRender _ = BCL.pack--instance MimeRender MimeMultipartFormData BL.ByteString where mimeRender _ = P.id--instance MimeRender MimeMultipartFormData Bool where mimeRender _ = mimeRenderDefaultMultipartFormData-instance MimeRender MimeMultipartFormData Char where mimeRender _ = mimeRenderDefaultMultipartFormData-instance MimeRender MimeMultipartFormData Double where mimeRender _ = mimeRenderDefaultMultipartFormData-instance MimeRender MimeMultipartFormData Float where mimeRender _ = mimeRenderDefaultMultipartFormData-instance MimeRender MimeMultipartFormData Int where mimeRender _ = mimeRenderDefaultMultipartFormData-instance MimeRender MimeMultipartFormData Integer where mimeRender _ = mimeRenderDefaultMultipartFormData-instance MimeRender MimeMultipartFormData String where mimeRender _ = mimeRenderDefaultMultipartFormData-instance MimeRender MimeMultipartFormData T.Text where mimeRender _ = mimeRenderDefaultMultipartFormData---- | @P.Right . P.const NoContent@-instance MimeRender MimeNoContent NoContent where mimeRender _ = P.const BCL.empty----- * MimeUnrender Class--class MimeType mtype => MimeUnrender mtype o where-    mimeUnrender :: P.Proxy mtype -> BL.ByteString -> P.Either String o-    mimeUnrender' :: mtype -> BL.ByteString -> P.Either String o-    mimeUnrender' _ x = mimeUnrender (P.Proxy :: P.Proxy mtype) x---- Default MimeUnrender Instances---- | @A.eitherDecode@-instance A.FromJSON a => MimeUnrender MimeJSON a where mimeUnrender _ = A.eitherDecode--- | @P.left T.unpack . WH.urlDecodeAsForm@-instance WH.FromForm a => MimeUnrender MimeFormUrlEncoded a where mimeUnrender _ = P.left T.unpack . WH.urlDecodeAsForm--- | @P.Right . P.id@--instance MimeUnrender MimePlainText BL.ByteString where mimeUnrender _ = P.Right . P.id--- | @P.left P.show . TL.decodeUtf8'@-instance MimeUnrender MimePlainText T.Text where mimeUnrender _ = P.left P.show . T.decodeUtf8' . BL.toStrict--- | @P.Right . BCL.unpack@-instance MimeUnrender MimePlainText String where mimeUnrender _ = P.Right . BCL.unpack---- | @P.Right . P.id@-instance MimeUnrender MimeOctetStream BL.ByteString where mimeUnrender _ = P.Right . P.id--- | @P.left P.show . T.decodeUtf8' . BL.toStrict@-instance MimeUnrender MimeOctetStream T.Text where mimeUnrender _ = P.left P.show . T.decodeUtf8' . BL.toStrict--- | @P.Right . BCL.unpack@-instance MimeUnrender MimeOctetStream String where mimeUnrender _ = P.Right . BCL.unpack---- | @P.Right . P.const NoContent@-instance MimeUnrender MimeNoContent NoContent where mimeUnrender _ = P.Right . P.const NoContent--

@@ -1,2216 +0,0 @@-{--   ORY Hydra--   Welcome to the ORY Hydra HTTP API documentation. You will find documentation for all HTTP APIs here.--   OpenAPI Version: 3.0.1-   ORY Hydra API version: latest-   Generated by OpenAPI Generator (https://openapi-generator.tech)--}--{-|-Module : ORYHydra.Model--}--{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveFoldable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE DeriveTraversable #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}-{-# LANGUAGE LambdaCase #-}-{-# LANGUAGE MultiParamTypeClasses #-}-{-# LANGUAGE NamedFieldPuns #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TupleSections #-}-{-# LANGUAGE TypeFamilies #-}-{-# OPTIONS_GHC -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}--module ORYHydra.Model where--import ORYHydra.Core-import ORYHydra.MimeTypes--import Data.Aeson ((.:),(.:!),(.:?),(.=))--import qualified Control.Arrow as P (left)-import qualified Data.Aeson as A-import qualified Data.ByteString as B-import qualified Data.ByteString.Base64 as B64-import qualified Data.ByteString.Char8 as BC-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.HashMap.Lazy as HM-import qualified Data.Map as Map-import qualified Data.Maybe as P-import qualified Data.Set as Set-import qualified Data.Text as T-import qualified Data.Text.Encoding as T-import qualified Data.Time as TI-import qualified Lens.Micro as L-import qualified Web.FormUrlEncoded as WH-import qualified Web.HttpApiData as WH--import Control.Applicative ((<|>))-import Control.Applicative (Alternative)-import Data.Function ((&))-import Data.Monoid ((<>))-import Data.Text (Text)-import Prelude (($),(/=),(.),(<$>),(<*>),(>>=),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)--import qualified Prelude as P------ * Parameter newtypes----- ** All-newtype All = All { unAll :: Bool } deriving (P.Eq, P.Show)---- ** Client-newtype Client = Client { unClient :: Text } deriving (P.Eq, P.Show)---- ** ClientId-newtype ClientId = ClientId { unClientId :: Text } deriving (P.Eq, P.Show)---- ** Code-newtype Code = Code { unCode :: Text } deriving (P.Eq, P.Show)---- ** ConsentChallenge-newtype ConsentChallenge = ConsentChallenge { unConsentChallenge :: Text } deriving (P.Eq, P.Show)---- ** GrantType-newtype GrantType = GrantType { unGrantType :: Text } deriving (P.Eq, P.Show)---- ** Id-newtype Id = Id { unId :: Text } deriving (P.Eq, P.Show)---- ** Kid-newtype Kid = Kid { unKid :: Text } deriving (P.Eq, P.Show)---- ** Limit-newtype Limit = Limit { unLimit :: Integer } deriving (P.Eq, P.Show)---- ** LoginChallenge-newtype LoginChallenge = LoginChallenge { unLoginChallenge :: Text } deriving (P.Eq, P.Show)---- ** LogoutChallenge-newtype LogoutChallenge = LogoutChallenge { unLogoutChallenge :: Text } deriving (P.Eq, P.Show)---- ** Offset-newtype Offset = Offset { unOffset :: Integer } deriving (P.Eq, P.Show)---- ** RedirectUri-newtype RedirectUri = RedirectUri { unRedirectUri :: Text } deriving (P.Eq, P.Show)---- ** RefreshToken-newtype RefreshToken = RefreshToken { unRefreshToken :: Text } deriving (P.Eq, P.Show)---- ** Scope-newtype Scope = Scope { unScope :: Text } deriving (P.Eq, P.Show)---- ** Set-newtype Set = Set { unSet :: Text } deriving (P.Eq, P.Show)---- ** Subject-newtype Subject = Subject { unSubject :: Text } deriving (P.Eq, P.Show)---- ** Token-newtype Token = Token { unToken :: Text } deriving (P.Eq, P.Show)---- * Models----- ** AcceptConsentRequest--- | AcceptConsentRequest--- The request payload used to accept a consent request.--- -data AcceptConsentRequest = AcceptConsentRequest-  { acceptConsentRequestGrantAccessTokenAudience :: Maybe [Text] -- ^ "grant_access_token_audience"-  , acceptConsentRequestGrantScope :: Maybe [Text] -- ^ "grant_scope"-  , acceptConsentRequestHandledAt :: Maybe DateTime -- ^ "handled_at"-  , acceptConsentRequestRemember :: Maybe Bool -- ^ "remember" - Remember, if set to true, tells ORY Hydra to remember this consent authorization and reuse it if the same client asks the same user for the same, or a subset of, scope.-  , acceptConsentRequestRememberFor :: Maybe Integer -- ^ "remember_for" - RememberFor sets how long the consent authorization should be remembered for in seconds. If set to &#x60;0&#x60;, the authorization will be remembered indefinitely.-  , acceptConsentRequestSession :: Maybe ConsentRequestSession -- ^ "session"-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON AcceptConsentRequest-instance A.FromJSON AcceptConsentRequest where-  parseJSON = A.withObject "AcceptConsentRequest" $ \o ->-    AcceptConsentRequest-      <$> (o .:? "grant_access_token_audience")-      <*> (o .:? "grant_scope")-      <*> (o .:? "handled_at")-      <*> (o .:? "remember")-      <*> (o .:? "remember_for")-      <*> (o .:? "session")---- | ToJSON AcceptConsentRequest-instance A.ToJSON AcceptConsentRequest where-  toJSON AcceptConsentRequest {..} =-   _omitNulls-      [ "grant_access_token_audience" .= acceptConsentRequestGrantAccessTokenAudience-      , "grant_scope" .= acceptConsentRequestGrantScope-      , "handled_at" .= acceptConsentRequestHandledAt-      , "remember" .= acceptConsentRequestRemember-      , "remember_for" .= acceptConsentRequestRememberFor-      , "session" .= acceptConsentRequestSession-      ]----- | Construct a value of type 'AcceptConsentRequest' (by applying it's required fields, if any)-mkAcceptConsentRequest-  :: AcceptConsentRequest-mkAcceptConsentRequest =-  AcceptConsentRequest-  { acceptConsentRequestGrantAccessTokenAudience = Nothing-  , acceptConsentRequestGrantScope = Nothing-  , acceptConsentRequestHandledAt = Nothing-  , acceptConsentRequestRemember = Nothing-  , acceptConsentRequestRememberFor = Nothing-  , acceptConsentRequestSession = Nothing-  }---- ** AcceptLoginRequest--- | AcceptLoginRequest--- HandledLoginRequest is the request payload used to accept a login request.--- -data AcceptLoginRequest = AcceptLoginRequest-  { acceptLoginRequestAcr :: Maybe Text -- ^ "acr" - ACR sets the Authentication AuthorizationContext Class Reference value for this authentication session. You can use it to express that, for example, a user authenticated using two factor authentication.-  , acceptLoginRequestContext :: Maybe A.Value -- ^ "context"-  , acceptLoginRequestForceSubjectIdentifier :: Maybe Text -- ^ "force_subject_identifier" - ForceSubjectIdentifier forces the \&quot;pairwise\&quot; user ID of the end-user that authenticated. The \&quot;pairwise\&quot; user ID refers to the (Pairwise Identifier Algorithm)[http://openid.net/specs/openid-connect-core-1_0.html#PairwiseAlg] of the OpenID Connect specification. It allows you to set an obfuscated subject (\&quot;user\&quot;) identifier that is unique to the client.  Please note that this changes the user ID on endpoint /userinfo and sub claim of the ID Token. It does not change the sub claim in the OAuth 2.0 Introspection.  Per default, ORY Hydra handles this value with its own algorithm. In case you want to set this yourself you can use this field. Please note that setting this field has no effect if &#x60;pairwise&#x60; is not configured in ORY Hydra or the OAuth 2.0 Client does not expect a pairwise identifier (set via &#x60;subject_type&#x60; key in the client&#39;s configuration).  Please also be aware that ORY Hydra is unable to properly compute this value during authentication. This implies that you have to compute this value on every authentication process (probably depending on the client ID or some other unique value).  If you fail to compute the proper value, then authentication processes which have id_token_hint set might fail.-  , acceptLoginRequestRemember :: Maybe Bool -- ^ "remember" - Remember, if set to true, tells ORY Hydra to remember this user by telling the user agent (browser) to store a cookie with authentication data. If the same user performs another OAuth 2.0 Authorization Request, he/she will not be asked to log in again.-  , acceptLoginRequestRememberFor :: Maybe Integer -- ^ "remember_for" - RememberFor sets how long the authentication should be remembered for in seconds. If set to &#x60;0&#x60;, the authorization will be remembered for the duration of the browser session (using a session cookie).-  , acceptLoginRequestSubject :: Text -- ^ /Required/ "subject" - Subject is the user ID of the end-user that authenticated.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON AcceptLoginRequest-instance A.FromJSON AcceptLoginRequest where-  parseJSON = A.withObject "AcceptLoginRequest" $ \o ->-    AcceptLoginRequest-      <$> (o .:? "acr")-      <*> (o .:? "context")-      <*> (o .:? "force_subject_identifier")-      <*> (o .:? "remember")-      <*> (o .:? "remember_for")-      <*> (o .:  "subject")---- | ToJSON AcceptLoginRequest-instance A.ToJSON AcceptLoginRequest where-  toJSON AcceptLoginRequest {..} =-   _omitNulls-      [ "acr" .= acceptLoginRequestAcr-      , "context" .= acceptLoginRequestContext-      , "force_subject_identifier" .= acceptLoginRequestForceSubjectIdentifier-      , "remember" .= acceptLoginRequestRemember-      , "remember_for" .= acceptLoginRequestRememberFor-      , "subject" .= acceptLoginRequestSubject-      ]----- | Construct a value of type 'AcceptLoginRequest' (by applying it's required fields, if any)-mkAcceptLoginRequest-  :: Text -- ^ 'acceptLoginRequestSubject': Subject is the user ID of the end-user that authenticated.-  -> AcceptLoginRequest-mkAcceptLoginRequest acceptLoginRequestSubject =-  AcceptLoginRequest-  { acceptLoginRequestAcr = Nothing-  , acceptLoginRequestContext = Nothing-  , acceptLoginRequestForceSubjectIdentifier = Nothing-  , acceptLoginRequestRemember = Nothing-  , acceptLoginRequestRememberFor = Nothing-  , acceptLoginRequestSubject-  }---- ** CompletedRequest--- | CompletedRequest--- The response payload sent when accepting or rejecting a login or consent request.--- -data CompletedRequest = CompletedRequest-  { completedRequestRedirectTo :: Text -- ^ /Required/ "redirect_to" - RedirectURL is the URL which you should redirect the user to once the authentication process is completed.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON CompletedRequest-instance A.FromJSON CompletedRequest where-  parseJSON = A.withObject "CompletedRequest" $ \o ->-    CompletedRequest-      <$> (o .:  "redirect_to")---- | ToJSON CompletedRequest-instance A.ToJSON CompletedRequest where-  toJSON CompletedRequest {..} =-   _omitNulls-      [ "redirect_to" .= completedRequestRedirectTo-      ]----- | Construct a value of type 'CompletedRequest' (by applying it's required fields, if any)-mkCompletedRequest-  :: Text -- ^ 'completedRequestRedirectTo': RedirectURL is the URL which you should redirect the user to once the authentication process is completed.-  -> CompletedRequest-mkCompletedRequest completedRequestRedirectTo =-  CompletedRequest-  { completedRequestRedirectTo-  }---- ** ConsentRequest--- | ConsentRequest--- Contains information on an ongoing consent request.--- -data ConsentRequest = ConsentRequest-  { consentRequestAcr :: Maybe Text -- ^ "acr" - ACR represents the Authentication AuthorizationContext Class Reference value for this authentication session. You can use it to express that, for example, a user authenticated using two factor authentication.-  , consentRequestChallenge :: Text -- ^ /Required/ "challenge" - ID is the identifier (\&quot;authorization challenge\&quot;) of the consent authorization request. It is used to identify the session.-  , consentRequestClient :: Maybe OAuth2Client -- ^ "client"-  , consentRequestContext :: Maybe A.Value -- ^ "context"-  , consentRequestLoginChallenge :: Maybe Text -- ^ "login_challenge" - LoginChallenge is the login challenge this consent challenge belongs to. It can be used to associate a login and consent request in the login &amp; consent app.-  , consentRequestLoginSessionId :: Maybe Text -- ^ "login_session_id" - LoginSessionID is the login session ID. If the user-agent reuses a login session (via cookie / remember flag) this ID will remain the same. If the user-agent did not have an existing authentication session (e.g. remember is false) this will be a new random value. This value is used as the \&quot;sid\&quot; parameter in the ID Token and in OIDC Front-/Back- channel logout. It&#39;s value can generally be used to associate consecutive login requests by a certain user.-  , consentRequestOidcContext :: Maybe OpenIDConnectContext -- ^ "oidc_context"-  , consentRequestRequestUrl :: Maybe Text -- ^ "request_url" - RequestURL is the original OAuth 2.0 Authorization URL requested by the OAuth 2.0 client. It is the URL which initiates the OAuth 2.0 Authorization Code or OAuth 2.0 Implicit flow. This URL is typically not needed, but might come in handy if you want to deal with additional request parameters.-  , consentRequestRequestedAccessTokenAudience :: Maybe [Text] -- ^ "requested_access_token_audience"-  , consentRequestRequestedScope :: Maybe [Text] -- ^ "requested_scope"-  , consentRequestSkip :: Maybe Bool -- ^ "skip" - Skip, if true, implies that the client has requested the same scopes from the same user previously. If true, you must not ask the user to grant the requested scopes. You must however either allow or deny the consent request using the usual API call.-  , consentRequestSubject :: Maybe Text -- ^ "subject" - Subject is the user ID of the end-user that authenticated. Now, that end user needs to grant or deny the scope requested by the OAuth 2.0 client.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON ConsentRequest-instance A.FromJSON ConsentRequest where-  parseJSON = A.withObject "ConsentRequest" $ \o ->-    ConsentRequest-      <$> (o .:? "acr")-      <*> (o .:  "challenge")-      <*> (o .:? "client")-      <*> (o .:? "context")-      <*> (o .:? "login_challenge")-      <*> (o .:? "login_session_id")-      <*> (o .:? "oidc_context")-      <*> (o .:? "request_url")-      <*> (o .:? "requested_access_token_audience")-      <*> (o .:? "requested_scope")-      <*> (o .:? "skip")-      <*> (o .:? "subject")---- | ToJSON ConsentRequest-instance A.ToJSON ConsentRequest where-  toJSON ConsentRequest {..} =-   _omitNulls-      [ "acr" .= consentRequestAcr-      , "challenge" .= consentRequestChallenge-      , "client" .= consentRequestClient-      , "context" .= consentRequestContext-      , "login_challenge" .= consentRequestLoginChallenge-      , "login_session_id" .= consentRequestLoginSessionId-      , "oidc_context" .= consentRequestOidcContext-      , "request_url" .= consentRequestRequestUrl-      , "requested_access_token_audience" .= consentRequestRequestedAccessTokenAudience-      , "requested_scope" .= consentRequestRequestedScope-      , "skip" .= consentRequestSkip-      , "subject" .= consentRequestSubject-      ]----- | Construct a value of type 'ConsentRequest' (by applying it's required fields, if any)-mkConsentRequest-  :: Text -- ^ 'consentRequestChallenge': ID is the identifier (\"authorization challenge\") of the consent authorization request. It is used to identify the session.-  -> ConsentRequest-mkConsentRequest consentRequestChallenge =-  ConsentRequest-  { consentRequestAcr = Nothing-  , consentRequestChallenge-  , consentRequestClient = Nothing-  , consentRequestContext = Nothing-  , consentRequestLoginChallenge = Nothing-  , consentRequestLoginSessionId = Nothing-  , consentRequestOidcContext = Nothing-  , consentRequestRequestUrl = Nothing-  , consentRequestRequestedAccessTokenAudience = Nothing-  , consentRequestRequestedScope = Nothing-  , consentRequestSkip = Nothing-  , consentRequestSubject = Nothing-  }---- ** ConsentRequestSession--- | ConsentRequestSession--- Used to pass session data to a consent request.--- -data ConsentRequestSession = ConsentRequestSession-  { consentRequestSessionAccessToken :: Maybe A.Value -- ^ "access_token" - AccessToken sets session data for the access and refresh token, as well as any future tokens issued by the refresh grant. Keep in mind that this data will be available to anyone performing OAuth 2.0 Challenge Introspection. If only your services can perform OAuth 2.0 Challenge Introspection, this is usually fine. But if third parties can access that endpoint as well, sensitive data from the session might be exposed to them. Use with care!-  , consentRequestSessionIdToken :: Maybe A.Value -- ^ "id_token" - IDToken sets session data for the OpenID Connect ID token. Keep in mind that the session&#39;id payloads are readable by anyone that has access to the ID Challenge. Use with care!-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON ConsentRequestSession-instance A.FromJSON ConsentRequestSession where-  parseJSON = A.withObject "ConsentRequestSession" $ \o ->-    ConsentRequestSession-      <$> (o .:? "access_token")-      <*> (o .:? "id_token")---- | ToJSON ConsentRequestSession-instance A.ToJSON ConsentRequestSession where-  toJSON ConsentRequestSession {..} =-   _omitNulls-      [ "access_token" .= consentRequestSessionAccessToken-      , "id_token" .= consentRequestSessionIdToken-      ]----- | Construct a value of type 'ConsentRequestSession' (by applying it's required fields, if any)-mkConsentRequestSession-  :: ConsentRequestSession-mkConsentRequestSession =-  ConsentRequestSession-  { consentRequestSessionAccessToken = Nothing-  , consentRequestSessionIdToken = Nothing-  }---- ** ContainerWaitOKBodyError--- | ContainerWaitOKBodyError--- ContainerWaitOKBodyError container waiting error, if any-data ContainerWaitOKBodyError = ContainerWaitOKBodyError-  { containerWaitOKBodyErrorMessage :: Maybe Text -- ^ "Message" - Details of an error-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON ContainerWaitOKBodyError-instance A.FromJSON ContainerWaitOKBodyError where-  parseJSON = A.withObject "ContainerWaitOKBodyError" $ \o ->-    ContainerWaitOKBodyError-      <$> (o .:? "Message")---- | ToJSON ContainerWaitOKBodyError-instance A.ToJSON ContainerWaitOKBodyError where-  toJSON ContainerWaitOKBodyError {..} =-   _omitNulls-      [ "Message" .= containerWaitOKBodyErrorMessage-      ]----- | Construct a value of type 'ContainerWaitOKBodyError' (by applying it's required fields, if any)-mkContainerWaitOKBodyError-  :: ContainerWaitOKBodyError-mkContainerWaitOKBodyError =-  ContainerWaitOKBodyError-  { containerWaitOKBodyErrorMessage = Nothing-  }---- ** FlushInactiveOAuth2TokensRequest--- | FlushInactiveOAuth2TokensRequest-data FlushInactiveOAuth2TokensRequest = FlushInactiveOAuth2TokensRequest-  { flushInactiveOAuth2TokensRequestNotAfter :: Maybe DateTime -- ^ "notAfter" - NotAfter sets after which point tokens should not be flushed. This is useful when you want to keep a history of recently issued tokens for auditing.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON FlushInactiveOAuth2TokensRequest-instance A.FromJSON FlushInactiveOAuth2TokensRequest where-  parseJSON = A.withObject "FlushInactiveOAuth2TokensRequest" $ \o ->-    FlushInactiveOAuth2TokensRequest-      <$> (o .:? "notAfter")---- | ToJSON FlushInactiveOAuth2TokensRequest-instance A.ToJSON FlushInactiveOAuth2TokensRequest where-  toJSON FlushInactiveOAuth2TokensRequest {..} =-   _omitNulls-      [ "notAfter" .= flushInactiveOAuth2TokensRequestNotAfter-      ]----- | Construct a value of type 'FlushInactiveOAuth2TokensRequest' (by applying it's required fields, if any)-mkFlushInactiveOAuth2TokensRequest-  :: FlushInactiveOAuth2TokensRequest-mkFlushInactiveOAuth2TokensRequest =-  FlushInactiveOAuth2TokensRequest-  { flushInactiveOAuth2TokensRequestNotAfter = Nothing-  }---- ** GenericError--- | GenericError--- Error response--- --- Error responses are sent when an error (e.g. unauthorized, bad request, ...) occurred.-data GenericError = GenericError-  { genericErrorDebug :: Maybe Text -- ^ "debug" - Debug contains debug information. This is usually not available and has to be enabled.-  , genericErrorError :: Text -- ^ /Required/ "error" - Name is the error name.-  , genericErrorErrorDescription :: Maybe Text -- ^ "error_description" - Description contains further information on the nature of the error.-  , genericErrorStatusCode :: Maybe Integer -- ^ "status_code" - Code represents the error status code (404, 403, 401, ...).-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON GenericError-instance A.FromJSON GenericError where-  parseJSON = A.withObject "GenericError" $ \o ->-    GenericError-      <$> (o .:? "debug")-      <*> (o .:  "error")-      <*> (o .:? "error_description")-      <*> (o .:? "status_code")---- | ToJSON GenericError-instance A.ToJSON GenericError where-  toJSON GenericError {..} =-   _omitNulls-      [ "debug" .= genericErrorDebug-      , "error" .= genericErrorError-      , "error_description" .= genericErrorErrorDescription-      , "status_code" .= genericErrorStatusCode-      ]----- | Construct a value of type 'GenericError' (by applying it's required fields, if any)-mkGenericError-  :: Text -- ^ 'genericErrorError': Name is the error name.-  -> GenericError-mkGenericError genericErrorError =-  GenericError-  { genericErrorDebug = Nothing-  , genericErrorError-  , genericErrorErrorDescription = Nothing-  , genericErrorStatusCode = Nothing-  }---- ** HealthNotReadyStatus--- | HealthNotReadyStatus-data HealthNotReadyStatus = HealthNotReadyStatus-  { healthNotReadyStatusErrors :: Maybe (Map.Map String Text) -- ^ "errors" - Errors contains a list of errors that caused the not ready status.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON HealthNotReadyStatus-instance A.FromJSON HealthNotReadyStatus where-  parseJSON = A.withObject "HealthNotReadyStatus" $ \o ->-    HealthNotReadyStatus-      <$> (o .:? "errors")---- | ToJSON HealthNotReadyStatus-instance A.ToJSON HealthNotReadyStatus where-  toJSON HealthNotReadyStatus {..} =-   _omitNulls-      [ "errors" .= healthNotReadyStatusErrors-      ]----- | Construct a value of type 'HealthNotReadyStatus' (by applying it's required fields, if any)-mkHealthNotReadyStatus-  :: HealthNotReadyStatus-mkHealthNotReadyStatus =-  HealthNotReadyStatus-  { healthNotReadyStatusErrors = Nothing-  }---- ** HealthStatus--- | HealthStatus-data HealthStatus = HealthStatus-  { healthStatusStatus :: Maybe Text -- ^ "status" - Status always contains \&quot;ok\&quot;.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON HealthStatus-instance A.FromJSON HealthStatus where-  parseJSON = A.withObject "HealthStatus" $ \o ->-    HealthStatus-      <$> (o .:? "status")---- | ToJSON HealthStatus-instance A.ToJSON HealthStatus where-  toJSON HealthStatus {..} =-   _omitNulls-      [ "status" .= healthStatusStatus-      ]----- | Construct a value of type 'HealthStatus' (by applying it's required fields, if any)-mkHealthStatus-  :: HealthStatus-mkHealthStatus =-  HealthStatus-  { healthStatusStatus = Nothing-  }---- ** JSONWebKey--- | JSONWebKey--- It is important that this model object is named JSONWebKey for \"swagger generate spec\" to generate only on definition of a JSONWebKey.-data JSONWebKey = JSONWebKey-  { jSONWebKeyAlg :: Text -- ^ /Required/ "alg" - The \&quot;alg\&quot; (algorithm) parameter identifies the algorithm intended for use with the key.  The values used should either be registered in the IANA \&quot;JSON Web Signature and Encryption Algorithms\&quot; registry established by [JWA] or be a value that contains a Collision- Resistant Name.-  , jSONWebKeyCrv :: Maybe Text -- ^ "crv"-  , jSONWebKeyD :: Maybe Text -- ^ "d"-  , jSONWebKeyDp :: Maybe Text -- ^ "dp"-  , jSONWebKeyDq :: Maybe Text -- ^ "dq"-  , jSONWebKeyE :: Maybe Text -- ^ "e"-  , jSONWebKeyK :: Maybe Text -- ^ "k"-  , jSONWebKeyKid :: Text -- ^ /Required/ "kid" - The \&quot;kid\&quot; (key ID) parameter is used to match a specific key.  This is used, for instance, to choose among a set of keys within a JWK Set during key rollover.  The structure of the \&quot;kid\&quot; value is unspecified.  When \&quot;kid\&quot; values are used within a JWK Set, different keys within the JWK Set SHOULD use distinct \&quot;kid\&quot; values.  (One example in which different keys might use the same \&quot;kid\&quot; value is if they have different \&quot;kty\&quot; (key type) values but are considered to be equivalent alternatives by the application using them.)  The \&quot;kid\&quot; value is a case-sensitive string.-  , jSONWebKeyKty :: Text -- ^ /Required/ "kty" - The \&quot;kty\&quot; (key type) parameter identifies the cryptographic algorithm family used with the key, such as \&quot;RSA\&quot; or \&quot;EC\&quot;. \&quot;kty\&quot; values should either be registered in the IANA \&quot;JSON Web Key Types\&quot; registry established by [JWA] or be a value that contains a Collision- Resistant Name.  The \&quot;kty\&quot; value is a case-sensitive string.-  , jSONWebKeyN :: Maybe Text -- ^ "n"-  , jSONWebKeyP :: Maybe Text -- ^ "p"-  , jSONWebKeyQ :: Maybe Text -- ^ "q"-  , jSONWebKeyQi :: Maybe Text -- ^ "qi"-  , jSONWebKeyUse :: Text -- ^ /Required/ "use" - Use (\&quot;public key use\&quot;) identifies the intended use of the public key. The \&quot;use\&quot; parameter is employed to indicate whether a public key is used for encrypting data or verifying the signature on data. Values are commonly \&quot;sig\&quot; (signature) or \&quot;enc\&quot; (encryption).-  , jSONWebKeyX :: Maybe Text -- ^ "x"-  , jSONWebKeyX5c :: Maybe [Text] -- ^ "x5c" - The \&quot;x5c\&quot; (X.509 certificate chain) parameter contains a chain of one or more PKIX certificates [RFC5280].  The certificate chain is represented as a JSON array of certificate value strings.  Each string in the array is a base64-encoded (Section 4 of [RFC4648] -- not base64url-encoded) DER [ITU.X690.1994] PKIX certificate value. The PKIX certificate containing the key value MUST be the first certificate.-  , jSONWebKeyY :: Maybe Text -- ^ "y"-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON JSONWebKey-instance A.FromJSON JSONWebKey where-  parseJSON = A.withObject "JSONWebKey" $ \o ->-    JSONWebKey-      <$> (o .:  "alg")-      <*> (o .:? "crv")-      <*> (o .:? "d")-      <*> (o .:? "dp")-      <*> (o .:? "dq")-      <*> (o .:? "e")-      <*> (o .:? "k")-      <*> (o .:  "kid")-      <*> (o .:  "kty")-      <*> (o .:? "n")-      <*> (o .:? "p")-      <*> (o .:? "q")-      <*> (o .:? "qi")-      <*> (o .:  "use")-      <*> (o .:? "x")-      <*> (o .:? "x5c")-      <*> (o .:? "y")---- | ToJSON JSONWebKey-instance A.ToJSON JSONWebKey where-  toJSON JSONWebKey {..} =-   _omitNulls-      [ "alg" .= jSONWebKeyAlg-      , "crv" .= jSONWebKeyCrv-      , "d" .= jSONWebKeyD-      , "dp" .= jSONWebKeyDp-      , "dq" .= jSONWebKeyDq-      , "e" .= jSONWebKeyE-      , "k" .= jSONWebKeyK-      , "kid" .= jSONWebKeyKid-      , "kty" .= jSONWebKeyKty-      , "n" .= jSONWebKeyN-      , "p" .= jSONWebKeyP-      , "q" .= jSONWebKeyQ-      , "qi" .= jSONWebKeyQi-      , "use" .= jSONWebKeyUse-      , "x" .= jSONWebKeyX-      , "x5c" .= jSONWebKeyX5c-      , "y" .= jSONWebKeyY-      ]----- | Construct a value of type 'JSONWebKey' (by applying it's required fields, if any)-mkJSONWebKey-  :: Text -- ^ 'jSONWebKeyAlg': The \"alg\" (algorithm) parameter identifies the algorithm intended for use with the key.  The values used should either be registered in the IANA \"JSON Web Signature and Encryption Algorithms\" registry established by [JWA] or be a value that contains a Collision- Resistant Name.-  -> Text -- ^ 'jSONWebKeyKid': The \"kid\" (key ID) parameter is used to match a specific key.  This is used, for instance, to choose among a set of keys within a JWK Set during key rollover.  The structure of the \"kid\" value is unspecified.  When \"kid\" values are used within a JWK Set, different keys within the JWK Set SHOULD use distinct \"kid\" values.  (One example in which different keys might use the same \"kid\" value is if they have different \"kty\" (key type) values but are considered to be equivalent alternatives by the application using them.)  The \"kid\" value is a case-sensitive string.-  -> Text -- ^ 'jSONWebKeyKty': The \"kty\" (key type) parameter identifies the cryptographic algorithm family used with the key, such as \"RSA\" or \"EC\". \"kty\" values should either be registered in the IANA \"JSON Web Key Types\" registry established by [JWA] or be a value that contains a Collision- Resistant Name.  The \"kty\" value is a case-sensitive string.-  -> Text -- ^ 'jSONWebKeyUse': Use (\"public key use\") identifies the intended use of the public key. The \"use\" parameter is employed to indicate whether a public key is used for encrypting data or verifying the signature on data. Values are commonly \"sig\" (signature) or \"enc\" (encryption).-  -> JSONWebKey-mkJSONWebKey jSONWebKeyAlg jSONWebKeyKid jSONWebKeyKty jSONWebKeyUse =-  JSONWebKey-  { jSONWebKeyAlg-  , jSONWebKeyCrv = Nothing-  , jSONWebKeyD = Nothing-  , jSONWebKeyDp = Nothing-  , jSONWebKeyDq = Nothing-  , jSONWebKeyE = Nothing-  , jSONWebKeyK = Nothing-  , jSONWebKeyKid-  , jSONWebKeyKty-  , jSONWebKeyN = Nothing-  , jSONWebKeyP = Nothing-  , jSONWebKeyQ = Nothing-  , jSONWebKeyQi = Nothing-  , jSONWebKeyUse-  , jSONWebKeyX = Nothing-  , jSONWebKeyX5c = Nothing-  , jSONWebKeyY = Nothing-  }---- ** JSONWebKeySet--- | JSONWebKeySet--- It is important that this model object is named JSONWebKeySet for \"swagger generate spec\" to generate only on definition of a JSONWebKeySet. Since one with the same name is previously defined as client.Client.JSONWebKeys and this one is last, this one will be effectively written in the swagger spec.-data JSONWebKeySet = JSONWebKeySet-  { jSONWebKeySetKeys :: Maybe [JSONWebKey] -- ^ "keys" - The value of the \&quot;keys\&quot; parameter is an array of JWK values.  By default, the order of the JWK values within the array does not imply an order of preference among them, although applications of JWK Sets can choose to assign a meaning to the order for their purposes, if desired.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON JSONWebKeySet-instance A.FromJSON JSONWebKeySet where-  parseJSON = A.withObject "JSONWebKeySet" $ \o ->-    JSONWebKeySet-      <$> (o .:? "keys")---- | ToJSON JSONWebKeySet-instance A.ToJSON JSONWebKeySet where-  toJSON JSONWebKeySet {..} =-   _omitNulls-      [ "keys" .= jSONWebKeySetKeys-      ]----- | Construct a value of type 'JSONWebKeySet' (by applying it's required fields, if any)-mkJSONWebKeySet-  :: JSONWebKeySet-mkJSONWebKeySet =-  JSONWebKeySet-  { jSONWebKeySetKeys = Nothing-  }---- ** JsonWebKeySetGeneratorRequest--- | JsonWebKeySetGeneratorRequest-data JsonWebKeySetGeneratorRequest = JsonWebKeySetGeneratorRequest-  { jsonWebKeySetGeneratorRequestAlg :: Text -- ^ /Required/ "alg" - The algorithm to be used for creating the key. Supports \&quot;RS256\&quot;, \&quot;ES512\&quot;, \&quot;HS512\&quot;, and \&quot;HS256\&quot;-  , jsonWebKeySetGeneratorRequestKid :: Text -- ^ /Required/ "kid" - The kid of the key to be created-  , jsonWebKeySetGeneratorRequestUse :: Text -- ^ /Required/ "use" - The \&quot;use\&quot; (public key use) parameter identifies the intended use of the public key. The \&quot;use\&quot; parameter is employed to indicate whether a public key is used for encrypting data or verifying the signature on data. Valid values are \&quot;enc\&quot; and \&quot;sig\&quot;.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON JsonWebKeySetGeneratorRequest-instance A.FromJSON JsonWebKeySetGeneratorRequest where-  parseJSON = A.withObject "JsonWebKeySetGeneratorRequest" $ \o ->-    JsonWebKeySetGeneratorRequest-      <$> (o .:  "alg")-      <*> (o .:  "kid")-      <*> (o .:  "use")---- | ToJSON JsonWebKeySetGeneratorRequest-instance A.ToJSON JsonWebKeySetGeneratorRequest where-  toJSON JsonWebKeySetGeneratorRequest {..} =-   _omitNulls-      [ "alg" .= jsonWebKeySetGeneratorRequestAlg-      , "kid" .= jsonWebKeySetGeneratorRequestKid-      , "use" .= jsonWebKeySetGeneratorRequestUse-      ]----- | Construct a value of type 'JsonWebKeySetGeneratorRequest' (by applying it's required fields, if any)-mkJsonWebKeySetGeneratorRequest-  :: Text -- ^ 'jsonWebKeySetGeneratorRequestAlg': The algorithm to be used for creating the key. Supports \"RS256\", \"ES512\", \"HS512\", and \"HS256\"-  -> Text -- ^ 'jsonWebKeySetGeneratorRequestKid': The kid of the key to be created-  -> Text -- ^ 'jsonWebKeySetGeneratorRequestUse': The \"use\" (public key use) parameter identifies the intended use of the public key. The \"use\" parameter is employed to indicate whether a public key is used for encrypting data or verifying the signature on data. Valid values are \"enc\" and \"sig\".-  -> JsonWebKeySetGeneratorRequest-mkJsonWebKeySetGeneratorRequest jsonWebKeySetGeneratorRequestAlg jsonWebKeySetGeneratorRequestKid jsonWebKeySetGeneratorRequestUse =-  JsonWebKeySetGeneratorRequest-  { jsonWebKeySetGeneratorRequestAlg-  , jsonWebKeySetGeneratorRequestKid-  , jsonWebKeySetGeneratorRequestUse-  }---- ** LoginRequest--- | LoginRequest--- Contains information on an ongoing login request.--- -data LoginRequest = LoginRequest-  { loginRequestChallenge :: Text -- ^ /Required/ "challenge" - ID is the identifier (\&quot;login challenge\&quot;) of the login request. It is used to identify the session.-  , loginRequestClient :: OAuth2Client -- ^ /Required/ "client"-  , loginRequestOidcContext :: Maybe OpenIDConnectContext -- ^ "oidc_context"-  , loginRequestRequestUrl :: Text -- ^ /Required/ "request_url" - RequestURL is the original OAuth 2.0 Authorization URL requested by the OAuth 2.0 client. It is the URL which initiates the OAuth 2.0 Authorization Code or OAuth 2.0 Implicit flow. This URL is typically not needed, but might come in handy if you want to deal with additional request parameters.-  , loginRequestRequestedAccessTokenAudience :: [Text] -- ^ /Required/ "requested_access_token_audience"-  , loginRequestRequestedScope :: [Text] -- ^ /Required/ "requested_scope"-  , loginRequestSessionId :: Maybe Text -- ^ "session_id" - SessionID is the login session ID. If the user-agent reuses a login session (via cookie / remember flag) this ID will remain the same. If the user-agent did not have an existing authentication session (e.g. remember is false) this will be a new random value. This value is used as the \&quot;sid\&quot; parameter in the ID Token and in OIDC Front-/Back- channel logout. It&#39;s value can generally be used to associate consecutive login requests by a certain user.-  , loginRequestSkip :: Bool -- ^ /Required/ "skip" - Skip, if true, implies that the client has requested the same scopes from the same user previously. If true, you can skip asking the user to grant the requested scopes, and simply forward the user to the redirect URL.  This feature allows you to update / set session information.-  , loginRequestSubject :: Text -- ^ /Required/ "subject" - Subject is the user ID of the end-user that authenticated. Now, that end user needs to grant or deny the scope requested by the OAuth 2.0 client. If this value is set and &#x60;skip&#x60; is true, you MUST include this subject type when accepting the login request, or the request will fail.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON LoginRequest-instance A.FromJSON LoginRequest where-  parseJSON = A.withObject "LoginRequest" $ \o ->-    LoginRequest-      <$> (o .:  "challenge")-      <*> (o .:  "client")-      <*> (o .:? "oidc_context")-      <*> (o .:  "request_url")-      <*> (o .:  "requested_access_token_audience")-      <*> (o .:  "requested_scope")-      <*> (o .:? "session_id")-      <*> (o .:  "skip")-      <*> (o .:  "subject")---- | ToJSON LoginRequest-instance A.ToJSON LoginRequest where-  toJSON LoginRequest {..} =-   _omitNulls-      [ "challenge" .= loginRequestChallenge-      , "client" .= loginRequestClient-      , "oidc_context" .= loginRequestOidcContext-      , "request_url" .= loginRequestRequestUrl-      , "requested_access_token_audience" .= loginRequestRequestedAccessTokenAudience-      , "requested_scope" .= loginRequestRequestedScope-      , "session_id" .= loginRequestSessionId-      , "skip" .= loginRequestSkip-      , "subject" .= loginRequestSubject-      ]----- | Construct a value of type 'LoginRequest' (by applying it's required fields, if any)-mkLoginRequest-  :: Text -- ^ 'loginRequestChallenge': ID is the identifier (\"login challenge\") of the login request. It is used to identify the session.-  -> OAuth2Client -- ^ 'loginRequestClient' -  -> Text -- ^ 'loginRequestRequestUrl': RequestURL is the original OAuth 2.0 Authorization URL requested by the OAuth 2.0 client. It is the URL which initiates the OAuth 2.0 Authorization Code or OAuth 2.0 Implicit flow. This URL is typically not needed, but might come in handy if you want to deal with additional request parameters.-  -> [Text] -- ^ 'loginRequestRequestedAccessTokenAudience' -  -> [Text] -- ^ 'loginRequestRequestedScope' -  -> Bool -- ^ 'loginRequestSkip': Skip, if true, implies that the client has requested the same scopes from the same user previously. If true, you can skip asking the user to grant the requested scopes, and simply forward the user to the redirect URL.  This feature allows you to update / set session information.-  -> Text -- ^ 'loginRequestSubject': Subject is the user ID of the end-user that authenticated. Now, that end user needs to grant or deny the scope requested by the OAuth 2.0 client. If this value is set and `skip` is true, you MUST include this subject type when accepting the login request, or the request will fail.-  -> LoginRequest-mkLoginRequest loginRequestChallenge loginRequestClient loginRequestRequestUrl loginRequestRequestedAccessTokenAudience loginRequestRequestedScope loginRequestSkip loginRequestSubject =-  LoginRequest-  { loginRequestChallenge-  , loginRequestClient-  , loginRequestOidcContext = Nothing-  , loginRequestRequestUrl-  , loginRequestRequestedAccessTokenAudience-  , loginRequestRequestedScope-  , loginRequestSessionId = Nothing-  , loginRequestSkip-  , loginRequestSubject-  }---- ** LogoutRequest--- | LogoutRequest--- Contains information about an ongoing logout request.--- -data LogoutRequest = LogoutRequest-  { logoutRequestRequestUrl :: Maybe Text -- ^ "request_url" - RequestURL is the original Logout URL requested.-  , logoutRequestRpInitiated :: Maybe Bool -- ^ "rp_initiated" - RPInitiated is set to true if the request was initiated by a Relying Party (RP), also known as an OAuth 2.0 Client.-  , logoutRequestSid :: Maybe Text -- ^ "sid" - SessionID is the login session ID that was requested to log out.-  , logoutRequestSubject :: Maybe Text -- ^ "subject" - Subject is the user for whom the logout was request.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON LogoutRequest-instance A.FromJSON LogoutRequest where-  parseJSON = A.withObject "LogoutRequest" $ \o ->-    LogoutRequest-      <$> (o .:? "request_url")-      <*> (o .:? "rp_initiated")-      <*> (o .:? "sid")-      <*> (o .:? "subject")---- | ToJSON LogoutRequest-instance A.ToJSON LogoutRequest where-  toJSON LogoutRequest {..} =-   _omitNulls-      [ "request_url" .= logoutRequestRequestUrl-      , "rp_initiated" .= logoutRequestRpInitiated-      , "sid" .= logoutRequestSid-      , "subject" .= logoutRequestSubject-      ]----- | Construct a value of type 'LogoutRequest' (by applying it's required fields, if any)-mkLogoutRequest-  :: LogoutRequest-mkLogoutRequest =-  LogoutRequest-  { logoutRequestRequestUrl = Nothing-  , logoutRequestRpInitiated = Nothing-  , logoutRequestSid = Nothing-  , logoutRequestSubject = Nothing-  }---- ** OAuth2Client--- | OAuth2Client--- Client represents an OAuth 2.0 Client.--- -data OAuth2Client = OAuth2Client-  { oAuth2ClientAllowedCorsOrigins :: Maybe [Text] -- ^ "allowed_cors_origins"-  , oAuth2ClientAudience :: Maybe [Text] -- ^ "audience"-  , oAuth2ClientBackchannelLogoutSessionRequired :: Maybe Bool -- ^ "backchannel_logout_session_required" - Boolean value specifying whether the RP requires that a sid (session ID) Claim be included in the Logout Token to identify the RP session with the OP when the backchannel_logout_uri is used. If omitted, the default value is false.-  , oAuth2ClientBackchannelLogoutUri :: Maybe Text -- ^ "backchannel_logout_uri" - RP URL that will cause the RP to log itself out when sent a Logout Token by the OP.-  , oAuth2ClientClientId :: Maybe Text -- ^ "client_id" - ID  is the id for this client.-  , oAuth2ClientClientName :: Maybe Text -- ^ "client_name" - Name is the human-readable string name of the client to be presented to the end-user during authorization.-  , oAuth2ClientClientSecret :: Maybe Text -- ^ "client_secret" - Secret is the client&#39;s secret. The secret will be included in the create request as cleartext, and then never again. The secret is stored using BCrypt so it is impossible to recover it. Tell your users that they need to write the secret down as it will not be made available again.-  , oAuth2ClientClientSecretExpiresAt :: Maybe Integer -- ^ "client_secret_expires_at" - SecretExpiresAt is an integer holding the time at which the client secret will expire or 0 if it will not expire. The time is represented as the number of seconds from 1970-01-01T00:00:00Z as measured in UTC until the date/time of expiration.  This feature is currently not supported and it&#39;s value will always be set to 0.-  , oAuth2ClientClientUri :: Maybe Text -- ^ "client_uri" - ClientURI is an URL string of a web page providing information about the client. If present, the server SHOULD display this URL to the end-user in a clickable fashion.-  , oAuth2ClientContacts :: Maybe [Text] -- ^ "contacts"-  , oAuth2ClientCreatedAt :: Maybe DateTime -- ^ "created_at" - CreatedAt returns the timestamp of the client&#39;s creation.-  , oAuth2ClientFrontchannelLogoutSessionRequired :: Maybe Bool -- ^ "frontchannel_logout_session_required" - Boolean value specifying whether the RP requires that iss (issuer) and sid (session ID) query parameters be included to identify the RP session with the OP when the frontchannel_logout_uri is used. If omitted, the default value is false.-  , oAuth2ClientFrontchannelLogoutUri :: Maybe Text -- ^ "frontchannel_logout_uri" - RP URL that will cause the RP to log itself out when rendered in an iframe by the OP. An iss (issuer) query parameter and a sid (session ID) query parameter MAY be included by the OP to enable the RP to validate the request and to determine which of the potentially multiple sessions is to be logged out; if either is included, both MUST be.-  , oAuth2ClientGrantTypes :: Maybe [Text] -- ^ "grant_types"-  , oAuth2ClientJwks :: Maybe A.Value -- ^ "jwks"-  , oAuth2ClientJwksUri :: Maybe Text -- ^ "jwks_uri" - URL for the Client&#39;s JSON Web Key Set [JWK] document. If the Client signs requests to the Server, it contains the signing key(s) the Server uses to validate signatures from the Client. The JWK Set MAY also contain the Client&#39;s encryption keys(s), which are used by the Server to encrypt responses to the Client. When both signing and encryption keys are made available, a use (Key Use) parameter value is REQUIRED for all keys in the referenced JWK Set to indicate each key&#39;s intended usage. Although some algorithms allow the same key to be used for both signatures and encryption, doing so is NOT RECOMMENDED, as it is less secure. The JWK x5c parameter MAY be used to provide X.509 representations of keys provided. When used, the bare key values MUST still be present and MUST match those in the certificate.-  , oAuth2ClientLogoUri :: Maybe Text -- ^ "logo_uri" - LogoURI is an URL string that references a logo for the client.-  , oAuth2ClientMetadata :: Maybe A.Value -- ^ "metadata"-  , oAuth2ClientOwner :: Maybe Text -- ^ "owner" - Owner is a string identifying the owner of the OAuth 2.0 Client.-  , oAuth2ClientPolicyUri :: Maybe Text -- ^ "policy_uri" - PolicyURI is a URL string that points to a human-readable privacy policy document that describes how the deployment organization collects, uses, retains, and discloses personal data.-  , oAuth2ClientPostLogoutRedirectUris :: Maybe [Text] -- ^ "post_logout_redirect_uris"-  , oAuth2ClientRedirectUris :: Maybe [Text] -- ^ "redirect_uris"-  , oAuth2ClientRequestObjectSigningAlg :: Maybe Text -- ^ "request_object_signing_alg" - JWS [JWS] alg algorithm [JWA] that MUST be used for signing Request Objects sent to the OP. All Request Objects from this Client MUST be rejected, if not signed with this algorithm.-  , oAuth2ClientRequestUris :: Maybe [Text] -- ^ "request_uris"-  , oAuth2ClientResponseTypes :: Maybe [Text] -- ^ "response_types"-  , oAuth2ClientScope :: Maybe Text -- ^ "scope" - Scope is a string containing a space-separated list of scope values (as described in Section 3.3 of OAuth 2.0 [RFC6749]) that the client can use when requesting access tokens.-  , oAuth2ClientSectorIdentifierUri :: Maybe Text -- ^ "sector_identifier_uri" - URL using the https scheme to be used in calculating Pseudonymous Identifiers by the OP. The URL references a file with a single JSON array of redirect_uri values.-  , oAuth2ClientSubjectType :: Maybe Text -- ^ "subject_type" - SubjectType requested for responses to this Client. The subject_types_supported Discovery parameter contains a list of the supported subject_type values for this server. Valid types include &#x60;pairwise&#x60; and &#x60;public&#x60;.-  , oAuth2ClientTokenEndpointAuthMethod :: Maybe Text -- ^ "token_endpoint_auth_method" - Requested Client Authentication method for the Token Endpoint. The options are client_secret_post, client_secret_basic, private_key_jwt, and none.-  , oAuth2ClientTokenEndpointAuthSigningAlg :: Maybe Text -- ^ "token_endpoint_auth_signing_alg" - Requested Client Authentication signing algorithm for the Token Endpoint.-  , oAuth2ClientTosUri :: Maybe Text -- ^ "tos_uri" - TermsOfServiceURI is a URL string that points to a human-readable terms of service document for the client that describes a contractual relationship between the end-user and the client that the end-user accepts when authorizing the client.-  , oAuth2ClientUpdatedAt :: Maybe DateTime -- ^ "updated_at" - UpdatedAt returns the timestamp of the last update.-  , oAuth2ClientUserinfoSignedResponseAlg :: Maybe Text -- ^ "userinfo_signed_response_alg" - JWS alg algorithm [JWA] REQUIRED for signing UserInfo Responses. If this is specified, the response will be JWT [JWT] serialized, and signed using JWS. The default, if omitted, is for the UserInfo Response to return the Claims as a UTF-8 encoded JSON object using the application/json content-type.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON OAuth2Client-instance A.FromJSON OAuth2Client where-  parseJSON = A.withObject "OAuth2Client" $ \o ->-    OAuth2Client-      <$> (o .:? "allowed_cors_origins")-      <*> (o .:? "audience")-      <*> (o .:? "backchannel_logout_session_required")-      <*> (o .:? "backchannel_logout_uri")-      <*> (o .:? "client_id")-      <*> (o .:? "client_name")-      <*> (o .:? "client_secret")-      <*> (o .:? "client_secret_expires_at")-      <*> (o .:? "client_uri")-      <*> (o .:? "contacts")-      <*> (o .:? "created_at")-      <*> (o .:? "frontchannel_logout_session_required")-      <*> (o .:? "frontchannel_logout_uri")-      <*> (o .:? "grant_types")-      <*> (o .:? "jwks")-      <*> (o .:? "jwks_uri")-      <*> (o .:? "logo_uri")-      <*> (o .:? "metadata")-      <*> (o .:? "owner")-      <*> (o .:? "policy_uri")-      <*> (o .:? "post_logout_redirect_uris")-      <*> (o .:? "redirect_uris")-      <*> (o .:? "request_object_signing_alg")-      <*> (o .:? "request_uris")-      <*> (o .:? "response_types")-      <*> (o .:? "scope")-      <*> (o .:? "sector_identifier_uri")-      <*> (o .:? "subject_type")-      <*> (o .:? "token_endpoint_auth_method")-      <*> (o .:? "token_endpoint_auth_signing_alg")-      <*> (o .:? "tos_uri")-      <*> (o .:? "updated_at")-      <*> (o .:? "userinfo_signed_response_alg")---- | ToJSON OAuth2Client-instance A.ToJSON OAuth2Client where-  toJSON OAuth2Client {..} =-   _omitNulls-      [ "allowed_cors_origins" .= oAuth2ClientAllowedCorsOrigins-      , "audience" .= oAuth2ClientAudience-      , "backchannel_logout_session_required" .= oAuth2ClientBackchannelLogoutSessionRequired-      , "backchannel_logout_uri" .= oAuth2ClientBackchannelLogoutUri-      , "client_id" .= oAuth2ClientClientId-      , "client_name" .= oAuth2ClientClientName-      , "client_secret" .= oAuth2ClientClientSecret-      , "client_secret_expires_at" .= oAuth2ClientClientSecretExpiresAt-      , "client_uri" .= oAuth2ClientClientUri-      , "contacts" .= oAuth2ClientContacts-      , "created_at" .= oAuth2ClientCreatedAt-      , "frontchannel_logout_session_required" .= oAuth2ClientFrontchannelLogoutSessionRequired-      , "frontchannel_logout_uri" .= oAuth2ClientFrontchannelLogoutUri-      , "grant_types" .= oAuth2ClientGrantTypes-      , "jwks" .= oAuth2ClientJwks-      , "jwks_uri" .= oAuth2ClientJwksUri-      , "logo_uri" .= oAuth2ClientLogoUri-      , "metadata" .= oAuth2ClientMetadata-      , "owner" .= oAuth2ClientOwner-      , "policy_uri" .= oAuth2ClientPolicyUri-      , "post_logout_redirect_uris" .= oAuth2ClientPostLogoutRedirectUris-      , "redirect_uris" .= oAuth2ClientRedirectUris-      , "request_object_signing_alg" .= oAuth2ClientRequestObjectSigningAlg-      , "request_uris" .= oAuth2ClientRequestUris-      , "response_types" .= oAuth2ClientResponseTypes-      , "scope" .= oAuth2ClientScope-      , "sector_identifier_uri" .= oAuth2ClientSectorIdentifierUri-      , "subject_type" .= oAuth2ClientSubjectType-      , "token_endpoint_auth_method" .= oAuth2ClientTokenEndpointAuthMethod-      , "token_endpoint_auth_signing_alg" .= oAuth2ClientTokenEndpointAuthSigningAlg-      , "tos_uri" .= oAuth2ClientTosUri-      , "updated_at" .= oAuth2ClientUpdatedAt-      , "userinfo_signed_response_alg" .= oAuth2ClientUserinfoSignedResponseAlg-      ]----- | Construct a value of type 'OAuth2Client' (by applying it's required fields, if any)-mkOAuth2Client-  :: OAuth2Client-mkOAuth2Client =-  OAuth2Client-  { oAuth2ClientAllowedCorsOrigins = Nothing-  , oAuth2ClientAudience = Nothing-  , oAuth2ClientBackchannelLogoutSessionRequired = Nothing-  , oAuth2ClientBackchannelLogoutUri = Nothing-  , oAuth2ClientClientId = Nothing-  , oAuth2ClientClientName = Nothing-  , oAuth2ClientClientSecret = Nothing-  , oAuth2ClientClientSecretExpiresAt = Nothing-  , oAuth2ClientClientUri = Nothing-  , oAuth2ClientContacts = Nothing-  , oAuth2ClientCreatedAt = Nothing-  , oAuth2ClientFrontchannelLogoutSessionRequired = Nothing-  , oAuth2ClientFrontchannelLogoutUri = Nothing-  , oAuth2ClientGrantTypes = Nothing-  , oAuth2ClientJwks = Nothing-  , oAuth2ClientJwksUri = Nothing-  , oAuth2ClientLogoUri = Nothing-  , oAuth2ClientMetadata = Nothing-  , oAuth2ClientOwner = Nothing-  , oAuth2ClientPolicyUri = Nothing-  , oAuth2ClientPostLogoutRedirectUris = Nothing-  , oAuth2ClientRedirectUris = Nothing-  , oAuth2ClientRequestObjectSigningAlg = Nothing-  , oAuth2ClientRequestUris = Nothing-  , oAuth2ClientResponseTypes = Nothing-  , oAuth2ClientScope = Nothing-  , oAuth2ClientSectorIdentifierUri = Nothing-  , oAuth2ClientSubjectType = Nothing-  , oAuth2ClientTokenEndpointAuthMethod = Nothing-  , oAuth2ClientTokenEndpointAuthSigningAlg = Nothing-  , oAuth2ClientTosUri = Nothing-  , oAuth2ClientUpdatedAt = Nothing-  , oAuth2ClientUserinfoSignedResponseAlg = Nothing-  }---- ** OAuth2TokenIntrospection--- | OAuth2TokenIntrospection--- Introspection contains an access token's session data as specified by IETF RFC 7662, see:--- --- https://tools.ietf.org/html/rfc7662-data OAuth2TokenIntrospection = OAuth2TokenIntrospection-  { oAuth2TokenIntrospectionActive :: Bool -- ^ /Required/ "active" - Active is a boolean indicator of whether or not the presented token is currently active.  The specifics of a token&#39;s \&quot;active\&quot; state will vary depending on the implementation of the authorization server and the information it keeps about its tokens, but a \&quot;true\&quot; value return for the \&quot;active\&quot; property will generally indicate that a given token has been issued by this authorization server, has not been revoked by the resource owner, and is within its given time window of validity (e.g., after its issuance time and before its expiration time).-  , oAuth2TokenIntrospectionAud :: Maybe [Text] -- ^ "aud" - Audience contains a list of the token&#39;s intended audiences.-  , oAuth2TokenIntrospectionClientId :: Maybe Text -- ^ "client_id" - ID is aclient identifier for the OAuth 2.0 client that requested this token.-  , oAuth2TokenIntrospectionExp :: Maybe Integer -- ^ "exp" - Expires at is an integer timestamp, measured in the number of seconds since January 1 1970 UTC, indicating when this token will expire.-  , oAuth2TokenIntrospectionExt :: Maybe A.Value -- ^ "ext" - Extra is arbitrary data set by the session.-  , oAuth2TokenIntrospectionIat :: Maybe Integer -- ^ "iat" - Issued at is an integer timestamp, measured in the number of seconds since January 1 1970 UTC, indicating when this token was originally issued.-  , oAuth2TokenIntrospectionIss :: Maybe Text -- ^ "iss" - IssuerURL is a string representing the issuer of this token-  , oAuth2TokenIntrospectionNbf :: Maybe Integer -- ^ "nbf" - NotBefore is an integer timestamp, measured in the number of seconds since January 1 1970 UTC, indicating when this token is not to be used before.-  , oAuth2TokenIntrospectionObfuscatedSubject :: Maybe Text -- ^ "obfuscated_subject" - ObfuscatedSubject is set when the subject identifier algorithm was set to \&quot;pairwise\&quot; during authorization. It is the &#x60;sub&#x60; value of the ID Token that was issued.-  , oAuth2TokenIntrospectionScope :: Maybe Text -- ^ "scope" - Scope is a JSON string containing a space-separated list of scopes associated with this token.-  , oAuth2TokenIntrospectionSub :: Maybe Text -- ^ "sub" - Subject of the token, as defined in JWT [RFC7519]. Usually a machine-readable identifier of the resource owner who authorized this token.-  , oAuth2TokenIntrospectionTokenType :: Maybe Text -- ^ "token_type" - TokenType is the introspected token&#39;s type, typically &#x60;Bearer&#x60;.-  , oAuth2TokenIntrospectionTokenUse :: Maybe Text -- ^ "token_use" - TokenUse is the introspected token&#39;s use, for example &#x60;access_token&#x60; or &#x60;refresh_token&#x60;.-  , oAuth2TokenIntrospectionUsername :: Maybe Text -- ^ "username" - Username is a human-readable identifier for the resource owner who authorized this token.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON OAuth2TokenIntrospection-instance A.FromJSON OAuth2TokenIntrospection where-  parseJSON = A.withObject "OAuth2TokenIntrospection" $ \o ->-    OAuth2TokenIntrospection-      <$> (o .:  "active")-      <*> (o .:? "aud")-      <*> (o .:? "client_id")-      <*> (o .:? "exp")-      <*> (o .:? "ext")-      <*> (o .:? "iat")-      <*> (o .:? "iss")-      <*> (o .:? "nbf")-      <*> (o .:? "obfuscated_subject")-      <*> (o .:? "scope")-      <*> (o .:? "sub")-      <*> (o .:? "token_type")-      <*> (o .:? "token_use")-      <*> (o .:? "username")---- | ToJSON OAuth2TokenIntrospection-instance A.ToJSON OAuth2TokenIntrospection where-  toJSON OAuth2TokenIntrospection {..} =-   _omitNulls-      [ "active" .= oAuth2TokenIntrospectionActive-      , "aud" .= oAuth2TokenIntrospectionAud-      , "client_id" .= oAuth2TokenIntrospectionClientId-      , "exp" .= oAuth2TokenIntrospectionExp-      , "ext" .= oAuth2TokenIntrospectionExt-      , "iat" .= oAuth2TokenIntrospectionIat-      , "iss" .= oAuth2TokenIntrospectionIss-      , "nbf" .= oAuth2TokenIntrospectionNbf-      , "obfuscated_subject" .= oAuth2TokenIntrospectionObfuscatedSubject-      , "scope" .= oAuth2TokenIntrospectionScope-      , "sub" .= oAuth2TokenIntrospectionSub-      , "token_type" .= oAuth2TokenIntrospectionTokenType-      , "token_use" .= oAuth2TokenIntrospectionTokenUse-      , "username" .= oAuth2TokenIntrospectionUsername-      ]----- | Construct a value of type 'OAuth2TokenIntrospection' (by applying it's required fields, if any)-mkOAuth2TokenIntrospection-  :: Bool -- ^ 'oAuth2TokenIntrospectionActive': Active is a boolean indicator of whether or not the presented token is currently active.  The specifics of a token's \"active\" state will vary depending on the implementation of the authorization server and the information it keeps about its tokens, but a \"true\" value return for the \"active\" property will generally indicate that a given token has been issued by this authorization server, has not been revoked by the resource owner, and is within its given time window of validity (e.g., after its issuance time and before its expiration time).-  -> OAuth2TokenIntrospection-mkOAuth2TokenIntrospection oAuth2TokenIntrospectionActive =-  OAuth2TokenIntrospection-  { oAuth2TokenIntrospectionActive-  , oAuth2TokenIntrospectionAud = Nothing-  , oAuth2TokenIntrospectionClientId = Nothing-  , oAuth2TokenIntrospectionExp = Nothing-  , oAuth2TokenIntrospectionExt = Nothing-  , oAuth2TokenIntrospectionIat = Nothing-  , oAuth2TokenIntrospectionIss = Nothing-  , oAuth2TokenIntrospectionNbf = Nothing-  , oAuth2TokenIntrospectionObfuscatedSubject = Nothing-  , oAuth2TokenIntrospectionScope = Nothing-  , oAuth2TokenIntrospectionSub = Nothing-  , oAuth2TokenIntrospectionTokenType = Nothing-  , oAuth2TokenIntrospectionTokenUse = Nothing-  , oAuth2TokenIntrospectionUsername = Nothing-  }---- ** Oauth2TokenResponse--- | Oauth2TokenResponse--- The Access Token Response-data Oauth2TokenResponse = Oauth2TokenResponse-  { oauth2TokenResponseAccessToken :: Maybe Text -- ^ "access_token"-  , oauth2TokenResponseExpiresIn :: Maybe Integer -- ^ "expires_in"-  , oauth2TokenResponseIdToken :: Maybe Text -- ^ "id_token"-  , oauth2TokenResponseRefreshToken :: Maybe Text -- ^ "refresh_token"-  , oauth2TokenResponseScope :: Maybe Text -- ^ "scope"-  , oauth2TokenResponseTokenType :: Maybe Text -- ^ "token_type"-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON Oauth2TokenResponse-instance A.FromJSON Oauth2TokenResponse where-  parseJSON = A.withObject "Oauth2TokenResponse" $ \o ->-    Oauth2TokenResponse-      <$> (o .:? "access_token")-      <*> (o .:? "expires_in")-      <*> (o .:? "id_token")-      <*> (o .:? "refresh_token")-      <*> (o .:? "scope")-      <*> (o .:? "token_type")---- | ToJSON Oauth2TokenResponse-instance A.ToJSON Oauth2TokenResponse where-  toJSON Oauth2TokenResponse {..} =-   _omitNulls-      [ "access_token" .= oauth2TokenResponseAccessToken-      , "expires_in" .= oauth2TokenResponseExpiresIn-      , "id_token" .= oauth2TokenResponseIdToken-      , "refresh_token" .= oauth2TokenResponseRefreshToken-      , "scope" .= oauth2TokenResponseScope-      , "token_type" .= oauth2TokenResponseTokenType-      ]----- | Construct a value of type 'Oauth2TokenResponse' (by applying it's required fields, if any)-mkOauth2TokenResponse-  :: Oauth2TokenResponse-mkOauth2TokenResponse =-  Oauth2TokenResponse-  { oauth2TokenResponseAccessToken = Nothing-  , oauth2TokenResponseExpiresIn = Nothing-  , oauth2TokenResponseIdToken = Nothing-  , oauth2TokenResponseRefreshToken = Nothing-  , oauth2TokenResponseScope = Nothing-  , oauth2TokenResponseTokenType = Nothing-  }---- ** OpenIDConnectContext--- | OpenIDConnectContext--- Contains optional information about the OpenID Connect request.--- -data OpenIDConnectContext = OpenIDConnectContext-  { openIDConnectContextAcrValues :: Maybe [Text] -- ^ "acr_values" - ACRValues is the Authentication AuthorizationContext Class Reference requested in the OAuth 2.0 Authorization request. It is a parameter defined by OpenID Connect and expresses which level of authentication (e.g. 2FA) is required.  OpenID Connect defines it as follows: &gt; Requested Authentication AuthorizationContext Class Reference values. Space-separated string that specifies the acr values that the Authorization Server is being requested to use for processing this Authentication Request, with the values appearing in order of preference. The Authentication AuthorizationContext Class satisfied by the authentication performed is returned as the acr Claim Value, as specified in Section 2. The acr Claim is requested as a Voluntary Claim by this parameter.-  , openIDConnectContextDisplay :: Maybe Text -- ^ "display" - Display is a string value that specifies how the Authorization Server displays the authentication and consent user interface pages to the End-User. The defined values are: page: The Authorization Server SHOULD display the authentication and consent UI consistent with a full User Agent page view. If the display parameter is not specified, this is the default display mode. popup: The Authorization Server SHOULD display the authentication and consent UI consistent with a popup User Agent window. The popup User Agent window should be of an appropriate size for a login-focused dialog and should not obscure the entire window that it is popping up over. touch: The Authorization Server SHOULD display the authentication and consent UI consistent with a device that leverages a touch interface. wap: The Authorization Server SHOULD display the authentication and consent UI consistent with a \&quot;feature phone\&quot; type display.  The Authorization Server MAY also attempt to detect the capabilities of the User Agent and present an appropriate display.-  , openIDConnectContextIdTokenHintClaims :: Maybe A.Value -- ^ "id_token_hint_claims" - IDTokenHintClaims are the claims of the ID Token previously issued by the Authorization Server being passed as a hint about the End-User&#39;s current or past authenticated session with the Client.-  , openIDConnectContextLoginHint :: Maybe Text -- ^ "login_hint" - LoginHint hints about the login identifier the End-User might use to log in (if necessary). This hint can be used by an RP if it first asks the End-User for their e-mail address (or other identifier) and then wants to pass that value as a hint to the discovered authorization service. This value MAY also be a phone number in the format specified for the phone_number Claim. The use of this parameter is optional.-  , openIDConnectContextUiLocales :: Maybe [Text] -- ^ "ui_locales" - UILocales is the End-User&#39;id preferred languages and scripts for the user interface, represented as a space-separated list of BCP47 [RFC5646] language tag values, ordered by preference. For instance, the value \&quot;fr-CA fr en\&quot; represents a preference for French as spoken in Canada, then French (without a region designation), followed by English (without a region designation). An error SHOULD NOT result if some or all of the requested locales are not supported by the OpenID Provider.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON OpenIDConnectContext-instance A.FromJSON OpenIDConnectContext where-  parseJSON = A.withObject "OpenIDConnectContext" $ \o ->-    OpenIDConnectContext-      <$> (o .:? "acr_values")-      <*> (o .:? "display")-      <*> (o .:? "id_token_hint_claims")-      <*> (o .:? "login_hint")-      <*> (o .:? "ui_locales")---- | ToJSON OpenIDConnectContext-instance A.ToJSON OpenIDConnectContext where-  toJSON OpenIDConnectContext {..} =-   _omitNulls-      [ "acr_values" .= openIDConnectContextAcrValues-      , "display" .= openIDConnectContextDisplay-      , "id_token_hint_claims" .= openIDConnectContextIdTokenHintClaims-      , "login_hint" .= openIDConnectContextLoginHint-      , "ui_locales" .= openIDConnectContextUiLocales-      ]----- | Construct a value of type 'OpenIDConnectContext' (by applying it's required fields, if any)-mkOpenIDConnectContext-  :: OpenIDConnectContext-mkOpenIDConnectContext =-  OpenIDConnectContext-  { openIDConnectContextAcrValues = Nothing-  , openIDConnectContextDisplay = Nothing-  , openIDConnectContextIdTokenHintClaims = Nothing-  , openIDConnectContextLoginHint = Nothing-  , openIDConnectContextUiLocales = Nothing-  }---- ** PluginConfig--- | PluginConfig--- PluginConfig The config of a plugin.--- -data PluginConfig = PluginConfig-  { pluginConfigArgs :: PluginConfigArgs -- ^ /Required/ "Args"-  , pluginConfigDescription :: Text -- ^ /Required/ "Description" - description-  , pluginConfigDockerVersion :: Maybe Text -- ^ "DockerVersion" - Docker Version used to create the plugin-  , pluginConfigDocumentation :: Text -- ^ /Required/ "Documentation" - documentation-  , pluginConfigEntrypoint :: [Text] -- ^ /Required/ "Entrypoint" - entrypoint-  , pluginConfigEnv :: [PluginEnv] -- ^ /Required/ "Env" - env-  , pluginConfigInterface :: PluginConfigInterface -- ^ /Required/ "Interface"-  , pluginConfigIpcHost :: Bool -- ^ /Required/ "IpcHost" - ipc host-  , pluginConfigLinux :: PluginConfigLinux -- ^ /Required/ "Linux"-  , pluginConfigMounts :: [PluginMount] -- ^ /Required/ "Mounts" - mounts-  , pluginConfigNetwork :: PluginConfigNetwork -- ^ /Required/ "Network"-  , pluginConfigPidHost :: Bool -- ^ /Required/ "PidHost" - pid host-  , pluginConfigPropagatedMount :: Text -- ^ /Required/ "PropagatedMount" - propagated mount-  , pluginConfigUser :: Maybe PluginConfigUser -- ^ "User"-  , pluginConfigWorkDir :: Text -- ^ /Required/ "WorkDir" - work dir-  , pluginConfigRootfs :: Maybe PluginConfigRootfs -- ^ "rootfs"-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginConfig-instance A.FromJSON PluginConfig where-  parseJSON = A.withObject "PluginConfig" $ \o ->-    PluginConfig-      <$> (o .:  "Args")-      <*> (o .:  "Description")-      <*> (o .:? "DockerVersion")-      <*> (o .:  "Documentation")-      <*> (o .:  "Entrypoint")-      <*> (o .:  "Env")-      <*> (o .:  "Interface")-      <*> (o .:  "IpcHost")-      <*> (o .:  "Linux")-      <*> (o .:  "Mounts")-      <*> (o .:  "Network")-      <*> (o .:  "PidHost")-      <*> (o .:  "PropagatedMount")-      <*> (o .:? "User")-      <*> (o .:  "WorkDir")-      <*> (o .:? "rootfs")---- | ToJSON PluginConfig-instance A.ToJSON PluginConfig where-  toJSON PluginConfig {..} =-   _omitNulls-      [ "Args" .= pluginConfigArgs-      , "Description" .= pluginConfigDescription-      , "DockerVersion" .= pluginConfigDockerVersion-      , "Documentation" .= pluginConfigDocumentation-      , "Entrypoint" .= pluginConfigEntrypoint-      , "Env" .= pluginConfigEnv-      , "Interface" .= pluginConfigInterface-      , "IpcHost" .= pluginConfigIpcHost-      , "Linux" .= pluginConfigLinux-      , "Mounts" .= pluginConfigMounts-      , "Network" .= pluginConfigNetwork-      , "PidHost" .= pluginConfigPidHost-      , "PropagatedMount" .= pluginConfigPropagatedMount-      , "User" .= pluginConfigUser-      , "WorkDir" .= pluginConfigWorkDir-      , "rootfs" .= pluginConfigRootfs-      ]----- | Construct a value of type 'PluginConfig' (by applying it's required fields, if any)-mkPluginConfig-  :: PluginConfigArgs -- ^ 'pluginConfigArgs' -  -> Text -- ^ 'pluginConfigDescription': description-  -> Text -- ^ 'pluginConfigDocumentation': documentation-  -> [Text] -- ^ 'pluginConfigEntrypoint': entrypoint-  -> [PluginEnv] -- ^ 'pluginConfigEnv': env-  -> PluginConfigInterface -- ^ 'pluginConfigInterface' -  -> Bool -- ^ 'pluginConfigIpcHost': ipc host-  -> PluginConfigLinux -- ^ 'pluginConfigLinux' -  -> [PluginMount] -- ^ 'pluginConfigMounts': mounts-  -> PluginConfigNetwork -- ^ 'pluginConfigNetwork' -  -> Bool -- ^ 'pluginConfigPidHost': pid host-  -> Text -- ^ 'pluginConfigPropagatedMount': propagated mount-  -> Text -- ^ 'pluginConfigWorkDir': work dir-  -> PluginConfig-mkPluginConfig pluginConfigArgs pluginConfigDescription pluginConfigDocumentation pluginConfigEntrypoint pluginConfigEnv pluginConfigInterface pluginConfigIpcHost pluginConfigLinux pluginConfigMounts pluginConfigNetwork pluginConfigPidHost pluginConfigPropagatedMount pluginConfigWorkDir =-  PluginConfig-  { pluginConfigArgs-  , pluginConfigDescription-  , pluginConfigDockerVersion = Nothing-  , pluginConfigDocumentation-  , pluginConfigEntrypoint-  , pluginConfigEnv-  , pluginConfigInterface-  , pluginConfigIpcHost-  , pluginConfigLinux-  , pluginConfigMounts-  , pluginConfigNetwork-  , pluginConfigPidHost-  , pluginConfigPropagatedMount-  , pluginConfigUser = Nothing-  , pluginConfigWorkDir-  , pluginConfigRootfs = Nothing-  }---- ** PluginConfigArgs--- | PluginConfigArgs--- PluginConfigArgs plugin config args-data PluginConfigArgs = PluginConfigArgs-  { pluginConfigArgsDescription :: Text -- ^ /Required/ "Description" - description-  , pluginConfigArgsName :: Text -- ^ /Required/ "Name" - name-  , pluginConfigArgsSettable :: [Text] -- ^ /Required/ "Settable" - settable-  , pluginConfigArgsValue :: [Text] -- ^ /Required/ "Value" - value-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginConfigArgs-instance A.FromJSON PluginConfigArgs where-  parseJSON = A.withObject "PluginConfigArgs" $ \o ->-    PluginConfigArgs-      <$> (o .:  "Description")-      <*> (o .:  "Name")-      <*> (o .:  "Settable")-      <*> (o .:  "Value")---- | ToJSON PluginConfigArgs-instance A.ToJSON PluginConfigArgs where-  toJSON PluginConfigArgs {..} =-   _omitNulls-      [ "Description" .= pluginConfigArgsDescription-      , "Name" .= pluginConfigArgsName-      , "Settable" .= pluginConfigArgsSettable-      , "Value" .= pluginConfigArgsValue-      ]----- | Construct a value of type 'PluginConfigArgs' (by applying it's required fields, if any)-mkPluginConfigArgs-  :: Text -- ^ 'pluginConfigArgsDescription': description-  -> Text -- ^ 'pluginConfigArgsName': name-  -> [Text] -- ^ 'pluginConfigArgsSettable': settable-  -> [Text] -- ^ 'pluginConfigArgsValue': value-  -> PluginConfigArgs-mkPluginConfigArgs pluginConfigArgsDescription pluginConfigArgsName pluginConfigArgsSettable pluginConfigArgsValue =-  PluginConfigArgs-  { pluginConfigArgsDescription-  , pluginConfigArgsName-  , pluginConfigArgsSettable-  , pluginConfigArgsValue-  }---- ** PluginConfigInterface--- | PluginConfigInterface--- PluginConfigInterface The interface between Docker and the plugin-data PluginConfigInterface = PluginConfigInterface-  { pluginConfigInterfaceProtocolScheme :: Maybe Text -- ^ "ProtocolScheme" - Protocol to use for clients connecting to the plugin.-  , pluginConfigInterfaceSocket :: Text -- ^ /Required/ "Socket" - socket-  , pluginConfigInterfaceTypes :: [PluginInterfaceType] -- ^ /Required/ "Types" - types-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginConfigInterface-instance A.FromJSON PluginConfigInterface where-  parseJSON = A.withObject "PluginConfigInterface" $ \o ->-    PluginConfigInterface-      <$> (o .:? "ProtocolScheme")-      <*> (o .:  "Socket")-      <*> (o .:  "Types")---- | ToJSON PluginConfigInterface-instance A.ToJSON PluginConfigInterface where-  toJSON PluginConfigInterface {..} =-   _omitNulls-      [ "ProtocolScheme" .= pluginConfigInterfaceProtocolScheme-      , "Socket" .= pluginConfigInterfaceSocket-      , "Types" .= pluginConfigInterfaceTypes-      ]----- | Construct a value of type 'PluginConfigInterface' (by applying it's required fields, if any)-mkPluginConfigInterface-  :: Text -- ^ 'pluginConfigInterfaceSocket': socket-  -> [PluginInterfaceType] -- ^ 'pluginConfigInterfaceTypes': types-  -> PluginConfigInterface-mkPluginConfigInterface pluginConfigInterfaceSocket pluginConfigInterfaceTypes =-  PluginConfigInterface-  { pluginConfigInterfaceProtocolScheme = Nothing-  , pluginConfigInterfaceSocket-  , pluginConfigInterfaceTypes-  }---- ** PluginConfigLinux--- | PluginConfigLinux--- PluginConfigLinux plugin config linux-data PluginConfigLinux = PluginConfigLinux-  { pluginConfigLinuxAllowAllDevices :: Bool -- ^ /Required/ "AllowAllDevices" - allow all devices-  , pluginConfigLinuxCapabilities :: [Text] -- ^ /Required/ "Capabilities" - capabilities-  , pluginConfigLinuxDevices :: [PluginDevice] -- ^ /Required/ "Devices" - devices-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginConfigLinux-instance A.FromJSON PluginConfigLinux where-  parseJSON = A.withObject "PluginConfigLinux" $ \o ->-    PluginConfigLinux-      <$> (o .:  "AllowAllDevices")-      <*> (o .:  "Capabilities")-      <*> (o .:  "Devices")---- | ToJSON PluginConfigLinux-instance A.ToJSON PluginConfigLinux where-  toJSON PluginConfigLinux {..} =-   _omitNulls-      [ "AllowAllDevices" .= pluginConfigLinuxAllowAllDevices-      , "Capabilities" .= pluginConfigLinuxCapabilities-      , "Devices" .= pluginConfigLinuxDevices-      ]----- | Construct a value of type 'PluginConfigLinux' (by applying it's required fields, if any)-mkPluginConfigLinux-  :: Bool -- ^ 'pluginConfigLinuxAllowAllDevices': allow all devices-  -> [Text] -- ^ 'pluginConfigLinuxCapabilities': capabilities-  -> [PluginDevice] -- ^ 'pluginConfigLinuxDevices': devices-  -> PluginConfigLinux-mkPluginConfigLinux pluginConfigLinuxAllowAllDevices pluginConfigLinuxCapabilities pluginConfigLinuxDevices =-  PluginConfigLinux-  { pluginConfigLinuxAllowAllDevices-  , pluginConfigLinuxCapabilities-  , pluginConfigLinuxDevices-  }---- ** PluginConfigNetwork--- | PluginConfigNetwork--- PluginConfigNetwork plugin config network-data PluginConfigNetwork = PluginConfigNetwork-  { pluginConfigNetworkType :: Text -- ^ /Required/ "Type" - type-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginConfigNetwork-instance A.FromJSON PluginConfigNetwork where-  parseJSON = A.withObject "PluginConfigNetwork" $ \o ->-    PluginConfigNetwork-      <$> (o .:  "Type")---- | ToJSON PluginConfigNetwork-instance A.ToJSON PluginConfigNetwork where-  toJSON PluginConfigNetwork {..} =-   _omitNulls-      [ "Type" .= pluginConfigNetworkType-      ]----- | Construct a value of type 'PluginConfigNetwork' (by applying it's required fields, if any)-mkPluginConfigNetwork-  :: Text -- ^ 'pluginConfigNetworkType': type-  -> PluginConfigNetwork-mkPluginConfigNetwork pluginConfigNetworkType =-  PluginConfigNetwork-  { pluginConfigNetworkType-  }---- ** PluginConfigRootfs--- | PluginConfigRootfs--- PluginConfigRootfs plugin config rootfs-data PluginConfigRootfs = PluginConfigRootfs-  { pluginConfigRootfsDiffIds :: Maybe [Text] -- ^ "diff_ids" - diff ids-  , pluginConfigRootfsType :: Maybe Text -- ^ "type" - type-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginConfigRootfs-instance A.FromJSON PluginConfigRootfs where-  parseJSON = A.withObject "PluginConfigRootfs" $ \o ->-    PluginConfigRootfs-      <$> (o .:? "diff_ids")-      <*> (o .:? "type")---- | ToJSON PluginConfigRootfs-instance A.ToJSON PluginConfigRootfs where-  toJSON PluginConfigRootfs {..} =-   _omitNulls-      [ "diff_ids" .= pluginConfigRootfsDiffIds-      , "type" .= pluginConfigRootfsType-      ]----- | Construct a value of type 'PluginConfigRootfs' (by applying it's required fields, if any)-mkPluginConfigRootfs-  :: PluginConfigRootfs-mkPluginConfigRootfs =-  PluginConfigRootfs-  { pluginConfigRootfsDiffIds = Nothing-  , pluginConfigRootfsType = Nothing-  }---- ** PluginConfigUser--- | PluginConfigUser--- PluginConfigUser plugin config user-data PluginConfigUser = PluginConfigUser-  { pluginConfigUserGid :: Maybe Int -- ^ "GID" - g ID-  , pluginConfigUserUid :: Maybe Int -- ^ "UID" - UID-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginConfigUser-instance A.FromJSON PluginConfigUser where-  parseJSON = A.withObject "PluginConfigUser" $ \o ->-    PluginConfigUser-      <$> (o .:? "GID")-      <*> (o .:? "UID")---- | ToJSON PluginConfigUser-instance A.ToJSON PluginConfigUser where-  toJSON PluginConfigUser {..} =-   _omitNulls-      [ "GID" .= pluginConfigUserGid-      , "UID" .= pluginConfigUserUid-      ]----- | Construct a value of type 'PluginConfigUser' (by applying it's required fields, if any)-mkPluginConfigUser-  :: PluginConfigUser-mkPluginConfigUser =-  PluginConfigUser-  { pluginConfigUserGid = Nothing-  , pluginConfigUserUid = Nothing-  }---- ** PluginDevice--- | PluginDevice--- PluginDevice plugin device-data PluginDevice = PluginDevice-  { pluginDeviceDescription :: Text -- ^ /Required/ "Description" - description-  , pluginDeviceName :: Text -- ^ /Required/ "Name" - name-  , pluginDevicePath :: Text -- ^ /Required/ "Path" - path-  , pluginDeviceSettable :: [Text] -- ^ /Required/ "Settable" - settable-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginDevice-instance A.FromJSON PluginDevice where-  parseJSON = A.withObject "PluginDevice" $ \o ->-    PluginDevice-      <$> (o .:  "Description")-      <*> (o .:  "Name")-      <*> (o .:  "Path")-      <*> (o .:  "Settable")---- | ToJSON PluginDevice-instance A.ToJSON PluginDevice where-  toJSON PluginDevice {..} =-   _omitNulls-      [ "Description" .= pluginDeviceDescription-      , "Name" .= pluginDeviceName-      , "Path" .= pluginDevicePath-      , "Settable" .= pluginDeviceSettable-      ]----- | Construct a value of type 'PluginDevice' (by applying it's required fields, if any)-mkPluginDevice-  :: Text -- ^ 'pluginDeviceDescription': description-  -> Text -- ^ 'pluginDeviceName': name-  -> Text -- ^ 'pluginDevicePath': path-  -> [Text] -- ^ 'pluginDeviceSettable': settable-  -> PluginDevice-mkPluginDevice pluginDeviceDescription pluginDeviceName pluginDevicePath pluginDeviceSettable =-  PluginDevice-  { pluginDeviceDescription-  , pluginDeviceName-  , pluginDevicePath-  , pluginDeviceSettable-  }---- ** PluginEnv--- | PluginEnv--- PluginEnv plugin env-data PluginEnv = PluginEnv-  { pluginEnvDescription :: Text -- ^ /Required/ "Description" - description-  , pluginEnvName :: Text -- ^ /Required/ "Name" - name-  , pluginEnvSettable :: [Text] -- ^ /Required/ "Settable" - settable-  , pluginEnvValue :: Text -- ^ /Required/ "Value" - value-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginEnv-instance A.FromJSON PluginEnv where-  parseJSON = A.withObject "PluginEnv" $ \o ->-    PluginEnv-      <$> (o .:  "Description")-      <*> (o .:  "Name")-      <*> (o .:  "Settable")-      <*> (o .:  "Value")---- | ToJSON PluginEnv-instance A.ToJSON PluginEnv where-  toJSON PluginEnv {..} =-   _omitNulls-      [ "Description" .= pluginEnvDescription-      , "Name" .= pluginEnvName-      , "Settable" .= pluginEnvSettable-      , "Value" .= pluginEnvValue-      ]----- | Construct a value of type 'PluginEnv' (by applying it's required fields, if any)-mkPluginEnv-  :: Text -- ^ 'pluginEnvDescription': description-  -> Text -- ^ 'pluginEnvName': name-  -> [Text] -- ^ 'pluginEnvSettable': settable-  -> Text -- ^ 'pluginEnvValue': value-  -> PluginEnv-mkPluginEnv pluginEnvDescription pluginEnvName pluginEnvSettable pluginEnvValue =-  PluginEnv-  { pluginEnvDescription-  , pluginEnvName-  , pluginEnvSettable-  , pluginEnvValue-  }---- ** PluginInterfaceType--- | PluginInterfaceType--- PluginInterfaceType plugin interface type-data PluginInterfaceType = PluginInterfaceType-  { pluginInterfaceTypeCapability :: Text -- ^ /Required/ "Capability" - capability-  , pluginInterfaceTypePrefix :: Text -- ^ /Required/ "Prefix" - prefix-  , pluginInterfaceTypeVersion :: Text -- ^ /Required/ "Version" - version-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginInterfaceType-instance A.FromJSON PluginInterfaceType where-  parseJSON = A.withObject "PluginInterfaceType" $ \o ->-    PluginInterfaceType-      <$> (o .:  "Capability")-      <*> (o .:  "Prefix")-      <*> (o .:  "Version")---- | ToJSON PluginInterfaceType-instance A.ToJSON PluginInterfaceType where-  toJSON PluginInterfaceType {..} =-   _omitNulls-      [ "Capability" .= pluginInterfaceTypeCapability-      , "Prefix" .= pluginInterfaceTypePrefix-      , "Version" .= pluginInterfaceTypeVersion-      ]----- | Construct a value of type 'PluginInterfaceType' (by applying it's required fields, if any)-mkPluginInterfaceType-  :: Text -- ^ 'pluginInterfaceTypeCapability': capability-  -> Text -- ^ 'pluginInterfaceTypePrefix': prefix-  -> Text -- ^ 'pluginInterfaceTypeVersion': version-  -> PluginInterfaceType-mkPluginInterfaceType pluginInterfaceTypeCapability pluginInterfaceTypePrefix pluginInterfaceTypeVersion =-  PluginInterfaceType-  { pluginInterfaceTypeCapability-  , pluginInterfaceTypePrefix-  , pluginInterfaceTypeVersion-  }---- ** PluginMount--- | PluginMount--- PluginMount plugin mount-data PluginMount = PluginMount-  { pluginMountDescription :: Text -- ^ /Required/ "Description" - description-  , pluginMountDestination :: Text -- ^ /Required/ "Destination" - destination-  , pluginMountName :: Text -- ^ /Required/ "Name" - name-  , pluginMountOptions :: [Text] -- ^ /Required/ "Options" - options-  , pluginMountSettable :: [Text] -- ^ /Required/ "Settable" - settable-  , pluginMountSource :: Text -- ^ /Required/ "Source" - source-  , pluginMountType :: Text -- ^ /Required/ "Type" - type-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginMount-instance A.FromJSON PluginMount where-  parseJSON = A.withObject "PluginMount" $ \o ->-    PluginMount-      <$> (o .:  "Description")-      <*> (o .:  "Destination")-      <*> (o .:  "Name")-      <*> (o .:  "Options")-      <*> (o .:  "Settable")-      <*> (o .:  "Source")-      <*> (o .:  "Type")---- | ToJSON PluginMount-instance A.ToJSON PluginMount where-  toJSON PluginMount {..} =-   _omitNulls-      [ "Description" .= pluginMountDescription-      , "Destination" .= pluginMountDestination-      , "Name" .= pluginMountName-      , "Options" .= pluginMountOptions-      , "Settable" .= pluginMountSettable-      , "Source" .= pluginMountSource-      , "Type" .= pluginMountType-      ]----- | Construct a value of type 'PluginMount' (by applying it's required fields, if any)-mkPluginMount-  :: Text -- ^ 'pluginMountDescription': description-  -> Text -- ^ 'pluginMountDestination': destination-  -> Text -- ^ 'pluginMountName': name-  -> [Text] -- ^ 'pluginMountOptions': options-  -> [Text] -- ^ 'pluginMountSettable': settable-  -> Text -- ^ 'pluginMountSource': source-  -> Text -- ^ 'pluginMountType': type-  -> PluginMount-mkPluginMount pluginMountDescription pluginMountDestination pluginMountName pluginMountOptions pluginMountSettable pluginMountSource pluginMountType =-  PluginMount-  { pluginMountDescription-  , pluginMountDestination-  , pluginMountName-  , pluginMountOptions-  , pluginMountSettable-  , pluginMountSource-  , pluginMountType-  }---- ** PluginSettings--- | PluginSettings--- PluginSettings Settings that can be modified by users.--- -data PluginSettings = PluginSettings-  { pluginSettingsArgs :: [Text] -- ^ /Required/ "Args" - args-  , pluginSettingsDevices :: [PluginDevice] -- ^ /Required/ "Devices" - devices-  , pluginSettingsEnv :: [Text] -- ^ /Required/ "Env" - env-  , pluginSettingsMounts :: [PluginMount] -- ^ /Required/ "Mounts" - mounts-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PluginSettings-instance A.FromJSON PluginSettings where-  parseJSON = A.withObject "PluginSettings" $ \o ->-    PluginSettings-      <$> (o .:  "Args")-      <*> (o .:  "Devices")-      <*> (o .:  "Env")-      <*> (o .:  "Mounts")---- | ToJSON PluginSettings-instance A.ToJSON PluginSettings where-  toJSON PluginSettings {..} =-   _omitNulls-      [ "Args" .= pluginSettingsArgs-      , "Devices" .= pluginSettingsDevices-      , "Env" .= pluginSettingsEnv-      , "Mounts" .= pluginSettingsMounts-      ]----- | Construct a value of type 'PluginSettings' (by applying it's required fields, if any)-mkPluginSettings-  :: [Text] -- ^ 'pluginSettingsArgs': args-  -> [PluginDevice] -- ^ 'pluginSettingsDevices': devices-  -> [Text] -- ^ 'pluginSettingsEnv': env-  -> [PluginMount] -- ^ 'pluginSettingsMounts': mounts-  -> PluginSettings-mkPluginSettings pluginSettingsArgs pluginSettingsDevices pluginSettingsEnv pluginSettingsMounts =-  PluginSettings-  { pluginSettingsArgs-  , pluginSettingsDevices-  , pluginSettingsEnv-  , pluginSettingsMounts-  }---- ** PreviousConsentSession--- | PreviousConsentSession--- The response used to return used consent requests same as HandledLoginRequest, just with consent_request exposed as json-data PreviousConsentSession = PreviousConsentSession-  { previousConsentSessionConsentRequest :: Maybe ConsentRequest -- ^ "consent_request"-  , previousConsentSessionGrantAccessTokenAudience :: Maybe [Text] -- ^ "grant_access_token_audience"-  , previousConsentSessionGrantScope :: Maybe [Text] -- ^ "grant_scope"-  , previousConsentSessionHandledAt :: Maybe DateTime -- ^ "handled_at"-  , previousConsentSessionRemember :: Maybe Bool -- ^ "remember" - Remember, if set to true, tells ORY Hydra to remember this consent authorization and reuse it if the same client asks the same user for the same, or a subset of, scope.-  , previousConsentSessionRememberFor :: Maybe Integer -- ^ "remember_for" - RememberFor sets how long the consent authorization should be remembered for in seconds. If set to &#x60;0&#x60;, the authorization will be remembered indefinitely.-  , previousConsentSessionSession :: Maybe ConsentRequestSession -- ^ "session"-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON PreviousConsentSession-instance A.FromJSON PreviousConsentSession where-  parseJSON = A.withObject "PreviousConsentSession" $ \o ->-    PreviousConsentSession-      <$> (o .:? "consent_request")-      <*> (o .:? "grant_access_token_audience")-      <*> (o .:? "grant_scope")-      <*> (o .:? "handled_at")-      <*> (o .:? "remember")-      <*> (o .:? "remember_for")-      <*> (o .:? "session")---- | ToJSON PreviousConsentSession-instance A.ToJSON PreviousConsentSession where-  toJSON PreviousConsentSession {..} =-   _omitNulls-      [ "consent_request" .= previousConsentSessionConsentRequest-      , "grant_access_token_audience" .= previousConsentSessionGrantAccessTokenAudience-      , "grant_scope" .= previousConsentSessionGrantScope-      , "handled_at" .= previousConsentSessionHandledAt-      , "remember" .= previousConsentSessionRemember-      , "remember_for" .= previousConsentSessionRememberFor-      , "session" .= previousConsentSessionSession-      ]----- | Construct a value of type 'PreviousConsentSession' (by applying it's required fields, if any)-mkPreviousConsentSession-  :: PreviousConsentSession-mkPreviousConsentSession =-  PreviousConsentSession-  { previousConsentSessionConsentRequest = Nothing-  , previousConsentSessionGrantAccessTokenAudience = Nothing-  , previousConsentSessionGrantScope = Nothing-  , previousConsentSessionHandledAt = Nothing-  , previousConsentSessionRemember = Nothing-  , previousConsentSessionRememberFor = Nothing-  , previousConsentSessionSession = Nothing-  }---- ** RejectRequest--- | RejectRequest--- The request payload used to accept a login or consent request.--- -data RejectRequest = RejectRequest-  { rejectRequestError :: Maybe Text -- ^ "error" - The error should follow the OAuth2 error format (e.g. &#x60;invalid_request&#x60;, &#x60;login_required&#x60;).  Defaults to &#x60;request_denied&#x60;.-  , rejectRequestErrorDebug :: Maybe Text -- ^ "error_debug" - Debug contains information to help resolve the problem as a developer. Usually not exposed to the public but only in the server logs.-  , rejectRequestErrorDescription :: Maybe Text -- ^ "error_description" - Description of the error in a human readable format.-  , rejectRequestErrorHint :: Maybe Text -- ^ "error_hint" - Hint to help resolve the error.-  , rejectRequestStatusCode :: Maybe Integer -- ^ "status_code" - Represents the HTTP status code of the error (e.g. 401 or 403)  Defaults to 400-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON RejectRequest-instance A.FromJSON RejectRequest where-  parseJSON = A.withObject "RejectRequest" $ \o ->-    RejectRequest-      <$> (o .:? "error")-      <*> (o .:? "error_debug")-      <*> (o .:? "error_description")-      <*> (o .:? "error_hint")-      <*> (o .:? "status_code")---- | ToJSON RejectRequest-instance A.ToJSON RejectRequest where-  toJSON RejectRequest {..} =-   _omitNulls-      [ "error" .= rejectRequestError-      , "error_debug" .= rejectRequestErrorDebug-      , "error_description" .= rejectRequestErrorDescription-      , "error_hint" .= rejectRequestErrorHint-      , "status_code" .= rejectRequestStatusCode-      ]---- | FromForm RejectRequest-instance WH.FromForm RejectRequest where-  fromForm f =-    RejectRequest-      <$> (WH.parseMaybe "error" f)-      <*> (WH.parseMaybe "error_debug" f)-      <*> (WH.parseMaybe "error_description" f)-      <*> (WH.parseMaybe "error_hint" f)-      <*> (WH.parseMaybe "status_code" f)---- | ToForm RejectRequest-instance WH.ToForm RejectRequest where-  toForm RejectRequest {..} =-    WH.Form $ HM.fromList $ P.catMaybes $-      [ _toFormItem "error" (rejectRequestError)-      , _toFormItem "error_debug" (rejectRequestErrorDebug)-      , _toFormItem "error_description" (rejectRequestErrorDescription)-      , _toFormItem "error_hint" (rejectRequestErrorHint)-      , _toFormItem "status_code" (rejectRequestStatusCode)-      ]---- | Construct a value of type 'RejectRequest' (by applying it's required fields, if any)-mkRejectRequest-  :: RejectRequest-mkRejectRequest =-  RejectRequest-  { rejectRequestError = Nothing-  , rejectRequestErrorDebug = Nothing-  , rejectRequestErrorDescription = Nothing-  , rejectRequestErrorHint = Nothing-  , rejectRequestStatusCode = Nothing-  }---- ** UserinfoResponse--- | UserinfoResponse--- The userinfo response-data UserinfoResponse = UserinfoResponse-  { userinfoResponseBirthdate :: Maybe Text -- ^ "birthdate" - End-User&#39;s birthday, represented as an ISO 8601:2004 [ISO8601‑2004] YYYY-MM-DD format. The year MAY be 0000, indicating that it is omitted. To represent only the year, YYYY format is allowed. Note that depending on the underlying platform&#39;s date related function, providing just year can result in varying month and day, so the implementers need to take this factor into account to correctly process the dates.-  , userinfoResponseEmail :: Maybe Text -- ^ "email" - End-User&#39;s preferred e-mail address. Its value MUST conform to the RFC 5322 [RFC5322] addr-spec syntax. The RP MUST NOT rely upon this value being unique, as discussed in Section 5.7.-  , userinfoResponseEmailVerified :: Maybe Bool -- ^ "email_verified" - True if the End-User&#39;s e-mail address has been verified; otherwise false. When this Claim Value is true, this means that the OP took affirmative steps to ensure that this e-mail address was controlled by the End-User at the time the verification was performed. The means by which an e-mail address is verified is context-specific, and dependent upon the trust framework or contractual agreements within which the parties are operating.-  , userinfoResponseFamilyName :: Maybe Text -- ^ "family_name" - Surname(s) or last name(s) of the End-User. Note that in some cultures, people can have multiple family names or no family name; all can be present, with the names being separated by space characters.-  , userinfoResponseGender :: Maybe Text -- ^ "gender" - End-User&#39;s gender. Values defined by this specification are female and male. Other values MAY be used when neither of the defined values are applicable.-  , userinfoResponseGivenName :: Maybe Text -- ^ "given_name" - Given name(s) or first name(s) of the End-User. Note that in some cultures, people can have multiple given names; all can be present, with the names being separated by space characters.-  , userinfoResponseLocale :: Maybe Text -- ^ "locale" - End-User&#39;s locale, represented as a BCP47 [RFC5646] language tag. This is typically an ISO 639-1 Alpha-2 [ISO639‑1] language code in lowercase and an ISO 3166-1 Alpha-2 [ISO3166‑1] country code in uppercase, separated by a dash. For example, en-US or fr-CA. As a compatibility note, some implementations have used an underscore as the separator rather than a dash, for example, en_US; Relying Parties MAY choose to accept this locale syntax as well.-  , userinfoResponseMiddleName :: Maybe Text -- ^ "middle_name" - Middle name(s) of the End-User. Note that in some cultures, people can have multiple middle names; all can be present, with the names being separated by space characters. Also note that in some cultures, middle names are not used.-  , userinfoResponseName :: Maybe Text -- ^ "name" - End-User&#39;s full name in displayable form including all name parts, possibly including titles and suffixes, ordered according to the End-User&#39;s locale and preferences.-  , userinfoResponseNickname :: Maybe Text -- ^ "nickname" - Casual name of the End-User that may or may not be the same as the given_name. For instance, a nickname value of Mike might be returned alongside a given_name value of Michael.-  , userinfoResponsePhoneNumber :: Maybe Text -- ^ "phone_number" - End-User&#39;s preferred telephone number. E.164 [E.164] is RECOMMENDED as the format of this Claim, for example, +1 (425) 555-1212 or +56 (2) 687 2400. If the phone number contains an extension, it is RECOMMENDED that the extension be represented using the RFC 3966 [RFC3966] extension syntax, for example, +1 (604) 555-1234;ext&#x3D;5678.-  , userinfoResponsePhoneNumberVerified :: Maybe Bool -- ^ "phone_number_verified" - True if the End-User&#39;s phone number has been verified; otherwise false. When this Claim Value is true, this means that the OP took affirmative steps to ensure that this phone number was controlled by the End-User at the time the verification was performed. The means by which a phone number is verified is context-specific, and dependent upon the trust framework or contractual agreements within which the parties are operating. When true, the phone_number Claim MUST be in E.164 format and any extensions MUST be represented in RFC 3966 format.-  , userinfoResponsePicture :: Maybe Text -- ^ "picture" - URL of the End-User&#39;s profile picture. This URL MUST refer to an image file (for example, a PNG, JPEG, or GIF image file), rather than to a Web page containing an image. Note that this URL SHOULD specifically reference a profile photo of the End-User suitable for displaying when describing the End-User, rather than an arbitrary photo taken by the End-User.-  , userinfoResponsePreferredUsername :: Maybe Text -- ^ "preferred_username" - Non-unique shorthand name by which the End-User wishes to be referred to at the RP, such as janedoe or j.doe. This value MAY be any valid JSON string including special characters such as @, /, or whitespace.-  , userinfoResponseProfile :: Maybe Text -- ^ "profile" - URL of the End-User&#39;s profile page. The contents of this Web page SHOULD be about the End-User.-  , userinfoResponseSub :: Maybe Text -- ^ "sub" - Subject - Identifier for the End-User at the IssuerURL.-  , userinfoResponseUpdatedAt :: Maybe Integer -- ^ "updated_at" - Time the End-User&#39;s information was last updated. Its value is a JSON number representing the number of seconds from 1970-01-01T0:0:0Z as measured in UTC until the date/time.-  , userinfoResponseWebsite :: Maybe Text -- ^ "website" - URL of the End-User&#39;s Web page or blog. This Web page SHOULD contain information published by the End-User or an organization that the End-User is affiliated with.-  , userinfoResponseZoneinfo :: Maybe Text -- ^ "zoneinfo" - String from zoneinfo [zoneinfo] time zone database representing the End-User&#39;s time zone. For example, Europe/Paris or America/Los_Angeles.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON UserinfoResponse-instance A.FromJSON UserinfoResponse where-  parseJSON = A.withObject "UserinfoResponse" $ \o ->-    UserinfoResponse-      <$> (o .:? "birthdate")-      <*> (o .:? "email")-      <*> (o .:? "email_verified")-      <*> (o .:? "family_name")-      <*> (o .:? "gender")-      <*> (o .:? "given_name")-      <*> (o .:? "locale")-      <*> (o .:? "middle_name")-      <*> (o .:? "name")-      <*> (o .:? "nickname")-      <*> (o .:? "phone_number")-      <*> (o .:? "phone_number_verified")-      <*> (o .:? "picture")-      <*> (o .:? "preferred_username")-      <*> (o .:? "profile")-      <*> (o .:? "sub")-      <*> (o .:? "updated_at")-      <*> (o .:? "website")-      <*> (o .:? "zoneinfo")---- | ToJSON UserinfoResponse-instance A.ToJSON UserinfoResponse where-  toJSON UserinfoResponse {..} =-   _omitNulls-      [ "birthdate" .= userinfoResponseBirthdate-      , "email" .= userinfoResponseEmail-      , "email_verified" .= userinfoResponseEmailVerified-      , "family_name" .= userinfoResponseFamilyName-      , "gender" .= userinfoResponseGender-      , "given_name" .= userinfoResponseGivenName-      , "locale" .= userinfoResponseLocale-      , "middle_name" .= userinfoResponseMiddleName-      , "name" .= userinfoResponseName-      , "nickname" .= userinfoResponseNickname-      , "phone_number" .= userinfoResponsePhoneNumber-      , "phone_number_verified" .= userinfoResponsePhoneNumberVerified-      , "picture" .= userinfoResponsePicture-      , "preferred_username" .= userinfoResponsePreferredUsername-      , "profile" .= userinfoResponseProfile-      , "sub" .= userinfoResponseSub-      , "updated_at" .= userinfoResponseUpdatedAt-      , "website" .= userinfoResponseWebsite-      , "zoneinfo" .= userinfoResponseZoneinfo-      ]----- | Construct a value of type 'UserinfoResponse' (by applying it's required fields, if any)-mkUserinfoResponse-  :: UserinfoResponse-mkUserinfoResponse =-  UserinfoResponse-  { userinfoResponseBirthdate = Nothing-  , userinfoResponseEmail = Nothing-  , userinfoResponseEmailVerified = Nothing-  , userinfoResponseFamilyName = Nothing-  , userinfoResponseGender = Nothing-  , userinfoResponseGivenName = Nothing-  , userinfoResponseLocale = Nothing-  , userinfoResponseMiddleName = Nothing-  , userinfoResponseName = Nothing-  , userinfoResponseNickname = Nothing-  , userinfoResponsePhoneNumber = Nothing-  , userinfoResponsePhoneNumberVerified = Nothing-  , userinfoResponsePicture = Nothing-  , userinfoResponsePreferredUsername = Nothing-  , userinfoResponseProfile = Nothing-  , userinfoResponseSub = Nothing-  , userinfoResponseUpdatedAt = Nothing-  , userinfoResponseWebsite = Nothing-  , userinfoResponseZoneinfo = Nothing-  }---- ** Version--- | Version-data Version = Version-  { versionVersion :: Maybe Text -- ^ "version" - Version is the service&#39;s version.-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON Version-instance A.FromJSON Version where-  parseJSON = A.withObject "Version" $ \o ->-    Version-      <$> (o .:? "version")---- | ToJSON Version-instance A.ToJSON Version where-  toJSON Version {..} =-   _omitNulls-      [ "version" .= versionVersion-      ]----- | Construct a value of type 'Version' (by applying it's required fields, if any)-mkVersion-  :: Version-mkVersion =-  Version-  { versionVersion = Nothing-  }---- ** Volume--- | Volume--- Volume volume-data Volume = Volume-  { volumeCreatedAt :: Maybe Text -- ^ "CreatedAt" - Date/Time the volume was created.-  , volumeDriver :: Text -- ^ /Required/ "Driver" - Name of the volume driver used by the volume.-  , volumeLabels :: (Map.Map String Text) -- ^ /Required/ "Labels" - User-defined key/value metadata.-  , volumeMountpoint :: Text -- ^ /Required/ "Mountpoint" - Mount path of the volume on the host.-  , volumeName :: Text -- ^ /Required/ "Name" - Name of the volume.-  , volumeOptions :: (Map.Map String Text) -- ^ /Required/ "Options" - The driver specific options used when creating the volume.-  , volumeScope :: Text -- ^ /Required/ "Scope" - The level at which the volume exists. Either &#x60;global&#x60; for cluster-wide, or &#x60;local&#x60; for machine level.-  , volumeStatus :: Maybe A.Value -- ^ "Status" - Low-level details about the volume, provided by the volume driver. Details are returned as a map with key/value pairs: &#x60;{\&quot;key\&quot;:\&quot;value\&quot;,\&quot;key2\&quot;:\&quot;value2\&quot;}&#x60;.  The &#x60;Status&#x60; field is optional, and is omitted if the volume driver does not support this feature.-  , volumeUsageData :: Maybe VolumeUsageData -- ^ "UsageData"-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON Volume-instance A.FromJSON Volume where-  parseJSON = A.withObject "Volume" $ \o ->-    Volume-      <$> (o .:? "CreatedAt")-      <*> (o .:  "Driver")-      <*> (o .:  "Labels")-      <*> (o .:  "Mountpoint")-      <*> (o .:  "Name")-      <*> (o .:  "Options")-      <*> (o .:  "Scope")-      <*> (o .:? "Status")-      <*> (o .:? "UsageData")---- | ToJSON Volume-instance A.ToJSON Volume where-  toJSON Volume {..} =-   _omitNulls-      [ "CreatedAt" .= volumeCreatedAt-      , "Driver" .= volumeDriver-      , "Labels" .= volumeLabels-      , "Mountpoint" .= volumeMountpoint-      , "Name" .= volumeName-      , "Options" .= volumeOptions-      , "Scope" .= volumeScope-      , "Status" .= volumeStatus-      , "UsageData" .= volumeUsageData-      ]----- | Construct a value of type 'Volume' (by applying it's required fields, if any)-mkVolume-  :: Text -- ^ 'volumeDriver': Name of the volume driver used by the volume.-  -> (Map.Map String Text) -- ^ 'volumeLabels': User-defined key/value metadata.-  -> Text -- ^ 'volumeMountpoint': Mount path of the volume on the host.-  -> Text -- ^ 'volumeName': Name of the volume.-  -> (Map.Map String Text) -- ^ 'volumeOptions': The driver specific options used when creating the volume.-  -> Text -- ^ 'volumeScope': The level at which the volume exists. Either `global` for cluster-wide, or `local` for machine level.-  -> Volume-mkVolume volumeDriver volumeLabels volumeMountpoint volumeName volumeOptions volumeScope =-  Volume-  { volumeCreatedAt = Nothing-  , volumeDriver-  , volumeLabels-  , volumeMountpoint-  , volumeName-  , volumeOptions-  , volumeScope-  , volumeStatus = Nothing-  , volumeUsageData = Nothing-  }---- ** VolumeUsageData--- | VolumeUsageData--- VolumeUsageData Usage details about the volume. This information is used by the `GET /system/df` endpoint, and omitted in other endpoints.-data VolumeUsageData = VolumeUsageData-  { volumeUsageDataRefCount :: Integer -- ^ /Required/ "RefCount" - The number of containers referencing this volume. This field is set to &#x60;-1&#x60; if the reference-count is not available.-  , volumeUsageDataSize :: Integer -- ^ /Required/ "Size" - Amount of disk space used by the volume (in bytes). This information is only available for volumes created with the &#x60;\&quot;local\&quot;&#x60; volume driver. For volumes created with other volume drivers, this field is set to &#x60;-1&#x60; (\&quot;not available\&quot;)-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON VolumeUsageData-instance A.FromJSON VolumeUsageData where-  parseJSON = A.withObject "VolumeUsageData" $ \o ->-    VolumeUsageData-      <$> (o .:  "RefCount")-      <*> (o .:  "Size")---- | ToJSON VolumeUsageData-instance A.ToJSON VolumeUsageData where-  toJSON VolumeUsageData {..} =-   _omitNulls-      [ "RefCount" .= volumeUsageDataRefCount-      , "Size" .= volumeUsageDataSize-      ]----- | Construct a value of type 'VolumeUsageData' (by applying it's required fields, if any)-mkVolumeUsageData-  :: Integer -- ^ 'volumeUsageDataRefCount': The number of containers referencing this volume. This field is set to `-1` if the reference-count is not available.-  -> Integer -- ^ 'volumeUsageDataSize': Amount of disk space used by the volume (in bytes). This information is only available for volumes created with the `\"local\"` volume driver. For volumes created with other volume drivers, this field is set to `-1` (\"not available\")-  -> VolumeUsageData-mkVolumeUsageData volumeUsageDataRefCount volumeUsageDataSize =-  VolumeUsageData-  { volumeUsageDataRefCount-  , volumeUsageDataSize-  }---- ** WellKnown--- | WellKnown--- WellKnown represents important OpenID Connect discovery metadata--- --- It includes links to several endpoints (e.g. /oauth2/token) and exposes information on supported signature algorithms among others.-data WellKnown = WellKnown-  { wellKnownAuthorizationEndpoint :: Text -- ^ /Required/ "authorization_endpoint" - URL of the OP&#39;s OAuth 2.0 Authorization Endpoint.-  , wellKnownBackchannelLogoutSessionSupported :: Maybe Bool -- ^ "backchannel_logout_session_supported" - Boolean value specifying whether the OP can pass a sid (session ID) Claim in the Logout Token to identify the RP session with the OP. If supported, the sid Claim is also included in ID Tokens issued by the OP-  , wellKnownBackchannelLogoutSupported :: Maybe Bool -- ^ "backchannel_logout_supported" - Boolean value specifying whether the OP supports back-channel logout, with true indicating support.-  , wellKnownClaimsParameterSupported :: Maybe Bool -- ^ "claims_parameter_supported" - Boolean value specifying whether the OP supports use of the claims parameter, with true indicating support.-  , wellKnownClaimsSupported :: Maybe [Text] -- ^ "claims_supported" - JSON array containing a list of the Claim Names of the Claims that the OpenID Provider MAY be able to supply values for. Note that for privacy or other reasons, this might not be an exhaustive list.-  , wellKnownEndSessionEndpoint :: Maybe Text -- ^ "end_session_endpoint" - URL at the OP to which an RP can perform a redirect to request that the End-User be logged out at the OP.-  , wellKnownFrontchannelLogoutSessionSupported :: Maybe Bool -- ^ "frontchannel_logout_session_supported" - Boolean value specifying whether the OP can pass iss (issuer) and sid (session ID) query parameters to identify the RP session with the OP when the frontchannel_logout_uri is used. If supported, the sid Claim is also included in ID Tokens issued by the OP.-  , wellKnownFrontchannelLogoutSupported :: Maybe Bool -- ^ "frontchannel_logout_supported" - Boolean value specifying whether the OP supports HTTP-based logout, with true indicating support.-  , wellKnownGrantTypesSupported :: Maybe [Text] -- ^ "grant_types_supported" - JSON array containing a list of the OAuth 2.0 Grant Type values that this OP supports.-  , wellKnownIdTokenSigningAlgValuesSupported :: [Text] -- ^ /Required/ "id_token_signing_alg_values_supported" - JSON array containing a list of the JWS signing algorithms (alg values) supported by the OP for the ID Token to encode the Claims in a JWT.-  , wellKnownIssuer :: Text -- ^ /Required/ "issuer" - URL using the https scheme with no query or fragment component that the OP asserts as its IssuerURL Identifier. If IssuerURL discovery is supported , this value MUST be identical to the issuer value returned by WebFinger. This also MUST be identical to the iss Claim value in ID Tokens issued from this IssuerURL.-  , wellKnownJwksUri :: Text -- ^ /Required/ "jwks_uri" - URL of the OP&#39;s JSON Web Key Set [JWK] document. This contains the signing key(s) the RP uses to validate signatures from the OP. The JWK Set MAY also contain the Server&#39;s encryption key(s), which are used by RPs to encrypt requests to the Server. When both signing and encryption keys are made available, a use (Key Use) parameter value is REQUIRED for all keys in the referenced JWK Set to indicate each key&#39;s intended usage. Although some algorithms allow the same key to be used for both signatures and encryption, doing so is NOT RECOMMENDED, as it is less secure. The JWK x5c parameter MAY be used to provide X.509 representations of keys provided. When used, the bare key values MUST still be present and MUST match those in the certificate.-  , wellKnownRegistrationEndpoint :: Maybe Text -- ^ "registration_endpoint" - URL of the OP&#39;s Dynamic Client Registration Endpoint.-  , wellKnownRequestObjectSigningAlgValuesSupported :: Maybe [Text] -- ^ "request_object_signing_alg_values_supported" - JSON array containing a list of the JWS signing algorithms (alg values) supported by the OP for Request Objects, which are described in Section 6.1 of OpenID Connect Core 1.0 [OpenID.Core]. These algorithms are used both when the Request Object is passed by value (using the request parameter) and when it is passed by reference (using the request_uri parameter).-  , wellKnownRequestParameterSupported :: Maybe Bool -- ^ "request_parameter_supported" - Boolean value specifying whether the OP supports use of the request parameter, with true indicating support.-  , wellKnownRequestUriParameterSupported :: Maybe Bool -- ^ "request_uri_parameter_supported" - Boolean value specifying whether the OP supports use of the request_uri parameter, with true indicating support.-  , wellKnownRequireRequestUriRegistration :: Maybe Bool -- ^ "require_request_uri_registration" - Boolean value specifying whether the OP requires any request_uri values used to be pre-registered using the request_uris registration parameter.-  , wellKnownResponseModesSupported :: Maybe [Text] -- ^ "response_modes_supported" - JSON array containing a list of the OAuth 2.0 response_mode values that this OP supports.-  , wellKnownResponseTypesSupported :: [Text] -- ^ /Required/ "response_types_supported" - JSON array containing a list of the OAuth 2.0 response_type values that this OP supports. Dynamic OpenID Providers MUST support the code, id_token, and the token id_token Response Type values.-  , wellKnownRevocationEndpoint :: Maybe Text -- ^ "revocation_endpoint" - URL of the authorization server&#39;s OAuth 2.0 revocation endpoint.-  , wellKnownScopesSupported :: Maybe [Text] -- ^ "scopes_supported" - SON array containing a list of the OAuth 2.0 [RFC6749] scope values that this server supports. The server MUST support the openid scope value. Servers MAY choose not to advertise some supported scope values even when this parameter is used-  , wellKnownSubjectTypesSupported :: [Text] -- ^ /Required/ "subject_types_supported" - JSON array containing a list of the Subject Identifier types that this OP supports. Valid types include pairwise and public.-  , wellKnownTokenEndpoint :: Text -- ^ /Required/ "token_endpoint" - URL of the OP&#39;s OAuth 2.0 Token Endpoint-  , wellKnownTokenEndpointAuthMethodsSupported :: Maybe [Text] -- ^ "token_endpoint_auth_methods_supported" - JSON array containing a list of Client Authentication methods supported by this Token Endpoint. The options are client_secret_post, client_secret_basic, client_secret_jwt, and private_key_jwt, as described in Section 9 of OpenID Connect Core 1.0-  , wellKnownUserinfoEndpoint :: Maybe Text -- ^ "userinfo_endpoint" - URL of the OP&#39;s UserInfo Endpoint.-  , wellKnownUserinfoSigningAlgValuesSupported :: Maybe [Text] -- ^ "userinfo_signing_alg_values_supported" - JSON array containing a list of the JWS [JWS] signing algorithms (alg values) [JWA] supported by the UserInfo Endpoint to encode the Claims in a JWT [JWT].-  } deriving (P.Show, P.Eq, P.Typeable)---- | FromJSON WellKnown-instance A.FromJSON WellKnown where-  parseJSON = A.withObject "WellKnown" $ \o ->-    WellKnown-      <$> (o .:  "authorization_endpoint")-      <*> (o .:? "backchannel_logout_session_supported")-      <*> (o .:? "backchannel_logout_supported")-      <*> (o .:? "claims_parameter_supported")-      <*> (o .:? "claims_supported")-      <*> (o .:? "end_session_endpoint")-      <*> (o .:? "frontchannel_logout_session_supported")-      <*> (o .:? "frontchannel_logout_supported")-      <*> (o .:? "grant_types_supported")-      <*> (o .:  "id_token_signing_alg_values_supported")-      <*> (o .:  "issuer")-      <*> (o .:  "jwks_uri")-      <*> (o .:? "registration_endpoint")-      <*> (o .:? "request_object_signing_alg_values_supported")-      <*> (o .:? "request_parameter_supported")-      <*> (o .:? "request_uri_parameter_supported")-      <*> (o .:? "require_request_uri_registration")-      <*> (o .:? "response_modes_supported")-      <*> (o .:  "response_types_supported")-      <*> (o .:? "revocation_endpoint")-      <*> (o .:? "scopes_supported")-      <*> (o .:  "subject_types_supported")-      <*> (o .:  "token_endpoint")-      <*> (o .:? "token_endpoint_auth_methods_supported")-      <*> (o .:? "userinfo_endpoint")-      <*> (o .:? "userinfo_signing_alg_values_supported")---- | ToJSON WellKnown-instance A.ToJSON WellKnown where-  toJSON WellKnown {..} =-   _omitNulls-      [ "authorization_endpoint" .= wellKnownAuthorizationEndpoint-      , "backchannel_logout_session_supported" .= wellKnownBackchannelLogoutSessionSupported-      , "backchannel_logout_supported" .= wellKnownBackchannelLogoutSupported-      , "claims_parameter_supported" .= wellKnownClaimsParameterSupported-      , "claims_supported" .= wellKnownClaimsSupported-      , "end_session_endpoint" .= wellKnownEndSessionEndpoint-      , "frontchannel_logout_session_supported" .= wellKnownFrontchannelLogoutSessionSupported-      , "frontchannel_logout_supported" .= wellKnownFrontchannelLogoutSupported-      , "grant_types_supported" .= wellKnownGrantTypesSupported-      , "id_token_signing_alg_values_supported" .= wellKnownIdTokenSigningAlgValuesSupported-      , "issuer" .= wellKnownIssuer-      , "jwks_uri" .= wellKnownJwksUri-      , "registration_endpoint" .= wellKnownRegistrationEndpoint-      , "request_object_signing_alg_values_supported" .= wellKnownRequestObjectSigningAlgValuesSupported-      , "request_parameter_supported" .= wellKnownRequestParameterSupported-      , "request_uri_parameter_supported" .= wellKnownRequestUriParameterSupported-      , "require_request_uri_registration" .= wellKnownRequireRequestUriRegistration-      , "response_modes_supported" .= wellKnownResponseModesSupported-      , "response_types_supported" .= wellKnownResponseTypesSupported-      , "revocation_endpoint" .= wellKnownRevocationEndpoint-      , "scopes_supported" .= wellKnownScopesSupported-      , "subject_types_supported" .= wellKnownSubjectTypesSupported-      , "token_endpoint" .= wellKnownTokenEndpoint-      , "token_endpoint_auth_methods_supported" .= wellKnownTokenEndpointAuthMethodsSupported-      , "userinfo_endpoint" .= wellKnownUserinfoEndpoint-      , "userinfo_signing_alg_values_supported" .= wellKnownUserinfoSigningAlgValuesSupported-      ]----- | Construct a value of type 'WellKnown' (by applying it's required fields, if any)-mkWellKnown-  :: Text -- ^ 'wellKnownAuthorizationEndpoint': URL of the OP's OAuth 2.0 Authorization Endpoint.-  -> [Text] -- ^ 'wellKnownIdTokenSigningAlgValuesSupported': JSON array containing a list of the JWS signing algorithms (alg values) supported by the OP for the ID Token to encode the Claims in a JWT.-  -> Text -- ^ 'wellKnownIssuer': URL using the https scheme with no query or fragment component that the OP asserts as its IssuerURL Identifier. If IssuerURL discovery is supported , this value MUST be identical to the issuer value returned by WebFinger. This also MUST be identical to the iss Claim value in ID Tokens issued from this IssuerURL.-  -> Text -- ^ 'wellKnownJwksUri': URL of the OP's JSON Web Key Set [JWK] document. This contains the signing key(s) the RP uses to validate signatures from the OP. The JWK Set MAY also contain the Server's encryption key(s), which are used by RPs to encrypt requests to the Server. When both signing and encryption keys are made available, a use (Key Use) parameter value is REQUIRED for all keys in the referenced JWK Set to indicate each key's intended usage. Although some algorithms allow the same key to be used for both signatures and encryption, doing so is NOT RECOMMENDED, as it is less secure. The JWK x5c parameter MAY be used to provide X.509 representations of keys provided. When used, the bare key values MUST still be present and MUST match those in the certificate.-  -> [Text] -- ^ 'wellKnownResponseTypesSupported': JSON array containing a list of the OAuth 2.0 response_type values that this OP supports. Dynamic OpenID Providers MUST support the code, id_token, and the token id_token Response Type values.-  -> [Text] -- ^ 'wellKnownSubjectTypesSupported': JSON array containing a list of the Subject Identifier types that this OP supports. Valid types include pairwise and public.-  -> Text -- ^ 'wellKnownTokenEndpoint': URL of the OP's OAuth 2.0 Token Endpoint-  -> WellKnown-mkWellKnown wellKnownAuthorizationEndpoint wellKnownIdTokenSigningAlgValuesSupported wellKnownIssuer wellKnownJwksUri wellKnownResponseTypesSupported wellKnownSubjectTypesSupported wellKnownTokenEndpoint =-  WellKnown-  { wellKnownAuthorizationEndpoint-  , wellKnownBackchannelLogoutSessionSupported = Nothing-  , wellKnownBackchannelLogoutSupported = Nothing-  , wellKnownClaimsParameterSupported = Nothing-  , wellKnownClaimsSupported = Nothing-  , wellKnownEndSessionEndpoint = Nothing-  , wellKnownFrontchannelLogoutSessionSupported = Nothing-  , wellKnownFrontchannelLogoutSupported = Nothing-  , wellKnownGrantTypesSupported = Nothing-  , wellKnownIdTokenSigningAlgValuesSupported-  , wellKnownIssuer-  , wellKnownJwksUri-  , wellKnownRegistrationEndpoint = Nothing-  , wellKnownRequestObjectSigningAlgValuesSupported = Nothing-  , wellKnownRequestParameterSupported = Nothing-  , wellKnownRequestUriParameterSupported = Nothing-  , wellKnownRequireRequestUriRegistration = Nothing-  , wellKnownResponseModesSupported = Nothing-  , wellKnownResponseTypesSupported-  , wellKnownRevocationEndpoint = Nothing-  , wellKnownScopesSupported = Nothing-  , wellKnownSubjectTypesSupported-  , wellKnownTokenEndpoint-  , wellKnownTokenEndpointAuthMethodsSupported = Nothing-  , wellKnownUserinfoEndpoint = Nothing-  , wellKnownUserinfoSigningAlgValuesSupported = Nothing-  }------- * Auth Methods---- ** AuthBasicBasic-data AuthBasicBasic =-  AuthBasicBasic B.ByteString B.ByteString -- ^ username password-  deriving (P.Eq, P.Show, P.Typeable)--instance AuthMethod AuthBasicBasic where-  applyAuthMethod _ a@(AuthBasicBasic user pw) req =-    P.pure $-    if (P.typeOf a `P.elem` rAuthTypes req)-      then req `setHeader` toHeader ("Authorization", T.decodeUtf8 cred)-           & L.over rAuthTypesL (P.filter (/= P.typeOf a))-      else req-    where cred = BC.append "Basic " (B64.encode $ BC.concat [ user, ":", pw ])---- ** AuthOAuthOauth2-data AuthOAuthOauth2 =-  AuthOAuthOauth2 Text -- ^ secret-  deriving (P.Eq, P.Show, P.Typeable)--instance AuthMethod AuthOAuthOauth2 where-  applyAuthMethod _ a@(AuthOAuthOauth2 secret) req =-    P.pure $-    if (P.typeOf a `P.elem` rAuthTypes req)-      then req `setHeader` toHeader ("Authorization", "Bearer " <> secret)-           & L.over rAuthTypesL (P.filter (/= P.typeOf a))-      else req--

@@ -1,1434 +0,0 @@-{--   ORY Hydra--   Welcome to the ORY Hydra HTTP API documentation. You will find documentation for all HTTP APIs here.--   OpenAPI Version: 3.0.1-   ORY Hydra API version: latest-   Generated by OpenAPI Generator (https://openapi-generator.tech)--}--{-|-Module : ORYHydra.Lens--}--{-# LANGUAGE KindSignatures #-}-{-# LANGUAGE NamedFieldPuns #-}-{-# LANGUAGE RankNTypes #-}-{-# LANGUAGE RecordWildCards #-}-{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}--module ORYHydra.ModelLens where--import qualified Data.Aeson as A-import qualified Data.ByteString.Lazy as BL-import qualified Data.Data as P (Data, Typeable)-import qualified Data.Map as Map-import qualified Data.Set as Set-import qualified Data.Time as TI--import Data.Text (Text)--import Prelude (($), (.),(<$>),(<*>),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)-import qualified Prelude as P--import ORYHydra.Model-import ORYHydra.Core----- * AcceptConsentRequest---- | 'acceptConsentRequestGrantAccessTokenAudience' Lens-acceptConsentRequestGrantAccessTokenAudienceL :: Lens_' AcceptConsentRequest (Maybe [Text])-acceptConsentRequestGrantAccessTokenAudienceL f AcceptConsentRequest{..} = (\acceptConsentRequestGrantAccessTokenAudience -> AcceptConsentRequest { acceptConsentRequestGrantAccessTokenAudience, ..} ) <$> f acceptConsentRequestGrantAccessTokenAudience-{-# INLINE acceptConsentRequestGrantAccessTokenAudienceL #-}---- | 'acceptConsentRequestGrantScope' Lens-acceptConsentRequestGrantScopeL :: Lens_' AcceptConsentRequest (Maybe [Text])-acceptConsentRequestGrantScopeL f AcceptConsentRequest{..} = (\acceptConsentRequestGrantScope -> AcceptConsentRequest { acceptConsentRequestGrantScope, ..} ) <$> f acceptConsentRequestGrantScope-{-# INLINE acceptConsentRequestGrantScopeL #-}---- | 'acceptConsentRequestHandledAt' Lens-acceptConsentRequestHandledAtL :: Lens_' AcceptConsentRequest (Maybe DateTime)-acceptConsentRequestHandledAtL f AcceptConsentRequest{..} = (\acceptConsentRequestHandledAt -> AcceptConsentRequest { acceptConsentRequestHandledAt, ..} ) <$> f acceptConsentRequestHandledAt-{-# INLINE acceptConsentRequestHandledAtL #-}---- | 'acceptConsentRequestRemember' Lens-acceptConsentRequestRememberL :: Lens_' AcceptConsentRequest (Maybe Bool)-acceptConsentRequestRememberL f AcceptConsentRequest{..} = (\acceptConsentRequestRemember -> AcceptConsentRequest { acceptConsentRequestRemember, ..} ) <$> f acceptConsentRequestRemember-{-# INLINE acceptConsentRequestRememberL #-}---- | 'acceptConsentRequestRememberFor' Lens-acceptConsentRequestRememberForL :: Lens_' AcceptConsentRequest (Maybe Integer)-acceptConsentRequestRememberForL f AcceptConsentRequest{..} = (\acceptConsentRequestRememberFor -> AcceptConsentRequest { acceptConsentRequestRememberFor, ..} ) <$> f acceptConsentRequestRememberFor-{-# INLINE acceptConsentRequestRememberForL #-}---- | 'acceptConsentRequestSession' Lens-acceptConsentRequestSessionL :: Lens_' AcceptConsentRequest (Maybe ConsentRequestSession)-acceptConsentRequestSessionL f AcceptConsentRequest{..} = (\acceptConsentRequestSession -> AcceptConsentRequest { acceptConsentRequestSession, ..} ) <$> f acceptConsentRequestSession-{-# INLINE acceptConsentRequestSessionL #-}------ * AcceptLoginRequest---- | 'acceptLoginRequestAcr' Lens-acceptLoginRequestAcrL :: Lens_' AcceptLoginRequest (Maybe Text)-acceptLoginRequestAcrL f AcceptLoginRequest{..} = (\acceptLoginRequestAcr -> AcceptLoginRequest { acceptLoginRequestAcr, ..} ) <$> f acceptLoginRequestAcr-{-# INLINE acceptLoginRequestAcrL #-}---- | 'acceptLoginRequestContext' Lens-acceptLoginRequestContextL :: Lens_' AcceptLoginRequest (Maybe A.Value)-acceptLoginRequestContextL f AcceptLoginRequest{..} = (\acceptLoginRequestContext -> AcceptLoginRequest { acceptLoginRequestContext, ..} ) <$> f acceptLoginRequestContext-{-# INLINE acceptLoginRequestContextL #-}---- | 'acceptLoginRequestForceSubjectIdentifier' Lens-acceptLoginRequestForceSubjectIdentifierL :: Lens_' AcceptLoginRequest (Maybe Text)-acceptLoginRequestForceSubjectIdentifierL f AcceptLoginRequest{..} = (\acceptLoginRequestForceSubjectIdentifier -> AcceptLoginRequest { acceptLoginRequestForceSubjectIdentifier, ..} ) <$> f acceptLoginRequestForceSubjectIdentifier-{-# INLINE acceptLoginRequestForceSubjectIdentifierL #-}---- | 'acceptLoginRequestRemember' Lens-acceptLoginRequestRememberL :: Lens_' AcceptLoginRequest (Maybe Bool)-acceptLoginRequestRememberL f AcceptLoginRequest{..} = (\acceptLoginRequestRemember -> AcceptLoginRequest { acceptLoginRequestRemember, ..} ) <$> f acceptLoginRequestRemember-{-# INLINE acceptLoginRequestRememberL #-}---- | 'acceptLoginRequestRememberFor' Lens-acceptLoginRequestRememberForL :: Lens_' AcceptLoginRequest (Maybe Integer)-acceptLoginRequestRememberForL f AcceptLoginRequest{..} = (\acceptLoginRequestRememberFor -> AcceptLoginRequest { acceptLoginRequestRememberFor, ..} ) <$> f acceptLoginRequestRememberFor-{-# INLINE acceptLoginRequestRememberForL #-}---- | 'acceptLoginRequestSubject' Lens-acceptLoginRequestSubjectL :: Lens_' AcceptLoginRequest (Text)-acceptLoginRequestSubjectL f AcceptLoginRequest{..} = (\acceptLoginRequestSubject -> AcceptLoginRequest { acceptLoginRequestSubject, ..} ) <$> f acceptLoginRequestSubject-{-# INLINE acceptLoginRequestSubjectL #-}------ * CompletedRequest---- | 'completedRequestRedirectTo' Lens-completedRequestRedirectToL :: Lens_' CompletedRequest (Text)-completedRequestRedirectToL f CompletedRequest{..} = (\completedRequestRedirectTo -> CompletedRequest { completedRequestRedirectTo, ..} ) <$> f completedRequestRedirectTo-{-# INLINE completedRequestRedirectToL #-}------ * ConsentRequest---- | 'consentRequestAcr' Lens-consentRequestAcrL :: Lens_' ConsentRequest (Maybe Text)-consentRequestAcrL f ConsentRequest{..} = (\consentRequestAcr -> ConsentRequest { consentRequestAcr, ..} ) <$> f consentRequestAcr-{-# INLINE consentRequestAcrL #-}---- | 'consentRequestChallenge' Lens-consentRequestChallengeL :: Lens_' ConsentRequest (Text)-consentRequestChallengeL f ConsentRequest{..} = (\consentRequestChallenge -> ConsentRequest { consentRequestChallenge, ..} ) <$> f consentRequestChallenge-{-# INLINE consentRequestChallengeL #-}---- | 'consentRequestClient' Lens-consentRequestClientL :: Lens_' ConsentRequest (Maybe OAuth2Client)-consentRequestClientL f ConsentRequest{..} = (\consentRequestClient -> ConsentRequest { consentRequestClient, ..} ) <$> f consentRequestClient-{-# INLINE consentRequestClientL #-}---- | 'consentRequestContext' Lens-consentRequestContextL :: Lens_' ConsentRequest (Maybe A.Value)-consentRequestContextL f ConsentRequest{..} = (\consentRequestContext -> ConsentRequest { consentRequestContext, ..} ) <$> f consentRequestContext-{-# INLINE consentRequestContextL #-}---- | 'consentRequestLoginChallenge' Lens-consentRequestLoginChallengeL :: Lens_' ConsentRequest (Maybe Text)-consentRequestLoginChallengeL f ConsentRequest{..} = (\consentRequestLoginChallenge -> ConsentRequest { consentRequestLoginChallenge, ..} ) <$> f consentRequestLoginChallenge-{-# INLINE consentRequestLoginChallengeL #-}---- | 'consentRequestLoginSessionId' Lens-consentRequestLoginSessionIdL :: Lens_' ConsentRequest (Maybe Text)-consentRequestLoginSessionIdL f ConsentRequest{..} = (\consentRequestLoginSessionId -> ConsentRequest { consentRequestLoginSessionId, ..} ) <$> f consentRequestLoginSessionId-{-# INLINE consentRequestLoginSessionIdL #-}---- | 'consentRequestOidcContext' Lens-consentRequestOidcContextL :: Lens_' ConsentRequest (Maybe OpenIDConnectContext)-consentRequestOidcContextL f ConsentRequest{..} = (\consentRequestOidcContext -> ConsentRequest { consentRequestOidcContext, ..} ) <$> f consentRequestOidcContext-{-# INLINE consentRequestOidcContextL #-}---- | 'consentRequestRequestUrl' Lens-consentRequestRequestUrlL :: Lens_' ConsentRequest (Maybe Text)-consentRequestRequestUrlL f ConsentRequest{..} = (\consentRequestRequestUrl -> ConsentRequest { consentRequestRequestUrl, ..} ) <$> f consentRequestRequestUrl-{-# INLINE consentRequestRequestUrlL #-}---- | 'consentRequestRequestedAccessTokenAudience' Lens-consentRequestRequestedAccessTokenAudienceL :: Lens_' ConsentRequest (Maybe [Text])-consentRequestRequestedAccessTokenAudienceL f ConsentRequest{..} = (\consentRequestRequestedAccessTokenAudience -> ConsentRequest { consentRequestRequestedAccessTokenAudience, ..} ) <$> f consentRequestRequestedAccessTokenAudience-{-# INLINE consentRequestRequestedAccessTokenAudienceL #-}---- | 'consentRequestRequestedScope' Lens-consentRequestRequestedScopeL :: Lens_' ConsentRequest (Maybe [Text])-consentRequestRequestedScopeL f ConsentRequest{..} = (\consentRequestRequestedScope -> ConsentRequest { consentRequestRequestedScope, ..} ) <$> f consentRequestRequestedScope-{-# INLINE consentRequestRequestedScopeL #-}---- | 'consentRequestSkip' Lens-consentRequestSkipL :: Lens_' ConsentRequest (Maybe Bool)-consentRequestSkipL f ConsentRequest{..} = (\consentRequestSkip -> ConsentRequest { consentRequestSkip, ..} ) <$> f consentRequestSkip-{-# INLINE consentRequestSkipL #-}---- | 'consentRequestSubject' Lens-consentRequestSubjectL :: Lens_' ConsentRequest (Maybe Text)-consentRequestSubjectL f ConsentRequest{..} = (\consentRequestSubject -> ConsentRequest { consentRequestSubject, ..} ) <$> f consentRequestSubject-{-# INLINE consentRequestSubjectL #-}------ * ConsentRequestSession---- | 'consentRequestSessionAccessToken' Lens-consentRequestSessionAccessTokenL :: Lens_' ConsentRequestSession (Maybe A.Value)-consentRequestSessionAccessTokenL f ConsentRequestSession{..} = (\consentRequestSessionAccessToken -> ConsentRequestSession { consentRequestSessionAccessToken, ..} ) <$> f consentRequestSessionAccessToken-{-# INLINE consentRequestSessionAccessTokenL #-}---- | 'consentRequestSessionIdToken' Lens-consentRequestSessionIdTokenL :: Lens_' ConsentRequestSession (Maybe A.Value)-consentRequestSessionIdTokenL f ConsentRequestSession{..} = (\consentRequestSessionIdToken -> ConsentRequestSession { consentRequestSessionIdToken, ..} ) <$> f consentRequestSessionIdToken-{-# INLINE consentRequestSessionIdTokenL #-}------ * ContainerWaitOKBodyError---- | 'containerWaitOKBodyErrorMessage' Lens-containerWaitOKBodyErrorMessageL :: Lens_' ContainerWaitOKBodyError (Maybe Text)-containerWaitOKBodyErrorMessageL f ContainerWaitOKBodyError{..} = (\containerWaitOKBodyErrorMessage -> ContainerWaitOKBodyError { containerWaitOKBodyErrorMessage, ..} ) <$> f containerWaitOKBodyErrorMessage-{-# INLINE containerWaitOKBodyErrorMessageL #-}------ * FlushInactiveOAuth2TokensRequest---- | 'flushInactiveOAuth2TokensRequestNotAfter' Lens-flushInactiveOAuth2TokensRequestNotAfterL :: Lens_' FlushInactiveOAuth2TokensRequest (Maybe DateTime)-flushInactiveOAuth2TokensRequestNotAfterL f FlushInactiveOAuth2TokensRequest{..} = (\flushInactiveOAuth2TokensRequestNotAfter -> FlushInactiveOAuth2TokensRequest { flushInactiveOAuth2TokensRequestNotAfter, ..} ) <$> f flushInactiveOAuth2TokensRequestNotAfter-{-# INLINE flushInactiveOAuth2TokensRequestNotAfterL #-}------ * GenericError---- | 'genericErrorDebug' Lens-genericErrorDebugL :: Lens_' GenericError (Maybe Text)-genericErrorDebugL f GenericError{..} = (\genericErrorDebug -> GenericError { genericErrorDebug, ..} ) <$> f genericErrorDebug-{-# INLINE genericErrorDebugL #-}---- | 'genericErrorError' Lens-genericErrorErrorL :: Lens_' GenericError (Text)-genericErrorErrorL f GenericError{..} = (\genericErrorError -> GenericError { genericErrorError, ..} ) <$> f genericErrorError-{-# INLINE genericErrorErrorL #-}---- | 'genericErrorErrorDescription' Lens-genericErrorErrorDescriptionL :: Lens_' GenericError (Maybe Text)-genericErrorErrorDescriptionL f GenericError{..} = (\genericErrorErrorDescription -> GenericError { genericErrorErrorDescription, ..} ) <$> f genericErrorErrorDescription-{-# INLINE genericErrorErrorDescriptionL #-}---- | 'genericErrorStatusCode' Lens-genericErrorStatusCodeL :: Lens_' GenericError (Maybe Integer)-genericErrorStatusCodeL f GenericError{..} = (\genericErrorStatusCode -> GenericError { genericErrorStatusCode, ..} ) <$> f genericErrorStatusCode-{-# INLINE genericErrorStatusCodeL #-}------ * HealthNotReadyStatus---- | 'healthNotReadyStatusErrors' Lens-healthNotReadyStatusErrorsL :: Lens_' HealthNotReadyStatus (Maybe (Map.Map String Text))-healthNotReadyStatusErrorsL f HealthNotReadyStatus{..} = (\healthNotReadyStatusErrors -> HealthNotReadyStatus { healthNotReadyStatusErrors, ..} ) <$> f healthNotReadyStatusErrors-{-# INLINE healthNotReadyStatusErrorsL #-}------ * HealthStatus---- | 'healthStatusStatus' Lens-healthStatusStatusL :: Lens_' HealthStatus (Maybe Text)-healthStatusStatusL f HealthStatus{..} = (\healthStatusStatus -> HealthStatus { healthStatusStatus, ..} ) <$> f healthStatusStatus-{-# INLINE healthStatusStatusL #-}------ * JSONWebKey---- | 'jSONWebKeyAlg' Lens-jSONWebKeyAlgL :: Lens_' JSONWebKey (Text)-jSONWebKeyAlgL f JSONWebKey{..} = (\jSONWebKeyAlg -> JSONWebKey { jSONWebKeyAlg, ..} ) <$> f jSONWebKeyAlg-{-# INLINE jSONWebKeyAlgL #-}---- | 'jSONWebKeyCrv' Lens-jSONWebKeyCrvL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyCrvL f JSONWebKey{..} = (\jSONWebKeyCrv -> JSONWebKey { jSONWebKeyCrv, ..} ) <$> f jSONWebKeyCrv-{-# INLINE jSONWebKeyCrvL #-}---- | 'jSONWebKeyD' Lens-jSONWebKeyDL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyDL f JSONWebKey{..} = (\jSONWebKeyD -> JSONWebKey { jSONWebKeyD, ..} ) <$> f jSONWebKeyD-{-# INLINE jSONWebKeyDL #-}---- | 'jSONWebKeyDp' Lens-jSONWebKeyDpL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyDpL f JSONWebKey{..} = (\jSONWebKeyDp -> JSONWebKey { jSONWebKeyDp, ..} ) <$> f jSONWebKeyDp-{-# INLINE jSONWebKeyDpL #-}---- | 'jSONWebKeyDq' Lens-jSONWebKeyDqL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyDqL f JSONWebKey{..} = (\jSONWebKeyDq -> JSONWebKey { jSONWebKeyDq, ..} ) <$> f jSONWebKeyDq-{-# INLINE jSONWebKeyDqL #-}---- | 'jSONWebKeyE' Lens-jSONWebKeyEL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyEL f JSONWebKey{..} = (\jSONWebKeyE -> JSONWebKey { jSONWebKeyE, ..} ) <$> f jSONWebKeyE-{-# INLINE jSONWebKeyEL #-}---- | 'jSONWebKeyK' Lens-jSONWebKeyKL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyKL f JSONWebKey{..} = (\jSONWebKeyK -> JSONWebKey { jSONWebKeyK, ..} ) <$> f jSONWebKeyK-{-# INLINE jSONWebKeyKL #-}---- | 'jSONWebKeyKid' Lens-jSONWebKeyKidL :: Lens_' JSONWebKey (Text)-jSONWebKeyKidL f JSONWebKey{..} = (\jSONWebKeyKid -> JSONWebKey { jSONWebKeyKid, ..} ) <$> f jSONWebKeyKid-{-# INLINE jSONWebKeyKidL #-}---- | 'jSONWebKeyKty' Lens-jSONWebKeyKtyL :: Lens_' JSONWebKey (Text)-jSONWebKeyKtyL f JSONWebKey{..} = (\jSONWebKeyKty -> JSONWebKey { jSONWebKeyKty, ..} ) <$> f jSONWebKeyKty-{-# INLINE jSONWebKeyKtyL #-}---- | 'jSONWebKeyN' Lens-jSONWebKeyNL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyNL f JSONWebKey{..} = (\jSONWebKeyN -> JSONWebKey { jSONWebKeyN, ..} ) <$> f jSONWebKeyN-{-# INLINE jSONWebKeyNL #-}---- | 'jSONWebKeyP' Lens-jSONWebKeyPL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyPL f JSONWebKey{..} = (\jSONWebKeyP -> JSONWebKey { jSONWebKeyP, ..} ) <$> f jSONWebKeyP-{-# INLINE jSONWebKeyPL #-}---- | 'jSONWebKeyQ' Lens-jSONWebKeyQL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyQL f JSONWebKey{..} = (\jSONWebKeyQ -> JSONWebKey { jSONWebKeyQ, ..} ) <$> f jSONWebKeyQ-{-# INLINE jSONWebKeyQL #-}---- | 'jSONWebKeyQi' Lens-jSONWebKeyQiL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyQiL f JSONWebKey{..} = (\jSONWebKeyQi -> JSONWebKey { jSONWebKeyQi, ..} ) <$> f jSONWebKeyQi-{-# INLINE jSONWebKeyQiL #-}---- | 'jSONWebKeyUse' Lens-jSONWebKeyUseL :: Lens_' JSONWebKey (Text)-jSONWebKeyUseL f JSONWebKey{..} = (\jSONWebKeyUse -> JSONWebKey { jSONWebKeyUse, ..} ) <$> f jSONWebKeyUse-{-# INLINE jSONWebKeyUseL #-}---- | 'jSONWebKeyX' Lens-jSONWebKeyXL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyXL f JSONWebKey{..} = (\jSONWebKeyX -> JSONWebKey { jSONWebKeyX, ..} ) <$> f jSONWebKeyX-{-# INLINE jSONWebKeyXL #-}---- | 'jSONWebKeyX5c' Lens-jSONWebKeyX5cL :: Lens_' JSONWebKey (Maybe [Text])-jSONWebKeyX5cL f JSONWebKey{..} = (\jSONWebKeyX5c -> JSONWebKey { jSONWebKeyX5c, ..} ) <$> f jSONWebKeyX5c-{-# INLINE jSONWebKeyX5cL #-}---- | 'jSONWebKeyY' Lens-jSONWebKeyYL :: Lens_' JSONWebKey (Maybe Text)-jSONWebKeyYL f JSONWebKey{..} = (\jSONWebKeyY -> JSONWebKey { jSONWebKeyY, ..} ) <$> f jSONWebKeyY-{-# INLINE jSONWebKeyYL #-}------ * JSONWebKeySet---- | 'jSONWebKeySetKeys' Lens-jSONWebKeySetKeysL :: Lens_' JSONWebKeySet (Maybe [JSONWebKey])-jSONWebKeySetKeysL f JSONWebKeySet{..} = (\jSONWebKeySetKeys -> JSONWebKeySet { jSONWebKeySetKeys, ..} ) <$> f jSONWebKeySetKeys-{-# INLINE jSONWebKeySetKeysL #-}------ * JsonWebKeySetGeneratorRequest---- | 'jsonWebKeySetGeneratorRequestAlg' Lens-jsonWebKeySetGeneratorRequestAlgL :: Lens_' JsonWebKeySetGeneratorRequest (Text)-jsonWebKeySetGeneratorRequestAlgL f JsonWebKeySetGeneratorRequest{..} = (\jsonWebKeySetGeneratorRequestAlg -> JsonWebKeySetGeneratorRequest { jsonWebKeySetGeneratorRequestAlg, ..} ) <$> f jsonWebKeySetGeneratorRequestAlg-{-# INLINE jsonWebKeySetGeneratorRequestAlgL #-}---- | 'jsonWebKeySetGeneratorRequestKid' Lens-jsonWebKeySetGeneratorRequestKidL :: Lens_' JsonWebKeySetGeneratorRequest (Text)-jsonWebKeySetGeneratorRequestKidL f JsonWebKeySetGeneratorRequest{..} = (\jsonWebKeySetGeneratorRequestKid -> JsonWebKeySetGeneratorRequest { jsonWebKeySetGeneratorRequestKid, ..} ) <$> f jsonWebKeySetGeneratorRequestKid-{-# INLINE jsonWebKeySetGeneratorRequestKidL #-}---- | 'jsonWebKeySetGeneratorRequestUse' Lens-jsonWebKeySetGeneratorRequestUseL :: Lens_' JsonWebKeySetGeneratorRequest (Text)-jsonWebKeySetGeneratorRequestUseL f JsonWebKeySetGeneratorRequest{..} = (\jsonWebKeySetGeneratorRequestUse -> JsonWebKeySetGeneratorRequest { jsonWebKeySetGeneratorRequestUse, ..} ) <$> f jsonWebKeySetGeneratorRequestUse-{-# INLINE jsonWebKeySetGeneratorRequestUseL #-}------ * LoginRequest---- | 'loginRequestChallenge' Lens-loginRequestChallengeL :: Lens_' LoginRequest (Text)-loginRequestChallengeL f LoginRequest{..} = (\loginRequestChallenge -> LoginRequest { loginRequestChallenge, ..} ) <$> f loginRequestChallenge-{-# INLINE loginRequestChallengeL #-}---- | 'loginRequestClient' Lens-loginRequestClientL :: Lens_' LoginRequest (OAuth2Client)-loginRequestClientL f LoginRequest{..} = (\loginRequestClient -> LoginRequest { loginRequestClient, ..} ) <$> f loginRequestClient-{-# INLINE loginRequestClientL #-}---- | 'loginRequestOidcContext' Lens-loginRequestOidcContextL :: Lens_' LoginRequest (Maybe OpenIDConnectContext)-loginRequestOidcContextL f LoginRequest{..} = (\loginRequestOidcContext -> LoginRequest { loginRequestOidcContext, ..} ) <$> f loginRequestOidcContext-{-# INLINE loginRequestOidcContextL #-}---- | 'loginRequestRequestUrl' Lens-loginRequestRequestUrlL :: Lens_' LoginRequest (Text)-loginRequestRequestUrlL f LoginRequest{..} = (\loginRequestRequestUrl -> LoginRequest { loginRequestRequestUrl, ..} ) <$> f loginRequestRequestUrl-{-# INLINE loginRequestRequestUrlL #-}---- | 'loginRequestRequestedAccessTokenAudience' Lens-loginRequestRequestedAccessTokenAudienceL :: Lens_' LoginRequest ([Text])-loginRequestRequestedAccessTokenAudienceL f LoginRequest{..} = (\loginRequestRequestedAccessTokenAudience -> LoginRequest { loginRequestRequestedAccessTokenAudience, ..} ) <$> f loginRequestRequestedAccessTokenAudience-{-# INLINE loginRequestRequestedAccessTokenAudienceL #-}---- | 'loginRequestRequestedScope' Lens-loginRequestRequestedScopeL :: Lens_' LoginRequest ([Text])-loginRequestRequestedScopeL f LoginRequest{..} = (\loginRequestRequestedScope -> LoginRequest { loginRequestRequestedScope, ..} ) <$> f loginRequestRequestedScope-{-# INLINE loginRequestRequestedScopeL #-}---- | 'loginRequestSessionId' Lens-loginRequestSessionIdL :: Lens_' LoginRequest (Maybe Text)-loginRequestSessionIdL f LoginRequest{..} = (\loginRequestSessionId -> LoginRequest { loginRequestSessionId, ..} ) <$> f loginRequestSessionId-{-# INLINE loginRequestSessionIdL #-}---- | 'loginRequestSkip' Lens-loginRequestSkipL :: Lens_' LoginRequest (Bool)-loginRequestSkipL f LoginRequest{..} = (\loginRequestSkip -> LoginRequest { loginRequestSkip, ..} ) <$> f loginRequestSkip-{-# INLINE loginRequestSkipL #-}---- | 'loginRequestSubject' Lens-loginRequestSubjectL :: Lens_' LoginRequest (Text)-loginRequestSubjectL f LoginRequest{..} = (\loginRequestSubject -> LoginRequest { loginRequestSubject, ..} ) <$> f loginRequestSubject-{-# INLINE loginRequestSubjectL #-}------ * LogoutRequest---- | 'logoutRequestRequestUrl' Lens-logoutRequestRequestUrlL :: Lens_' LogoutRequest (Maybe Text)-logoutRequestRequestUrlL f LogoutRequest{..} = (\logoutRequestRequestUrl -> LogoutRequest { logoutRequestRequestUrl, ..} ) <$> f logoutRequestRequestUrl-{-# INLINE logoutRequestRequestUrlL #-}---- | 'logoutRequestRpInitiated' Lens-logoutRequestRpInitiatedL :: Lens_' LogoutRequest (Maybe Bool)-logoutRequestRpInitiatedL f LogoutRequest{..} = (\logoutRequestRpInitiated -> LogoutRequest { logoutRequestRpInitiated, ..} ) <$> f logoutRequestRpInitiated-{-# INLINE logoutRequestRpInitiatedL #-}---- | 'logoutRequestSid' Lens-logoutRequestSidL :: Lens_' LogoutRequest (Maybe Text)-logoutRequestSidL f LogoutRequest{..} = (\logoutRequestSid -> LogoutRequest { logoutRequestSid, ..} ) <$> f logoutRequestSid-{-# INLINE logoutRequestSidL #-}---- | 'logoutRequestSubject' Lens-logoutRequestSubjectL :: Lens_' LogoutRequest (Maybe Text)-logoutRequestSubjectL f LogoutRequest{..} = (\logoutRequestSubject -> LogoutRequest { logoutRequestSubject, ..} ) <$> f logoutRequestSubject-{-# INLINE logoutRequestSubjectL #-}------ * OAuth2Client---- | 'oAuth2ClientAllowedCorsOrigins' Lens-oAuth2ClientAllowedCorsOriginsL :: Lens_' OAuth2Client (Maybe [Text])-oAuth2ClientAllowedCorsOriginsL f OAuth2Client{..} = (\oAuth2ClientAllowedCorsOrigins -> OAuth2Client { oAuth2ClientAllowedCorsOrigins, ..} ) <$> f oAuth2ClientAllowedCorsOrigins-{-# INLINE oAuth2ClientAllowedCorsOriginsL #-}---- | 'oAuth2ClientAudience' Lens-oAuth2ClientAudienceL :: Lens_' OAuth2Client (Maybe [Text])-oAuth2ClientAudienceL f OAuth2Client{..} = (\oAuth2ClientAudience -> OAuth2Client { oAuth2ClientAudience, ..} ) <$> f oAuth2ClientAudience-{-# INLINE oAuth2ClientAudienceL #-}---- | 'oAuth2ClientBackchannelLogoutSessionRequired' Lens-oAuth2ClientBackchannelLogoutSessionRequiredL :: Lens_' OAuth2Client (Maybe Bool)-oAuth2ClientBackchannelLogoutSessionRequiredL f OAuth2Client{..} = (\oAuth2ClientBackchannelLogoutSessionRequired -> OAuth2Client { oAuth2ClientBackchannelLogoutSessionRequired, ..} ) <$> f oAuth2ClientBackchannelLogoutSessionRequired-{-# INLINE oAuth2ClientBackchannelLogoutSessionRequiredL #-}---- | 'oAuth2ClientBackchannelLogoutUri' Lens-oAuth2ClientBackchannelLogoutUriL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientBackchannelLogoutUriL f OAuth2Client{..} = (\oAuth2ClientBackchannelLogoutUri -> OAuth2Client { oAuth2ClientBackchannelLogoutUri, ..} ) <$> f oAuth2ClientBackchannelLogoutUri-{-# INLINE oAuth2ClientBackchannelLogoutUriL #-}---- | 'oAuth2ClientClientId' Lens-oAuth2ClientClientIdL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientClientIdL f OAuth2Client{..} = (\oAuth2ClientClientId -> OAuth2Client { oAuth2ClientClientId, ..} ) <$> f oAuth2ClientClientId-{-# INLINE oAuth2ClientClientIdL #-}---- | 'oAuth2ClientClientName' Lens-oAuth2ClientClientNameL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientClientNameL f OAuth2Client{..} = (\oAuth2ClientClientName -> OAuth2Client { oAuth2ClientClientName, ..} ) <$> f oAuth2ClientClientName-{-# INLINE oAuth2ClientClientNameL #-}---- | 'oAuth2ClientClientSecret' Lens-oAuth2ClientClientSecretL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientClientSecretL f OAuth2Client{..} = (\oAuth2ClientClientSecret -> OAuth2Client { oAuth2ClientClientSecret, ..} ) <$> f oAuth2ClientClientSecret-{-# INLINE oAuth2ClientClientSecretL #-}---- | 'oAuth2ClientClientSecretExpiresAt' Lens-oAuth2ClientClientSecretExpiresAtL :: Lens_' OAuth2Client (Maybe Integer)-oAuth2ClientClientSecretExpiresAtL f OAuth2Client{..} = (\oAuth2ClientClientSecretExpiresAt -> OAuth2Client { oAuth2ClientClientSecretExpiresAt, ..} ) <$> f oAuth2ClientClientSecretExpiresAt-{-# INLINE oAuth2ClientClientSecretExpiresAtL #-}---- | 'oAuth2ClientClientUri' Lens-oAuth2ClientClientUriL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientClientUriL f OAuth2Client{..} = (\oAuth2ClientClientUri -> OAuth2Client { oAuth2ClientClientUri, ..} ) <$> f oAuth2ClientClientUri-{-# INLINE oAuth2ClientClientUriL #-}---- | 'oAuth2ClientContacts' Lens-oAuth2ClientContactsL :: Lens_' OAuth2Client (Maybe [Text])-oAuth2ClientContactsL f OAuth2Client{..} = (\oAuth2ClientContacts -> OAuth2Client { oAuth2ClientContacts, ..} ) <$> f oAuth2ClientContacts-{-# INLINE oAuth2ClientContactsL #-}---- | 'oAuth2ClientCreatedAt' Lens-oAuth2ClientCreatedAtL :: Lens_' OAuth2Client (Maybe DateTime)-oAuth2ClientCreatedAtL f OAuth2Client{..} = (\oAuth2ClientCreatedAt -> OAuth2Client { oAuth2ClientCreatedAt, ..} ) <$> f oAuth2ClientCreatedAt-{-# INLINE oAuth2ClientCreatedAtL #-}---- | 'oAuth2ClientFrontchannelLogoutSessionRequired' Lens-oAuth2ClientFrontchannelLogoutSessionRequiredL :: Lens_' OAuth2Client (Maybe Bool)-oAuth2ClientFrontchannelLogoutSessionRequiredL f OAuth2Client{..} = (\oAuth2ClientFrontchannelLogoutSessionRequired -> OAuth2Client { oAuth2ClientFrontchannelLogoutSessionRequired, ..} ) <$> f oAuth2ClientFrontchannelLogoutSessionRequired-{-# INLINE oAuth2ClientFrontchannelLogoutSessionRequiredL #-}---- | 'oAuth2ClientFrontchannelLogoutUri' Lens-oAuth2ClientFrontchannelLogoutUriL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientFrontchannelLogoutUriL f OAuth2Client{..} = (\oAuth2ClientFrontchannelLogoutUri -> OAuth2Client { oAuth2ClientFrontchannelLogoutUri, ..} ) <$> f oAuth2ClientFrontchannelLogoutUri-{-# INLINE oAuth2ClientFrontchannelLogoutUriL #-}---- | 'oAuth2ClientGrantTypes' Lens-oAuth2ClientGrantTypesL :: Lens_' OAuth2Client (Maybe [Text])-oAuth2ClientGrantTypesL f OAuth2Client{..} = (\oAuth2ClientGrantTypes -> OAuth2Client { oAuth2ClientGrantTypes, ..} ) <$> f oAuth2ClientGrantTypes-{-# INLINE oAuth2ClientGrantTypesL #-}---- | 'oAuth2ClientJwks' Lens-oAuth2ClientJwksL :: Lens_' OAuth2Client (Maybe A.Value)-oAuth2ClientJwksL f OAuth2Client{..} = (\oAuth2ClientJwks -> OAuth2Client { oAuth2ClientJwks, ..} ) <$> f oAuth2ClientJwks-{-# INLINE oAuth2ClientJwksL #-}---- | 'oAuth2ClientJwksUri' Lens-oAuth2ClientJwksUriL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientJwksUriL f OAuth2Client{..} = (\oAuth2ClientJwksUri -> OAuth2Client { oAuth2ClientJwksUri, ..} ) <$> f oAuth2ClientJwksUri-{-# INLINE oAuth2ClientJwksUriL #-}---- | 'oAuth2ClientLogoUri' Lens-oAuth2ClientLogoUriL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientLogoUriL f OAuth2Client{..} = (\oAuth2ClientLogoUri -> OAuth2Client { oAuth2ClientLogoUri, ..} ) <$> f oAuth2ClientLogoUri-{-# INLINE oAuth2ClientLogoUriL #-}---- | 'oAuth2ClientMetadata' Lens-oAuth2ClientMetadataL :: Lens_' OAuth2Client (Maybe A.Value)-oAuth2ClientMetadataL f OAuth2Client{..} = (\oAuth2ClientMetadata -> OAuth2Client { oAuth2ClientMetadata, ..} ) <$> f oAuth2ClientMetadata-{-# INLINE oAuth2ClientMetadataL #-}---- | 'oAuth2ClientOwner' Lens-oAuth2ClientOwnerL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientOwnerL f OAuth2Client{..} = (\oAuth2ClientOwner -> OAuth2Client { oAuth2ClientOwner, ..} ) <$> f oAuth2ClientOwner-{-# INLINE oAuth2ClientOwnerL #-}---- | 'oAuth2ClientPolicyUri' Lens-oAuth2ClientPolicyUriL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientPolicyUriL f OAuth2Client{..} = (\oAuth2ClientPolicyUri -> OAuth2Client { oAuth2ClientPolicyUri, ..} ) <$> f oAuth2ClientPolicyUri-{-# INLINE oAuth2ClientPolicyUriL #-}---- | 'oAuth2ClientPostLogoutRedirectUris' Lens-oAuth2ClientPostLogoutRedirectUrisL :: Lens_' OAuth2Client (Maybe [Text])-oAuth2ClientPostLogoutRedirectUrisL f OAuth2Client{..} = (\oAuth2ClientPostLogoutRedirectUris -> OAuth2Client { oAuth2ClientPostLogoutRedirectUris, ..} ) <$> f oAuth2ClientPostLogoutRedirectUris-{-# INLINE oAuth2ClientPostLogoutRedirectUrisL #-}---- | 'oAuth2ClientRedirectUris' Lens-oAuth2ClientRedirectUrisL :: Lens_' OAuth2Client (Maybe [Text])-oAuth2ClientRedirectUrisL f OAuth2Client{..} = (\oAuth2ClientRedirectUris -> OAuth2Client { oAuth2ClientRedirectUris, ..} ) <$> f oAuth2ClientRedirectUris-{-# INLINE oAuth2ClientRedirectUrisL #-}---- | 'oAuth2ClientRequestObjectSigningAlg' Lens-oAuth2ClientRequestObjectSigningAlgL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientRequestObjectSigningAlgL f OAuth2Client{..} = (\oAuth2ClientRequestObjectSigningAlg -> OAuth2Client { oAuth2ClientRequestObjectSigningAlg, ..} ) <$> f oAuth2ClientRequestObjectSigningAlg-{-# INLINE oAuth2ClientRequestObjectSigningAlgL #-}---- | 'oAuth2ClientRequestUris' Lens-oAuth2ClientRequestUrisL :: Lens_' OAuth2Client (Maybe [Text])-oAuth2ClientRequestUrisL f OAuth2Client{..} = (\oAuth2ClientRequestUris -> OAuth2Client { oAuth2ClientRequestUris, ..} ) <$> f oAuth2ClientRequestUris-{-# INLINE oAuth2ClientRequestUrisL #-}---- | 'oAuth2ClientResponseTypes' Lens-oAuth2ClientResponseTypesL :: Lens_' OAuth2Client (Maybe [Text])-oAuth2ClientResponseTypesL f OAuth2Client{..} = (\oAuth2ClientResponseTypes -> OAuth2Client { oAuth2ClientResponseTypes, ..} ) <$> f oAuth2ClientResponseTypes-{-# INLINE oAuth2ClientResponseTypesL #-}---- | 'oAuth2ClientScope' Lens-oAuth2ClientScopeL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientScopeL f OAuth2Client{..} = (\oAuth2ClientScope -> OAuth2Client { oAuth2ClientScope, ..} ) <$> f oAuth2ClientScope-{-# INLINE oAuth2ClientScopeL #-}---- | 'oAuth2ClientSectorIdentifierUri' Lens-oAuth2ClientSectorIdentifierUriL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientSectorIdentifierUriL f OAuth2Client{..} = (\oAuth2ClientSectorIdentifierUri -> OAuth2Client { oAuth2ClientSectorIdentifierUri, ..} ) <$> f oAuth2ClientSectorIdentifierUri-{-# INLINE oAuth2ClientSectorIdentifierUriL #-}---- | 'oAuth2ClientSubjectType' Lens-oAuth2ClientSubjectTypeL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientSubjectTypeL f OAuth2Client{..} = (\oAuth2ClientSubjectType -> OAuth2Client { oAuth2ClientSubjectType, ..} ) <$> f oAuth2ClientSubjectType-{-# INLINE oAuth2ClientSubjectTypeL #-}---- | 'oAuth2ClientTokenEndpointAuthMethod' Lens-oAuth2ClientTokenEndpointAuthMethodL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientTokenEndpointAuthMethodL f OAuth2Client{..} = (\oAuth2ClientTokenEndpointAuthMethod -> OAuth2Client { oAuth2ClientTokenEndpointAuthMethod, ..} ) <$> f oAuth2ClientTokenEndpointAuthMethod-{-# INLINE oAuth2ClientTokenEndpointAuthMethodL #-}---- | 'oAuth2ClientTokenEndpointAuthSigningAlg' Lens-oAuth2ClientTokenEndpointAuthSigningAlgL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientTokenEndpointAuthSigningAlgL f OAuth2Client{..} = (\oAuth2ClientTokenEndpointAuthSigningAlg -> OAuth2Client { oAuth2ClientTokenEndpointAuthSigningAlg, ..} ) <$> f oAuth2ClientTokenEndpointAuthSigningAlg-{-# INLINE oAuth2ClientTokenEndpointAuthSigningAlgL #-}---- | 'oAuth2ClientTosUri' Lens-oAuth2ClientTosUriL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientTosUriL f OAuth2Client{..} = (\oAuth2ClientTosUri -> OAuth2Client { oAuth2ClientTosUri, ..} ) <$> f oAuth2ClientTosUri-{-# INLINE oAuth2ClientTosUriL #-}---- | 'oAuth2ClientUpdatedAt' Lens-oAuth2ClientUpdatedAtL :: Lens_' OAuth2Client (Maybe DateTime)-oAuth2ClientUpdatedAtL f OAuth2Client{..} = (\oAuth2ClientUpdatedAt -> OAuth2Client { oAuth2ClientUpdatedAt, ..} ) <$> f oAuth2ClientUpdatedAt-{-# INLINE oAuth2ClientUpdatedAtL #-}---- | 'oAuth2ClientUserinfoSignedResponseAlg' Lens-oAuth2ClientUserinfoSignedResponseAlgL :: Lens_' OAuth2Client (Maybe Text)-oAuth2ClientUserinfoSignedResponseAlgL f OAuth2Client{..} = (\oAuth2ClientUserinfoSignedResponseAlg -> OAuth2Client { oAuth2ClientUserinfoSignedResponseAlg, ..} ) <$> f oAuth2ClientUserinfoSignedResponseAlg-{-# INLINE oAuth2ClientUserinfoSignedResponseAlgL #-}------ * OAuth2TokenIntrospection---- | 'oAuth2TokenIntrospectionActive' Lens-oAuth2TokenIntrospectionActiveL :: Lens_' OAuth2TokenIntrospection (Bool)-oAuth2TokenIntrospectionActiveL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionActive -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionActive, ..} ) <$> f oAuth2TokenIntrospectionActive-{-# INLINE oAuth2TokenIntrospectionActiveL #-}---- | 'oAuth2TokenIntrospectionAud' Lens-oAuth2TokenIntrospectionAudL :: Lens_' OAuth2TokenIntrospection (Maybe [Text])-oAuth2TokenIntrospectionAudL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionAud -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionAud, ..} ) <$> f oAuth2TokenIntrospectionAud-{-# INLINE oAuth2TokenIntrospectionAudL #-}---- | 'oAuth2TokenIntrospectionClientId' Lens-oAuth2TokenIntrospectionClientIdL :: Lens_' OAuth2TokenIntrospection (Maybe Text)-oAuth2TokenIntrospectionClientIdL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionClientId -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionClientId, ..} ) <$> f oAuth2TokenIntrospectionClientId-{-# INLINE oAuth2TokenIntrospectionClientIdL #-}---- | 'oAuth2TokenIntrospectionExp' Lens-oAuth2TokenIntrospectionExpL :: Lens_' OAuth2TokenIntrospection (Maybe Integer)-oAuth2TokenIntrospectionExpL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionExp -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionExp, ..} ) <$> f oAuth2TokenIntrospectionExp-{-# INLINE oAuth2TokenIntrospectionExpL #-}---- | 'oAuth2TokenIntrospectionExt' Lens-oAuth2TokenIntrospectionExtL :: Lens_' OAuth2TokenIntrospection (Maybe A.Value)-oAuth2TokenIntrospectionExtL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionExt -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionExt, ..} ) <$> f oAuth2TokenIntrospectionExt-{-# INLINE oAuth2TokenIntrospectionExtL #-}---- | 'oAuth2TokenIntrospectionIat' Lens-oAuth2TokenIntrospectionIatL :: Lens_' OAuth2TokenIntrospection (Maybe Integer)-oAuth2TokenIntrospectionIatL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionIat -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionIat, ..} ) <$> f oAuth2TokenIntrospectionIat-{-# INLINE oAuth2TokenIntrospectionIatL #-}---- | 'oAuth2TokenIntrospectionIss' Lens-oAuth2TokenIntrospectionIssL :: Lens_' OAuth2TokenIntrospection (Maybe Text)-oAuth2TokenIntrospectionIssL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionIss -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionIss, ..} ) <$> f oAuth2TokenIntrospectionIss-{-# INLINE oAuth2TokenIntrospectionIssL #-}---- | 'oAuth2TokenIntrospectionNbf' Lens-oAuth2TokenIntrospectionNbfL :: Lens_' OAuth2TokenIntrospection (Maybe Integer)-oAuth2TokenIntrospectionNbfL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionNbf -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionNbf, ..} ) <$> f oAuth2TokenIntrospectionNbf-{-# INLINE oAuth2TokenIntrospectionNbfL #-}---- | 'oAuth2TokenIntrospectionObfuscatedSubject' Lens-oAuth2TokenIntrospectionObfuscatedSubjectL :: Lens_' OAuth2TokenIntrospection (Maybe Text)-oAuth2TokenIntrospectionObfuscatedSubjectL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionObfuscatedSubject -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionObfuscatedSubject, ..} ) <$> f oAuth2TokenIntrospectionObfuscatedSubject-{-# INLINE oAuth2TokenIntrospectionObfuscatedSubjectL #-}---- | 'oAuth2TokenIntrospectionScope' Lens-oAuth2TokenIntrospectionScopeL :: Lens_' OAuth2TokenIntrospection (Maybe Text)-oAuth2TokenIntrospectionScopeL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionScope -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionScope, ..} ) <$> f oAuth2TokenIntrospectionScope-{-# INLINE oAuth2TokenIntrospectionScopeL #-}---- | 'oAuth2TokenIntrospectionSub' Lens-oAuth2TokenIntrospectionSubL :: Lens_' OAuth2TokenIntrospection (Maybe Text)-oAuth2TokenIntrospectionSubL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionSub -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionSub, ..} ) <$> f oAuth2TokenIntrospectionSub-{-# INLINE oAuth2TokenIntrospectionSubL #-}---- | 'oAuth2TokenIntrospectionTokenType' Lens-oAuth2TokenIntrospectionTokenTypeL :: Lens_' OAuth2TokenIntrospection (Maybe Text)-oAuth2TokenIntrospectionTokenTypeL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionTokenType -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionTokenType, ..} ) <$> f oAuth2TokenIntrospectionTokenType-{-# INLINE oAuth2TokenIntrospectionTokenTypeL #-}---- | 'oAuth2TokenIntrospectionTokenUse' Lens-oAuth2TokenIntrospectionTokenUseL :: Lens_' OAuth2TokenIntrospection (Maybe Text)-oAuth2TokenIntrospectionTokenUseL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionTokenUse -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionTokenUse, ..} ) <$> f oAuth2TokenIntrospectionTokenUse-{-# INLINE oAuth2TokenIntrospectionTokenUseL #-}---- | 'oAuth2TokenIntrospectionUsername' Lens-oAuth2TokenIntrospectionUsernameL :: Lens_' OAuth2TokenIntrospection (Maybe Text)-oAuth2TokenIntrospectionUsernameL f OAuth2TokenIntrospection{..} = (\oAuth2TokenIntrospectionUsername -> OAuth2TokenIntrospection { oAuth2TokenIntrospectionUsername, ..} ) <$> f oAuth2TokenIntrospectionUsername-{-# INLINE oAuth2TokenIntrospectionUsernameL #-}------ * Oauth2TokenResponse---- | 'oauth2TokenResponseAccessToken' Lens-oauth2TokenResponseAccessTokenL :: Lens_' Oauth2TokenResponse (Maybe Text)-oauth2TokenResponseAccessTokenL f Oauth2TokenResponse{..} = (\oauth2TokenResponseAccessToken -> Oauth2TokenResponse { oauth2TokenResponseAccessToken, ..} ) <$> f oauth2TokenResponseAccessToken-{-# INLINE oauth2TokenResponseAccessTokenL #-}---- | 'oauth2TokenResponseExpiresIn' Lens-oauth2TokenResponseExpiresInL :: Lens_' Oauth2TokenResponse (Maybe Integer)-oauth2TokenResponseExpiresInL f Oauth2TokenResponse{..} = (\oauth2TokenResponseExpiresIn -> Oauth2TokenResponse { oauth2TokenResponseExpiresIn, ..} ) <$> f oauth2TokenResponseExpiresIn-{-# INLINE oauth2TokenResponseExpiresInL #-}---- | 'oauth2TokenResponseIdToken' Lens-oauth2TokenResponseIdTokenL :: Lens_' Oauth2TokenResponse (Maybe Text)-oauth2TokenResponseIdTokenL f Oauth2TokenResponse{..} = (\oauth2TokenResponseIdToken -> Oauth2TokenResponse { oauth2TokenResponseIdToken, ..} ) <$> f oauth2TokenResponseIdToken-{-# INLINE oauth2TokenResponseIdTokenL #-}---- | 'oauth2TokenResponseRefreshToken' Lens-oauth2TokenResponseRefreshTokenL :: Lens_' Oauth2TokenResponse (Maybe Text)-oauth2TokenResponseRefreshTokenL f Oauth2TokenResponse{..} = (\oauth2TokenResponseRefreshToken -> Oauth2TokenResponse { oauth2TokenResponseRefreshToken, ..} ) <$> f oauth2TokenResponseRefreshToken-{-# INLINE oauth2TokenResponseRefreshTokenL #-}---- | 'oauth2TokenResponseScope' Lens-oauth2TokenResponseScopeL :: Lens_' Oauth2TokenResponse (Maybe Text)-oauth2TokenResponseScopeL f Oauth2TokenResponse{..} = (\oauth2TokenResponseScope -> Oauth2TokenResponse { oauth2TokenResponseScope, ..} ) <$> f oauth2TokenResponseScope-{-# INLINE oauth2TokenResponseScopeL #-}---- | 'oauth2TokenResponseTokenType' Lens-oauth2TokenResponseTokenTypeL :: Lens_' Oauth2TokenResponse (Maybe Text)-oauth2TokenResponseTokenTypeL f Oauth2TokenResponse{..} = (\oauth2TokenResponseTokenType -> Oauth2TokenResponse { oauth2TokenResponseTokenType, ..} ) <$> f oauth2TokenResponseTokenType-{-# INLINE oauth2TokenResponseTokenTypeL #-}------ * OpenIDConnectContext---- | 'openIDConnectContextAcrValues' Lens-openIDConnectContextAcrValuesL :: Lens_' OpenIDConnectContext (Maybe [Text])-openIDConnectContextAcrValuesL f OpenIDConnectContext{..} = (\openIDConnectContextAcrValues -> OpenIDConnectContext { openIDConnectContextAcrValues, ..} ) <$> f openIDConnectContextAcrValues-{-# INLINE openIDConnectContextAcrValuesL #-}---- | 'openIDConnectContextDisplay' Lens-openIDConnectContextDisplayL :: Lens_' OpenIDConnectContext (Maybe Text)-openIDConnectContextDisplayL f OpenIDConnectContext{..} = (\openIDConnectContextDisplay -> OpenIDConnectContext { openIDConnectContextDisplay, ..} ) <$> f openIDConnectContextDisplay-{-# INLINE openIDConnectContextDisplayL #-}---- | 'openIDConnectContextIdTokenHintClaims' Lens-openIDConnectContextIdTokenHintClaimsL :: Lens_' OpenIDConnectContext (Maybe A.Value)-openIDConnectContextIdTokenHintClaimsL f OpenIDConnectContext{..} = (\openIDConnectContextIdTokenHintClaims -> OpenIDConnectContext { openIDConnectContextIdTokenHintClaims, ..} ) <$> f openIDConnectContextIdTokenHintClaims-{-# INLINE openIDConnectContextIdTokenHintClaimsL #-}---- | 'openIDConnectContextLoginHint' Lens-openIDConnectContextLoginHintL :: Lens_' OpenIDConnectContext (Maybe Text)-openIDConnectContextLoginHintL f OpenIDConnectContext{..} = (\openIDConnectContextLoginHint -> OpenIDConnectContext { openIDConnectContextLoginHint, ..} ) <$> f openIDConnectContextLoginHint-{-# INLINE openIDConnectContextLoginHintL #-}---- | 'openIDConnectContextUiLocales' Lens-openIDConnectContextUiLocalesL :: Lens_' OpenIDConnectContext (Maybe [Text])-openIDConnectContextUiLocalesL f OpenIDConnectContext{..} = (\openIDConnectContextUiLocales -> OpenIDConnectContext { openIDConnectContextUiLocales, ..} ) <$> f openIDConnectContextUiLocales-{-# INLINE openIDConnectContextUiLocalesL #-}------ * PluginConfig---- | 'pluginConfigArgs' Lens-pluginConfigArgsL :: Lens_' PluginConfig (PluginConfigArgs)-pluginConfigArgsL f PluginConfig{..} = (\pluginConfigArgs -> PluginConfig { pluginConfigArgs, ..} ) <$> f pluginConfigArgs-{-# INLINE pluginConfigArgsL #-}---- | 'pluginConfigDescription' Lens-pluginConfigDescriptionL :: Lens_' PluginConfig (Text)-pluginConfigDescriptionL f PluginConfig{..} = (\pluginConfigDescription -> PluginConfig { pluginConfigDescription, ..} ) <$> f pluginConfigDescription-{-# INLINE pluginConfigDescriptionL #-}---- | 'pluginConfigDockerVersion' Lens-pluginConfigDockerVersionL :: Lens_' PluginConfig (Maybe Text)-pluginConfigDockerVersionL f PluginConfig{..} = (\pluginConfigDockerVersion -> PluginConfig { pluginConfigDockerVersion, ..} ) <$> f pluginConfigDockerVersion-{-# INLINE pluginConfigDockerVersionL #-}---- | 'pluginConfigDocumentation' Lens-pluginConfigDocumentationL :: Lens_' PluginConfig (Text)-pluginConfigDocumentationL f PluginConfig{..} = (\pluginConfigDocumentation -> PluginConfig { pluginConfigDocumentation, ..} ) <$> f pluginConfigDocumentation-{-# INLINE pluginConfigDocumentationL #-}---- | 'pluginConfigEntrypoint' Lens-pluginConfigEntrypointL :: Lens_' PluginConfig ([Text])-pluginConfigEntrypointL f PluginConfig{..} = (\pluginConfigEntrypoint -> PluginConfig { pluginConfigEntrypoint, ..} ) <$> f pluginConfigEntrypoint-{-# INLINE pluginConfigEntrypointL #-}---- | 'pluginConfigEnv' Lens-pluginConfigEnvL :: Lens_' PluginConfig ([PluginEnv])-pluginConfigEnvL f PluginConfig{..} = (\pluginConfigEnv -> PluginConfig { pluginConfigEnv, ..} ) <$> f pluginConfigEnv-{-# INLINE pluginConfigEnvL #-}---- | 'pluginConfigInterface' Lens-pluginConfigInterfaceL :: Lens_' PluginConfig (PluginConfigInterface)-pluginConfigInterfaceL f PluginConfig{..} = (\pluginConfigInterface -> PluginConfig { pluginConfigInterface, ..} ) <$> f pluginConfigInterface-{-# INLINE pluginConfigInterfaceL #-}---- | 'pluginConfigIpcHost' Lens-pluginConfigIpcHostL :: Lens_' PluginConfig (Bool)-pluginConfigIpcHostL f PluginConfig{..} = (\pluginConfigIpcHost -> PluginConfig { pluginConfigIpcHost, ..} ) <$> f pluginConfigIpcHost-{-# INLINE pluginConfigIpcHostL #-}---- | 'pluginConfigLinux' Lens-pluginConfigLinuxL :: Lens_' PluginConfig (PluginConfigLinux)-pluginConfigLinuxL f PluginConfig{..} = (\pluginConfigLinux -> PluginConfig { pluginConfigLinux, ..} ) <$> f pluginConfigLinux-{-# INLINE pluginConfigLinuxL #-}---- | 'pluginConfigMounts' Lens-pluginConfigMountsL :: Lens_' PluginConfig ([PluginMount])-pluginConfigMountsL f PluginConfig{..} = (\pluginConfigMounts -> PluginConfig { pluginConfigMounts, ..} ) <$> f pluginConfigMounts-{-# INLINE pluginConfigMountsL #-}---- | 'pluginConfigNetwork' Lens-pluginConfigNetworkL :: Lens_' PluginConfig (PluginConfigNetwork)-pluginConfigNetworkL f PluginConfig{..} = (\pluginConfigNetwork -> PluginConfig { pluginConfigNetwork, ..} ) <$> f pluginConfigNetwork-{-# INLINE pluginConfigNetworkL #-}---- | 'pluginConfigPidHost' Lens-pluginConfigPidHostL :: Lens_' PluginConfig (Bool)-pluginConfigPidHostL f PluginConfig{..} = (\pluginConfigPidHost -> PluginConfig { pluginConfigPidHost, ..} ) <$> f pluginConfigPidHost-{-# INLINE pluginConfigPidHostL #-}---- | 'pluginConfigPropagatedMount' Lens-pluginConfigPropagatedMountL :: Lens_' PluginConfig (Text)-pluginConfigPropagatedMountL f PluginConfig{..} = (\pluginConfigPropagatedMount -> PluginConfig { pluginConfigPropagatedMount, ..} ) <$> f pluginConfigPropagatedMount-{-# INLINE pluginConfigPropagatedMountL #-}---- | 'pluginConfigUser' Lens-pluginConfigUserL :: Lens_' PluginConfig (Maybe PluginConfigUser)-pluginConfigUserL f PluginConfig{..} = (\pluginConfigUser -> PluginConfig { pluginConfigUser, ..} ) <$> f pluginConfigUser-{-# INLINE pluginConfigUserL #-}---- | 'pluginConfigWorkDir' Lens-pluginConfigWorkDirL :: Lens_' PluginConfig (Text)-pluginConfigWorkDirL f PluginConfig{..} = (\pluginConfigWorkDir -> PluginConfig { pluginConfigWorkDir, ..} ) <$> f pluginConfigWorkDir-{-# INLINE pluginConfigWorkDirL #-}---- | 'pluginConfigRootfs' Lens-pluginConfigRootfsL :: Lens_' PluginConfig (Maybe PluginConfigRootfs)-pluginConfigRootfsL f PluginConfig{..} = (\pluginConfigRootfs -> PluginConfig { pluginConfigRootfs, ..} ) <$> f pluginConfigRootfs-{-# INLINE pluginConfigRootfsL #-}------ * PluginConfigArgs---- | 'pluginConfigArgsDescription' Lens-pluginConfigArgsDescriptionL :: Lens_' PluginConfigArgs (Text)-pluginConfigArgsDescriptionL f PluginConfigArgs{..} = (\pluginConfigArgsDescription -> PluginConfigArgs { pluginConfigArgsDescription, ..} ) <$> f pluginConfigArgsDescription-{-# INLINE pluginConfigArgsDescriptionL #-}---- | 'pluginConfigArgsName' Lens-pluginConfigArgsNameL :: Lens_' PluginConfigArgs (Text)-pluginConfigArgsNameL f PluginConfigArgs{..} = (\pluginConfigArgsName -> PluginConfigArgs { pluginConfigArgsName, ..} ) <$> f pluginConfigArgsName-{-# INLINE pluginConfigArgsNameL #-}---- | 'pluginConfigArgsSettable' Lens-pluginConfigArgsSettableL :: Lens_' PluginConfigArgs ([Text])-pluginConfigArgsSettableL f PluginConfigArgs{..} = (\pluginConfigArgsSettable -> PluginConfigArgs { pluginConfigArgsSettable, ..} ) <$> f pluginConfigArgsSettable-{-# INLINE pluginConfigArgsSettableL #-}---- | 'pluginConfigArgsValue' Lens-pluginConfigArgsValueL :: Lens_' PluginConfigArgs ([Text])-pluginConfigArgsValueL f PluginConfigArgs{..} = (\pluginConfigArgsValue -> PluginConfigArgs { pluginConfigArgsValue, ..} ) <$> f pluginConfigArgsValue-{-# INLINE pluginConfigArgsValueL #-}------ * PluginConfigInterface---- | 'pluginConfigInterfaceProtocolScheme' Lens-pluginConfigInterfaceProtocolSchemeL :: Lens_' PluginConfigInterface (Maybe Text)-pluginConfigInterfaceProtocolSchemeL f PluginConfigInterface{..} = (\pluginConfigInterfaceProtocolScheme -> PluginConfigInterface { pluginConfigInterfaceProtocolScheme, ..} ) <$> f pluginConfigInterfaceProtocolScheme-{-# INLINE pluginConfigInterfaceProtocolSchemeL #-}---- | 'pluginConfigInterfaceSocket' Lens-pluginConfigInterfaceSocketL :: Lens_' PluginConfigInterface (Text)-pluginConfigInterfaceSocketL f PluginConfigInterface{..} = (\pluginConfigInterfaceSocket -> PluginConfigInterface { pluginConfigInterfaceSocket, ..} ) <$> f pluginConfigInterfaceSocket-{-# INLINE pluginConfigInterfaceSocketL #-}---- | 'pluginConfigInterfaceTypes' Lens-pluginConfigInterfaceTypesL :: Lens_' PluginConfigInterface ([PluginInterfaceType])-pluginConfigInterfaceTypesL f PluginConfigInterface{..} = (\pluginConfigInterfaceTypes -> PluginConfigInterface { pluginConfigInterfaceTypes, ..} ) <$> f pluginConfigInterfaceTypes-{-# INLINE pluginConfigInterfaceTypesL #-}------ * PluginConfigLinux---- | 'pluginConfigLinuxAllowAllDevices' Lens-pluginConfigLinuxAllowAllDevicesL :: Lens_' PluginConfigLinux (Bool)-pluginConfigLinuxAllowAllDevicesL f PluginConfigLinux{..} = (\pluginConfigLinuxAllowAllDevices -> PluginConfigLinux { pluginConfigLinuxAllowAllDevices, ..} ) <$> f pluginConfigLinuxAllowAllDevices-{-# INLINE pluginConfigLinuxAllowAllDevicesL #-}---- | 'pluginConfigLinuxCapabilities' Lens-pluginConfigLinuxCapabilitiesL :: Lens_' PluginConfigLinux ([Text])-pluginConfigLinuxCapabilitiesL f PluginConfigLinux{..} = (\pluginConfigLinuxCapabilities -> PluginConfigLinux { pluginConfigLinuxCapabilities, ..} ) <$> f pluginConfigLinuxCapabilities-{-# INLINE pluginConfigLinuxCapabilitiesL #-}---- | 'pluginConfigLinuxDevices' Lens-pluginConfigLinuxDevicesL :: Lens_' PluginConfigLinux ([PluginDevice])-pluginConfigLinuxDevicesL f PluginConfigLinux{..} = (\pluginConfigLinuxDevices -> PluginConfigLinux { pluginConfigLinuxDevices, ..} ) <$> f pluginConfigLinuxDevices-{-# INLINE pluginConfigLinuxDevicesL #-}------ * PluginConfigNetwork---- | 'pluginConfigNetworkType' Lens-pluginConfigNetworkTypeL :: Lens_' PluginConfigNetwork (Text)-pluginConfigNetworkTypeL f PluginConfigNetwork{..} = (\pluginConfigNetworkType -> PluginConfigNetwork { pluginConfigNetworkType, ..} ) <$> f pluginConfigNetworkType-{-# INLINE pluginConfigNetworkTypeL #-}------ * PluginConfigRootfs---- | 'pluginConfigRootfsDiffIds' Lens-pluginConfigRootfsDiffIdsL :: Lens_' PluginConfigRootfs (Maybe [Text])-pluginConfigRootfsDiffIdsL f PluginConfigRootfs{..} = (\pluginConfigRootfsDiffIds -> PluginConfigRootfs { pluginConfigRootfsDiffIds, ..} ) <$> f pluginConfigRootfsDiffIds-{-# INLINE pluginConfigRootfsDiffIdsL #-}---- | 'pluginConfigRootfsType' Lens-pluginConfigRootfsTypeL :: Lens_' PluginConfigRootfs (Maybe Text)-pluginConfigRootfsTypeL f PluginConfigRootfs{..} = (\pluginConfigRootfsType -> PluginConfigRootfs { pluginConfigRootfsType, ..} ) <$> f pluginConfigRootfsType-{-# INLINE pluginConfigRootfsTypeL #-}------ * PluginConfigUser---- | 'pluginConfigUserGid' Lens-pluginConfigUserGidL :: Lens_' PluginConfigUser (Maybe Int)-pluginConfigUserGidL f PluginConfigUser{..} = (\pluginConfigUserGid -> PluginConfigUser { pluginConfigUserGid, ..} ) <$> f pluginConfigUserGid-{-# INLINE pluginConfigUserGidL #-}---- | 'pluginConfigUserUid' Lens-pluginConfigUserUidL :: Lens_' PluginConfigUser (Maybe Int)-pluginConfigUserUidL f PluginConfigUser{..} = (\pluginConfigUserUid -> PluginConfigUser { pluginConfigUserUid, ..} ) <$> f pluginConfigUserUid-{-# INLINE pluginConfigUserUidL #-}------ * PluginDevice---- | 'pluginDeviceDescription' Lens-pluginDeviceDescriptionL :: Lens_' PluginDevice (Text)-pluginDeviceDescriptionL f PluginDevice{..} = (\pluginDeviceDescription -> PluginDevice { pluginDeviceDescription, ..} ) <$> f pluginDeviceDescription-{-# INLINE pluginDeviceDescriptionL #-}---- | 'pluginDeviceName' Lens-pluginDeviceNameL :: Lens_' PluginDevice (Text)-pluginDeviceNameL f PluginDevice{..} = (\pluginDeviceName -> PluginDevice { pluginDeviceName, ..} ) <$> f pluginDeviceName-{-# INLINE pluginDeviceNameL #-}---- | 'pluginDevicePath' Lens-pluginDevicePathL :: Lens_' PluginDevice (Text)-pluginDevicePathL f PluginDevice{..} = (\pluginDevicePath -> PluginDevice { pluginDevicePath, ..} ) <$> f pluginDevicePath-{-# INLINE pluginDevicePathL #-}---- | 'pluginDeviceSettable' Lens-pluginDeviceSettableL :: Lens_' PluginDevice ([Text])-pluginDeviceSettableL f PluginDevice{..} = (\pluginDeviceSettable -> PluginDevice { pluginDeviceSettable, ..} ) <$> f pluginDeviceSettable-{-# INLINE pluginDeviceSettableL #-}------ * PluginEnv---- | 'pluginEnvDescription' Lens-pluginEnvDescriptionL :: Lens_' PluginEnv (Text)-pluginEnvDescriptionL f PluginEnv{..} = (\pluginEnvDescription -> PluginEnv { pluginEnvDescription, ..} ) <$> f pluginEnvDescription-{-# INLINE pluginEnvDescriptionL #-}---- | 'pluginEnvName' Lens-pluginEnvNameL :: Lens_' PluginEnv (Text)-pluginEnvNameL f PluginEnv{..} = (\pluginEnvName -> PluginEnv { pluginEnvName, ..} ) <$> f pluginEnvName-{-# INLINE pluginEnvNameL #-}---- | 'pluginEnvSettable' Lens-pluginEnvSettableL :: Lens_' PluginEnv ([Text])-pluginEnvSettableL f PluginEnv{..} = (\pluginEnvSettable -> PluginEnv { pluginEnvSettable, ..} ) <$> f pluginEnvSettable-{-# INLINE pluginEnvSettableL #-}---- | 'pluginEnvValue' Lens-pluginEnvValueL :: Lens_' PluginEnv (Text)-pluginEnvValueL f PluginEnv{..} = (\pluginEnvValue -> PluginEnv { pluginEnvValue, ..} ) <$> f pluginEnvValue-{-# INLINE pluginEnvValueL #-}------ * PluginInterfaceType---- | 'pluginInterfaceTypeCapability' Lens-pluginInterfaceTypeCapabilityL :: Lens_' PluginInterfaceType (Text)-pluginInterfaceTypeCapabilityL f PluginInterfaceType{..} = (\pluginInterfaceTypeCapability -> PluginInterfaceType { pluginInterfaceTypeCapability, ..} ) <$> f pluginInterfaceTypeCapability-{-# INLINE pluginInterfaceTypeCapabilityL #-}---- | 'pluginInterfaceTypePrefix' Lens-pluginInterfaceTypePrefixL :: Lens_' PluginInterfaceType (Text)-pluginInterfaceTypePrefixL f PluginInterfaceType{..} = (\pluginInterfaceTypePrefix -> PluginInterfaceType { pluginInterfaceTypePrefix, ..} ) <$> f pluginInterfaceTypePrefix-{-# INLINE pluginInterfaceTypePrefixL #-}---- | 'pluginInterfaceTypeVersion' Lens-pluginInterfaceTypeVersionL :: Lens_' PluginInterfaceType (Text)-pluginInterfaceTypeVersionL f PluginInterfaceType{..} = (\pluginInterfaceTypeVersion -> PluginInterfaceType { pluginInterfaceTypeVersion, ..} ) <$> f pluginInterfaceTypeVersion-{-# INLINE pluginInterfaceTypeVersionL #-}------ * PluginMount---- | 'pluginMountDescription' Lens-pluginMountDescriptionL :: Lens_' PluginMount (Text)-pluginMountDescriptionL f PluginMount{..} = (\pluginMountDescription -> PluginMount { pluginMountDescription, ..} ) <$> f pluginMountDescription-{-# INLINE pluginMountDescriptionL #-}---- | 'pluginMountDestination' Lens-pluginMountDestinationL :: Lens_' PluginMount (Text)-pluginMountDestinationL f PluginMount{..} = (\pluginMountDestination -> PluginMount { pluginMountDestination, ..} ) <$> f pluginMountDestination-{-# INLINE pluginMountDestinationL #-}---- | 'pluginMountName' Lens-pluginMountNameL :: Lens_' PluginMount (Text)-pluginMountNameL f PluginMount{..} = (\pluginMountName -> PluginMount { pluginMountName, ..} ) <$> f pluginMountName-{-# INLINE pluginMountNameL #-}---- | 'pluginMountOptions' Lens-pluginMountOptionsL :: Lens_' PluginMount ([Text])-pluginMountOptionsL f PluginMount{..} = (\pluginMountOptions -> PluginMount { pluginMountOptions, ..} ) <$> f pluginMountOptions-{-# INLINE pluginMountOptionsL #-}---- | 'pluginMountSettable' Lens-pluginMountSettableL :: Lens_' PluginMount ([Text])-pluginMountSettableL f PluginMount{..} = (\pluginMountSettable -> PluginMount { pluginMountSettable, ..} ) <$> f pluginMountSettable-{-# INLINE pluginMountSettableL #-}---- | 'pluginMountSource' Lens-pluginMountSourceL :: Lens_' PluginMount (Text)-pluginMountSourceL f PluginMount{..} = (\pluginMountSource -> PluginMount { pluginMountSource, ..} ) <$> f pluginMountSource-{-# INLINE pluginMountSourceL #-}---- | 'pluginMountType' Lens-pluginMountTypeL :: Lens_' PluginMount (Text)-pluginMountTypeL f PluginMount{..} = (\pluginMountType -> PluginMount { pluginMountType, ..} ) <$> f pluginMountType-{-# INLINE pluginMountTypeL #-}------ * PluginSettings---- | 'pluginSettingsArgs' Lens-pluginSettingsArgsL :: Lens_' PluginSettings ([Text])-pluginSettingsArgsL f PluginSettings{..} = (\pluginSettingsArgs -> PluginSettings { pluginSettingsArgs, ..} ) <$> f pluginSettingsArgs-{-# INLINE pluginSettingsArgsL #-}---- | 'pluginSettingsDevices' Lens-pluginSettingsDevicesL :: Lens_' PluginSettings ([PluginDevice])-pluginSettingsDevicesL f PluginSettings{..} = (\pluginSettingsDevices -> PluginSettings { pluginSettingsDevices, ..} ) <$> f pluginSettingsDevices-{-# INLINE pluginSettingsDevicesL #-}---- | 'pluginSettingsEnv' Lens-pluginSettingsEnvL :: Lens_' PluginSettings ([Text])-pluginSettingsEnvL f PluginSettings{..} = (\pluginSettingsEnv -> PluginSettings { pluginSettingsEnv, ..} ) <$> f pluginSettingsEnv-{-# INLINE pluginSettingsEnvL #-}---- | 'pluginSettingsMounts' Lens-pluginSettingsMountsL :: Lens_' PluginSettings ([PluginMount])-pluginSettingsMountsL f PluginSettings{..} = (\pluginSettingsMounts -> PluginSettings { pluginSettingsMounts, ..} ) <$> f pluginSettingsMounts-{-# INLINE pluginSettingsMountsL #-}------ * PreviousConsentSession---- | 'previousConsentSessionConsentRequest' Lens-previousConsentSessionConsentRequestL :: Lens_' PreviousConsentSession (Maybe ConsentRequest)-previousConsentSessionConsentRequestL f PreviousConsentSession{..} = (\previousConsentSessionConsentRequest -> PreviousConsentSession { previousConsentSessionConsentRequest, ..} ) <$> f previousConsentSessionConsentRequest-{-# INLINE previousConsentSessionConsentRequestL #-}---- | 'previousConsentSessionGrantAccessTokenAudience' Lens-previousConsentSessionGrantAccessTokenAudienceL :: Lens_' PreviousConsentSession (Maybe [Text])-previousConsentSessionGrantAccessTokenAudienceL f PreviousConsentSession{..} = (\previousConsentSessionGrantAccessTokenAudience -> PreviousConsentSession { previousConsentSessionGrantAccessTokenAudience, ..} ) <$> f previousConsentSessionGrantAccessTokenAudience-{-# INLINE previousConsentSessionGrantAccessTokenAudienceL #-}---- | 'previousConsentSessionGrantScope' Lens-previousConsentSessionGrantScopeL :: Lens_' PreviousConsentSession (Maybe [Text])-previousConsentSessionGrantScopeL f PreviousConsentSession{..} = (\previousConsentSessionGrantScope -> PreviousConsentSession { previousConsentSessionGrantScope, ..} ) <$> f previousConsentSessionGrantScope-{-# INLINE previousConsentSessionGrantScopeL #-}---- | 'previousConsentSessionHandledAt' Lens-previousConsentSessionHandledAtL :: Lens_' PreviousConsentSession (Maybe DateTime)-previousConsentSessionHandledAtL f PreviousConsentSession{..} = (\previousConsentSessionHandledAt -> PreviousConsentSession { previousConsentSessionHandledAt, ..} ) <$> f previousConsentSessionHandledAt-{-# INLINE previousConsentSessionHandledAtL #-}---- | 'previousConsentSessionRemember' Lens-previousConsentSessionRememberL :: Lens_' PreviousConsentSession (Maybe Bool)-previousConsentSessionRememberL f PreviousConsentSession{..} = (\previousConsentSessionRemember -> PreviousConsentSession { previousConsentSessionRemember, ..} ) <$> f previousConsentSessionRemember-{-# INLINE previousConsentSessionRememberL #-}---- | 'previousConsentSessionRememberFor' Lens-previousConsentSessionRememberForL :: Lens_' PreviousConsentSession (Maybe Integer)-previousConsentSessionRememberForL f PreviousConsentSession{..} = (\previousConsentSessionRememberFor -> PreviousConsentSession { previousConsentSessionRememberFor, ..} ) <$> f previousConsentSessionRememberFor-{-# INLINE previousConsentSessionRememberForL #-}---- | 'previousConsentSessionSession' Lens-previousConsentSessionSessionL :: Lens_' PreviousConsentSession (Maybe ConsentRequestSession)-previousConsentSessionSessionL f PreviousConsentSession{..} = (\previousConsentSessionSession -> PreviousConsentSession { previousConsentSessionSession, ..} ) <$> f previousConsentSessionSession-{-# INLINE previousConsentSessionSessionL #-}------ * RejectRequest---- | 'rejectRequestError' Lens-rejectRequestErrorL :: Lens_' RejectRequest (Maybe Text)-rejectRequestErrorL f RejectRequest{..} = (\rejectRequestError -> RejectRequest { rejectRequestError, ..} ) <$> f rejectRequestError-{-# INLINE rejectRequestErrorL #-}---- | 'rejectRequestErrorDebug' Lens-rejectRequestErrorDebugL :: Lens_' RejectRequest (Maybe Text)-rejectRequestErrorDebugL f RejectRequest{..} = (\rejectRequestErrorDebug -> RejectRequest { rejectRequestErrorDebug, ..} ) <$> f rejectRequestErrorDebug-{-# INLINE rejectRequestErrorDebugL #-}---- | 'rejectRequestErrorDescription' Lens-rejectRequestErrorDescriptionL :: Lens_' RejectRequest (Maybe Text)-rejectRequestErrorDescriptionL f RejectRequest{..} = (\rejectRequestErrorDescription -> RejectRequest { rejectRequestErrorDescription, ..} ) <$> f rejectRequestErrorDescription-{-# INLINE rejectRequestErrorDescriptionL #-}---- | 'rejectRequestErrorHint' Lens-rejectRequestErrorHintL :: Lens_' RejectRequest (Maybe Text)-rejectRequestErrorHintL f RejectRequest{..} = (\rejectRequestErrorHint -> RejectRequest { rejectRequestErrorHint, ..} ) <$> f rejectRequestErrorHint-{-# INLINE rejectRequestErrorHintL #-}---- | 'rejectRequestStatusCode' Lens-rejectRequestStatusCodeL :: Lens_' RejectRequest (Maybe Integer)-rejectRequestStatusCodeL f RejectRequest{..} = (\rejectRequestStatusCode -> RejectRequest { rejectRequestStatusCode, ..} ) <$> f rejectRequestStatusCode-{-# INLINE rejectRequestStatusCodeL #-}------ * UserinfoResponse---- | 'userinfoResponseBirthdate' Lens-userinfoResponseBirthdateL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseBirthdateL f UserinfoResponse{..} = (\userinfoResponseBirthdate -> UserinfoResponse { userinfoResponseBirthdate, ..} ) <$> f userinfoResponseBirthdate-{-# INLINE userinfoResponseBirthdateL #-}---- | 'userinfoResponseEmail' Lens-userinfoResponseEmailL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseEmailL f UserinfoResponse{..} = (\userinfoResponseEmail -> UserinfoResponse { userinfoResponseEmail, ..} ) <$> f userinfoResponseEmail-{-# INLINE userinfoResponseEmailL #-}---- | 'userinfoResponseEmailVerified' Lens-userinfoResponseEmailVerifiedL :: Lens_' UserinfoResponse (Maybe Bool)-userinfoResponseEmailVerifiedL f UserinfoResponse{..} = (\userinfoResponseEmailVerified -> UserinfoResponse { userinfoResponseEmailVerified, ..} ) <$> f userinfoResponseEmailVerified-{-# INLINE userinfoResponseEmailVerifiedL #-}---- | 'userinfoResponseFamilyName' Lens-userinfoResponseFamilyNameL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseFamilyNameL f UserinfoResponse{..} = (\userinfoResponseFamilyName -> UserinfoResponse { userinfoResponseFamilyName, ..} ) <$> f userinfoResponseFamilyName-{-# INLINE userinfoResponseFamilyNameL #-}---- | 'userinfoResponseGender' Lens-userinfoResponseGenderL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseGenderL f UserinfoResponse{..} = (\userinfoResponseGender -> UserinfoResponse { userinfoResponseGender, ..} ) <$> f userinfoResponseGender-{-# INLINE userinfoResponseGenderL #-}---- | 'userinfoResponseGivenName' Lens-userinfoResponseGivenNameL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseGivenNameL f UserinfoResponse{..} = (\userinfoResponseGivenName -> UserinfoResponse { userinfoResponseGivenName, ..} ) <$> f userinfoResponseGivenName-{-# INLINE userinfoResponseGivenNameL #-}---- | 'userinfoResponseLocale' Lens-userinfoResponseLocaleL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseLocaleL f UserinfoResponse{..} = (\userinfoResponseLocale -> UserinfoResponse { userinfoResponseLocale, ..} ) <$> f userinfoResponseLocale-{-# INLINE userinfoResponseLocaleL #-}---- | 'userinfoResponseMiddleName' Lens-userinfoResponseMiddleNameL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseMiddleNameL f UserinfoResponse{..} = (\userinfoResponseMiddleName -> UserinfoResponse { userinfoResponseMiddleName, ..} ) <$> f userinfoResponseMiddleName-{-# INLINE userinfoResponseMiddleNameL #-}---- | 'userinfoResponseName' Lens-userinfoResponseNameL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseNameL f UserinfoResponse{..} = (\userinfoResponseName -> UserinfoResponse { userinfoResponseName, ..} ) <$> f userinfoResponseName-{-# INLINE userinfoResponseNameL #-}---- | 'userinfoResponseNickname' Lens-userinfoResponseNicknameL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseNicknameL f UserinfoResponse{..} = (\userinfoResponseNickname -> UserinfoResponse { userinfoResponseNickname, ..} ) <$> f userinfoResponseNickname-{-# INLINE userinfoResponseNicknameL #-}---- | 'userinfoResponsePhoneNumber' Lens-userinfoResponsePhoneNumberL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponsePhoneNumberL f UserinfoResponse{..} = (\userinfoResponsePhoneNumber -> UserinfoResponse { userinfoResponsePhoneNumber, ..} ) <$> f userinfoResponsePhoneNumber-{-# INLINE userinfoResponsePhoneNumberL #-}---- | 'userinfoResponsePhoneNumberVerified' Lens-userinfoResponsePhoneNumberVerifiedL :: Lens_' UserinfoResponse (Maybe Bool)-userinfoResponsePhoneNumberVerifiedL f UserinfoResponse{..} = (\userinfoResponsePhoneNumberVerified -> UserinfoResponse { userinfoResponsePhoneNumberVerified, ..} ) <$> f userinfoResponsePhoneNumberVerified-{-# INLINE userinfoResponsePhoneNumberVerifiedL #-}---- | 'userinfoResponsePicture' Lens-userinfoResponsePictureL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponsePictureL f UserinfoResponse{..} = (\userinfoResponsePicture -> UserinfoResponse { userinfoResponsePicture, ..} ) <$> f userinfoResponsePicture-{-# INLINE userinfoResponsePictureL #-}---- | 'userinfoResponsePreferredUsername' Lens-userinfoResponsePreferredUsernameL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponsePreferredUsernameL f UserinfoResponse{..} = (\userinfoResponsePreferredUsername -> UserinfoResponse { userinfoResponsePreferredUsername, ..} ) <$> f userinfoResponsePreferredUsername-{-# INLINE userinfoResponsePreferredUsernameL #-}---- | 'userinfoResponseProfile' Lens-userinfoResponseProfileL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseProfileL f UserinfoResponse{..} = (\userinfoResponseProfile -> UserinfoResponse { userinfoResponseProfile, ..} ) <$> f userinfoResponseProfile-{-# INLINE userinfoResponseProfileL #-}---- | 'userinfoResponseSub' Lens-userinfoResponseSubL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseSubL f UserinfoResponse{..} = (\userinfoResponseSub -> UserinfoResponse { userinfoResponseSub, ..} ) <$> f userinfoResponseSub-{-# INLINE userinfoResponseSubL #-}---- | 'userinfoResponseUpdatedAt' Lens-userinfoResponseUpdatedAtL :: Lens_' UserinfoResponse (Maybe Integer)-userinfoResponseUpdatedAtL f UserinfoResponse{..} = (\userinfoResponseUpdatedAt -> UserinfoResponse { userinfoResponseUpdatedAt, ..} ) <$> f userinfoResponseUpdatedAt-{-# INLINE userinfoResponseUpdatedAtL #-}---- | 'userinfoResponseWebsite' Lens-userinfoResponseWebsiteL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseWebsiteL f UserinfoResponse{..} = (\userinfoResponseWebsite -> UserinfoResponse { userinfoResponseWebsite, ..} ) <$> f userinfoResponseWebsite-{-# INLINE userinfoResponseWebsiteL #-}---- | 'userinfoResponseZoneinfo' Lens-userinfoResponseZoneinfoL :: Lens_' UserinfoResponse (Maybe Text)-userinfoResponseZoneinfoL f UserinfoResponse{..} = (\userinfoResponseZoneinfo -> UserinfoResponse { userinfoResponseZoneinfo, ..} ) <$> f userinfoResponseZoneinfo-{-# INLINE userinfoResponseZoneinfoL #-}------ * Version---- | 'versionVersion' Lens-versionVersionL :: Lens_' Version (Maybe Text)-versionVersionL f Version{..} = (\versionVersion -> Version { versionVersion, ..} ) <$> f versionVersion-{-# INLINE versionVersionL #-}------ * Volume---- | 'volumeCreatedAt' Lens-volumeCreatedAtL :: Lens_' Volume (Maybe Text)-volumeCreatedAtL f Volume{..} = (\volumeCreatedAt -> Volume { volumeCreatedAt, ..} ) <$> f volumeCreatedAt-{-# INLINE volumeCreatedAtL #-}---- | 'volumeDriver' Lens-volumeDriverL :: Lens_' Volume (Text)-volumeDriverL f Volume{..} = (\volumeDriver -> Volume { volumeDriver, ..} ) <$> f volumeDriver-{-# INLINE volumeDriverL #-}---- | 'volumeLabels' Lens-volumeLabelsL :: Lens_' Volume ((Map.Map String Text))-volumeLabelsL f Volume{..} = (\volumeLabels -> Volume { volumeLabels, ..} ) <$> f volumeLabels-{-# INLINE volumeLabelsL #-}---- | 'volumeMountpoint' Lens-volumeMountpointL :: Lens_' Volume (Text)-volumeMountpointL f Volume{..} = (\volumeMountpoint -> Volume { volumeMountpoint, ..} ) <$> f volumeMountpoint-{-# INLINE volumeMountpointL #-}---- | 'volumeName' Lens-volumeNameL :: Lens_' Volume (Text)-volumeNameL f Volume{..} = (\volumeName -> Volume { volumeName, ..} ) <$> f volumeName-{-# INLINE volumeNameL #-}---- | 'volumeOptions' Lens-volumeOptionsL :: Lens_' Volume ((Map.Map String Text))-volumeOptionsL f Volume{..} = (\volumeOptions -> Volume { volumeOptions, ..} ) <$> f volumeOptions-{-# INLINE volumeOptionsL #-}---- | 'volumeScope' Lens-volumeScopeL :: Lens_' Volume (Text)-volumeScopeL f Volume{..} = (\volumeScope -> Volume { volumeScope, ..} ) <$> f volumeScope-{-# INLINE volumeScopeL #-}---- | 'volumeStatus' Lens-volumeStatusL :: Lens_' Volume (Maybe A.Value)-volumeStatusL f Volume{..} = (\volumeStatus -> Volume { volumeStatus, ..} ) <$> f volumeStatus-{-# INLINE volumeStatusL #-}---- | 'volumeUsageData' Lens-volumeUsageDataL :: Lens_' Volume (Maybe VolumeUsageData)-volumeUsageDataL f Volume{..} = (\volumeUsageData -> Volume { volumeUsageData, ..} ) <$> f volumeUsageData-{-# INLINE volumeUsageDataL #-}------ * VolumeUsageData---- | 'volumeUsageDataRefCount' Lens-volumeUsageDataRefCountL :: Lens_' VolumeUsageData (Integer)-volumeUsageDataRefCountL f VolumeUsageData{..} = (\volumeUsageDataRefCount -> VolumeUsageData { volumeUsageDataRefCount, ..} ) <$> f volumeUsageDataRefCount-{-# INLINE volumeUsageDataRefCountL #-}---- | 'volumeUsageDataSize' Lens-volumeUsageDataSizeL :: Lens_' VolumeUsageData (Integer)-volumeUsageDataSizeL f VolumeUsageData{..} = (\volumeUsageDataSize -> VolumeUsageData { volumeUsageDataSize, ..} ) <$> f volumeUsageDataSize-{-# INLINE volumeUsageDataSizeL #-}------ * WellKnown---- | 'wellKnownAuthorizationEndpoint' Lens-wellKnownAuthorizationEndpointL :: Lens_' WellKnown (Text)-wellKnownAuthorizationEndpointL f WellKnown{..} = (\wellKnownAuthorizationEndpoint -> WellKnown { wellKnownAuthorizationEndpoint, ..} ) <$> f wellKnownAuthorizationEndpoint-{-# INLINE wellKnownAuthorizationEndpointL #-}---- | 'wellKnownBackchannelLogoutSessionSupported' Lens-wellKnownBackchannelLogoutSessionSupportedL :: Lens_' WellKnown (Maybe Bool)-wellKnownBackchannelLogoutSessionSupportedL f WellKnown{..} = (\wellKnownBackchannelLogoutSessionSupported -> WellKnown { wellKnownBackchannelLogoutSessionSupported, ..} ) <$> f wellKnownBackchannelLogoutSessionSupported-{-# INLINE wellKnownBackchannelLogoutSessionSupportedL #-}---- | 'wellKnownBackchannelLogoutSupported' Lens-wellKnownBackchannelLogoutSupportedL :: Lens_' WellKnown (Maybe Bool)-wellKnownBackchannelLogoutSupportedL f WellKnown{..} = (\wellKnownBackchannelLogoutSupported -> WellKnown { wellKnownBackchannelLogoutSupported, ..} ) <$> f wellKnownBackchannelLogoutSupported-{-# INLINE wellKnownBackchannelLogoutSupportedL #-}---- | 'wellKnownClaimsParameterSupported' Lens-wellKnownClaimsParameterSupportedL :: Lens_' WellKnown (Maybe Bool)-wellKnownClaimsParameterSupportedL f WellKnown{..} = (\wellKnownClaimsParameterSupported -> WellKnown { wellKnownClaimsParameterSupported, ..} ) <$> f wellKnownClaimsParameterSupported-{-# INLINE wellKnownClaimsParameterSupportedL #-}---- | 'wellKnownClaimsSupported' Lens-wellKnownClaimsSupportedL :: Lens_' WellKnown (Maybe [Text])-wellKnownClaimsSupportedL f WellKnown{..} = (\wellKnownClaimsSupported -> WellKnown { wellKnownClaimsSupported, ..} ) <$> f wellKnownClaimsSupported-{-# INLINE wellKnownClaimsSupportedL #-}---- | 'wellKnownEndSessionEndpoint' Lens-wellKnownEndSessionEndpointL :: Lens_' WellKnown (Maybe Text)-wellKnownEndSessionEndpointL f WellKnown{..} = (\wellKnownEndSessionEndpoint -> WellKnown { wellKnownEndSessionEndpoint, ..} ) <$> f wellKnownEndSessionEndpoint-{-# INLINE wellKnownEndSessionEndpointL #-}---- | 'wellKnownFrontchannelLogoutSessionSupported' Lens-wellKnownFrontchannelLogoutSessionSupportedL :: Lens_' WellKnown (Maybe Bool)-wellKnownFrontchannelLogoutSessionSupportedL f WellKnown{..} = (\wellKnownFrontchannelLogoutSessionSupported -> WellKnown { wellKnownFrontchannelLogoutSessionSupported, ..} ) <$> f wellKnownFrontchannelLogoutSessionSupported-{-# INLINE wellKnownFrontchannelLogoutSessionSupportedL #-}---- | 'wellKnownFrontchannelLogoutSupported' Lens-wellKnownFrontchannelLogoutSupportedL :: Lens_' WellKnown (Maybe Bool)-wellKnownFrontchannelLogoutSupportedL f WellKnown{..} = (\wellKnownFrontchannelLogoutSupported -> WellKnown { wellKnownFrontchannelLogoutSupported, ..} ) <$> f wellKnownFrontchannelLogoutSupported-{-# INLINE wellKnownFrontchannelLogoutSupportedL #-}---- | 'wellKnownGrantTypesSupported' Lens-wellKnownGrantTypesSupportedL :: Lens_' WellKnown (Maybe [Text])-wellKnownGrantTypesSupportedL f WellKnown{..} = (\wellKnownGrantTypesSupported -> WellKnown { wellKnownGrantTypesSupported, ..} ) <$> f wellKnownGrantTypesSupported-{-# INLINE wellKnownGrantTypesSupportedL #-}---- | 'wellKnownIdTokenSigningAlgValuesSupported' Lens-wellKnownIdTokenSigningAlgValuesSupportedL :: Lens_' WellKnown ([Text])-wellKnownIdTokenSigningAlgValuesSupportedL f WellKnown{..} = (\wellKnownIdTokenSigningAlgValuesSupported -> WellKnown { wellKnownIdTokenSigningAlgValuesSupported, ..} ) <$> f wellKnownIdTokenSigningAlgValuesSupported-{-# INLINE wellKnownIdTokenSigningAlgValuesSupportedL #-}---- | 'wellKnownIssuer' Lens-wellKnownIssuerL :: Lens_' WellKnown (Text)-wellKnownIssuerL f WellKnown{..} = (\wellKnownIssuer -> WellKnown { wellKnownIssuer, ..} ) <$> f wellKnownIssuer-{-# INLINE wellKnownIssuerL #-}---- | 'wellKnownJwksUri' Lens-wellKnownJwksUriL :: Lens_' WellKnown (Text)-wellKnownJwksUriL f WellKnown{..} = (\wellKnownJwksUri -> WellKnown { wellKnownJwksUri, ..} ) <$> f wellKnownJwksUri-{-# INLINE wellKnownJwksUriL #-}---- | 'wellKnownRegistrationEndpoint' Lens-wellKnownRegistrationEndpointL :: Lens_' WellKnown (Maybe Text)-wellKnownRegistrationEndpointL f WellKnown{..} = (\wellKnownRegistrationEndpoint -> WellKnown { wellKnownRegistrationEndpoint, ..} ) <$> f wellKnownRegistrationEndpoint-{-# INLINE wellKnownRegistrationEndpointL #-}---- | 'wellKnownRequestObjectSigningAlgValuesSupported' Lens-wellKnownRequestObjectSigningAlgValuesSupportedL :: Lens_' WellKnown (Maybe [Text])-wellKnownRequestObjectSigningAlgValuesSupportedL f WellKnown{..} = (\wellKnownRequestObjectSigningAlgValuesSupported -> WellKnown { wellKnownRequestObjectSigningAlgValuesSupported, ..} ) <$> f wellKnownRequestObjectSigningAlgValuesSupported-{-# INLINE wellKnownRequestObjectSigningAlgValuesSupportedL #-}---- | 'wellKnownRequestParameterSupported' Lens-wellKnownRequestParameterSupportedL :: Lens_' WellKnown (Maybe Bool)-wellKnownRequestParameterSupportedL f WellKnown{..} = (\wellKnownRequestParameterSupported -> WellKnown { wellKnownRequestParameterSupported, ..} ) <$> f wellKnownRequestParameterSupported-{-# INLINE wellKnownRequestParameterSupportedL #-}---- | 'wellKnownRequestUriParameterSupported' Lens-wellKnownRequestUriParameterSupportedL :: Lens_' WellKnown (Maybe Bool)-wellKnownRequestUriParameterSupportedL f WellKnown{..} = (\wellKnownRequestUriParameterSupported -> WellKnown { wellKnownRequestUriParameterSupported, ..} ) <$> f wellKnownRequestUriParameterSupported-{-# INLINE wellKnownRequestUriParameterSupportedL #-}---- | 'wellKnownRequireRequestUriRegistration' Lens-wellKnownRequireRequestUriRegistrationL :: Lens_' WellKnown (Maybe Bool)-wellKnownRequireRequestUriRegistrationL f WellKnown{..} = (\wellKnownRequireRequestUriRegistration -> WellKnown { wellKnownRequireRequestUriRegistration, ..} ) <$> f wellKnownRequireRequestUriRegistration-{-# INLINE wellKnownRequireRequestUriRegistrationL #-}---- | 'wellKnownResponseModesSupported' Lens-wellKnownResponseModesSupportedL :: Lens_' WellKnown (Maybe [Text])-wellKnownResponseModesSupportedL f WellKnown{..} = (\wellKnownResponseModesSupported -> WellKnown { wellKnownResponseModesSupported, ..} ) <$> f wellKnownResponseModesSupported-{-# INLINE wellKnownResponseModesSupportedL #-}---- | 'wellKnownResponseTypesSupported' Lens-wellKnownResponseTypesSupportedL :: Lens_' WellKnown ([Text])-wellKnownResponseTypesSupportedL f WellKnown{..} = (\wellKnownResponseTypesSupported -> WellKnown { wellKnownResponseTypesSupported, ..} ) <$> f wellKnownResponseTypesSupported-{-# INLINE wellKnownResponseTypesSupportedL #-}---- | 'wellKnownRevocationEndpoint' Lens-wellKnownRevocationEndpointL :: Lens_' WellKnown (Maybe Text)-wellKnownRevocationEndpointL f WellKnown{..} = (\wellKnownRevocationEndpoint -> WellKnown { wellKnownRevocationEndpoint, ..} ) <$> f wellKnownRevocationEndpoint-{-# INLINE wellKnownRevocationEndpointL #-}---- | 'wellKnownScopesSupported' Lens-wellKnownScopesSupportedL :: Lens_' WellKnown (Maybe [Text])-wellKnownScopesSupportedL f WellKnown{..} = (\wellKnownScopesSupported -> WellKnown { wellKnownScopesSupported, ..} ) <$> f wellKnownScopesSupported-{-# INLINE wellKnownScopesSupportedL #-}---- | 'wellKnownSubjectTypesSupported' Lens-wellKnownSubjectTypesSupportedL :: Lens_' WellKnown ([Text])-wellKnownSubjectTypesSupportedL f WellKnown{..} = (\wellKnownSubjectTypesSupported -> WellKnown { wellKnownSubjectTypesSupported, ..} ) <$> f wellKnownSubjectTypesSupported-{-# INLINE wellKnownSubjectTypesSupportedL #-}---- | 'wellKnownTokenEndpoint' Lens-wellKnownTokenEndpointL :: Lens_' WellKnown (Text)-wellKnownTokenEndpointL f WellKnown{..} = (\wellKnownTokenEndpoint -> WellKnown { wellKnownTokenEndpoint, ..} ) <$> f wellKnownTokenEndpoint-{-# INLINE wellKnownTokenEndpointL #-}---- | 'wellKnownTokenEndpointAuthMethodsSupported' Lens-wellKnownTokenEndpointAuthMethodsSupportedL :: Lens_' WellKnown (Maybe [Text])-wellKnownTokenEndpointAuthMethodsSupportedL f WellKnown{..} = (\wellKnownTokenEndpointAuthMethodsSupported -> WellKnown { wellKnownTokenEndpointAuthMethodsSupported, ..} ) <$> f wellKnownTokenEndpointAuthMethodsSupported-{-# INLINE wellKnownTokenEndpointAuthMethodsSupportedL #-}---- | 'wellKnownUserinfoEndpoint' Lens-wellKnownUserinfoEndpointL :: Lens_' WellKnown (Maybe Text)-wellKnownUserinfoEndpointL f WellKnown{..} = (\wellKnownUserinfoEndpoint -> WellKnown { wellKnownUserinfoEndpoint, ..} ) <$> f wellKnownUserinfoEndpoint-{-# INLINE wellKnownUserinfoEndpointL #-}---- | 'wellKnownUserinfoSigningAlgValuesSupported' Lens-wellKnownUserinfoSigningAlgValuesSupportedL :: Lens_' WellKnown (Maybe [Text])-wellKnownUserinfoSigningAlgValuesSupportedL f WellKnown{..} = (\wellKnownUserinfoSigningAlgValuesSupported -> WellKnown { wellKnownUserinfoSigningAlgValuesSupported, ..} ) <$> f wellKnownUserinfoSigningAlgValuesSupported-{-# INLINE wellKnownUserinfoSigningAlgValuesSupportedL #-}--