Fix MVar issue

crytic · Jun 27, 2024 · 77fe0df · 77fe0df
1 parent 882c699
commit 77fe0df
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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