File: test_program.ml

package info (click to toggle)
utop 1.19.3-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 692 kB
  • ctags: 1,166
  • sloc: ml: 10,046; lisp: 877; makefile: 89; sh: 20
file content (12 lines) | stat: -rw-r--r-- 256 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
 
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)]
;;