(minor) add a space.
parent
28f5e3091b
commit
57b3dd6644
|
@ -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!"
|
||||
|
|
Loading…
Reference in New Issue