diff options
-rw-r--r-- | Utility/Matcher.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |