Changeset 13182 for src/Pugs/CodeGen.hs

Timestamp:

09/11/06 13:59:36 (2 years ago)

Author:

audreyt

Message:

* Convert all "catch" in Pugs source code to "catchIO", which

is a re-export of Control.Exception.catch, such that "eval"
can catch asynchronous and imprecise exceptions, e.g. internall
"error" calls during parsing:

eval '"\123"'; # no longer a fatal error

Files:

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

src/Pugs/CodeGen.hs

@@ -87 +87 @@
 codeGen :: String -> Env -> IO String
 codeGen s env = do
-    gen <- catch (doLookup s) $ const $ do
+    gen <- catchIO (doLookup s) . const $ do
         fail $ "Cannot generate code for " ++ s
     rv <- runEvalIO env gen