diff options
Diffstat (limited to 'portal/ws')
| -rw-r--r-- | portal/ws/portal.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/portal/ws/portal.ml b/portal/ws/portal.ml index d1e87e7..8160e77 100644 --- a/portal/ws/portal.ml +++ b/portal/ws/portal.ml @@ -132,7 +132,7 @@ let connect domain = (* When sending a malformed stanza (one that Markup.ml doesn't like), a MalformedStanza exception is raised. *) let report _ err = - raise (MalformedStanza err) + Lwt.fail (MalformedStanza err) in (* Consumes a stream of Markup.ml signals into a series of frames sent to the WebSocket. *) |