From 0dbae80f019d0d84da269286da2cf9bfab7c6141 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Sun, 1 Jun 2025 20:26:31 -0400 Subject: fig-bus: Clarify error message --- fig-bus/src/Fig/Bus/Binary/Client.hs | 2 +- fig-bus/src/Fig/Bus/Binary/Utils.hs | 1 - 2 files changed, 1 insertion(+), 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 -- cgit v1.2.3