Fixed all line endings of the repository

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

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Proc2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Proc2.scl
index bd8021b13f0c284c900a37ccad1d7bc245c7770e..a18e50da88789a9c8f94e8d4b0fd9e501e417a1e 100644 (file)
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Proc2.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Proc2.scl
@@ -1,29 +1,29 @@
-import "Prelude"\r
-\r
-data RealWorld = RealWorld\r
-data IO a = IO (RealWorld -> (RealWorld, a))\r
-\r
-@inline\r
-unIO (IO m) = m \r
-\r
-instance Functor IO where\r
-    @inline\r
-    fmap f x = x >>= (return . f)\r
-\r
-instance Monad IO where\r
-    @inline\r
-    return x = IO (\s -> (s, x))\r
-    \r
-    @inline\r
-    (IO m) >>= f = IO (\s -> do\r
-        (newS, v) = m s\r
-        unIO (f v) newS \r
-    )\r
-\r
-@inline\r
-runIO :: IO a -> a\r
-runIO m = snd (unIO m RealWorld)\r
-\r
-main = runIO (return (13 :: Integer))\r
---\r
-13\r
+import "Prelude"
+
+data RealWorld = RealWorld
+data IO a = IO (RealWorld -> (RealWorld, a))
+
+@inline
+unIO (IO m) = m 
+
+instance Functor IO where
+    @inline
+    fmap f x = x >>= (return . f)
+
+instance Monad IO where
+    @inline
+    return x = IO (\s -> (s, x))
+    
+    @inline
+    (IO m) >>= f = IO (\s -> do
+        (newS, v) = m s
+        unIO (f v) newS 
+    )
+
+@inline
+runIO :: IO a -> a
+runIO m = snd (unIO m RealWorld)
+
+main = runIO (return (13 :: Integer))
+--
+13