From 73853f53d34fa06affd7b861d4ea2f385355e45c Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Thu, 21 Nov 2024 15:55:58 -0500 Subject: Log online/offline events --- fig-web/src/Fig/Web.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'fig-web') diff --git a/fig-web/src/Fig/Web.hs b/fig-web/src/Fig/Web.hs index d3b5ad4..e200cf6 100644 --- a/fig-web/src/Fig/Web.hs +++ b/fig-web/src/Fig/Web.hs @@ -57,6 +57,7 @@ server cfg busAddr = do old <- MVar.swapMVar currentlyLive new let online = Set.difference new old let offline = Set.difference old new + log $ "Newly online: " <> Text.intercalate " " (Set.toList online) <> ", newly offline: " <> Text.intercalate " " (Set.toList offline) unless (Set.null online) . Chan.writeChan liveEvents $ LiveEventOnline online unless (Set.null offline) . Chan.writeChan liveEvents $ LiveEventOnline offline _other -> log $ "Invalid event: " <> tshow d -- cgit v1.2.3