Fixing an issue with the function Xml_print.compose_decl.

lib/html_sigs.mli

@@ -109,7 +109,7 @@ module type T = sig
   (** A nullary element is an element that doesn't have any children. *)
   type ('a, 'b) nullary = ?a:('a attrib list) -> unit -> 'b elt
 
-  (** A unary element is an element that have exactly one children. *)
+  (** A unary element is an element that has exactly one children. *)
   type ('a, 'b, 'c) unary = ?a:('a attrib list) -> 'b elt wrap -> 'c elt
 
   (** A star element is an element that has any number of children, including zero. *)

lib/svg_f.ml

@@ -123,7 +123,7 @@ struct
     let standard = "http://www.w3.org/TR/svg11/"
     let namespace = "http://www.w3.org/2000/svg"
     let doctype =
-      Xml_print.compose_doctype"svg"
+      Xml_print.compose_doctype "svg"
         ["-//W3C//DTD SVG 1.1//EN";
          "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd"]
   end

lib/svg_sigs.mli

@@ -88,7 +88,7 @@ module type T = sig
   (** A nullary element is an element that doesn't have any children. *)
   type ('a, 'b) nullary = ?a: (('a attrib) list) -> unit -> 'b elt
 
-  (** A unary element is an element that have exactly one children. *)
+  (** A unary element is an element that has exactly one children. *)
   type ('a, 'b, 'c) unary = ?a: (('a attrib) list) -> 'b elt wrap -> 'c elt
 
   (** A star element is an element that has any number of children, including zero. *)

lib/xml_print.ml

@@ -49,8 +49,8 @@ let encode_unsafe_char_and_at s =
 
 let compose_decl ?(version = "1.0") ?(encoding = "UTF-8") () =
   Format.sprintf
-    {|<?xml version="%s" encoding="%s"?>\n|}
-    version encoding
+    {|<?xml version="%s" encoding="%s"?>%c|}
+    version encoding '\n'
 
 let compose_doctype dt args =
   let pp_args fmt = function