diff --git a/.config/init.ml b/.config/init.ml index a8fd4b1..58cbe87 100644 --- a/.config/init.ml +++ b/.config/init.ml @@ -60,19 +60,17 @@ let setup_workspace ~container cstore : unit Lwt.t = in appendchild ~container Tyxml_js.Html.( - a - ~a:[ a_class [ "window" ] ] - [ - div - ~a:[ a_class [ "status" ] ] - [ - txt - (F.str "Name: %s; Path: %a" step Uri.pp_hum uri); - ]; - div - ~a:[ a_class [ "output" ] ] - [ txt (F.str "%s" contents) ]; - ]); + (* a + ~a:[ a_class [ "window" ] ] + [ *) + div + ~a:[ a_class [ "status" ] ] + [ txt (F.str "Name: %s; Path: %a" step Uri.pp_hum uri) ] + (*; + div + ~a:[ a_class [ "output" ] ] + [ txt (F.str "%s" contents) ]; + ]*)); Lwt.return_unit) csl in