diff options
Diffstat (limited to 'src/Ssb/Peer/BoxStream.hs')
| -rw-r--r-- | src/Ssb/Peer/BoxStream.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Ssb/Peer/BoxStream.hs b/src/Ssb/Peer/BoxStream.hs index d804e56..bb81a12 100644 --- a/src/Ssb/Peer/BoxStream.hs +++ b/src/Ssb/Peer/BoxStream.hs @@ -296,12 +296,12 @@ readStream' connState bytes = if BS.length (buffer connState) >= bytes else do let bodyLength' = bodyLength <$> (buf >>= decryptHeader key' nonce') case bodyLength' of - Left err -> return $ (connState, Left err) + Left err -> return (connState, Left err) Right bodyLength' -> do - ePayload <- (withErr errNoBody) + ePayload <- withErr errNoBody <$> read connState (fromIntegral bodyLength') case ePayload of - Left err -> return $ (connState, Left err) + Left err -> return (connState, Left err) Right payload -> case decryptMessage key' |