From 29b263f350ea7dccb243ec28f6af7fc5c41f578e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 15 Jan 2023 19:53:40 +0100
Subject: Haskeline for input handling

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

(limited to 'src/Main.hs')

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
-- 
cgit v1.2.3