Add a simple benchmark to compare this implementation with the deepseq package.

Author: mux

bench/Benchmark.hs

@@ -0,0 +1,22 @@
+module Main where
+
+import Criterion.Main
+import qualified "deepseq" Control.DeepSeq as D1
+import qualified "generic-deepseq" Control.DeepSeq as D2
+
+list :: Int -> [Int]
+list n = [1..10^n]
+
+main :: IO ()
+main = defaultMain
+         [ bgroup "deepseq"
+             [ bench "10^5 elems" $ whnf (uncurry D1.deepseq) (list 5,())
+             , bench "10^6 elems" $ whnf (uncurry D1.deepseq) (list 6,())
+             , bench "10^7 elems" $ whnf (uncurry D1.deepseq) (list 7,())
+             ]
+         , bgroup "generic-deepseq"
+             [ bench "10^5 elems" $ whnf (uncurry D2.deepseq) (list 5,())
+             , bench "10^6 elems" $ whnf (uncurry D2.deepseq) (list 6,())
+             , bench "10^7 elems" $ whnf (uncurry D2.deepseq) (list 7,())
+             ]
+         ]

bench/deepseq-bench.cabal

@@ -0,0 +1,15 @@
+Name:		deepseq-bench
+Version:	1.0.0.0
+License-File:	../LICENSE
+License:	BSD3
+Author:		Maxime Henrion
+Copyright:	2012, Maxime Henrion
+Maintainer:	Maxime Henrion <[email protected]>
+Build-Type:	Simple
+Cabal-Version:	>=1.2
+
+Executable deepseq-bench
+  Build-Depends:	base, criterion, generic-deepseq, deepseq
+  Main-is:		Benchmark.hs
+  Extensions:		PackageImports
+  GHC-Options:		-Wall -O2