arithmeticOperators :: OperatorTable Char () ArithmeticExp
arithmeticOperators = [[binary "*" mul AssocLeft, binary "/" divide AssocLeft],
                       [binary "+" add AssocLeft, binary "-" sub AssocLeft]]
arithmeticOperators :: OperatorTable Char () ArithmeticExp
arithmeticOperators = [[binary "*" mul AssocLeft, binary "/" divide AssocLeft],
                       [binary "+" add AssocLeft, binary "-" sub AssocLeft]]
arithmeticOperators = [[binary "*" mul AssocLeft, binary "/" divide AssocLeft],
                       [binary "+" add AssocLeft, binary "-" sub AssocLeft]]