]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/DoubleEffect.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 / DoubleEffect.scl
index b0615106fd79839280f0a309ade0ffcf01d4b56b..463f6b986f88faa3d249657c61040e0bab81466c 100644 (file)
@@ -1,8 +1,8 @@
-app :: (Integer -> <e1> Integer) -> <e1> ((Integer -> <e2> Integer) -> <e2> Integer)\r
-app f = do\r
-  a = f 1\r
-  \g -> g a\r
-  \r
-main = app (\x -> x) (\x -> x)\r
---\r
+app :: (Integer -> <e1> Integer) -> <e1> ((Integer -> <e2> Integer) -> <e2> Integer)
+app f = do
+  a = f 1
+  \g -> g a
+  
+main = app (\x -> x) (\x -> x)
+--
 1
\ No newline at end of file