Fixed all line endings of the repository

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

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/LocalDefinitions2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/LocalDefinitions2.scl
index f17a8beee26ffc67c83bd7a238ca879b008e23e3..3bd0f21df8b2a92eb3bb9413585545aee5d0d238 100644 (file)
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/LocalDefinitions2.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/LocalDefinitions2.scl
@@ -1,14 +1,14 @@
-\r
-data List a = Nil | Cons a (List a)\r
-\r
-hasEvenLength :: List a -> Boolean\r
-hasEvenLength l = do \r
-    even Nil        = True\r
-    even (Cons _ t) = odd t\r
-    odd  Nil        = False\r
-    odd  (Cons _ t) = even t\r
-    even l\r
-\r
-main = hasEvenLength (Cons (1 :: Integer) (Cons (2 :: Integer) (Cons (3 :: Integer) (Cons (4 :: Integer) Nil))))\r
---\r
+
+data List a = Nil | Cons a (List a)
+
+hasEvenLength :: List a -> Boolean
+hasEvenLength l = do 
+    even Nil        = True
+    even (Cons _ t) = odd t
+    odd  Nil        = False
+    odd  (Cons _ t) = even t
+    even l
+
+main = hasEvenLength (Cons (1 :: Integer) (Cons (2 :: Integer) (Cons (3 :: Integer) (Cons (4 :: Integer) Nil))))
+--
 true
\ No newline at end of file