Install libexec files in sub-directories as well
This commit is contained in:
parent
c999039aa7
commit
6f2a10c908
|
@ -1649,8 +1649,8 @@ module Gen(P : Params) = struct
|
||||||
+-----------------------------------------------------------------+ *)
|
+-----------------------------------------------------------------+ *)
|
||||||
|
|
||||||
let lib_install_files ~dir ~sub_dir (lib : Library.t) =
|
let lib_install_files ~dir ~sub_dir (lib : Library.t) =
|
||||||
let make_lib_entry fn =
|
let make_entry section fn =
|
||||||
Install.Entry.make Lib fn
|
Install.Entry.make section fn
|
||||||
?dst:(Option.map sub_dir ~f:(fun d -> sprintf "%s/%s" d (Path.basename fn)))
|
?dst:(Option.map sub_dir ~f:(fun d -> sprintf "%s/%s" d (Path.basename fn)))
|
||||||
in
|
in
|
||||||
let byte = List.mem Mode.Byte ~set:lib.modes in
|
let byte = List.mem Mode.Byte ~set:lib.modes in
|
||||||
|
@ -1699,8 +1699,8 @@ module Gen(P : Params) = struct
|
||||||
| Ppx_rewriter -> [Path.relative dir "as-ppx.exe"]
|
| Ppx_rewriter -> [Path.relative dir "as-ppx.exe"]
|
||||||
in
|
in
|
||||||
List.concat
|
List.concat
|
||||||
[ List.map files ~f:make_lib_entry
|
[ List.map files ~f:(make_entry Lib )
|
||||||
; List.map execs ~f:(Install.Entry.make Libexec )
|
; List.map execs ~f:(make_entry Libexec)
|
||||||
; List.map dlls ~f:(Install.Entry.make Stublibs)
|
; List.map dlls ~f:(Install.Entry.make Stublibs)
|
||||||
]
|
]
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue