fig-bus: Clarify error message

2 files changed, 1 insertions, 2 deletions

diff --git a/fig-bus/src/Fig/Bus/Binary/Client.hs b/fig-bus/src/Fig/Bus/Binary/Client.hs
index a2e601f..e1226d8 100644
--- a/fig-bus/src/Fig/Bus/Binary/Client.hs
+++ b/fig-bus/src/Fig/Bus/Binary/Client.hs
@@ -45,7 +45,7 @@ busClient loc@(host, port) onConn onData onQuit = catchFailure . client loc $ pu
           forever do
             (,) <$> readLengthPrefixed h <*> readLengthPrefixed h >>= \case
               (Just ev, Just d) -> liftIO $ onData cmds ev d
-              _else -> throwM . FigBusClientException $ "Server sent malformed data"
+              _else -> throwM . FigBusClientException $ "Connection to bus closed"
     , liftIO onQuit
     )
   where
diff --git a/fig-bus/src/Fig/Bus/Binary/Utils.hs b/fig-bus/src/Fig/Bus/Binary/Utils.hs
index 734c7c9..2fa714d 100644
--- a/fig-bus/src/Fig/Bus/Binary/Utils.hs
+++ b/fig-bus/src/Fig/Bus/Binary/Utils.hs
@@ -23,7 +23,6 @@ readLengthPrefixed h = do
       x <- hGet h len
       pure $ Just x
 
-
 readEvent :: Handle -> IO (Maybe EventType)
 readEvent h = do
   mb <- readLengthPrefixed h