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

Fix a small problem in findlib.ml

This commit is contained in:
Jérémie Dimino 2017-02-27 08:45:00 +00:00
parent ecdbedc03d
commit 595590d9c8
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/findlib.ml
View File

@ -389,9 +389,8 @@ let find_exn t name =
| Some (Present x) -> x | Some (Present x) -> x
| Some Absent -> raise (Package_not_found name) | Some Absent -> raise (Package_not_found name)
| None -> | None ->
code_errorf Hashtbl.add t.packages ~key:name ~data:Absent;
"Package %S not in the package table after loading the appropriate META files" raise (Package_not_found name)
name
let available t name = let available t name =
match find_exn t name with match find_exn t name with