rename selectToCont to selectToContT for consistency
authorRoss Paterson <ross@soi.city.ac.uk>
Mon, 8 May 2017 16:48:54 +0000 (16:48 +0000)
committerRoss Paterson <ross@soi.city.ac.uk>
Mon, 8 May 2017 16:48:54 +0000 (16:48 +0000)
Control/Monad/Trans/Select.hs

index ad61f4e..6ab76e0 100644 (file)
@@ -37,6 +37,8 @@ module Control.Monad.Trans.Select (
     -- * The SelectT monad transformer
     SelectT(SelectT),
     runSelectT,
+    -- * Monad transformation
+    selectToContT,
     selectToCont,
     ) where
 
@@ -128,6 +130,11 @@ instance (MonadIO m) => MonadIO (SelectT r m) where
     {-# INLINE liftIO #-}
 
 -- | Convert a selection computation to a continuation-passing computation.
-selectToCont :: (Monad m) => SelectT r m a -> ContT r m a
-selectToCont (SelectT g) = ContT $ \ k -> g k >>= k
+selectToContT :: (Monad m) => SelectT r m a -> ContT r m a
+selectToContT (SelectT g) = ContT $ \ k -> g k >>= k
 {-# INLINE selectToCont #-}
+
+-- | Deprecated name for 'selectToContT'.
+{-# DEPRECATED selectToCont "Use selectToContT instead" #-}
+selectToCont :: (Monad m) => SelectT r m a -> ContT r m a
+selectToCont = selectToContT