Baguette/dnsmanager-webclient
3
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Philippe Pittoli 2024-03-23 11:26:23 +01:00
parent 71a27d2a35
commit c7bd61ce36
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/App/Page/Administration.purs
View File

@ -312,8 +312,7 @@ handleQuery = case _ of
H.modify_ _ { matching_users = A.filter (\x -> x.uid /= msg.uid) matching_users } H.modify_ _ { matching_users = A.filter (\x -> x.uid /= msg.uid) matching_users }
-- Unexpected message. -- 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) pure (Just a)
ConnectionIsDown a -> do ConnectionIsDown a -> do
@ -325,6 +324,5 @@ handleQuery = case _ of
pure (Just a) pure (Just a)
GotOrphanDomainList domains a -> do GotOrphanDomainList domains a -> do
H.raise $ Log $ SuccessLog "Got orphan domain list!"
H.modify_ _ { orphan_domains = domains } H.modify_ _ { orphan_domains = domains }
pure (Just a) pure (Just a)