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%2FInstanceIsTypoedAsClass.scl;h=2f30e85f5afab8bf35f781a668a363ccf0dc5baa;hb=6573b29e111ea03c3fa88bf1565d47d0fc4faabd;hp=f3973cccd4ca178174785553ec4766544bf5e4da;hpb=c125a1755cc7c4a6241c3c5bf841c3db0ff2d658;p=simantics%2Fplatform.git

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/InstanceIsTypoedAsClass.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/InstanceIsTypoedAsClass.scl
index f3973cccd..2f30e85f5 100644
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/InstanceIsTypoedAsClass.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/InstanceIsTypoedAsClass.scl
@@ -1,9 +1,9 @@
-class Functor f where
-    map :: (a -> b) -> f a -> f b
-    
-data Foo a = Foo a
-
-class Functor Foo where
-    map f (Foo x) = Foo (f x)
---
+class Functor f where
+    map :: (a -> b) -> f a -> f b
+    
+data Foo a = Foo a
+
+class Functor Foo where
+    map f (Foo x) = Foo (f x)
+--
 6:1-7:30: Class Functor has already been defined in this module.
\ No newline at end of file