Representation of the XML tree

Standard foldl

Standard mapping of a value to another value

Convert an Xml.Value to a Json.Value

The conversion of Tags changed in version 1.0.3, so that they can be properly converted back. The attribute names become JSON keys with "@" prepended, and the value becomes a JSON key named "#value": 1 becomes {foo: {#value: 1, @x: "x"}}

import Dict
import Json.Encode as Json
import Xml exposing (jsonToXml, Value(..))


xmlToJson (StrNode "hello")
--> Json.string "hello"


xmlToJson (IntNode 5)
--> Json.int 5


xmlToJson (FloatNode 5)
--> Json.float 5


xmlToJson (BoolNode True)
--> Json.bool True


xmlToJson (Object [ IntNode 5, BoolNode True ])
--> Json.list identity [Json.int 5, Json.bool True]


xmlToJson (Tag "foo" (Dict.fromList [("x",StrNode "x")]) (IntNode 1))
--> Json.object [("foo", Json.object [("#value", Json.int 1), ("@x", Json.string "x")])]


xmlToJson (DocType "" Dict.empty)
--> Json.null

Convert a Json.Value into an Xml.Value

import Dict
import Json.Encode as Json
import Xml exposing (jsonToXml, Value(..))


jsonToXml (Json.string "hello")
--> StrNode "hello"


jsonToXml (Json.int 5)
--> IntNode 5


jsonToXml (Json.float 10.5)
--> FloatNode 10.5


jsonToXml (Json.bool True)
--> BoolNode True


jsonToXml (Json.object [("name", Json.string "hello")])
--> Tag "name" Dict.empty (StrNode "hello")


jsonToXml (Json.list identity [Json.string "name", Json.string "hello"])
--> Object [ StrNode "name", StrNode "hello" ]


jsonToXml (Json.object [("foo", Json.object [("#value", Json.int 1), ("@x", Json.string "x")])])
--> Tag "foo" (Dict.fromList [("x",StrNode "x")]) (IntNode 1)