Luke Granger-Brown
57725ef3ec
git-subtree-dir: third_party/nixpkgs git-subtree-split: 76612b17c0ce71689921ca12d9ffdc9c23ce40b2
24 lines
650 B
Diff
24 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) =
|