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 6759ed2250
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
.config/init.ml
View File

@ -9,10 +9,15 @@ 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");
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");
()
let resize ~container ~textbox () = let resize ~container ~textbox () =
Lwt.pause () >>= fun () -> Lwt.pause () >>= fun () ->
@ -47,7 +52,10 @@ let setup_workspace ~container cstore : unit Lwt.t =
Lwt_list.iter_s Lwt_list.iter_s
(fun (step, tree) -> (fun (step, tree) ->
Firebug.console##log (F.str ".config/workspace/%s" step); 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 = let headers =
headers_of_string_list (String.split_on_char '\n' contents) headers_of_string_list (String.split_on_char '\n' contents)
in in