mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor

Browse source
This commit is contained in:
Joey Hess 2016-01-12 13:15:15 -04:00
parent 134496b9fb
commit 647b2f33af
Failed to extract signature
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Command/Benchmark.hs
View file

@ -41,9 +41,7 @@ benchmark _ = withTmpDirIn "." "benchmark" $ \tmpdir -> do
, 10000 , 10000
-- , 100000 -- , 100000
] ]
-- can't use Criterion's defaultMain here because it looks at runCriterion $
-- command-line parameters
withConfig defaultConfig $ runAndAnalyse (const True) $
bgroup "keys database" $ flip concatMap dbs $ \db -> bgroup "keys database" $ flip concatMap dbs $ \db ->
[ getAssociatedFilesHitBench db [ getAssociatedFilesHitBench db
, getAssociatedFilesMissBench db , getAssociatedFilesMissBench db
@ -104,3 +102,8 @@ instance NFData TopFilePath where
instance NFData SKey where instance NFData SKey where
rnf (SKey s) = rnf s rnf (SKey s) = rnf s
-- can't use Criterion's defaultMain here because it looks at
-- command-line parameters
runCriterion :: Benchmark -> IO ()
runCriterion = withConfig defaultConfig . runAndAnalyse (const True)