From c1deec28df094e77ae3f03b22da8e34cf7372e9b Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 1 Sep 2017 18:45:42 +0100
Subject: [PATCH] To compile with OCaml 3.11.2 and later

---
 xmlm.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 mode change 100755 => 100644 xmlm.ml

diff --git a/xmlm.ml b/xmlm.ml
old mode 100755
new mode 100644
index 3430e91..4cf4887
--- 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 =