diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-21 15:55:58 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-21 15:55:58 -0500 |
| commit | 73853f53d34fa06affd7b861d4ea2f385355e45c (patch) | |
| tree | d14b94a9ef69d25f70003426270eb9606c9a0265 /fig-web/src | |
| parent | c343963b36d948efbfe3636d907038b7107a8361 (diff) | |
Log online/offline events
Diffstat (limited to 'fig-web/src')
| -rw-r--r-- | fig-web/src/Fig/Web.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |