@@ -186,21 +186,17 @@ selectBench f =
186186 reverse
187187 $ fmap fst
188188 $ either
189− (const $ either error id $ f $ ColumnIndex 0)
189+ (const $ either error (sortOn snd) $ f $ ColumnIndex 0)
190190 (sortOn snd)
191191 $ f $ ColumnIndex 1
192192
193193benchShow Options{..} cfg func inp out =
194194 if genGraphs
195195 then func cfg {outputDir = Just out} inp
196− else ignoringErr $ report inp Nothing $ cfg
197− { selectBenchmarks = selectBench }
196+ else ignoringErr $ report inp Nothing cfg
198197
199198showStreamDVsK Options{..} cfg func inp out =
200− let cfg' = cfg
201− { classifyBenchmark = classify
202− , selectBenchmarks = selectBench
203− }
199+ let cfg' = cfg { classifyBenchmark = classify }
204200 in if genGraphs
205201 then ignoringErr $ graph inp "streamD-vs-streamK"
206202 cfg' {outputDir = Just out}
@@ -215,7 +211,10 @@ showStreamDVsK Options{..} cfg func inp out =
215211
216212main :: IO ()
217213main = do
218− let cfg = defaultConfig { presentation = Groups PercentDiff }
214+ let cfg = defaultConfig
215+ { presentation = Groups PercentDiff
216+ , selectBenchmarks = selectBench
217+ }
219218 res <- parseOptions
220219
221220 case res of