diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-18 21:02:40 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-18 21:02:40 -0400 |
| commit | 8d1e8c0760e0d9935223523f35f5b8ea954730ac (patch) | |
| tree | 6a953b002d29a99c901669b8de5d6a66292e1bdc /Utility/Matcher.hs | |
| parent | b516cecff2c315e495c7dc6ec51af6e5aefaf57c (diff) | |
golfing with curry
Diffstat (limited to 'Utility/Matcher.hs')
| -rw-r--r-- | Utility/Matcher.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Utility/Matcher.hs b/Utility/Matcher.hs index 451c3f139..342775d68 100644 --- a/Utility/Matcher.hs +++ b/Utility/Matcher.hs @@ -42,9 +42,7 @@ generate :: [Token op] -> Matcher op generate ts = generate' Any ts generate' :: Matcher op -> [Token op] -> Matcher op generate' m [] = m -generate' m ts = generate' m' rest - where - (m', rest) = consume m ts +generate' m ts = uncurry generate' $ consume m ts {- Consumes one or more Tokens, constructs a new Matcher, - and returns unconsumed Tokens. -} |