diff --git a/src/App/Container.purs b/src/App/Container.purs index 234b4ce..d51b24b 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -702,7 +702,7 @@ handleAction = case _ of handleAction $ AddNotif $ BadNotification $ "You do not have sufficient rights." -- The authentication failed. (DNSManager.MkError errmsg) -> do - handleAction $ Log $ ErrorLog $ "reason is: " <> errmsg.reason + handleAction $ Log $ ErrorLog errmsg.reason (DNSManager.MkErrorUserNotLogged _) -> do handleAction $ Log $ ErrorLog $ "The user isn't connected!" handleAction $ Log $ SystemLog $ "Trying to authenticate to fix the problem..."