Fixed multiple issues causing dangling references to discarded queries

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

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ListSyntax8.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ListSyntax8.scl
index ac5ce5765a58a4bd9b44f591a1f6ce3240084785..e570af4aa386a4ad554e4733f9f2af69345e61b7 100644 (file)
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ListSyntax8.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ListSyntax8.scl
@@ -1,12 +1,12 @@
-import "Prelude"\r
-\r
-a :: [Either Integer Integer]\r
-a = [Left 1, Right 2, Left 3, Right 4]\r
-\r
-lefts :: [Either a b] -> [a]\r
-lefts l = [x | Left x <- l] \r
-\r
-main :: [Integer]\r
-main = lefts a\r
---\r
+import "Prelude"
+
+a :: [Either Integer Integer]
+a = [Left 1, Right 2, Left 3, Right 4]
+
+lefts :: [Either a b] -> [a]
+lefts l = [x | Left x <- l] 
+
+main :: [Integer]
+main = lefts a
+--
 [1, 3]
\ No newline at end of file