From b8f03df07060daba1636ee41a20bd8438badc331 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 12 Jan 2016 13:15:15 -0400
Subject: refactor

---
 Command/Benchmark.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'Command')

diff --git a/Command/Benchmark.hs b/Command/Benchmark.hs
index d4585fdb8..66af1f98c 100644
--- a/Command/Benchmark.hs
+++ b/Command/Benchmark.hs
@@ -41,9 +41,7 @@ benchmark _ = withTmpDirIn "." "benchmark" $ \tmpdir -> do
 		, 10000
 		-- , 100000
 		]
-	-- can't use Criterion's defaultMain here because it looks at
-	-- command-line parameters
-	withConfig defaultConfig $ runAndAnalyse (const True) $
+	runCriterion $
 		bgroup "keys database" $ flip concatMap dbs $ \db ->
 			[ getAssociatedFilesHitBench db
 			, getAssociatedFilesMissBench db
@@ -104,3 +102,8 @@ instance NFData TopFilePath where
 
 instance NFData SKey where
 	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)
-- 
cgit v1.2.3