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%2FInvalidKinds2.scl;h=6e2cc6ede101d46cf112a745d2a8a0eeaf140eaf;hb=231cb7ec03fff167dcd2b01a5a60a57e2fc2df7c;hp=ffdf0a9f616f9f02f89438f3200e4a70fac64105;hpb=06718abb2b3cc780748553811c4857c165499809;p=simantics%2Fplatform.git

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/InvalidKinds2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/InvalidKinds2.scl
index ffdf0a9f6..6e2cc6ede 100644
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/InvalidKinds2.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/InvalidKinds2.scl
@@ -1,9 +1,9 @@
-class Functor f where
-    map :: (a -> b) -> f a -> f b
-    
-instance Functor Integer where
-    map = fail "Not implemented."
-
-main = "Not to be executed."
---
+class Functor f where
+    map :: (a -> b) -> f a -> f b
+    
+instance Functor Integer where
+    map = fail "Not implemented."
+
+main = "Not to be executed."
+--
 4:18-4:25: Expected a type with kind * -> * but got *.
\ No newline at end of file