golfing with curry

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. -}