File: test_program.ml

package info (click to toggle)
utop 2.16.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 888 kB
  • sloc: ml: 3,647; lisp: 895; makefile: 50; sh: 20
file content (11 lines) | stat: -rw-r--r-- 231 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
 
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 ()
    ~unit:__MODULE__
    ~loc:__POS__
    ~values:[V ("some_value", some_value)]
;;