Интеграция GTK и Lwt

Question

Я работаю над программой, в которой я хотел бы использовать lablgtk и lwt. У меня есть функции, извлекающие данные из потоков lwt, затем я хотел бы отобразить данные в графическом интерфейсе с использованием lablgtk. Я борюсь с интеграцией lablgtk в структуру lwt. Ниже приведена дистиллированная версия, которая демонстрирует мою проблему, заключающуюся в том, что я могу запустить графический интерфейс, но больше ничего не происходит. Любая помощь с благодарностью.

(* gtk_and_lwt.ml *)

let (>>=) = Lwt.bind

let locale = GtkMain.Main.init ()

let window = GWindow.window ~width:300 ~height:200 ()

let vbox = GPack.vbox ~border_width:2 ~packing:window#add ()

let my_table =
  GPack.table
    ~rows:1
    ~columns:2
    ~row_spacings:5
    ~col_spacings:5
    ~border_width:5
    ~packing:vbox#pack
    ()

let _ =
  GMisc.label
    ~text:"User Input"
    ~packing:(my_table#attach ~left:0 ~top:1 ~right:1 ~bottom:2)
    ()

let my_label =
  GMisc.label
    ~text:"Fetching User Input..."
    ~packing:(my_table#attach ~left:1 ~top:0 ~right:2 ~bottom:1)
    ()

let rec get_user_input () =
  Lwt_io.read_line Lwt_io.stdin
  >>= fun s -> my_label#set_text s |> Lwt.return
  >>= get_user_input

let main () =

  (* Kill the process when the user clicks the "X" button in top left cornet*)
  let _ = window#connect#destroy ~callback:GMain.Main.quit in

  window#show ();
  Lwt.async (get_user_input);
  Lwt.return @@ GMain.Main.main ()

let _ = Lwt_main.run @@ main ()

Я собираю с ocamlfind ocamlc -g -package lwt,lwt.syntax,lwt.unix,lablgtk2 -linkpkg gtk_and_lwt.ml -o GtkAndLwt