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%2FFunctionFunctor.scl;h=1d94bbe8416f0065da02afcbfd7467bf5477bde9;hp=f63481032d6d2fc86620ec5a108fe08665f35aa7;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hpb=d70b5f7a4cdeea05c7526560303feffeb03596b0

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/FunctionFunctor.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/FunctionFunctor.scl
index f63481032..1d94bbe84 100644
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/FunctionFunctor.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/FunctionFunctor.scl
@@ -1,9 +1,9 @@
-import "Prelude"
-
-//               vvvvvv  mistake, parantheses missing
-instance Functor (->) a where
-    map f g x = f (g x)
-    
-main = "Not to be executed."
---
+import "Prelude"
+
+//               vvvvvv  mistake, parantheses missing
+instance Functor (->) a where
+    map f g x = f (g x)
+    
+main = "Not to be executed."
+--
 4:1-5:24: Wrong number of parameters to type class Functor.
\ No newline at end of file