rules :: Parser (Rules Char)
rules = Rules <$> manyTill (whiteSpace rulesDef *> rule) eof
rules :: Parser (Rules Char)
rules = Rules <$> manyTill (whiteSpace rulesDef *> rule) eof
rules = Rules <$> manyTill (whiteSpace rulesDef *> rule) eof