fig-bus: Log even more

1 files changed, 2 insertions, 2 deletions

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