diff options
| author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-01 18:20:44 +0200 |
|---|---|---|
| committer | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-22 23:40:26 +0200 |
| commit | d5d2030ee343ed5a27db338dea48f801e040db9f (patch) | |
| tree | e2942f477792dc97d1375fa9b5b0b7b3a07ced98 | |
| parent | ee55e4775739a7c42f19223435ef6ea2ad0bcff0 (diff) | |
Improve output of test runner error messages.
| -rwxr-xr-x | html-test/run.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |