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

golfing with curry

Browse source
This commit is contained in:
Joey Hess 2011-09-18 21:02:40 -04:00
parent b516cecff2
commit 8d1e8c0760
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/Matcher.hs
View file

@ -42,9 +42,7 @@ generate :: [Token op] -> Matcher op
generate ts = generate' Any ts generate ts = generate' Any ts
generate' :: Matcher op -> [Token op] -> Matcher op generate' :: Matcher op -> [Token op] -> Matcher op
generate' m [] = m generate' m [] = m
generate' m ts = generate' m' rest generate' m ts = uncurry generate' $ consume m ts
where
(m', rest) = consume m ts
{- Consumes one or more Tokens, constructs a new Matcher, {- Consumes one or more Tokens, constructs a new Matcher,
- and returns unconsumed Tokens. -} - and returns unconsumed Tokens. -}