From b62123c378e7d134914f1479fbfa3409d94aa209 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 20 Sep 2011 00:58:18 -0400 Subject: simplify --- Utility/Matcher.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Utility') diff --git a/Utility/Matcher.hs b/Utility/Matcher.hs index 323a84bfd..69b78be4a 100644 --- a/Utility/Matcher.hs +++ b/Utility/Matcher.hs @@ -50,10 +50,10 @@ token t = error $ "unknown token " ++ t {- Converts a list of Tokens into a Matcher. -} generate :: [Token op] -> Matcher op -generate ts = generate' MAny ts -generate' :: Matcher op -> [Token op] -> Matcher op -generate' m [] = m -generate' m ts = uncurry generate' $ consume m ts +generate = go MAny + where + go m [] = m + go m ts = uncurry go $ consume m ts {- Consumes one or more Tokens, constructs a new Matcher, - and returns unconsumed Tokens. -} -- cgit v1.2.3