From e390cc8c5d0efe64d2706416b1412f7ea8279c88 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Thu, 26 Jan 2023 11:44:40 +0300
Subject: [PATCH] works-but-slow

---
 hbs2-core/lib/HBS2/Actors/Peer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hbs2-core/lib/HBS2/Actors/Peer.hs b/hbs2-core/lib/HBS2/Actors/Peer.hs
index fd419362..2eb2e9db 100644
--- a/hbs2-core/lib/HBS2/Actors/Peer.hs
+++ b/hbs2-core/lib/HBS2/Actors/Peer.hs
@@ -275,7 +275,7 @@ instance ( HasProtocol e p
         void $ liftIO $ atomically $ modifyTVar' se (HashMap.delete sk)
         pers <- forM subs $ \r -> do
                   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
                     pure [r]
                   else