1(**************************************************************************) 2(* *) 3(* OCaml *) 4(* *) 5(* Pierre Chambart, OCamlPro *) 6(* Mark Shinwell and Leo White, Jane Street Europe *) 7(* *) 8(* Copyright 2013--2016 OCamlPro SAS *) 9(* Copyright 2014--2016 Jane Street Group LLC *) 10(* *) 11(* All rights reserved. This file is distributed under the terms of *) 12(* the GNU Lesser General Public License version 2.1, with the *) 13(* special exception on linking described in the file LICENSE. *) 14(* *) 15(**************************************************************************) 16 17[@@@ocaml.warning "+a-4-9-30-40-41-42"] 18 19module Id : Id_types.Id = Id_types.Id (struct end) 20module Unit_id = Id_types.UnitId (Id) (Compilation_unit) 21 22type t = Unit_id.t 23 24include Identifiable.Make (Unit_id) 25 26let create = Unit_id.create 27let get_compilation_unit = Unit_id.unit 28let name = Unit_id.name 29