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

wip

This commit is contained in:
Dmitry Zuikov 2023-01-22 13:06:20 +03:00
parent 8bc8ddf564
commit b0bfe75e1f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -256,11 +256,14 @@ instance ( HasProtocol e p
let sk = newSKey @(EventKey e p) k let sk = newSKey @(EventKey e p) k
void $ runMaybeT $ do void $ runMaybeT $ do
liftIO $ print "GOOD"
subs <- MaybeT $ liftIO $ atomically $ readTVar se <&> HashMap.lookup sk subs <- MaybeT $ liftIO $ atomically $ readTVar se <&> HashMap.lookup sk
liftIO $ print "VERY GOOD"
void $ liftIO $ atomically $ modifyTVar' se (HashMap.delete sk) void $ liftIO $ atomically $ modifyTVar' se (HashMap.delete sk)
for_ subs $ \r -> do for_ 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 lift $ ev d
liftIO $ print "FINE"
runPeerM :: (MonadIO m, Pretty (Peer e)) => AnyStorage -> Fabriq e -> Peer e -> PeerM e m a -> m () runPeerM :: (MonadIO m, Pretty (Peer e)) => AnyStorage -> Fabriq e -> Peer e -> PeerM e m a -> m ()
runPeerM s bus p f = do runPeerM s bus p f = do