git.iko.soy/streamly
on master help sign in
Sort on time taken in solo reports
3524799Harendra Kumar
benchmark/Chart.hs+7−8
compare with master
unifiedsplit
@@ -186,21 +186,17 @@ selectBench f =
186 reverse
186 reverse
187 $ fmap fst
187 $ fmap fst
188 $ either
188 $ either
189− (const $ either error id $ f $ ColumnIndex 0)
189+ (const $ either error (sortOn snd) $ f $ ColumnIndex 0)
190 (sortOn snd)
190 (sortOn snd)
191 $ f $ ColumnIndex 1
191 $ f $ ColumnIndex 1
192
192
193benchShow Options{..} cfg func inp out =
193benchShow Options{..} cfg func inp out =
194 if genGraphs
194 if genGraphs
195 then func cfg {outputDir = Just out} inp
195 then func cfg {outputDir = Just out} inp
196− else ignoringErr $ report inp Nothing $ cfg
196+ else ignoringErr $ report inp Nothing cfg
197− { selectBenchmarks = selectBench }
198
197
199showStreamDVsK Options{..} cfg func inp out =
198showStreamDVsK Options{..} cfg func inp out =
200− let cfg' = cfg
201− { classifyBenchmark = classify
199+ let cfg' = cfg { classifyBenchmark = classify }
202− , selectBenchmarks = selectBench
203− }
204 in if genGraphs
200 in if genGraphs
205 then ignoringErr $ graph inp "streamD-vs-streamK"
201 then ignoringErr $ graph inp "streamD-vs-streamK"
206 cfg' {outputDir = Just out}
202 cfg' {outputDir = Just out}
@@ -215,7 +211,10 @@ showStreamDVsK Options{..} cfg func inp out =
215
211
216main :: IO ()
212main :: IO ()
217main = do
213main = do
214+ let cfg = defaultConfig
218− let cfg = defaultConfig { presentation = Groups PercentDiff }
215+ { presentation = Groups PercentDiff
216+ , selectBenchmarks = selectBench
217+ }
219 res <- parseOptions
218 res <- parseOptions
220
219
221 case res of
220 case res of