This commit is contained in:
cqc
2024-03-24 22:38:49 -05:00
parent d24d28e046
commit bbaac5f5fb

View File

@ -61,7 +61,7 @@ let setup_workspace ~container cstore : unit Lwt.t =
appendchild ~container appendchild ~container
Tyxml_js.Html.( Tyxml_js.Html.(
a a
~a:[ a_class [ "window" ] ] (* ~a:[ a_class [ "window" ] ] *)
[ [
div div
~a:[ a_class [ "status" ] ] ~a:[ a_class [ "status" ] ]