]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/LocalDefinitions3.scl
(refs #7307) Added features field to SCL module header
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / LocalDefinitions3.scl
index 71a193f6e2a2e7c747e00b77823624e00c9123cc..5b8f257d7f4f9637ff4644920d876316c8a21cea 100644 (file)
@@ -1,10 +1,10 @@
-\r
-data Step s = Skip s\r
-\r
-next :: (s -> Step s) -> s -> Step s \r
-next next0 ss = match next0 ss with \r
-    Skip ss -> Skip ss\r
-    \r
-main = next (\x -> Skip x) (3 :: Integer)\r
---\r
+
+data Step s = Skip s
+
+next :: (s -> Step s) -> s -> Step s 
+next next0 ss = match next0 ss with 
+    Skip ss -> Skip ss
+    
+main = next (\x -> Skip x) (3 :: Integer)
+--
 3
\ No newline at end of file