mwc-probability

commit e721dccc449a83f17a2867fbd97786ff0c6c4b1c
parent 5419fee6f81e897df97fb71fc5b085e66e4f4538
Author: Marco Zocca <marco.zocca@recordunion.com>
Date:   Thu, 25 Jan 2018 17:47:33 +0100

add inlinable annotation

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
@@ -195,6 +195,7 @@ laplace mu sigma = do
   u <- uniformR (-0.5, 0.5)
   let b = sigma / sqrt 2
   return $ mu - b * signum u * log (1 - 2 * abs u)
+{-# INLINABLE laplace #-}  
 
 
 -- | The gamma distribution with shape parameter a and scale parameter b.