646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
25 lines
650 B
Diff
25 lines
650 B
Diff
diff --git a/src/js_misc.ml b/src/js_misc.ml
|
|
index 65f7b44..bfef103 100644
|
|
--- a/src/js_misc.ml
|
|
+++ b/src/js_misc.ml
|
|
@@ -28,17 +28,11 @@ type rows_or_columns =
|
|
[@@deriving sexp, bin_io, variants, compare]
|
|
|
|
let innerHeight () =
|
|
- Js.Optdef.case
|
|
- Dom_html.window##.innerHeight
|
|
- (fun () -> Dom_html.document##.documentElement##.clientHeight)
|
|
- Fn.id
|
|
+ Dom_html.window##.innerHeight
|
|
;;
|
|
|
|
let innerWidth () =
|
|
- Js.Optdef.case
|
|
- Dom_html.window##.innerWidth
|
|
- (fun () -> Dom_html.document##.documentElement##.clientWidth)
|
|
- Fn.id
|
|
+ Dom_html.window##.innerWidth
|
|
;;
|
|
|
|
let element_is_in_viewport (elt : Dom_html.element Js.t) =
|