From 13273777453522c4b73083207b3ba50ea3ca6bd0 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Fri, 27 Jun 2025 08:33:40 +0200 Subject: feat(wire): move next and get from xml to wire --- lib/xml.ml | 19 ------------------- 1 file changed, 19 deletions(-) (limited to 'lib/xml.ml') diff --git a/lib/xml.ml b/lib/xml.ml index 25332a5..99a388f 100644 --- a/lib/xml.ml +++ b/lib/xml.ml @@ -1,4 +1,3 @@ -open Lwt.Syntax open Markup exception InvalidStanza of string @@ -57,21 +56,3 @@ let element_to_string ?(indent = 2) (el : element) = |> tab) ^ "\n" in element_to_string "" el |> String.trim - -(** [next stream] is a promise containing a full stanza of the fragments of - [stream]. *) -let next (stream : (signal, async) stream) : (signal, sync) stream Lwt.t = - let traverse_stanza depth fragment = - let depth = match fragment with - | `Start_element _ -> depth + 1 - | `End_element -> depth - 1 - | _ -> depth - in ([fragment], if depth = 0 then None else Some depth) - in transform traverse_stanza 0 stream |> Markup_lwt.load - -(** [get stream] is a promise containing a single Xml element of [stream]. *) -let get (stream : (signal, async) stream) : element Lwt.t = - let* signal = next stream - in match tree signal with - | Some xml -> Lwt.return xml - | None -> Lwt.fail (InvalidStanza (signal |> write_xml |> to_string)) -- cgit v1.2.3