probably better to error on unknown token

2011-09-18 20:58:34 -04:00 · 2011-09-18 20:58:34 -04:00 · b516cecff2
commit b516cecff2
parent 8ea48c3e39
1 changed files with 1 additions and 1 deletions
--- a/Utility/Matcher.hs
+++ b/Utility/Matcher.hs
@ -57,7 +57,7 @@ consume m ((Token t):ts)
 	| t == "not" = cont $ m `And` (Not next)
 	| t == "(" = let (n, r) = consume next rest in (m `And` n, r)
 	| t == ")" = (m, ts)
-	| otherwise = (m, ts) -- ignore unknown token
+	| otherwise = error $ "unknown token " ++ t
 	where
 		(next, rest) = consume Any ts
 		cont v = (v, rest)