diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2021-11-15 22:09:34 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2021-11-15 22:09:34 +0100 |
| commit | 5264adf4ed9ede6ca08f72b8cf467ae438df4d5f (patch) | |
| tree | 0d5e849948d8c0892edd99cd03d849a160c3d688 /src/Main.hs | |
| parent | 618b54f521191811db4c7247d22be150ce89af6a (diff) | |
Keep the waiting prompt below output until triggered
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |