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