pkgs/development/ocaml-modules/janestreet/incr_dom_jsoo_4_0.patch

   1 diff --git a/src/js_misc.ml b/src/js_misc.ml
   2 index 65f7b44..bfef103 100644
   3 --- a/src/js_misc.ml
   4 +++ b/src/js_misc.ml
   5 @@ -28,17 +28,11 @@ type rows_or_columns =
   6  [@@deriving sexp, bin_io, variants, compare]
   7
   8  let innerHeight () =
   9 -  Js.Optdef.case
  10 -    Dom_html.window##.innerHeight
  11 -    (fun () -> Dom_html.document##.documentElement##.clientHeight)
  12 -    Fn.id
  13 +  Dom_html.window##.innerHeight
  14  ;;
  15
  16  let innerWidth () =
  17 -  Js.Optdef.case
  18 -    Dom_html.window##.innerWidth
  19 -    (fun () -> Dom_html.document##.documentElement##.clientWidth)
  20 -    Fn.id
  21 +  Dom_html.window##.innerWidth
  22  ;;
  23
  24  let element_is_in_viewport (elt : Dom_html.element Js.t) =