diff --git a/src/App/Container.purs b/src/App/Container.purs index 8b02550..fe44f0d 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -567,7 +567,7 @@ handleAction = case _ of (AuthD.GotError errmsg) -> do handleAction $ Log $ ErrorLog $ " generic error message: " <> maybe "server didn't tell why" (\v -> v) errmsg.reason - handleAction $ AddNotif $ BadNotification $ "Sorry, authd sent an error message." + handleAction $ AddNotif $ BadNotification $ "Sorry, authd sent an error message. " <> maybe "The server didn't tell why." (\v -> "Message was: " <> v) errmsg.reason m@(AuthD.GotPasswordRecoverySent _) -> do handleAction $ Log $ SuccessLog $ "Password recovery: email sent!"