diff --git a/frontend/src/Datarekisteri/Frontend/Auth.hs b/frontend/src/Datarekisteri/Frontend/Auth.hs index 75f2144..b187f83 100644 --- 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