Changeset 6793 for src/Pugs/Cont/CC_2CPST.hs

Timestamp:

09/06/05 14:11:41 (3 years ago)

Author:

autrijus

Message:

* massive retab for src/, expanding all tabs into spaces,

except for the generated PIL1.hs.

Files:

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

src/Pugs/Cont/CC_2CPST.hs

@@ -35 +35 @@
 instance MonadTrans (CC r) where
     lift m = CC (\ (Cont k) -> 
-                 MC (\mk -> lift (m >>= (\a -> let MC mc = k a
-                                               in PromptTR.runP (mc mk)))))
+                 MC (\mk -> lift (m >>= (\a -> let MC mc = k a
+                                               in PromptTR.runP (mc mk)))))
 
 instance (MonadIO m) => MonadIO (CC r m) where
@@ -76 +76 @@
     
 letSubCont :: Monad m => 
-              Prompt r b -> (SubCont r m a b -> CC r m b) -> CC r m a
+              Prompt r b -> (SubCont r m a b -> CC r m b) -> CC r m a
 letSubCont p f = 
     CC (\k -> MC (\mk ->