Changeset 3103

Timestamp:

05/12/05 18:23:10 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4536

Message:

* failing to find Parrot is no longer fatal.

Files:

• src/Pugs/Prim/Match.hs (modified) (1 diff)

src/Pugs/Prim/Match.hs

@@ -28 +28 @@
         return (name, rxRule rule)
     pge <- liftIO $ evalPGE pwd (encodeUTF8 cs) (encodeUTF8 re) subrules
+            `catch` (\e -> return $ ioeGetErrorString e)
     rv  <- tryIO Nothing $ fmap Just (readIO $ decodeUTF8 pge)
     let matchToVal PGE_Fail = VMatch mkMatchFail