bundles/org.simantics.scl.data/scl/Data/JsonNode.scl

   1 import "StandardLibrary"
   2 import "Data/Writer"
   3 import "JavaBuiltin" as Java
   4 import "Data/Json"
   5
   6 importJava "com.fasterxml.jackson.databind.JsonNode" where
   7     data JsonNode
   8
   9 importJava "org.simantics.scl.data.xml.JsonNodeHelper" where
  10     @private
  11     @JavaName toJsonString
  12     jsonNodeToString :: JsonNode -> String
  13     @private
  14     @JavaName fromJsonString
  15     stringToJsonNode :: String -> JsonNode
  16
  17 jsonNodeToJson :: JsonNode -> Json
  18 jsonNodeToJson node = fromJsonString (jsonNodeToString node)
  19
  20 jsonToJsonNode :: Json -> JsonNode
  21 jsonToJsonNode json = stringToJsonNode (toJsonString json)
  22
  23