Changeset 8155 for src/Pugs/Compile

Timestamp:

12/10/05 13:46:46 (3 years ago)

Author:

autrijus

Message:

* Pugs.Compile.Pugs: Accomodate for gaal++'s otherwise

excellent and sane Ann changes, so PreludePC.hs can still
function as usual.

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 (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 (Ann ann exp) = compileShow2 "Ann" ann exp
     compile (Pad scope pad exp) = do
         padC <- compile pad