Prepare release 0.15.2.0

bench/Benchmark.hs

@@ -8,7 +8,7 @@
 import Data.Proxy
 import qualified Data.Vector.Unboxed as U
 import qualified System.Random as R
 import System.Random.Stateful (StatefulGen)
 import System.Random.MWC
 import System.Random.MWC.Distributions
 import System.Random.MWC.CondensedTable
@@ -50,7 +50,7 @@
   let iter = lookupOption opts
   -- Set up RNG
   mwc  <- create
   seed <- save mwc
   mtg  <- M.newMTGen . Just =<< uniform mwc
   defaultMainWithIngredients ingredients $ bgroup "All"
     [ bgroup "mwc"
@@ -93,6 +93,7 @@
         , bench "exponential" $ whnfIO $ loop iter (exponential 3 mwc :: IO Double)
         , bench "gamma,a<1"   $ whnfIO $ loop iter (gamma 0.5 1   mwc :: IO Double)
         , bench "gamma,a>1"   $ whnfIO $ loop iter (gamma 2   1   mwc :: IO Double)
+        , bench "beta"        $ whnfIO $ loop iter (beta  2   3   mwc :: IO Double)
         , bench "chiSquare"   $ whnfIO $ loop iter (chiSquare 4   mwc :: IO Double)
           -- NOTE: We switch between algorithms when Np=10
         , bgroup "binomial"
@@ -106,10 +107,6 @@
                      , (6000, 0.2), (6000, 0.8)
                      ]
           ]
-        , bench "beta binomial 10" $ whnfIO $ loop iter (betaBinomial 600 400 10 mwc :: IO Int)
-        , bench "beta binomial 100" $ whnfIO $ loop iter (betaBinomial 600 400 100 mwc :: IO Int)
-        , bench "beta binomial table 10" $ whnfIO $ loop iter (betaBinomialTable 600 400 10 mwc :: IO Int)
-        , bench "beta binomial table 100" $ whnfIO $ loop iter (betaBinomialTable 600 400 100 mwc :: IO Int)
         ]
         -- Test sampling performance. Table creation must be floated out!
       , bgroup "CT/gen" $ concat
@@ -158,13 +155,3 @@
       ]
 #endif
     ]
-
-betaBinomial :: StatefulGen g m => Double -> Double -> Int -> g -> m Int
-betaBinomial a b n g = do
-  p <- beta a b g
-  binomial n p g
-
-betaBinomialTable :: StatefulGen g m => Double -> Double -> Int -> g -> m Int
-betaBinomialTable a b n g = do
-  p <- beta a b g
-  genFromTable (tableBinomial n p) g

mwc-random.cabal

@@ -74,7 +74,7 @@ library
                , vector         >= 0.7
                , math-functions >= 0.2.1.0
 
-  ghc-options: -Wall -funbox-strict-fields -fwarn-tabs
+  ghc-options: -O2 -Wall -funbox-strict-fields -fwarn-tabs
 
 
 -- We want to be able to build benchmarks using both tasty-bench and tasty-papi.