From 588d47bdec6182e2d0aa4adc76d92ae20fd257f9 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 17 Jul 2023 21:31:49 +0200 Subject: [PATCH] remove remnant --- src/Model/Auth.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/Model/Auth.hs b/src/Model/Auth.hs index e5d14fb..3438df2 100644 --- a/src/Model/Auth.hs +++ b/src/Model/Auth.hs @@ -312,10 +312,6 @@ generateToken tuid method (AuthResponse response) conn = do throwError err501 { errBody = "Validation of challenge response authentication not yet implemented" } - -- signJWT :: JWK -> AuthResult -> MateHandler (Either JWTError SignedJWT) - -- signJWT key result = liftIO $ runExceptT $ do - -- algo <- bestJWSAlg key - -- signJWS (A.encode result) (Identity (newJWSHeader ((), algo), key)) insertToken