chore(auth): fix azure exception handler

2024-02-18 18:42:22 +01:00 · 2024-02-18 18:42:22 +01:00 · 96038a4f22
commit 96038a4f22
parent 5c4042e5f3
1 changed files with 1 additions and 1 deletions
--- a/src/Foundation/Yesod/Auth.hs
+++ b/src/Foundation/Yesod/Auth.hs
@ -109,7 +109,7 @@ authenticate creds@Creds{..} = liftHandler . runDB . withReaderT projectBackend
          err -> do
            $logErrorS "OAuth" $ tshow err
            mr <- getMessageRender
-            excRecovery . ServerError $ mr MsgInternalLdapError -- TODO where does this come from?
+            excRecovery . ServerError $ mr MsgInternalLoginError
      , C.Handler $ \(cExc :: UserConversionException) -> do
          $logErrorS "Auth" $ tshow cExc
          mr <- getMessageRender