Source file test.ml

1
2
3
4
5
6
7
8
9
10
module Foo = struct
  type t = { foo : int; bar : int }

  let foo = "hello"
end

let _ =
  let foo = 10 in
  let bar = 10 in
  ({ Foo.foo; bar } : Foo.t)