Merged changes from feature/scl to master.

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / Polynomials.scl

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Polynomials.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Polynomials.scl
index 5e35b9424ac456dd7d61baa7d0c8c59f6df47293..f4cd212932fba4c78726d67d64b68c7f2f73a71c 100644 (file)
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Polynomials.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Polynomials.scl
@@ -8,7 +8,7 @@ normalize l = go (length l)
            then go (i-1)\r
            else take i l \r
 \r
-instance (Eq a, Additive a) => Additive (Poly a) where\r
+instance (Additive a) => Additive (Poly a) where\r
     zero = Poly []\r
     Poly a + Poly b = \r
         Poly ( \r
@@ -23,7 +23,7 @@ instance (Eq a, Additive a) => Additive (Poly a) where
             la = length a\r
             lb = length b        \r
 \r
-instance (Eq a, Ring a) => Ring (Poly a) where\r
+instance (Ring a) => Ring (Poly a) where\r
     one = Poly [one]\r
     neg (Poly l) = Poly (map neg l)\r
     a - b = a + (neg b)\r