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%2FTuples.scl;h=bda65742cf263da5cde76a959f16dad52ca5a9ee;hp=5f70e4bea921000ca8e981f810beb46aaaf5796f;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hpb=0144ba232323a0e4f7ec8fe0681a150faafd7caf

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Tuples.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Tuples.scl
index 5f70e4bea..bda65742c 100644
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Tuples.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Tuples.scl
@@ -1,18 +1,18 @@
-id0 () = ()
-
-id0A :: () -> ()
-id0A () = ()
-
-id2 (a,b) = (a,b)
-
-id2A :: (a,b) -> (a,b)
-id2A (a,b) = (a,b)
-
-id3 (a,b,c) = (a,b,c)
-
-id3A :: (a,b,c) -> (a,b,c)
-id3A (a,b,c) = (a,b,c)
-
-main = id3 (1 :: Integer,id0 (),3 :: Integer)
---
+id0 () = ()
+
+id0A :: () -> ()
+id0A () = ()
+
+id2 (a,b) = (a,b)
+
+id2A :: (a,b) -> (a,b)
+id2A (a,b) = (a,b)
+
+id3 (a,b,c) = (a,b,c)
+
+id3A :: (a,b,c) -> (a,b,c)
+id3A (a,b,c) = (a,b,c)
+
+main = id3 (1 :: Integer,id0 (),3 :: Integer)
+--
 (1,(),3)
\ No newline at end of file