1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
type x = { foo : int; bar : int }
let x = { x with foo = 3; bar = 5 }
let x =
{
(* blah blah blah *)
foo = 3;
bar = 5;
}
let x = [ { x with foo = 3; bar = 5 } ]
let x =
[
{
(* blah blah blah *)
foo = 3;
bar = 5;
};
]
let x = { M.x with M.foo = 3 }
let x = { x with M.foo = 3 }
let x = { M.foo = 3 }
let _ = { foo with Bar.field1 = value1; field2 = value2 }
let _ = { foo with Bar.field1 = value1; field2 = value2 }
(* multicomponent record module pathname *)
let _ = { A.B.a = b; c = d }
type t = { a : something_lengthy list list [@default String.Map.empty] }
type t = { a : Something_lengthy.t list list [@default String.Map.empty] }
type t = { a : something_lengthy list list }
type t = { a : Something_lengthy.t list list }
type t = { a : Something_lengthy.t list }
type t = {
for_intf : Dune_rules.Module_name.t list;
(* direct module dependencies for the interface *)
for_impl : Dune_rules.Module_name.t list;
(* direct module dependencies for the implementation *)
}
type t = {
for_intf : Dune_rules.Module_name.t list;
(* direct module dependencies for the interface *)
(* direct module dependencies for the interface *)
for_impl : Dune_rules.Module_name.t list;
}
|
