diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index 64edf7e..e9e3c4c 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -218,9 +218,7 @@ evalSteps = mapM_ $ \case withNodePacketLoss n l $ evalSteps inner Wait -> do - outPrompt $ T.pack "Waiting..." - void $ liftIO $ getLine - outClearPrompt + void $ outPromptGetLine "Waiting..." runTest :: Output -> TestOptions -> Test -> IO Bool runTest out opts test = do |