1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
module Impl = struct
include Ast_inline
include Ast_block.List_types
include Ast_block.Table_alignments
include Ast_block.WithInline
type attributes = (string * string) list
type doc = attributes block list
end
module type Intf = module type of Impl
module Util = struct
include Impl
let same_block_list_kind k1 k2 =
match (k1, k2) with
| Ordered (_, c1), Ordered (_, c2) | Bullet c1, Bullet c2 -> c1 = c2
| _ -> false
end