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