feat(portal): remove location in MalformedStanza

what were you gonna do with that information anyway?

1 files changed, 4 insertions, 4 deletions

diff --git a/portal/ws/portal.ml b/portal/ws/portal.ml
index ad1eb86..d1e87e7 100644
--- a/portal/ws/portal.ml
+++ b/portal/ws/portal.ml
@@ -15,6 +15,8 @@ type t = {
 
 let xmlns = "urn:ietf:params:xml:ns:xmpp-framing"
 
+exception MalformedStanza of Markup.Error.t
+
 (* sic. XEP-0156: "host-meta files MUST be fetched only over HTTPS". I don't make the
    rules. *)
 let well_known_of (domain : string) = "https://" ^ domain ^ "/.well-known/host-meta"
@@ -53,8 +55,6 @@ let header ?from domain {stream; push; _} =
 (** [close] is a [<close/>] stanza. *)
 let close = {|<close xmlns="|} ^ xmlns ^ {|" />|} |> string |> parse_xml |> signals
 
-exception MalformedStanza of Markup.location * Markup.Error.t
-
 (** [ws_endpoint domain] is a promise containing the XMPP websocket endpoint
     associated with [domain], by using the domain's Web-host Metadata.
 
@@ -131,8 +131,8 @@ let connect domain =
   let open Markup_lwt in
   (* When sending a malformed stanza (one that Markup.ml doesn't like), a
      MalformedStanza exception is raised. *)
-  let report loc err =
-    raise (MalformedStanza (loc, err))
+  let report _ err =
+    raise (MalformedStanza err)
   in
   (* Consumes a stream of Markup.ml signals into a series of frames sent to the
      WebSocket. *)