Changeset 6248 for src/Pugs/CodeGen/XML.hs

Timestamp:

08/14/05 17:32:14 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

8452

Message:

* -CBinary - dump PIL1 tree as opaque GhcBinary? file for fast loading.

Files:

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

src/Pugs/CodeGen/XML.hs

@@ -11 +11 @@
 genXML :: Eval Val
 genXML = do
-    glob        <- askGlobal
-    main        <- asks envBody
-    globPIL     <- compile glob :: Eval [PIL_Decl]
-    mainPIL     <- compile main :: Eval PIL_Stmts
-    return . VStr . showXml $ PIL_Environment globPIL mainPIL
+    penv <- compile () :: Eval PIL_Environment
+    return $ VStr (showXml penv)