Changeset 7696 for src/Pugs/Compile.hs

Timestamp:

10/22/05 12:48:17 (3 years ago)

Author:

autrijus

Message:

* Slight tweak for Pugs.Compile: s/CompMonad/Comp/g

Files:

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

src/Pugs/Compile.hs

@@ -40 +40 @@
 -}
 
-type Comp a = Eval a
-type CompMonad = EvalT (ContT Val (ReaderT Env SIO))
+type Comp = Eval
 
 {-| Currently only 'Exp' → 'PIL' -}
@@ -151 +150 @@
     enter :: a -> m b -> m b
 
-instance EnterClass CompMonad VCode where
+instance EnterClass Comp VCode where
     enter sub = local (\e -> e{ envLValue = subLValue sub, envContext = CxtItem (subReturns sub) })
 
-instance EnterClass CompMonad Cxt where
+instance EnterClass Comp Cxt where
     enter cxt = local (\e -> e{ envContext = cxt })