testsuite/tests/tool-debugger/find-artifacts/in/foo.ml


1
2
3
4
5
6
7
8
9
10
11
12
13

open Blah

let print = function
  | Foo -> print_endline "Foo";
  | Bar s -> print_endline ("Bar(" ^ s ^ ")")

let main () =
  let x = Foo in
  let y = Bar "hi" in
  print x;
  print y

let _ = main ()