catala/compiler/catala_web_interpreter.ml
2021-11-30 16:52:19 +01:00

17 lines
454 B
OCaml

open Driver
open Js_of_ocaml
let _ =
Js.export_all
(object%js
method interpret (contents : Js.js_string Js.t) (scope : Js.js_string Js.t)
(language : Js.js_string Js.t) (trace : bool) =
driver
(Contents (Js.to_string contents))
false false false false "Interpret"
(Some (Js.to_string language))
None trace false
(Some (Js.to_string scope))
None
end)