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