Changeset 3740 for src/Pugs/Monads.hs

Timestamp:

05/23/05 16:57:32 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5329

Message:

* move enterEvalContext to Monads.hs so Prim can use it.
* introduce the maybeM abstraction that lifts fmapM into monads.

Files:

• src/Pugs/Monads.hs (modified) (1 diff)

src/Pugs/Monads.hs

@@ -40 +40 @@
 enterContext :: Cxt -> Eval a -> Eval a
 enterContext cxt = local (\e -> e{ envContext = cxt })
+
+{-|
+Evaluate the specified wxpression in the specified (Perl6) context ('Cxt').
+
+(Subsequent chained 'Eval's do /not/ see this new scope.)
+-}
+enterEvalContext :: Cxt -> Exp -> Eval Val
+enterEvalContext cxt = enterContext cxt . evalExp
 
 {-|