init.ml

.config/init.ml

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