Changeset 4198 for src/Pugs/Prim/Eval.hs

Timestamp:

05/31/05 10:38:43 (4 years ago)

Author:

bsmith

svk:copy_cache_prev:

5793

Message:

Moved some parser types to Pugs.Parser.Types.

Files:

• src/Pugs/Prim/Eval.hs (modified) (1 diff)

src/Pugs/Prim/Eval.hs

@@ -47 +47 @@
 opEval flag name str = do
     env <- ask
-    let env' = runRule env id ruleProgram name str
+    let env' = parseProgram env name str
         trans | flag == Just True = (`mergeStmts` Syn "env" [])
               | otherwise         = id