Changeset 2449 for src/Pugs/Cont.hs

Timestamp:

04/28/05 23:45:52 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3914

Message:

* Eval monad is now a EvalT transformer by itself.
* Much better error reporting on fail "".
* retError now accepts any Show type as the second arg.

Files:

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

src/Pugs/Cont.hs

@@ -11 +11 @@
 
 module Pugs.Cont (
-    callCC, shift, reset, shiftT, resetT,
+    callCCT, shift, reset, shiftT, resetT,
     module Control.Monad.Cont,
 ) where
@@ -22 +22 @@
 type Cont' m a = forall r. a -> m r
 
-callCC :: forall a m. MonadCont m => (Cont' m a -> m a) -> m a
-callCC f = C.callCC f' where
+callCCT :: forall a m. MonadCont m => (Cont' m a -> m a) -> m a
+callCCT f = C.callCC f' where
   f' :: (a -> m (EmptyMonad m)) -> m a
   f' g = f g' where