summaryrefslogtreecommitdiff
path: root/src/Erebos/Network/Protocol.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2024-05-04 21:29:58 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2024-05-05 11:50:00 +0200
commit32fe4f3eb5938df37848b3882fb8f65c0919995d (patch)
tree0d02a9a300c98c7d884145098945283bc535e352 /src/Erebos/Network/Protocol.hs
parent1d50a136067b59ea8fc6b95b8b22a911f603a605 (diff)
Network streams: remove debug print
Diffstat (limited to 'src/Erebos/Network/Protocol.hs')
-rw-r--r--src/Erebos/Network/Protocol.hs1
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