voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

todo

This commit is contained in:
Dmitry Zuikov 2023-10-25 11:06:17 +03:00
parent 606a6b067a
commit e7460213d7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hbs2-peer/app/RefLog.hs
View File

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