Changeset 13369 for src/Pugs/Prim/Match.hs
- Timestamp:
- 09/16/06 15:06:34 (2 years ago)
- Files:
-
- 1 modified
-
src/Pugs/Prim/Match.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Prim/Match.hs
r13365 r13369 62 62 Just m -> fromVal (matchToVal m) 63 63 Nothing -> do 64 liftIO $ putStrLn ("*** Cannot parse PGE: " ++ ruleStr ++ "\n*** Error: " ++ pge)64 liftIO $ putStrLn ("*** Cannot parse regex: " ++ ruleStr ++ "\n*** Error: " ++ pge) 65 65 return mkMatchFail 66 66
