From 1bca64cfbada480a3606c7c913c909626ac2b35a Mon Sep 17 00:00:00 2001 From: John Goerzen Date: Mon, 11 Aug 2008 21:52:12 -0500 Subject: [PATCH] Write to stdout instead of stderr to resolve display issues --- testsrc/TestInfrastructure.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/testsrc/TestInfrastructure.hs b/testsrc/TestInfrastructure.hs index 9e230c6..0b05e0f 100644 --- a/testsrc/TestInfrastructure.hs +++ b/testsrc/TestInfrastructure.hs @@ -69,7 +69,7 @@ runVerbTestText (HU.PutText put us) t = do us'' <- put (HU.showCounts counts) True us' return (counts, us'') where - reportStart ss us = do hPrintf stderr "\rTesting %-68s\n" (HU.showPath (HU.path ss)) + reportStart ss us = do hPrintf stdout "\rTesting %-68s\n" (HU.showPath (HU.path ss)) put (HU.showCounts (HU.counts ss)) False us reportError = reportProblem "Error:" "Error in: " reportFailure = reportProblem "Failure:" "Failure in: " -- 2.39.2