From 6759ed22506dce7ab9191763056a2ad29bdf88bb 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 | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/.config/init.ml b/.config/init.ml
index b2723be..48ad402 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 () ->
@@ -47,7 +52,10 @@ let setup_workspace ~container cstore : unit Lwt.t =
     Lwt_list.iter_s
       (fun (step, tree) ->
         Firebug.console##log (F.str ".config/workspace/%s" step);
-        Store.S.Tree.get tree [] >>= fun contents ->
+        (try Store.S.Tree.get tree []
+         with Not_found ->
+           Lwt.return "print_newline \"rootstore:// not found?\";;")
+        >>= fun contents ->
         let headers =
           headers_of_string_list (String.split_on_char '\n' contents)
         in