From 53f00efe6034d03fd383c90c032c50d69e145d61 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Sun, 8 Jun 2025 03:31:16 -0400 Subject: fig-bus: Log even more --- fig-bus/src/Fig/Bus/Binary.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'fig-bus/src/Fig/Bus/Binary.hs') diff --git a/fig-bus/src/Fig/Bus/Binary.hs b/fig-bus/src/Fig/Bus/Binary.hs index f800cf7..52de1d9 100644 --- a/fig-bus/src/Fig/Bus/Binary.hs +++ b/fig-bus/src/Fig/Bus/Binary.hs @@ -56,13 +56,13 @@ main bind = do IORef.modifyIORef' subs (ev:) MVar.modifyMVar_ st (pure . subscribe ev h) go - _else -> log "Malformed subscription" + p -> log $ "Malformed subscription from " <> tshow peer <> ": " <> tshow p 112 -> (,) <$> readEvent h <*> readLengthPrefixed h >>= \case (Just ev@(EventType e), Just d) -> do log $ tshow peer <> " publishing to: " <> tshow e publish ev d =<< MVar.readMVar st go - _else -> log "Malformed publish" + p -> log $ "Malformed publish from " <> tshow peer <> ": " <> tshow p w -> log $ "Unknown command code: " <> tshow w go , do -- cgit v1.2.3