console/rootstore
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

init.ml

Browse Source
This commit is contained in:
cqc
2024-02-18 14:49:02 -06:00
parent a96a83256f
commit 9fe82e9391
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
.config/init.ml
View File

@ -59,7 +59,9 @@ let setup_workspace ~container cstore : unit Lwt.t =
(Headers.get headers "path")) (Headers.get headers "path"))
in in
let status = F.str "Name: %s; Path: %a" step Uri.pp_hum uri in let status = F.str "Name: %s; Path: %a" step Uri.pp_hum uri in
let window = Tyxml_js.Html.[ "window" ] in let window : Html_types.nmtokens =
Tyxml_js.Html.[ "window" ]
in
appendchild ~container appendchild ~container
Tyxml_js.Html.( Tyxml_js.Html.(
a a