13 lines
256 B
OCaml
13 lines
256 B
OCaml
|
type t = A of int | B of string
|
||
|
|
|
||
|
|
let some_value = [A 42; B "Hello, world"]
|
||
|
|
|
||
|
|
let () =
|
||
|
|
print_endline "Starting utop now!";
|
||
|
|
UTop_main.interact
|
||
|
|
~search_path:["_build"]
|
||
|
|
~unit:__MODULE__
|
||
|
|
~loc:__POS__
|
||
|
|
~values:[V ("some_value", some_value)]
|
||
|
|
;;
|