Permalink
Browse files

Sort configIds and benchmark names in manifest output

  • Loading branch information...
1 parent 288a8f4 commit 20670dd63925b9001d9ca5cdd5e3b9c45f86470d @dmpots committed Feb 7, 2011
Showing with 4 additions and 2 deletions.
  1. +4 −2 tools/fibon-run/Fibon/Run/Manifest.hs
@@ -5,17 +5,19 @@ module Fibon.Run.Manifest (
)
where
+import Data.Function
import Data.List
import Fibon.Benchmarks
import Fibon.Run.Config
import Fibon.Run.Config.Default as Default
import Fibon.Run.Config.Local as Local
configManifest :: [RunConfig]
-configManifest = Default.config : Local.configs
+configManifest = order $ Default.config : Local.configs
+ where order = sortBy (compare `on` configId)
groupManifest :: [FibonGroup]
groupManifest = (nub . sort . map benchGroup) benchmarkManifest
benchmarkManifest :: [FibonBenchmark]
-benchmarkManifest = allBenchmarks
+benchmarkManifest = sort allBenchmarks

0 comments on commit 20670dd

Please sign in to comment.