]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/RecursionBug.scl
(refs #7746) Fixed applications with intermediate effects
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / RecursionBug.scl
1 module {
2     export = [main]
3 }
4
5 import "Prelude"
6
7 data Path = EmptyPath | ConsPath String Path
8
9 showR :: Path -> String
10 showR EmptyPath = "@"
11 showR (ConsPath h EmptyPath) = h
12 showR (ConsPath h t) = "\(h)-\(showR t)"
13
14 main = "Hello world!"
15 --
16 Hello world!