utop/examples/interact/test_program.ml

12 lines
231 B
OCaml
Raw Normal View History

type t = A of int | B of string
let some_value = [A 42; B "Hello, world"]
let () =
print_endline "Starting utop now!";
2017-05-26 14:26:27 +00:00
UTop_main.interact ()
~unit:__MODULE__
~loc:__POS__
~values:[V ("some_value", some_value)]
;;