From 43ae84e3a764f222fdcf0877518e949d012f3017 Mon Sep 17 00:00:00 2001
From: samalws-tob <129795909+samalws-tob@users.noreply.github.com>
Date: Fri, 5 Jul 2024 07:33:20 -0400
Subject: [PATCH] Fix MVar issue (#1281)

---
 lib/Echidna/UI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Echidna/UI.hs b/lib/Echidna/UI.hs
index 000d87527..8e12e90e4 100644
--- a/lib/Echidna/UI.hs
+++ b/lib/Echidna/UI.hs
@@ -99,7 +99,7 @@ ui vm world dict initialCorpus cliSelectedContract cs = do
     Interactive -> do
       -- Channel to push events to update UI
       uiChannel <- liftIO $ newBChan 1000
-      let forwardEvent = writeBChan uiChannel . EventReceived
+      let forwardEvent = void . writeBChanNonBlocking uiChannel . EventReceived
       uiEventsForwarderStopVar <- spawnListener forwardEvent
 
       ticker <- liftIO . forkIO . forever $ do