Changeset 15296 for src/Pugs/CodeGen.hs

Timestamp:

02/18/07 15:56:10 (21 months ago)

Author:

audreyt

Message:

* Convert VStr from String to ByteString?, and Syn from

String to ID, in Pugs. Benchmark shows the perf gain is 5%,
so it's not worth the trouble of writing a GHC 6.7-compatible
processor. The next commit will revert this commit.

Files:

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

src/Pugs/CodeGen.hs

@@ -43 +43 @@
     , ("Parse-YAML",  genParseYAML)
     , ("Parse-HsYAML",genParseHsYAML)
-    , ("Parse-Pretty",fmap (VStr . (++"\n") . pretty) (asks envBody))
+    , ("Parse-Pretty",fmap (_VStr . (++"\n") . pretty) (asks envBody))
 --  , ("XML",         genXML)
     ]
@@ -91 +91 @@
     rv <- runEvalIO env gen
     case rv of
-        VStr str    -> return str
+        VStr str    -> return (cast str)
         _           -> fail (show rv)