Mark ignored output lines

Changelog: Mark flushed or ignored output lines

1 files changed, 2 insertions, 1 deletions

diff --git a/src/Run.hs b/src/Run.hs
index 54df37b..7cea577 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -209,7 +209,8 @@ runStep = \case
         expect stack line p expr timeout captures $ runStep . inner
 
     Flush p regex -> do
-        atomicallyTest $ flushProcessOutput p regex
+        mapM_ (outProc OutputIgnored p) =<<
+            atomicallyTest (flushProcessOutput p regex)
 
     Guard stack expr -> do
         testStepGuard stack expr