Оберните функцию OCaml, которая получает объект JS (запись)

Question

Я хочу написать очень простую функцию в OCaml и обернуть ее, чтобы сделать функцию JS jsGet на js_of_ocaml, так что jsGet может принимать объект JS (или запись) как вход.

Я попытался следующий код:

\\ in Home.js 
function testJsGet() { 
    var input = {field_1: 5, field_2: 6}; 
    var output = jsGet(input); 
    document.getElementById("result").value += output; 
} 

В wrap.ml:

type t = 
    < field_1: int Js.prop; 
    field_2: int Js.prop 
    > Js.t 

let() = 
    Js.Unsafe.global##.jsGet := Js.wrap_callback 
     (fun (r:t) -> r##.field_1); 

wrap.ml компилирует хорошо, однако, работает Home.js возвращается undefined в качестве выходного сигнала.

Кто-нибудь знает, как исправить это?

Answer 1

Удалить символы подчеркивания. См. Имя метода и символ подчеркивания: http://ocsigen.org/js_of_ocaml/2.8/manual/bindings