From 238bad660f5699b1785b0c85acd62ab124e82b8c Mon Sep 17 00:00:00 2001 From: cqc Date: Fri, 29 Mar 2024 20:25:55 -0500 Subject: [PATCH] it compiles, now we get "exc during Lwt.async: Not_found" --- .config/init.ml | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/.config/init.ml b/.config/init.ml index b2723be..6697c66 100644 --- a/.config/init.ml +++ b/.config/init.ml @@ -9,10 +9,14 @@ let by_id s = Dom_html.getElementById s let by_id_coerce s f = Js.Opt.get (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 = - try f (Dom_html.getElementById s) with Not_found -> () + try f (Dom_html.getElementById s) with + Firebug.console##log (F.str "do_by_id Not_found: $s" s); + Not_found -> () let resize ~container ~textbox () = Lwt.pause () >>= fun () ->