在Elm中有没有遍历XML树的方法？

import Html exposing (text)
import Json.Decode as Json

type alias Xml =
    { tag : String
    , attributes : List ( String, String )
    , children : List Xml
    }

xmlToJson : Xml -> Json.Value
xmlToJson xml =
    let
        toJson ( tag, attrs, children ) =
            Json.object
                [ ( "tag", Json.string tag )
                , ( "attributes", Json.object (List.map (\( key, value ) -> ( key, Json.string value )) attrs) )
                , ( "children", Json.array (List.map toJson children) )
                ]
    in
    toJson ( xml.tag, xml.attributes, xml.children )

-- 示例XML数据
sampleXml : Xml
sampleXml =
    { tag = "root"
    , attributes = []
    , children =
        [ { tag = "node1"
          , attributes = [("attr1", "value1")]
          , children = []
          }
        , { tag = "node2"
          , attributes = [("attr2", "value2")]
          , children = []
          }
        ]
    }

-- 将XML转换为JSON
json : Json.Value
json =
    xmlToJson sampleXml

-- 遍历JSON节点
traverseJson : Json.Value -> String
traverseJson json =
    case Json.decodeValue Json.string json of
        Ok value ->
            value

        Err _ ->
            "Invalid JSON"

main =
    text (traverseJson json)