From a931453581d7aa9882469d30fc4fda7c246b08e7 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Tue, 3 Jun 2025 02:36:57 -0400
Subject: fig-bus: Cleanup error messages

---
 fig-bus/src/Fig/Bus/Binary.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/fig-bus/src/Fig/Bus/Binary.hs b/fig-bus/src/Fig/Bus/Binary.hs
index 5f465ec..9a75e04 100644
--- a/fig-bus/src/Fig/Bus/Binary.hs
+++ b/fig-bus/src/Fig/Bus/Binary.hs
@@ -2,7 +2,6 @@ module Fig.Bus.Binary (main) where
 
 import Fig.Prelude
 
-import Control.Monad (when)
 import Control.Concurrent.MVar as MVar
 
 import qualified Data.List as List
@@ -56,14 +55,14 @@ main bind = do
                       IORef.modifyIORef' subs (ev:)
                       MVar.modifyMVar_ st (pure . subscribe ev h)
                       go
-                    _else -> log "malformed subscription"
+                    _else -> log "Malformed subscription"
                   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"
-                  w -> log $ "unknown command code: " <> tshow w
+                    _else -> log "Malformed publish"
+                  w -> log $ "Unknown command code: " <> tshow w
           go
       , do
           ss <- IORef.readIORef subs
-- 
cgit v1.2.3