2024-03-13 17:24:06 +01:00
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