From d5d2030ee343ed5a27db338dea48f801e040db9f Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Sat, 1 Aug 2015 18:20:44 +0200
Subject: Improve output of test runner error messages.

---
 html-test/run.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'html-test')

diff --git a/html-test/run.hs b/html-test/run.hs
index be31aeea..a3887df6 100755
--- a/html-test/run.hs
+++ b/html-test/run.hs
@@ -12,6 +12,7 @@ import System.Directory
 import System.Environment
 import System.Exit
 import System.FilePath
+import System.IO
 
 
 baseDir, rootDir :: FilePath
@@ -41,11 +42,11 @@ parseArgs args = do
     let (flags, files, errors) = getOpt Permute options args
 
     when (not $ null errors) $ do
-        mapM_ putStrLn errors
+        hPutStr stderr $ concat errors
         exitFailure
 
     when (FlagHelp `elem` flags) $ do
-        putStrLn $ usageInfo "" options
+        hPutStrLn stderr $ usageInfo "" options
         exitSuccess
 
     cfgFiles <- processFileArgs files
-- 
cgit v1.2.3