diff options
| -rw-r--r-- | test/hello.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/hello.ml b/test/hello.ml index ef24804..df5d865 100644 --- a/test/hello.ml +++ b/test/hello.ml @@ -17,6 +17,7 @@ let main = print_endline (match exn with | Xml.InvalidStanza stanza -> "Invalid stanza: " ^ stanza + | Portal.MalformedStanza err -> "Server sent malformed stanza: " ^ (Markup.Error.to_string err) | _ -> "... and so I stumble back to bed."); Lwt.fail exn end |