From 96038a4f224e368505a71fec3ceffb3bb7f8f9cb Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@uniworx.de>
Date: Sun, 18 Feb 2024 18:42:22 +0100
Subject: [PATCH] chore(auth): fix azure exception handler

---
 src/Foundation/Yesod/Auth.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Foundation/Yesod/Auth.hs b/src/Foundation/Yesod/Auth.hs
index d81d09172..95dd60e80 100644
--- 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