X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FTypeClass.scl;h=5f20617ef49bc962692bcac9c306976595d02f01;hb=d0eb7b399ba1510610da9a7f4d29b671950f1426;hp=540d44e0e140177abe669928c7614bf6c915de69;hpb=a5e69e900dcfcf54a9f39ab754f20467d99b64d3;p=simantics%2Fplatform.git diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/TypeClass.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/TypeClass.scl index 540d44e0e..5f20617ef 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/TypeClass.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/TypeClass.scl @@ -1,10 +1,10 @@ - -class Foo a where - foo :: a -> Integer - -instance Foo Integer where - foo x = x - -main = foo (13 :: Integer) --- + +class Foo a where + foo :: a -> Integer + +instance Foo Integer where + foo x = x + +main = foo (13 :: Integer) +-- 13 \ No newline at end of file