From 8d1e8c0760e0d9935223523f35f5b8ea954730ac Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 18 Sep 2011 21:02:40 -0400 Subject: golfing with curry --- Utility/Matcher.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Utility/Matcher.hs') 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. -} -- cgit v1.2.3