fig-bus: Log connections and disconnections

1 files changed, 2 insertions, 0 deletions

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
       )