Browse files

Print out the correct number of benchmarks found

  • Loading branch information...
1 parent 379de99 commit 1be9a50b36838d183bde98cd63d08494289b034d @dmpots committed Aug 20, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 FibonFind.hs
View
2 FibonFind.hs
@@ -23,12 +23,12 @@ findLocalBenchmarks baseDir = do
putStr $ "Looking for benchmarks in "++searchPath
groups <- bmGroups searchPath
bms <- bmInstances searchPath groups
- putStrLn $ "... found ("++ (show.length$ bms)++")"
let allGroups = sort groups
allBms = (sort . concat) bms
qualifiedBms =
concat $ zipWith (\g bs -> map ((,)g) (sort bs)) allGroups bms
outFile = searchPath ++ ".hs"
+ putStrLn $ "... found ("++ (show.length$ allBms)++")"
putStrLn $ "writing benchmark manifest to "++outFile
h <- openFile outFile WriteMode
hPutStrLn h moduleHeader

0 comments on commit 1be9a50

Please sign in to comment.