From 4e136aa08baa3ae85ae4a1efba758a6443b7b079 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 7 Feb 2024 17:44:47 +0300
Subject: [PATCH] tuning performance

---
 hbs2-peer/app/Brains.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hbs2-peer/app/Brains.hs b/hbs2-peer/app/Brains.hs
index bc451b76..98da6611 100644
--- a/hbs2-peer/app/Brains.hs
+++ b/hbs2-peer/app/Brains.hs
@@ -135,7 +135,7 @@ instance ( Hashable (Peer e)
     updateOP b $ insertSize b p h size
     commitNow b True
     -- FIXME: wait-till-really-commited
-    sz <- liftIO $ selectBlockSize b p h
+    -- sz <- liftIO $ selectBlockSize b p h
     -- trace $ "BRAINS: onBlockSize" <+> pretty p <+> pretty h <+> pretty sz
     pure ()