From e7460213d70df166b80527d4c00a04c11c44eefc Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 25 Oct 2023 11:06:17 +0300
Subject: [PATCH] todo

---
 hbs2-peer/app/RefLog.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/hbs2-peer/app/RefLog.hs b/hbs2-peer/app/RefLog.hs
index d71ef8b4..b9917a9f 100644
--- a/hbs2-peer/app/RefLog.hs
+++ b/hbs2-peer/app/RefLog.hs
@@ -71,7 +71,10 @@ mkRefLogRequestAdapter = do
   sto <- getStorage
   pure $ RefLogRequestI (doOnRefLogRequest sto) dontHandle
 
-
+-- FIXME: check-if-subscribed
+--   не дергать диск для неизвестных ссылок
+--   должно уменьшить дергание диска и флуд
+--   в логе
 doOnRefLogRequest :: forall e s m . ( MonadIO m
                                     , MyPeer e
                                     , s ~ Encryption e