Changeset 2458 for src/Pugs/Compile.hs

Timestamp:

04/29/05 10:20:46 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3914

Message:

* The Eval monad is now split into (SIO/STM/IO) submonads.

Files:

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

src/Pugs/Compile.hs

@@ -18 +18 @@
 
 compile :: String -> Env -> IO String
-compile "Haskell" env = fmap vCast $ runEval env genGHC
-compile "Pugs"    env = fmap vCast $ runEval env genPugs
-compile "Parrot"  env = fmap vCast $ runEval env genIMC
+compile "Haskell" env = fmap vCast $ runEvalIO env genGHC
+compile "Pugs"    env = fmap vCast $ runEvalIO env genPugs
+compile "Parrot"  env = fmap vCast $ runEvalIO env genIMC
 compile s _ = fail $ "Cannot compile to " ++ s