Fixed all line endings of the repository

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

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Proc3.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Proc3.scl
index 4a17fe4808d1591810a023c82a0fb9179545c408..ba15cde30a0427db08a533c663a1717db5250dd2 100644 (file)
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Proc3.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Proc3.scl
@@ -1,16 +1,16 @@
-import "Prelude"\r
-\r
-@private\r
-repeat :: Integer -> (() -> <e> a) -> <e> ()\r
-repeat n proc = \r
-    if n > 0 then do\r
-        proc ()\r
-        repeat (n-1) proc\r
-    else () \r
-\r
-main = do\r
-    a = ref 1 \r
-    repeat 3 (\() -> a := 2)\r
-    getRef a\r
---\r
+import "Prelude"
+
+@private
+repeat :: Integer -> (() -> <e> a) -> <e> ()
+repeat n proc = 
+    if n > 0 then do
+        proc ()
+        repeat (n-1) proc
+    else () 
+
+main = do
+    a = ref 1 
+    repeat 3 (\() -> a := 2)
+    getRef a
+--
 2
\ No newline at end of file