rule :: Parser ([Match Char], [Match Char])
rule = ((,) <$> rule1 <* reservedOp rulesDef "->") <*> rule1 <* optional newline
rule :: Parser ([Match Char], [Match Char])
rule = ((,) <$> rule1 <* reservedOp rulesDef "->") <*> rule1 <* optional newline
rule = ((,) <$> rule1 <* reservedOp rulesDef "->") <*> rule1 <* optional newline