console/rootstore
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

it compiles, now we get "exc during Lwt.async: Not_found"

Browse Source
This commit is contained in:
cqc
2024-03-29 20:25:55 -05:00
parent df15ad7efd
commit fcf53611f3
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
.config/init.ml
View File

@ -9,10 +9,14 @@ let by_id s = Dom_html.getElementById s
let by_id_coerce s f = let by_id_coerce s f =
Js.Opt.get Js.Opt.get
(f (Dom_html.getElementById s)) (f (Dom_html.getElementById s))
(fun () -> raise Not_found) (fun () ->
Firebug.console##log (F.str "by_id_coerce Not_found: $s" s);
raise Not_found)
let do_by_id s f = let do_by_id s f =
try f (Dom_html.getElementById s) with Not_found -> () try f (Dom_html.getElementById s)
with Not_found ->
Firebug.console##log (F.str "do_by_id Not_found: $s" s)
let resize ~container ~textbox () = let resize ~container ~textbox () =
Lwt.pause () >>= fun () -> Lwt.pause () >>= fun () ->