matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Really ignore invalid findlib packages

This commit is contained in:
Jeremie Dimino 2017-05-16 15:46:53 +01:00
parent 60ad83c522
commit 4621e554d2
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/findlib.ml
View File

@ -487,14 +487,13 @@ let root_packages t =
let all_packages t =
List.iter (root_packages t) ~f:(fun pkg ->
ignore (find_exn t pkg ~required_by:[] : package));
ignore (find t pkg ~required_by:[] : package option));
Hashtbl.fold t.packages ~init:[] ~f:(fun ~key:_ ~data acc ->
match data with
| Present p -> p :: acc
| Absent _ -> acc)
|> List.sort ~cmp:(fun a b -> String.compare a.name b.name)
let stdlib_with_archives t =
let x = find_exn t ~required_by:[] "stdlib" in
let archives =