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%2FForall3.scl;h=0b8c1aa1185f048eb8e6d8ad87026fa0a9308da1;hp=018a2a0bedca6b225fc5ff6f219fdaccaba49f57;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hpb=d70b5f7a4cdeea05c7526560303feffeb03596b0

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Forall3.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Forall3.scl
index 018a2a0be..0b8c1aa11 100644
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Forall3.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Forall3.scl
@@ -1,11 +1,11 @@
-
-data List a = Nil | Cons a (List a)
-
-build :: (forall l. l -> (a -> l -> l) -> l) -> List a
-build f = f Nil Cons
-
-main = build (\nil cons -> cons (1 :: Integer) (Cons (2 :: Integer) nil))
-                                             // ^^^^
--- 
-7:48-7:73: Expected <a> got <List Integer>.
+
+data List a = Nil | Cons a (List a)
+
+build :: (forall l. l -> (a -> l -> l) -> l) -> List a
+build f = f Nil Cons
+
+main = build (\nil cons -> cons (1 :: Integer) (Cons (2 :: Integer) nil))
+                                             // ^^^^
+-- 
+7:48-7:73: Expected <a> got <List Integer>.
 7:69-7:72: Expected <List Integer> got <a>.
\ No newline at end of file