Wrap eine OCaml Funktion, die ein JS-Objekt (Datensatz) empfängt

Question

Ich mag eine sehr einfache Funktion in OCaml schreiben, und es wickelt eine JS-Funktion jsGet von js_of_ocaml zu machen, so dass jsGet (oder Datensatz) ein JS Objekt nehmen könnte als Eingabe.

Ich habe versucht, den folgenden Code:

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

In 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 gut kompiliert jedoch Home.js kehrt undefined als Ausgang läuft.

Kann jemand das korrigieren?

Answer 1

Unterstriche entfernen. Siehe Methodenname und Unterstrich unter http://ocsigen.org/js_of_ocaml/2.8/manual/bindings