1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(* TEST
flags += " -nolabels ";
*)
module A : module type of Array = ArrayLabels
module B : module type of Bytes = BytesLabels
module L : module type of List = ListLabels
module S : module type of String = StringLabels
module M : module type of struct include Map end [@remove_aliases] =
MoreLabels.Map
module Se : module type of struct include Set end [@remove_aliases] =
MoreLabels.Set
module H : module type of struct include Hashtbl end [@remove_aliases] =
MoreLabels.Hashtbl
let () =
()
|
