From b516cecff2c315e495c7dc6ec51af6e5aefaf57c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 18 Sep 2011 20:58:34 -0400
Subject: probably better to error on unknown token

---
 Utility/Matcher.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Utility/Matcher.hs b/Utility/Matcher.hs
index 5cf000b1b..451c3f139 100644
--- 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)
-- 
cgit v1.2.3