mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 12:31:52 +03:00
11a454c2d6
This commit applies ormolu to the whole Haskell code base by running `make format`. For in-flight branches, simply merging changes from `main` will result in merge conflicts. To avoid this, update your branch using the following instructions. Replace `<format-commit>` by the hash of *this* commit. $ git checkout my-feature-branch $ git merge <format-commit>^ # and resolve conflicts normally $ make format $ git commit -a -m "reformat with ormolu" $ git merge -s ours post-ormolu https://github.com/hasura/graphql-engine-mono/pull/2404 GitOrigin-RevId: 75049f5c12f430c615eafb4c6b8e83e371e01c8e
66 lines
1.8 KiB
Haskell
66 lines
1.8 KiB
Haskell
module Hasura.Server.Auth.JWT.Logging
|
|
( JwkRefreshLog (..),
|
|
JwkFetchError (..),
|
|
)
|
|
where
|
|
|
|
import Data.Aeson
|
|
import Data.ByteString.Lazy qualified as BL
|
|
import Hasura.HTTP
|
|
import Hasura.Logging
|
|
( EngineLogType (..),
|
|
Hasura,
|
|
InternalLogTypes (..),
|
|
LogLevel (..),
|
|
ToEngineLog (..),
|
|
)
|
|
import Hasura.Prelude
|
|
import Network.HTTP.Types qualified as HTTP
|
|
import Network.URI (URI)
|
|
|
|
-- | Possible errors during fetching and parsing JWK
|
|
-- (the 'Text' type at the end is a friendly error message)
|
|
data JwkFetchError
|
|
= -- | Exception while making the HTTP request
|
|
JFEHttpException !HttpException !Text
|
|
| -- | Non-2xx HTTP errors from the upstream server
|
|
JFEHttpError !URI !HTTP.Status !BL.ByteString !Text
|
|
| -- | Error parsing the JWK response itself
|
|
JFEJwkParseError !Text !Text
|
|
| -- | Error parsing the expiry of the JWK
|
|
JFEExpiryParseError !(Maybe Text) Text
|
|
deriving (Show)
|
|
|
|
instance ToJSON JwkFetchError where
|
|
toJSON = \case
|
|
JFEHttpException e _ ->
|
|
object ["http_exception" .= e]
|
|
JFEHttpError url status body _ ->
|
|
object
|
|
[ "status_code" .= HTTP.statusCode status,
|
|
"url" .= tshow url,
|
|
"response" .= bsToTxt (BL.toStrict body)
|
|
]
|
|
JFEJwkParseError e msg ->
|
|
object ["error" .= e, "message" .= msg]
|
|
JFEExpiryParseError e msg ->
|
|
object ["error" .= e, "message" .= msg]
|
|
|
|
data JwkRefreshLog = JwkRefreshLog
|
|
{ jrlLogLevel :: !LogLevel,
|
|
jrlMessage :: !(Maybe Text),
|
|
jrlError :: !(Maybe JwkFetchError)
|
|
}
|
|
deriving (Show)
|
|
|
|
instance ToJSON JwkRefreshLog where
|
|
toJSON (JwkRefreshLog _ msg err) =
|
|
object
|
|
[ "message" .= msg,
|
|
"error" .= err
|
|
]
|
|
|
|
instance ToEngineLog JwkRefreshLog Hasura where
|
|
toEngineLog jwkRefreshLog =
|
|
(jrlLogLevel jwkRefreshLog, ELTInternal ILTJwkRefreshLog, toJSON jwkRefreshLog)
|