diff options
| -rw-r--r-- | Utility/Matcher.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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. -} |