From 7a9d4479f06a4fc101ace9027e79004756fd5bca Mon Sep 17 00:00:00 2001
From: cqc <cqc@conrailqualitycontent.net>
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 | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/.config/init.ml b/.config/init.ml
index b2723be..627d2e5 100644
--- a/.config/init.ml
+++ b/.config/init.ml
@@ -9,10 +9,15 @@ 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");
+      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 Not_found ->
+    Firebug.console##log (F.str "do_by_id Not_found");
+    ()
 
 let resize ~container ~textbox () =
   Lwt.pause () >>= fun () ->