Changeset 2488 for src/Pugs/Cont.hs

Timestamp:

04/29/05 19:45:40 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3914

Message:

* move callCC back into MonadCont?

Files:

• src/Pugs/Cont.hs (modified) (2 diffs)

src/Pugs/Cont.hs

@@ -15 +15 @@
 ) where
 
-import qualified Control.Monad.Cont as C (callCC, lift)
-import Control.Monad.Cont (mapContT, withContT, mapCont, withCont, Cont(..), ContT(..), MonadCont)
+import qualified Control.Monad.Cont as C (lift)
+import Control.Monad.Cont (mapContT, withContT, mapCont, withCont, Cont(..), ContT(..), MonadCont(..))
 
 -- Cont' m a is the type of a continuation expecting an a within the 
@@ -23 +23 @@
 
 callCCT :: forall a m. MonadCont m => (Cont' m a -> m a) -> m a
-callCCT f = C.callCC f' where
+callCCT f = callCC f' where
   f' :: (a -> m (EmptyMonad m)) -> m a
   f' g = f g' where