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