Changeset 13182 for src/Pugs/Prim/Match.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/Prim/Match.hs (modified) (1 diff)

src/Pugs/Prim/Match.hs

@@ -48 +48 @@
     text <- ruleWithAdverbs rule
     pge  <- liftIO $ evalPGE pwd (encodeUTF8 cs) (encodeUTF8 text) subrules
-            `catch` (\e -> return $ ioeGetErrorString e)
+            `catchIO` (\e -> return $ show e)
     rv  <- tryIO Nothing $ fmap Just (readIO $ decodeUTF8 pge)
     let matchToVal PGE_Fail = VMatch mkMatchFail