commit 6237bcac11ee776cb6528634efea35c5d4ac5e4d parent fdc5e0e84a5fc96176e0e9203b4fa65741f381de Author: Marco Zocca <marco.zocca@recordunion.com> Date: Tue, 30 Jan 2018 16:21:38 +0100 inlinable pareto Diffstat:
M | src/System/Random/MWC/Probability.hs | | | 1 | + |
1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/src/System/Random/MWC/Probability.hs b/src/System/Random/MWC/Probability.hs @@ -270,6 +270,7 @@ pareto :: PrimMonad m => Double -> Double -> Prob m Double pareto a xmin = do y <- exponential a return $ xmin * exp y +{-# INLINABLE pareto #-} -- | The Dirichlet distribution. dirichlet