mwc-random 0.5.1.1 → 0.5.1.2
raw patch · 2 files changed
+6/−5 lines, 2 filesdep ~basePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base
API changes (from Hackage documentation)
Files
- System/Random/MWC.hs +5/−4
- mwc-random.cabal +1/−1
System/Random/MWC.hs view
@@ -375,10 +375,11 @@ -- but it may be more convenient to use in some situations. uniformVector :: (PrimMonad m, Variate a) => Gen (PrimState m) -> Int -> m (I.Vector a)-uniformVector gen n = M.unsafeNew n >>= go (uniform gen) 0- where- go u !i mu | i >= n = unsafeFreeze mu- | otherwise = u >>= M.unsafeWrite mu i >> go u (i+1) mu+uniformVector gen n = do+ mu <- M.unsafeNew n+ let go !i | i < n = uniform gen >>= M.unsafeWrite mu i >> go (i+1)+ | otherwise = unsafeFreeze mu+ go 0 {-# INLINE uniformVector #-} data T = T {-# UNPACK #-} !Double {-# UNPACK #-} !Double
mwc-random.cabal view
@@ -1,5 +1,5 @@ name: mwc-random-version: 0.5.1.1+version: 0.5.1.2 synopsis: Fast, high quality pseudo random number generation description: This package contains code for generating high quality random