init.ml

2024-02-18 14:49:02 -06:00
parent a96a83256f
commit 9fe82e9391
1 changed files with 3 additions and 1 deletions
--- a/.config/init.ml
+++ b/.config/init.ml
@ -59,7 +59,9 @@ 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
+        let window : Html_types.nmtokens =
+          Tyxml_js.Html.[ "window" ]
+        in
        appendchild ~container
          Tyxml_js.Html.(
            a