key press display

2023-02-06 09:36:14 -06:00
parent 0df5884a88
commit 2ec6426fe5
2 changed files with 55 additions and 20 deletions
--- a/boot_js.ml
+++ b/boot_js.ml
@ -119,4 +119,4 @@ let _ =
  buffered_loop (make_event Dom_html.Event.keydown) Dom_html.document
    (fun ev _ ->
      Lwt.return
-      @@ push_event (Some (`Key (Event_js.evt_of_jskey ev))))
+      @@ push_event (Some (`Keys [ Event_js.evt_of_jskey ev ])))