diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2024-05-04 21:29:58 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-05-05 11:50:00 +0200 |
| commit | 32fe4f3eb5938df37848b3882fb8f65c0919995d (patch) | |
| tree | 0d02a9a300c98c7d884145098945283bc535e352 /src/Erebos/Network/Protocol.hs | |
| parent | 1d50a136067b59ea8fc6b95b8b22a911f603a605 (diff) | |
Network streams: remove debug print
Diffstat (limited to 'src/Erebos/Network/Protocol.hs')
| -rw-r--r-- | src/Erebos/Network/Protocol.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/Erebos/Network/Protocol.hs b/src/Erebos/Network/Protocol.hs index 3191f16..6c974bd 100644 --- a/src/Erebos/Network/Protocol.hs +++ b/src/Erebos/Network/Protocol.hs @@ -330,7 +330,6 @@ readStreamToList stream = readFlowIO stream >>= \case readObjectsFromStream :: PartialStorage -> RawStreamReader -> IO (Except String [PartialObject]) readObjectsFromStream st stream = do (seqEnd, list) <- readStreamToList stream - print (seqEnd, length list, list) let validate s ((s', bytes) : rest) | s == s' = (bytes : ) <$> validate (s + 1) rest | s > s' = validate s rest |