From 5ebf0615d4370461cc337ab838e58e7fbfc84930 Mon Sep 17 00:00:00 2001 From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com> Date: Fri, 15 Sep 2023 15:22:47 +0400 Subject: [PATCH] disable test output --- tests/ChatClient.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/ChatClient.hs b/tests/ChatClient.hs index cc257fb8f1..9e5d4fe1c0 100644 --- a/tests/ChatClient.hs +++ b/tests/ChatClient.hs @@ -258,8 +258,8 @@ getTermLine cc = 5000000 `timeout` atomically (readTQueue $ termQ cc) >>= \case Just s -> do -- remove condition to always echo virtual terminal - -- when (printOutput cc) $ do - when True $ do + when (printOutput cc) $ do + -- when True $ do name <- userName cc putStrLn $ name <> ": " <> s pure s