From ac39a3f51dbfc85f32e94f1bcb1bbbbb50bc10eb Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 18 Jan 2023 07:31:50 +0300
Subject: [PATCH] ResponseM monad

---
 hbs2-tests/test/Main.hs | 2 --
 1 file changed, 2 deletions(-)

diff --git a/hbs2-tests/test/Main.hs b/hbs2-tests/test/Main.hs
index 4c2a08fc..d62bb442 100644
--- a/hbs2-tests/test/Main.hs
+++ b/hbs2-tests/test/Main.hs
@@ -77,8 +77,6 @@ blockSizeProto :: forall e m  . ( MonadIO m
 blockSizeProto getBlockSize evHasBlock =
   \case
     GetBlockSize h -> do
-      debug $ "GetBlockSize" <+> pretty h
-
       -- TODO: STORAGE: seek for block
       -- TODO: defer answer (?)
       -- TODO: does it really work?