fix types that merlin missed

This commit is contained in:
cqc
2024-03-29 17:37:20 -05:00
parent df7caee5d6
commit abfa55bd27

View File

@ -107,7 +107,7 @@ let _ =
let textbox : 'a Js.t = let textbox : 'a Js.t =
by_id_coerce "userinput" Dom_html.CoerceTo.textarea by_id_coerce "userinput" Dom_html.CoerceTo.textarea
in in
let rootstore = Store.test_pull () in let rootstore, rootsync = Store.test_pull () in
rootstore >>= fun rs -> rootstore >>= fun rs ->
let workspace_store = let workspace_store =
Store.S.Tree.find_tree rs [ ".config"; "workspace" ] Store.S.Tree.find_tree rs [ ".config"; "workspace" ]