Changeset 8153 for src/Pugs/Compile/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/Compile/Pugs.hs (modified) (1 diff)

src/Pugs/Compile/Pugs.hs

@@ -61 +61 @@
             , text "return" <+> parens (text $ "Syn " ++ show syn ++ " exps")
             ]
-    compile (Cxt cxt exp) = compileShow2 "Cxt" cxt exp
-    compile (Pos pos exp) = compileShow2 "Pos" pos exp
+    compile (Ann (Cxt cxt) exp) = compileShow2 "Cxt" cxt exp
+    compile (Ann (Pos pos) exp) = compileShow2 "Pos" pos exp
+    compile (Ann (Prag prag) exp) = compileShow2 "Prag" prag exp
     compile (Pad scope pad exp) = do
         padC <- compile pad