diff options
Diffstat (limited to 'fig-web')
| -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 |