From: John Goerzen <jgoerzen@complete.org>
Date: Tue, 12 Aug 2008 02:52:12 +0000 (-0500)
Subject: Write to stdout instead of stderr to resolve display issues
X-Git-Url: https://code.delx.au/offlineimap/commitdiff_plain/1bca64cfbada480a3606c7c913c909626ac2b35a

Write to stdout instead of stderr to resolve display issues
---

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: "