Do not print twice that we received a list of orphan domains.

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)