fix types that merlin missed

2024-03-29 17:37:20 -05:00
parent df7caee5d6
commit 78c1b61467
1 changed files with 1 additions and 1 deletions
--- a/.config/init.ml
+++ b/.config/init.ml
@ -107,7 +107,7 @@ let _ =
      let textbox : 'a Js.t =
        by_id_coerce "userinput" Dom_html.CoerceTo.textarea
      in
-      let rootstore = Store.test_pull () in
+      let rootsync, rootstore = Store.test_pull () in
      rootstore >>= fun rs ->
      let workspace_store =
        Store.S.Tree.find_tree rs [ ".config"; "workspace" ]