-\r
-@JavaType "org.simantics.scl.compiler.elaboration.expressions.Expression"\r
-data Expression = \r
- @JavaType "org/simantics/scl/compiler/elaboration/expressions/EIntegerLiteral"\r
- @FieldNames [value]\r
- EIntegerLiteral String\r
- | @JavaType "org.simantics.scl.compiler.elaboration.expressions.ERealLiteral"\r
- @FieldNames [value]\r
- ERealLiteral String\r
-\r
-changeType :: Expression -> Expression\r
-changeType (EIntegerLiteral value) = ERealLiteral value\r
-changeType (ERealLiteral value) = EIntegerLiteral value\r
-\r
-main :: Expression\r
-main = changeType (EIntegerLiteral "123") \r
---\r
+
+@JavaType "org.simantics.scl.compiler.elaboration.expressions.Expression"
+data Expression =
+ @JavaType "org/simantics/scl/compiler/elaboration/expressions/EIntegerLiteral"
+ @FieldNames [value]
+ EIntegerLiteral String
+ | @JavaType "org.simantics.scl.compiler.elaboration.expressions.ERealLiteral"
+ @FieldNames [value]
+ ERealLiteral String
+
+changeType :: Expression -> Expression
+changeType (EIntegerLiteral value) = ERealLiteral value
+changeType (ERealLiteral value) = EIntegerLiteral value
+
+main :: Expression
+main = changeType (EIntegerLiteral "123")
+--
123
\ No newline at end of file