Remove unused Lib.Compile.make
This commit is contained in:
parent
0104309f25
commit
1215fe2f8a
10
src/lib.ml
10
src/lib.ml
|
@ -926,16 +926,6 @@ module Compile = struct
|
||||||
; sub_systems : Sub_system0.Instance.t Lazy.t Sub_system_name.Map.t
|
; sub_systems : Sub_system0.Instance.t Lazy.t Sub_system_name.Map.t
|
||||||
}
|
}
|
||||||
|
|
||||||
let make libs =
|
|
||||||
{ direct_requires = libs
|
|
||||||
; requires = libs >>= closure
|
|
||||||
; resolved_selects = []
|
|
||||||
; pps = Ok []
|
|
||||||
; optional = false
|
|
||||||
; user_written_deps = []
|
|
||||||
; sub_systems = Sub_system_name.Map.empty
|
|
||||||
}
|
|
||||||
|
|
||||||
let for_lib db (t : lib) =
|
let for_lib db (t : lib) =
|
||||||
{ direct_requires = t.requires
|
{ direct_requires = t.requires
|
||||||
; requires = t.requires >>= closure_with_overlap_checks db
|
; requires = t.requires >>= closure_with_overlap_checks db
|
||||||
|
|
|
@ -193,10 +193,6 @@ type sub_system = ..
|
||||||
module Compile : sig
|
module Compile : sig
|
||||||
type t
|
type t
|
||||||
|
|
||||||
(** Create a compilation context from a list of libraries. The list
|
|
||||||
doesn't have to be transitively closed. *)
|
|
||||||
val make : L.t Or_exn.t -> t
|
|
||||||
|
|
||||||
(** Return the list of dependencies needed for compiling this library *)
|
(** Return the list of dependencies needed for compiling this library *)
|
||||||
val requires : t -> L.t Or_exn.t
|
val requires : t -> L.t Or_exn.t
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue