Changeset 7879 for src/Pugs/Prim/Match.hs

Timestamp:

11/06/05 18:07:27 (3 years ago)

Author:

autrijus

Message:

* Empty p6 rules now raises exceptions.

Reported by Patrick Michaud.

Files:

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

src/Pugs/Prim/Match.hs

@@ -15 +15 @@
 
 doMatch :: String -> VRule -> Eval VMatch
--- Work around PGE bug on Parrot 0.3.1 -- empty rule matches automatically
-doMatch _ MkRulePGE{ rxRule = "" } = return $ mkMatchOk 0 0 "" [] Map.empty
+-- Work around PGE bug on Parrot 0.3.1 -- empty rules are errors
+doMatch _ MkRulePGE{ rxRule = "" } = fail "Null patterns are invalid; use <?null> or an empty string instead"
 doMatch cs MkRulePGE{ rxRule = re } = do
     let pwd1 = getConfig "installarchlib" ++ "/CORE/pugs/pge"