Changeset 15296 for src/Pugs/Compile

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

src/Pugs/Compile/Pugs.hs

@@ -173 +173 @@
     (globC, globT)  <- runWriterT $ compile glob
     (expC, expT)    <- runWriterT $ compile exp
-    return . VStr . unlines $
+    return . _VStr . unlines $
         [ "{-# OPTIONS_GHC -fglasgow-exts -fno-warn-unused-imports -fno-warn-unused-binds #-}"
         , "module Main where"