(refs #7307) Added features field to SCL module header

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / Forall3.scl

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 018a2a0bedca6b225fc5ff6f219fdaccaba49f57..0b8c1aa1185f048eb8e6d8ad87026fa0a9308da1 100644 (file)
--- 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 @@
-\r
-data List a = Nil | Cons a (List a)\r
-\r
-build :: (forall l. l -> (a -> l -> l) -> l) -> List a\r
-build f = f Nil Cons\r
-\r
-main = build (\nil cons -> cons (1 :: Integer) (Cons (2 :: Integer) nil))\r
-                                             // ^^^^\r
--- \r
-7:48-7:73: Expected <a> got <List Integer>.\r
+
+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