From c7bd61ce366fb0445b4606061f8ebaed44106743 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Sat, 23 Mar 2024 11:26:23 +0100 Subject: [PATCH] Do not print twice that we received a list of orphan domains. --- src/App/Page/Administration.purs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/App/Page/Administration.purs b/src/App/Page/Administration.purs index 51a6ea9..069f805 100644 --- a/src/App/Page/Administration.purs +++ b/src/App/Page/Administration.purs @@ -312,8 +312,7 @@ handleQuery = case _ of H.modify_ _ { matching_users = A.filter (\x -> x.uid /= msg.uid) matching_users } -- Unexpected message. - _ -> do - H.raise $ Log $ ErrorLog $ "Authentication server didn't send a valid message." + _ -> H.raise $ Log $ ErrorLog $ "Authentication server didn't send a valid message." pure (Just a) ConnectionIsDown a -> do @@ -325,6 +324,5 @@ handleQuery = case _ of pure (Just a) GotOrphanDomainList domains a -> do - H.raise $ Log $ SuccessLog "Got orphan domain list!" H.modify_ _ { orphan_domains = domains } pure (Just a)