]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/InstanceHierarchy.scl
Merged changes from feature/scl to master.
[simantics/platform.git] / bundles / org.simantics.scl.compiler / tests / org / simantics / scl / compiler / tests / scl / InstanceHierarchy.scl
diff --git a/bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/InstanceHierarchy.scl b/bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/InstanceHierarchy.scl
deleted file mode 100644 (file)
index 1c751f3..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-import "Prelude" hiding (zero, one)\r
-\r
-class MyAdditive a where\r
-    zero :: a\r
-    \r
-class (MyAdditive a) => MyRing a where\r
-    one :: a\r
-\r
-instance MyAdditive Integer where\r
-    zero = 0\r
-\r
-instance MyRing Integer where\r
-    one = 1\r
-    \r
-data Poly a = Poly [a]\r
-\r
-instance (MyAdditive a) => MyAdditive (Poly a) where\r
-    zero = Poly []\r
-\r
-instance (MyRing a) => MyRing (Poly a) where\r
-    one = Poly [one]\r
-    \r
-main :: Poly Integer\r
-main = one\r
---\r
-[1]
\ No newline at end of file