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