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=6573b29e111ea03c3fa88bf1565d47d0fc4faabd;hp=540d44e0e140177abe669928c7614bf6c915de69;hpb=c08364c64a0bb53c45c052a3e4cea8702bbd69a0;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