Changeset 15297 for src/Pugs/Compile

Timestamp:

02/18/07 15:59:02 (21 months ago)

Author:

audreyt

Message:

* Revert the previous patch; everything back to normal.

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"