haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

avoid passing -I with path that does not exist to ocamlc 

Ignore-this: 2afbd12ecfe0d685b2b64c063ffac401

darcs-hash:20110803173144-c41ad-2e18488ec03b935b50839a5718b0db4f19f6f3d7
This commit is contained in:
Jeremie Dimino 2011-08-03 19:31:44 +02:00
parent a440707d24
commit fa942b0750
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
myocamlbuild.ml
View File

@ -27,10 +27,8 @@ let () =
let stdlib = BaseEnvLight.var_get "standard_library" env in
(* Add directories for compiler-libraries: *)
let paths = [A "-I"; A path;
A "-I"; A (path / "typing");
A "-I"; A (path / "parsing");
A "-I"; A (path / "utils")] in
let paths = List.filter Sys.file_exists [path; path / "typing"; path / "parsing"; path / "utils"] in
let paths = List.map (fun path -> S[A "-I"; A path]) paths in
List.iter
(fun stage -> flag ["ocaml"; stage; "use_compiler_libs"] & S paths)
["compile"; "ocamldep"; "doc"; "link"];