import "StandardLibrary" import "Data/Writer" import "JavaBuiltin" as Java import "Data/Json" importJava "com.fasterxml.jackson.databind.JsonNode" where data JsonNode importJava "org.simantics.scl.data.xml.JsonNodeHelper" where @private @JavaName toJsonString jsonNodeToString :: JsonNode -> String @private @JavaName fromJsonString stringToJsonNode :: String -> JsonNode jsonNodeToJson :: JsonNode -> Json jsonNodeToJson node = fromJsonString (jsonNodeToString node) jsonToJsonNode :: Json -> JsonNode jsonToJsonNode json = stringToJsonNode (toJsonString json)