mwc-random 0.13.2.0 → 0.13.2.2

raw patch · 4 files changed

+7/−67 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog +5/−0
• System/Random/MWC.hs +1/−1
• benchmarks/tsts.hs +0/−65
• mwc-random.cabal +1/−1

@@ -1,3 +1,8 @@+Changes in 0.13.2.2++  * Fixed crash during gen. initialization on Windows when stderr+    is not available (#36).+ Changes in 0.13.2.0    * Generators for beta, Bernoully, Dirichlet and categorical distributions

@@ -432,7 +432,7 @@ withSystemRandom act = do   seed <- acquireSeedSystem `E.catch` \(_::E.IOException) -> do     seen <- atomicModifyIORef warned ((,) True)-    unless seen $ do+    unless seen $ E.handle (\(_::E.IOException) -> return ()) $ do       hPutStrLn stderr ("Warning: Couldn't open /dev/urandom")       hPutStrLn stderr ("Warning: using system clock for seed instead " ++                         "(quality will be lower)")

@@ -1,65 +0,0 @@-{-# LANGUAGE BangPatterns #-}-import Control.Monad-import System.Random.MWC-import System.Random.MWC.Distributions--main = do-  withSystemRandom $ \g -> replicateM_ (300*1000) $ do-    ---    !n <- normal 0 1  g-    !n <- normal 0 2  g-    !n <- normal 3 3  g-    !n <- normal 2 4  g-    !n <- normal 2 5  g-    !n <- normal 1 6  g-    !n <- normal 3 7  g-    !n <- normal 3 8  g-    !n <- normal 3 9  g-    !n <- normal 3 10 g-    ---    !n <- normal 0 1  g-    !n <- normal 0 2  g-    !n <- normal 3 3  g-    !n <- normal 2 4  g-    !n <- normal 2 5  g-    !n <- normal 1 6  g-    !n <- normal 3 7  g-    !n <- normal 3 8  g-    !n <- normal 3 9  g-    !n <- normal 3 10 g-    ---    !n <- normal 0 1  g-    !n <- normal 0 2  g-    !n <- normal 3 3  g-    !n <- normal 2 4  g-    !n <- normal 2 5  g-    !n <- normal 1 6  g-    !n <- normal 3 7  g-    !n <- normal 3 8  g-    !n <- normal 3 9  g-    !n <- normal 3 10 g-    ---    !n <- normal 0 1  g-    !n <- normal 0 2  g-    !n <- normal 3 3  g-    !n <- normal 2 4  g-    !n <- normal 2 5  g-    !n <- normal 1 6  g-    !n <- normal 3 7  g-    !n <- normal 3 8  g-    !n <- normal 3 9  g-    !n <- normal 3 10 g-    ---    !n <- normal 0 1  g-    !n <- normal 0 2  g-    !n <- normal 3 3  g-    !n <- normal 2 4  g-    !n <- normal 2 5  g-    !n <- normal 1 6  g-    !n <- normal 3 7  g-    !n <- normal 3 8  g-    !n <- normal 3 9  g-    !n <- normal 3 10 g-    ---    return () :: IO ()-    

@@ -1,5 +1,5 @@ name:           mwc-random-version:        0.13.2.0+version:        0.13.2.2 synopsis:       Fast, high quality pseudo random number generation description:   This package contains code for generating high quality random