Set a more descriptive error on invalid credentials

2023-11-01 19:53:54 +02:00 · 2023-11-01 19:53:54 +02:00 · 4a78b6f7bf
parent e5dc50195f
commit 4a78b6f7bf
1 changed files with 1 additions and 1 deletions
--- a/frontend/src/Datarekisteri/Frontend/Auth.hs
+++ b/frontend/src/Datarekisteri/Frontend/Auth.hs
@ -37,7 +37,7 @@ postLoginR authReq = do
      FormSuccess auth -> do
          maybeAuth <- liftHandler $ authReq $ ("Basic " <> ) $ B64.encodeBase64 $ encodeUtf8 auth
          case maybeAuth of
-            Nothing -> loginErrorMessageI LoginR Msg.NoIdentifierProvided -- invalid creds
+            Nothing -> loginErrorMessageI LoginR Msg.InvalidEmailPass -- invalid creds
            Just txt -> do
                setCredsRedirect Creds {credsPlugin = pluginName, credsIdent = txt, credsExtra = []}
      _ -> loginErrorMessageI LoginR Msg.NoIdentifierProvided