From 66a1261c68f123b604622e4729d966974198e50e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 19 Aug 2021 22:42:36 +0200
Subject: Wait command

---
 src/Main.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 2c16a16..d4134bd 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -190,6 +190,11 @@ runTest tool test = do
             p <- getProcess net pname
             expect p regex
 
+        Wait -> do
+            putStr "Waiting..."
+            hFlush stdout
+            void $ getLine
+
     exitNetwork net
 
 main :: IO ()
-- 
cgit v1.2.3