still works

2023-01-23 11:54:46 -06:00
parent f0c5556450
commit d46c1de49d
3 changed files with 4911 additions and 4507 deletions
--- a/boot_js.ml
+++ b/boot_js.ml
@ -91,7 +91,7 @@ let _ =
  let body = Lwd.var (Lwd.pure Ui.empty) in
  let wm = Widgets.window_manager (Lwd.join (Lwd.get body)) in
  Nav.test_pull () >>= fun test_tree ->
-  Widgets.(tree_nav test_tree []) >>= fun ui ->
+  Widgets.(tree_nav (test_tree, [])) >>= fun ui ->
  let root =
    Lwd.set body
      (Lwd.map ~f:(Ui.resize ~pad:gravity_pad ~crop:gravity_crop) ui);