deliver only events instead of status lines

crytic · Nov 2, 2023 · fcff1cc · fcff1cc
1 parent 8e5089f
commit fcff1cc
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/Echidna/UI.hs b/lib/Echidna/UI.hs
@@ -176,11 +176,11 @@ ui vm world dict initialCorpus = do
             putStrLn $ time <> "[status] " <> line
             hFlush stdout
 
+      sseChan <- dupChan env.eventQueue
+
       let streamStatus = do
-            states <- liftIO $ workerStates workers
-            time <- timePrefix <$> getTimestamp
-            line <- statusLine env states
-            return $ ServerEvent { eventName = Nothing, eventId = Nothing, eventData = [ putStringUtf8 line ]}
+            (_, _, event) <- readChan sseChan
+            return $ ServerEvent { eventName = Nothing, eventId = Nothing, eventData = [ putStringUtf8 $ show event ]}
 
       server <- liftIO . forkIO $ do
        run 3413 $ eventSourceAppIO streamStatus