To compile with OCaml 3.11.2 and later

2017-09-01 18:45:42 +01:00 · 2017-09-01 18:45:42 +01:00 · c1deec28df
parent d108f516df
commit c1deec28df
1 changed files with 1 additions and 1 deletions
--- a/xmlm.ml
+++ b/xmlm.ml
@ -961,7 +961,7 @@ struct
  let make_output ?(decl = true) ?(nl = false) ?(indent = None)
      ?(ns_prefix = fun _ ->None) d =
    let outs, outc = match d with
-    | `Channel c -> (output_substring c), (output_char c)
+    | `Channel c -> (output c), (output_char c)
    | `Buffer b -> (Std_buffer.add_substring b), (Std_buffer.add_char b)
    | `Fun f ->
        let os s p l =