Merge pull request #669 from ocsigen/wasm

Wasm support
ocsigen · Sep 28, 2024 · 10f3812 · 10f3812
2 parents e776db2 + b2650e1
commit 10f3812
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/opam b/opam
@@ -30,6 +30,7 @@ depends: [
   "yojson" {>= "1.6.0"}
   "resource-pooling" {>= "1.0" & < "2.0"}
   "cohttp-lwt-unix"
+  "js_of_ocaml" {>= "5.5.0"}
   "re" {>= "1.7.2"}
 ]
 depexts: [

diff --git a/src/os_date.eliom b/src/os_date.eliom
@@ -141,14 +141,20 @@ let to_utc ?(timezone = user_tz ()) d =
 
 let%client to_local d =
   let d = CalendarLib.Calendar.to_unixfloat d in
-  let o = (new%js Js.date_fromTimeValue (d *. 1000.))##getTimezoneOffset in
+  let o =
+    (new%js Js.date_fromTimeValue (Js.float (d *. 1000.)))##getTimezoneOffset
+  in
   CalendarLib.Calendar.from_unixfloat (d -. (float o *. 60.))
 
 let%client to_utc d =
   let d = CalendarLib.Calendar.to_unixfloat d in
-  let o = (new%js Js.date_fromTimeValue (d *. 1000.))##getTimezoneOffset in
+  let o =
+    (new%js Js.date_fromTimeValue (Js.float (d *. 1000.)))##getTimezoneOffset
+  in
   let d' = d +. (float o *. 60.) in
-  let o' = (new%js Js.date_fromTimeValue (d' *. 1000.))##getTimezoneOffset in
+  let o' =
+    (new%js Js.date_fromTimeValue (Js.float (d' *. 1000.)))##getTimezoneOffset
+  in
   CalendarLib.Calendar.from_unixfloat
     (if o = o'
      then d' (* We guessed the DST status right *)