diff options
Diffstat (limited to 'fig-bus/src')
| -rw-r--r-- | fig-bus/src/Fig/Bus/Binary.hs | 2 |
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 ) |