To compile with OCaml 3.11.2 and later

This commit is contained in:
John Whitington 2017-09-01 18:45:42 +01:00
parent d108f516df
commit c1deec28df
1 changed files with 1 additions and 1 deletions

2
xmlm.ml Executable file → Normal file
View File

@ -961,7 +961,7 @@ struct
let make_output ?(decl = true) ?(nl = false) ?(indent = None) let make_output ?(decl = true) ?(nl = false) ?(indent = None)
?(ns_prefix = fun _ ->None) d = ?(ns_prefix = fun _ ->None) d =
let outs, outc = match d with 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) | `Buffer b -> (Std_buffer.add_substring b), (Std_buffer.add_char b)
| `Fun f -> | `Fun f ->
let os s p l = let os s p l =