diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2023-01-15 19:53:40 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2023-01-16 21:13:22 +0100 |
| commit | 29b263f350ea7dccb243ec28f6af7fc5c41f578e (patch) | |
| tree | b2b989436762bbf321693d92862ecfb0fddef656 /src/Main.hs | |
| parent | 6deeb46561c122f22bb289522520bc458636a796 (diff) | |
Haskeline for input handling
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 |