From 676d87fb18b0f9bb7d6bdd47c982e8b8ee26d25b Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Sun, 8 Jun 2025 03:23:16 -0400 Subject: fig-bus: Log connections and disconnections --- fig-bus/src/Fig/Bus/Binary.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'fig-bus/src') diff --git a/fig-bus/src/Fig/Bus/Binary.hs b/fig-bus/src/Fig/Bus/Binary.hs index 9a75e04..f800cf7 100644 --- a/fig-bus/src/Fig/Bus/Binary.hs +++ b/fig-bus/src/Fig/Bus/Binary.hs @@ -44,6 +44,7 @@ main bind = do subs <- IORef.newIORef ([] :: [EventType]) pure \h peer -> ( do + log $ "Connected: " <> tshow peer let go = do c <- hGet h 1 @@ -65,6 +66,7 @@ main bind = do w -> log $ "Unknown command code: " <> tshow w go , do + log $ "Disconnected: " <> tshow peer ss <- IORef.readIORef subs MVar.modifyMVar_ st \bs -> pure $ foldr (`unsubscribe` h) bs ss ) -- cgit v1.2.3