Changeset 8153 for src/Pugs.hs

Timestamp:

12/10/05 13:24:15 (3 years ago)

Author:

gaal

Message:

* Refactor Cxt, Pos, and Prag nodes in Exp to a unified Ann

(for Annotation) type. This should ease work on lexical pragmas.

Files:

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

src/Pugs.hs

@@ -346 +346 @@
         _ -> return $ makeDumpEnv exp
     -- XXX Generalize this into structural folding
-    makeDumpEnv (Stmts x exp)   = Stmts x   $ makeDumpEnv exp
-    makeDumpEnv (Cxt x exp)     = Cxt x     $ makeDumpEnv exp
-    makeDumpEnv (Pad x y exp)   = Pad x y   $ makeDumpEnv exp
-    makeDumpEnv (Sym x y exp)   = Sym x y   $ makeDumpEnv exp
-    makeDumpEnv (Pos x exp)     = Pos x     $ makeDumpEnv exp
+    makeDumpEnv (Stmts x exp)     = Stmts x   $ makeDumpEnv exp
+    makeDumpEnv (Ann ann exp)     = Ann ann   $ makeDumpEnv exp
+    makeDumpEnv (Pad x y exp)     = Pad x y   $ makeDumpEnv exp
+    makeDumpEnv (Sym x y exp)     = Sym x y   $ makeDumpEnv exp
     makeDumpEnv exp = Stmts exp (Syn "env" [])
     handler err = if not (isUserError err) then ioError err else do