feat(xml): make tree function async

1 files changed, 5 insertions, 5 deletions

diff --git a/lib/xml.ml b/lib/xml.ml
index 99a388f..dcb3e79 100644
--- a/lib/xml.ml
+++ b/lib/xml.ml
@@ -1,4 +1,4 @@
-open Markup
+open Lwt.Syntax
 
 exception InvalidStanza of string
 
@@ -9,9 +9,9 @@ type element = {
     children : (element, string) Either.t list;
   }
 
-(** [tree s] is an [element option] representing the XML element inside of stream [s],
-    if [s] is a complete element from start to end. *)
-let tree s : element option =
+(** [tree s] is a promise to an [element option] representing the XML element inside of
+    stream [s], if [s] is a complete element from start to end. *)
+let tree s : element option Lwt.t =
   let element (namespace, name) attributes children =
     Either.Left {
         namespace;
@@ -26,7 +26,7 @@ let tree s : element option =
         children;
       }
   and text ss = Either.Right (String.concat "" ss) in
-  let opt_el = tree ~text ~element s in
+  let+ opt_el = Markup_lwt.tree ~text ~element s in
   Option.bind opt_el (Either.fold ~left:Option.some ~right:(fun _ -> None))
 
 (** [element_to_string element] is a string representation of the underlying XML in