Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fixed benchmark script to NOT use splittableGen

  • Loading branch information...
commit d04bc59fc8b0ee8527efda0726019db163dd307f 1 parent 9e494aa
@rrnewton rrnewton authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 Benchmark/SimpleRNGBench.hs
View
4 Benchmark/SimpleRNGBench.hs
@@ -93,7 +93,7 @@ measureFreq = do
data NoopRNG = NoopRNG
instance RandomGen NoopRNG where
next g = (0,g)
-#if 1
+#ifdef ENABLE_SPLITTABLEGEN
genRange _ = (0,0)
instance SplittableGen NoopRNG where
#endif
@@ -104,7 +104,7 @@ data BinRNG = BinRNG StdGen
instance RandomGen BinRNG where
next (BinRNG g) = (x `mod` 2, BinRNG g')
where (x,g') = next g
-#if 1
+#ifdef ENABLE_SPLITTABLEGEN
genRange _ = (0,1)
instance SplittableGen BinRNG where
#endif
Please sign in to comment.
Something went wrong with that request. Please try again.