diff options
| author | Pierre Courtieu | 2015-01-27 17:28:27 +0100 |
|---|---|---|
| committer | Pierre Courtieu | 2015-01-27 17:41:13 +0100 |
| commit | 0ff6b07d67560dc46b8becf4780ce1283cbece4e (patch) | |
| tree | 0d6a537fdfe58bc2bf00b189b16420dc6ead1b50 | |
| parent | 73ac958a49e54f2bedcac7f8557537e0bf524068 (diff) | |
Fixed a wrong warning in coq_makefile.
A non empty dir detected as an empty one.
| -rw-r--r-- | tools/coq_makefile.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/coq_makefile.ml b/tools/coq_makefile.ml index d660f4205d..5213d38e71 100644 --- a/tools/coq_makefile.ml +++ b/tools/coq_makefile.ml @@ -750,7 +750,7 @@ let ensure_root_dir (v,(mli,ml4,ml,mllib,mlpack),_,_) ((ml_inc,i_inc,r_inc) as l let warn_install_at_root_directory (vfiles,(mlifiles,ml4files,mlfiles,mllibfiles,mlpackfiles),_,_) (inc_ml,inc_i,inc_r) = - let inc_top = List.filter (fun (_,ldir,_) -> ldir = "") inc_r@inc_i in + let inc_top = List.filter (fun (_,ldir,_) -> ldir = "") (inc_r@inc_i) in let inc_top_p = List.map (fun (p,_,_) -> p) inc_top in let files = vfiles @ mlifiles @ ml4files @ mlfiles @ mllibfiles @ mlpackfiles in if List.exists (fun f -> List.mem (Filename.dirname f) inc_top_p) files |