Changeset 2936 for src/Pugs/Prim.hs

Timestamp:

05/10/05 19:29:59 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4498

Message:

* PGE parsefails no longer fatal.
* fix rules.t so it largely runs. don't enable it yet!

Files:

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

src/Pugs/Prim.hs

@@ -760 +760 @@
     case rv of
         Just m  -> fromVal (matchToVal m)
-        Nothing -> fail ("Cannot parse PGE: " ++ pge)
+        Nothing -> do
+            liftIO $ putStrLn ("*** Cannot parse PGE: " ++ re ++ "\n*** Error: " ++ pge)
+            return mkMatchFail
 
 doMatch cs MkRulePCRE{ rxRegex = re } = do