diff options
| -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 |