From fbf072b592665f211eabae19dffe8bd9ad2154fc Mon Sep 17 00:00:00 2001 From: rand00 Date: Tue, 21 Jun 2022 11:31:44 +0200 Subject: [PATCH] lib/tyxml/tyxml_js.ml: Updated to fit tyxml Xml_sigs with semicolon separated attributes --- lib/tyxml/tyxml_js.ml | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lib/tyxml/tyxml_js.ml b/lib/tyxml/tyxml_js.ml index ec92a9c969..59374d859a 100644 --- a/lib/tyxml/tyxml_js.ml +++ b/lib/tyxml/tyxml_js.ml @@ -76,6 +76,8 @@ module Xml = struct let comma_sep_attrib name values = attr name (Js.string (String.concat "," values)) + let semicolon_sep_attrib name values = attr name (Js.string (String.concat ";" values)) + let event_handler_attrib name (value : event_handler) = name, Event value let mouse_event_handler_attrib name (value : mouse_event_handler) = @@ -414,6 +416,9 @@ module R = struct let comma_sep_attrib name s = attr name (fun f -> Some (Js.string (String.concat "," f))) s + let semicolon_sep_attrib name s = + attr name (fun f -> Some (Js.string (String.concat ";" f))) s + let event_handler_attrib name s = Xml.event_handler_attrib name s let mouse_event_handler_attrib name s = Xml.mouse_event_handler_attrib name s