timedesc_tzlocal.ml
timedesc-tzlocal-js
1 2 3 4 5 6 open Js_of_ocaml let local () = let formatter = new%js Intl.dateTimeFormat_constr Js.undefined Js.undefined in let tz = Js.to_string (formatter##resolvedOptions ())##.timeZone in [ tz ]
1 2 3 4 5 6
open Js_of_ocaml let local () = let formatter = new%js Intl.dateTimeFormat_constr Js.undefined Js.undefined in let tz = Js.to_string (formatter##resolvedOptions ())##.timeZone in [ tz ]