diff --git a/System/Random/MWC/Distributions/Monad.hs b/System/Random/MWC/Distributions/Monad.hs
--- a/System/Random/MWC/Distributions/Monad.hs
+++ b/System/Random/MWC/Distributions/Monad.hs
@@ -12,8 +12,11 @@
     normal
   , standard
   , exponential
+  , truncatedExp
   , gamma
   , chiSquare
+  , geometric0
+  , geometric1
   ) where
 
 import Control.Monad.Primitive.Class (MonadPrim(..))
@@ -43,6 +46,15 @@
 exponential x = toRand $ \g -> MWC.exponential x g
 {-# INLINE exponential #-}
 
+-- | Generate truncated exponentially distributed random variate.
+truncatedExp :: MonadPrim m
+             => Double          -- ^ Scale parameter
+             -> (Double,Double) -- ^ Range to which distribution is
+                                --   truncated. Values may be negative.
+             -> Rand m Double
+truncatedExp s rng = toRand $ \g -> MWC.truncatedExp s rng g
+{-# INLINE truncatedExp #-}
+
 -- | Random variate generator for gamma distribution.
 gamma :: MonadPrim m
       => Double                 -- ^ Shape parameter
@@ -57,3 +69,20 @@
           -> Rand m Double
 chiSquare n = toRand $ \g -> MWC.chiSquare n g
 {-# INLINE chiSquare #-}
+
+-- | Random variate generator for the geometric distribution,
+-- computing the number of failures before success. Distribution's
+-- support is [0..].
+geometric0 :: MonadPrim m
+           => Double        -- ^ /p/ success probability lies in (0,1]
+           -> Rand m Int
+geometric0 p = toRand $ \g -> MWC.geometric0 p g
+{-# INLINE geometric0 #-}
+
+-- | Random variate generator for geometric distribution for number of
+-- trials. Distribution's support is [1..] (i.e. just 'geometric0' shifted by 1).
+geometric1 :: MonadPrim m
+           => Double -- ^ /p/ success probability lies in (0,1]
+           -> Rand m Int
+geometric1 p = toRand $ \g -> MWC.geometric1 p g
+{-# INLINE geometric1 #-}
diff --git a/mwc-random-monad.cabal b/mwc-random-monad.cabal
--- a/mwc-random-monad.cabal
+++ b/mwc-random-monad.cabal
@@ -1,5 +1,5 @@
 Name:                mwc-random-monad
-Version:             0.6
+Version:             0.7
 License:             BSD3
 License-file:        LICENSE
 Author:              Alexey Khudyakov <alexey.skladnoy@gmail.com>
@@ -19,7 +19,7 @@
     primitive,
     monad-primitive,
     vector     >= 0.7,
-    mwc-random >= 0.11
+    mwc-random >= 0.13
   Exposed-modules:
     System.Random.MWC.Monad
     System.Random.MWC.Distributions.Monad