Simplify lib.ml with punning
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
1187b3501e
commit
06190648d3
12
src/lib.ml
12
src/lib.ml
|
@ -637,13 +637,13 @@ let rec instantiate db name (info : Info.t) ~stack ~hidden =
|
||||||
let resolve (loc, name) =
|
let resolve (loc, name) =
|
||||||
resolve_dep db name ~allow_private_deps ~loc ~stack in
|
resolve_dep db name ~allow_private_deps ~loc ~stack in
|
||||||
let t =
|
let t =
|
||||||
{ info = info
|
{ info
|
||||||
; name = name
|
; name
|
||||||
; unique_id = id.unique_id
|
; unique_id = id.unique_id
|
||||||
; requires = requires
|
; requires
|
||||||
; ppx_runtime_deps = ppx_runtime_deps
|
; ppx_runtime_deps
|
||||||
; pps = pps
|
; pps
|
||||||
; resolved_selects = resolved_selects
|
; resolved_selects
|
||||||
; user_written_deps = Info.user_written_deps info
|
; user_written_deps = Info.user_written_deps info
|
||||||
; sub_systems = Sub_system_name.Map.empty
|
; sub_systems = Sub_system_name.Map.empty
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue