diff --git a/CHANGES.markdown b/CHANGES.markdown
--- a/CHANGES.markdown
+++ b/CHANGES.markdown
@@ -1,3 +1,9 @@
+0.1.10 (16 July 2013)
+---------------------
+
+  - add MonadRandom and MonadSplit instances for ContT
+    (thanks to James Koppel for the patch)
+
 0.1.9 (26 April 2013)
 ---------------------
 
diff --git a/Control/Monad/Random.hs b/Control/Monad/Random.hs
--- a/Control/Monad/Random.hs
+++ b/Control/Monad/Random.hs
@@ -44,6 +44,7 @@
 import           Control.Applicative
 import           Control.Arrow
 import           Control.Monad              ()
+import           Control.Monad.Cont
 import           Control.Monad.Error
 import           Control.Monad.Identity
 import           Control.Monad.Random.Class
@@ -152,6 +153,12 @@
     getRandoms = lift getRandoms
     getRandomRs = lift . getRandomRs
 
+instance MonadRandom m => MonadRandom (ContT r m) where
+    getRandom = lift getRandom
+    getRandomR = lift . getRandomR
+    getRandoms = lift getRandoms
+    getRandomRs = lift . getRandomRs
+
 instance (MonadSplit g m) => MonadSplit g (StateT s m) where
     getSplit = lift getSplit
 
@@ -165,6 +172,9 @@
     getSplit = lift getSplit
 
 instance (MonadSplit g m) => MonadSplit g (MaybeT m) where
+    getSplit = lift getSplit
+
+instance (MonadSplit g m) => MonadSplit g (ContT r m) where
     getSplit = lift getSplit
 
 instance (MonadState s m, RandomGen g) => MonadState s (RandT g m) where
diff --git a/MonadRandom.cabal b/MonadRandom.cabal
--- a/MonadRandom.cabal
+++ b/MonadRandom.cabal
@@ -1,5 +1,5 @@
 name:                MonadRandom
-version:             0.1.9
+version:             0.1.10
 synopsis:            Random-number generation monad.
 description:         Support for computations which consume random values.
 license:             OtherLicense