From 5264adf4ed9ede6ca08f72b8cf467ae438df4d5f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 15 Nov 2021 22:09:34 +0100
Subject: Keep the waiting prompt below output until triggered

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 47e0746..5cb64d9 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -212,9 +212,9 @@ runTest out tool test = do
             expect out p regex
 
         Wait -> do
-            putStr "Waiting..."
-            hFlush stdout
+            outPrompt out $ T.pack "Waiting..."
             void $ getLine
+            outClearPrompt out
 
     _ <- installHandler processStatusChanged oldHandler Nothing
     exitNetwork out net
-- 
cgit v1.2.3