Changeset 6229 for src/Pugs/CodeGen/PIL.hs

Timestamp:

08/13/05 21:16:15 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

8452

Message:

* de-GADT PIL structure -- likely to break all PIL2JS work

Files:

• src/Pugs/CodeGen/PIL.hs (modified) (2 diffs)

src/Pugs/CodeGen/PIL.hs

@@ -5 +5 @@
 import Pugs.Internals
 import Pugs.AST
-import Emit.PIR
 import Pugs.Compile
 
@@ -12 +11 @@
     glob        <- askGlobal
     main        <- asks envBody
-    globPIL     <- compile glob :: Eval [PIL Decl]
-    mainPIL     <- compile main :: Eval (PIL [Stmt])
+    globPIL     <- compile glob :: Eval [PIL_Decl]
+    mainPIL     <- compile main :: Eval PIL_Stmts
     return . VStr . unlines $
         [ "PIL_Environment"