diff options
Diffstat (limited to 'fig-bus/src')
| -rw-r--r-- | fig-bus/src/Fig/Bus/Binary/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fig-bus/src/Fig/Bus/Binary/Utils.hs b/fig-bus/src/Fig/Bus/Binary/Utils.hs index 2fa714d..a270fcc 100644 --- a/fig-bus/src/Fig/Bus/Binary/Utils.hs +++ b/fig-bus/src/Fig/Bus/Binary/Utils.hs @@ -18,7 +18,7 @@ readLengthPrefixed :: Handle -> IO (Maybe ByteString) readLengthPrefixed h = do n <- hGet h 4 case intFromLEBytes (BS.unpack n) of - 0 -> pure Nothing + 0 -> pure $ Just "" len -> do x <- hGet h len pure $ Just x |