mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

probably better to error on unknown token

Browse source
This commit is contained in:
Joey Hess 2011-09-18 20:58:34 -04:00
parent 8ea48c3e39
commit b516cecff2
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/Matcher.hs
View file

@ -57,7 +57,7 @@ consume m ((Token t):ts)
| t == "not" = cont $ m `And` (Not next) | t == "not" = cont $ m `And` (Not next)
| t == "(" = let (n, r) = consume next rest in (m `And` n, r) | t == "(" = let (n, r) = consume next rest in (m `And` n, r)
| t == ")" = (m, ts) | t == ")" = (m, ts)
| otherwise = (m, ts) -- ignore unknown token | otherwise = error $ "unknown token " ++ t
where where
(next, rest) = consume Any ts (next, rest) = consume Any ts
cont v = (v, rest) cont v = (v, rest)