Merge pull request #790 from vbgl/tyxml-4.6.0

Compatibility with tyxml 4.6.x

src/lib/eliom_form.eliom

@@ -148,7 +148,7 @@ module Make_links (Html : Html) = struct
 
   let js_script ?(a = []) ~uri () =
     let a =
-      Html.a_mime_type "text/javascript"
+      Html.a_script_type `Javascript
       :: Html.a_src uri
       :: (a :> Html_types.script_attrib attrib list)
     in

src/lib/eliom_shared_content.eliom

@@ -198,6 +198,11 @@ module Svg = struct
         : (Svg_types.dominant_baseline -> string) Eliom_shared.Value.t
         :> ([< Svg_types.dominant_baseline] -> string) Eliom_shared.Value.t)
 
+    let string_of_fill_rule () =
+       ([%shared Raw_wrapped_functions_svg.string_of_fill_rule]
+        : (Svg_types.fill_rule -> string) Eliom_shared.Value.t
+        :> ([< Svg_types.fill_rule] -> string) Eliom_shared.Value.t)
+
     let string_of_fourfloats () =
       [%shared Raw_wrapped_functions_svg.string_of_fourfloats]
 
@@ -314,6 +319,9 @@ module Html = struct
 
     let onoff_of_bool () = [%shared Raw_wrapped_functions.onoff_of_bool]
 
+    let string_of_autocomplete () =
+      [%shared Raw_wrapped_functions.string_of_autocomplete]
+
     let string_of_big_variant () =
       ([%shared Raw_wrapped_functions.string_of_big_variant]
         : (Html_types.big_variant -> string) Eliom_shared.Value.t
@@ -329,6 +337,11 @@ module Html = struct
         : (Html_types.input_type -> string) Eliom_shared.Value.t
         :> ([< Html_types.input_type] -> string) Eliom_shared.Value.t)
 
+    let string_of_script_type () =
+      ([%shared Raw_wrapped_functions.string_of_script_type]
+        : (Html_types.script_type -> string) Eliom_shared.Value.t
+        :> ([< Html_types.script_type] -> string) Eliom_shared.Value.t)
+
     let string_of_linktypes () =
       ([%shared Raw_wrapped_functions.string_of_linktypes]
         : (Html_types.linktype list -> string) Eliom_shared.Value.t