Author: Chris Warburton <chriswarbo@gmail.com>
Date: Wed Apr 6 04:31:39 PM UTC 2016
Parent: bb197ead2af8a7b40436135f4c59cb982494b4a9
Log message:
hlint
1: diff --git a/mlspec-bench.cabal b/mlspec-bench.cabal 2: index bdd69ab..6207ccf 100644 3: --- a/mlspec-bench.cabal 4: +++ b/mlspec-bench.cabal 5: @@ -2,7 +2,7 @@ 6: -- documentation, see http://haskell.org/cabal/users-guide/ 7: 8: name: mlspec-bench 9: -version: 0.1.0.0 10: +version: 0.1.0.1 11: synopsis: Benchamarks for MLSpec 12: -- description: 13: homepage: http://chriswarbo.net/git/mlspec-bench 14: diff --git a/src/MLSpec/Bench.hs b/src/MLSpec/Bench.hs 15: index 1e3ccb1..6fc6af4 100644 16: --- a/src/MLSpec/Bench.hs 17: +++ b/src/MLSpec/Bench.hs 18: @@ -16,9 +16,9 @@ import System.Process 19: -- Register benchmarks 20: 21: benchMain = do cmd <- getEnv "BENCHMARK_COMMAND" 22: - hPutStr stderr ("Got command " ++ show cmd) 23: + hPutStrLn stderr ("Got command " ++ show cmd) 24: args <- fmap readArgs (lookupEnv "BENCHMARK_ARGS") 25: - hPutStr stderr ("Got args " ++ show args) 26: + hPutStrLn stderr ("Got args " ++ show args) 27: input <- getContents 28: defaultMain [ 29: bgroup "command" [mkBench (proc cmd args) input] 30: @@ -31,6 +31,7 @@ mkBench cmd stdin = Criterion.Main.env (inputs cmd stdin) go 31: 32: -- Functions to benchmark 33: 34: +{-# ANN run ("HLint: ignore Use putStr" :: String) #-} 35: run :: CreateProcess -> Input -> IO String 36: run cmd (stdin, sout, serr) = do 37: stdout <- openFile sout AppendMode 38: @@ -74,4 +75,4 @@ hash p = case cmdspec p of 39: where keep c = if isAscii c && isAlphaNum c then c else '_' 40: 41: err :: (Show a) => a -> IO () 42: -err = hPutStrLn stderr . show 43: +err = hPrint stderr