diff --git a/tests/ChatClient.hs b/tests/ChatClient.hs index 468a660e5e..cbd5247a49 100644 --- a/tests/ChatClient.hs +++ b/tests/ChatClient.hs @@ -448,8 +448,8 @@ getTermLine' expected cc@TestCC {printOutput} = 5000000 `timeout` atomically (readTQueue $ termQ cc) >>= \case Just s -> do -- remove condition to always echo virtual terminal - when True $ do - -- when printOutput $ do + -- when True $ do + when printOutput $ do name <- userName cc putStrLn $ name <> ": " <> s pure s