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

works-but-slow

This commit is contained in:
Dmitry Zuikov 2023-01-26 11:44:40 +03:00
parent 5c46d7cec0
commit e390cc8c5d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-core/lib/HBS2/Actors/Peer.hs
View File

@ -275,7 +275,7 @@ instance ( HasProtocol e p
void $ liftIO $ atomically $ modifyTVar' se (HashMap.delete sk) void $ liftIO $ atomically $ modifyTVar' se (HashMap.delete sk)
pers <- forM subs $ \r -> do pers <- forM subs $ \r -> do
ev <- MaybeT $ pure $ fromDynamic @(EventHandler e p (PeerM e IO)) r ev <- MaybeT $ pure $ fromDynamic @(EventHandler e p (PeerM e IO)) r
lift $ ev d liftIO $ withPeerM env $ ev d
if isPersistent @(Event e p) then if isPersistent @(Event e p) then
pure [r] pure [r]
else else