genvalidity-criterion 0.1.0.0 → 0.2.0.0

raw patch · 2 files changed

+14/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• genvalidity-criterion.cabal +2/−2
• src/Data/GenValidity/Criterion.hs +12/−6

@@ -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

@@ -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.