...
 
Commits (1)
......@@ -29,7 +29,6 @@ data Normalise = NormalisePercent | NormaliseRatio | NormaliseNone
main :: IO ()
main = do
when (not (null cmdline_errors) || OptHelp `elem` flags) $
die (concat cmdline_errors ++ usage)
......@@ -76,10 +75,14 @@ main = do
parse_logs :: [String] -> IO [ResultTable]
parse_logs [] = do
-- GHC outputs unicode bullet glyphs in warning messages, so we have to
-- assume UTF-8
hSetEncoding stdin utf8
f <- hGetContents stdin
return [parse_log f]
parse_logs log_files =
mapM (\f -> do h <- openFile f ReadMode
hSetEncoding h utf8
c <- hGetContents h
return (parse_log c)) log_files
......