mwc-random 0.15.0.0 → 0.15.0.1
raw patch · 3 files changed
+18/−5 lines, 3 filesdep ~doctestdep ~random
Dependency ranges changed: doctest, random
Files
- System/Random/MWC.hs +12/−4
- changelog.md +5/−0
- mwc-random.cabal +1/−1
System/Random/MWC.hs view
@@ -153,6 +153,10 @@ -- $references ) where +#if defined(__GLASGOW_HASKELL__) && !defined(__HADDOCK__)+#include "MachDeps.h"+#endif+ import Control.Monad (ap, liftM, unless) import Control.Monad.Primitive (PrimMonad, PrimBase, PrimState, unsafePrimToIO, unsafeSTToPrim) import Control.Monad.ST (ST,runST)@@ -280,20 +284,24 @@ {-# INLINE uniformR #-} instance Variate Int where-#if WORD_SIZE_IN_BITS < 64+#if WORD_SIZE_IN_BITS == 32 uniform = uniform1 fromIntegral-#else+#elif WORD_SIZE_IN_BITS == 64 uniform = uniform2 wordsTo64Bit+#else+#error "Word size is not 32 nor 64" #endif uniformR a b = uniformRange a b {-# INLINE uniform #-} {-# INLINE uniformR #-} instance Variate Word where-#if WORD_SIZE_IN_BITS < 64+#if WORD_SIZE_IN_BITS == 32 uniform = uniform1 fromIntegral-#else+#elif WORD_SIZE_IN_BITS == 64 uniform = uniform2 wordsTo64Bit+#else+#error "Word size is not 32 nor 64" #endif uniformR a b = uniformRange a b {-# INLINE uniform #-}
changelog.md view
@@ -1,3 +1,8 @@+## Changes in 0.15.0.1++ * Bug in generation of Int/Word in both uniform and uniformR is fixed. (#75)++ ## Changes in 0.15.0.0 * `withSystemRandomST` and `createSystemSeed` are added.
mwc-random.cabal view
@@ -1,5 +1,5 @@ name: mwc-random-version: 0.15.0.0+version: 0.15.0.1 synopsis: Fast, high quality pseudo random number generation description: This package contains code for generating high quality random