@@ -91,12 +91,12 @@ inlineOperator (m, op) f = everywhereOnJS convert
92inlineCommonOperators :: JS -> JS
92inlineCommonOperators :: JS -> JS
93inlineCommonOperators = applyAll $
93inlineCommonOperators = applyAll $
94− [ binary C.numNumber (C.+) Add
94+ [ binary C.semiringNumber (C.+) Add
95− , binary C.numNumber (C.-) Subtract
95+ , binary C.semiringNumber (C.*) Multiply
96− , binary C.numNumber (C.*) Multiply
96+ , binary C.ringNumber (C.-) Subtract
97+ , unary C.ringNumber C.negate Negate
97− , binary C.numNumber (C./) Divide
98+ , binary C.divisionRingNumber (C./) Divide
98− , binary C.numNumber (C.%) Modulus
99+ --, binary C.numNumber (C.%) Modulus
99− , unary C.numNumber C.negate Negate
101 , binary C.ordNumber (C.<) LessThan
101 , binary C.ordNumber (C.<) LessThan
102 , binary C.ordNumber (C.>) GreaterThan
102 , binary C.ordNumber (C.>) GreaterThan