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%2FInstanceIsTypoedAsClass.scl;h=2f30e85f5afab8bf35f781a668a363ccf0dc5baa;hp=f3973cccd4ca178174785553ec4766544bf5e4da;hb=refs%2Fchanges%2F38%2F238%2F2;hpb=24e2b34260f219f0d1644ca7a138894980e25b14

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