From 32fe4f3eb5938df37848b3882fb8f65c0919995d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 4 May 2024 21:29:58 +0200
Subject: Network streams: remove debug print
---
src/Erebos/Network/Protocol.hs | 1 -
1 file changed, 1 deletion(-)
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
--
cgit v1.2.3