diff --git a/genvalidity-criterion.cabal b/genvalidity-criterion.cabal
--- a/genvalidity-criterion.cabal
+++ b/genvalidity-criterion.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: d89b9a832713070f3bd9773ef7f4d8776be89292d63e80c7cbe6444950493145
+-- hash: bf06b12935147afcc8b9b60b98ab3cbd27de18514ad0da48f1f7819cfc0179eb
 
 name:           genvalidity-criterion
-version:        0.1.0.0
+version:        0.2.0.0
 synopsis:       Criterion benchmarks for generators
 category:       Validity
 homepage:       https://github.com/NorfairKing/validity#readme
diff --git a/src/Data/GenValidity/Criterion.hs b/src/Data/GenValidity/Criterion.hs
--- a/src/Data/GenValidity/Criterion.hs
+++ b/src/Data/GenValidity/Criterion.hs
@@ -9,14 +9,16 @@
     genValidBench,
     genBenchSizes,
     genBench,
+    genBenchSized,
   )
 where
 
 import Control.DeepSeq
 import Criterion
 import Data.GenValidity
+import Test.QuickCheck.Gen
+import Test.QuickCheck.Random
 import Data.Typeable
-import Test.QuickCheck
 
 -- | Benchmarks for both genUnchecked and genValid
 genValidityBench ::
@@ -44,13 +46,17 @@
 genBenchSizes :: NFData a => String -> Gen a -> Benchmark
 genBenchSizes name gen =
   bgroup name $
-    let bi i = genBench ("size " <> show i) (resize i gen)
-     in [bi 8, bi 16, bi 32, bi 64]
+    let bi i = genBenchSized ("size " <> show i) i gen
+     in [bi 15, bi 30]
 
--- | Benchmarks a generator with a given name
+-- | Benchmarks a generator with a given name with the default size: 30
 genBench :: NFData a => String -> Gen a -> Benchmark
-genBench name gen =
-  bench name $ nfIO $ generate gen
+genBench name = genBenchSized name 30
+
+-- | Benchmarks a generator with a given name and size
+genBenchSized :: NFData a => String -> Int -> Gen a -> Benchmark
+genBenchSized name size (MkGen genFunc) =
+  bench name $ nf (\seed -> genFunc seed size) (mkQCGen 42)
 
 nameOf ::
   forall a.