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(-)

(limited to 'src/Erebos')

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