X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FBigInstances.scl;h=b2e9e320f757116b696bc5d40b0e14b02fffe44f;hp=c64b1b703aeea491846147a921052105bfd20f28;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hpb=e67e00d01d30f362e7a4f599cbcf24770ce13e22 diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/BigInstances.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/BigInstances.scl index c64b1b703..b2e9e320f 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/BigInstances.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/BigInstances.scl @@ -1,16 +1,16 @@ - -class Foo a where - foo :: a - -class (Foo a) => Bar a where - bar :: a - -instance Bar Double where - foo x = x - bar x = x - -main = foo 3.0 + bar 4.0 --- -7.0 - + +class Foo a where + foo :: a + +class (Foo a) => Bar a where + bar :: a + +instance Bar Double where + foo x = x + bar x = x + +main = foo 3.0 + bar 4.0 +-- +7.0 + \ No newline at end of file