]> gerrit.simantics Code Review - simantics/platform.git/blob
8c45e438b101955fe24a496f324f545707219e66
[simantics/platform.git] /
1 \r
2 @JavaType "org.simantics.scl.compiler.elaboration.expressions.Expression"\r
3 data Expression = \r
4     @JavaType "org/simantics/scl/compiler/elaboration/expressions/EIntegerLiteral"\r
5     @FieldNames [value]\r
6     EIntegerLiteral String\r
7   | @JavaType "org.simantics.scl.compiler.elaboration.expressions.ERealLiteral"\r
8     @FieldNames [value]\r
9     ERealLiteral String\r
10 \r
11 changeType :: Expression -> Expression\r
12 changeType (EIntegerLiteral value) = ERealLiteral value\r
13 changeType (ERealLiteral value) = EIntegerLiteral value\r
14 \r
15 main :: Expression\r
16 main = changeType (EIntegerLiteral "123") \r
17 --\r
18 123