Changeset 15616 for src/Pugs/Compile/Haskell.hs

Timestamp:

03/12/07 01:43:31 (21 months ago)

Author:

audreyt

Message:

* Change all liftSTM into stm and all liftIO into io.

Files:

• src/Pugs/Compile/Haskell.hs (modified) (1 diff)

src/Pugs/Compile/Haskell.hs

@@ -24 +24 @@
 genGHC = do
     exp <- asks envBody
-    liftIO (TH.runQ [d|
+    io (TH.runQ [d|
         mainCC :: IO Val
         mainCC = runComp $(compile exp) |]) >>= \str -> return . VStr . unlines $