remove an assert false

2017-02-24 14:23:17 +00:00 · 2017-02-24 14:23:17 +00:00 · a3346384c4
parent 21cd4d1a9a
commit a3346384c4
1 changed files with 4 additions and 1 deletions
--- a/src/findlib.ml
+++ b/src/findlib.ml
@ -382,7 +382,10 @@ let find_exn t name =
      match Hashtbl.find t.packages name with
      | Some (Present x) -> x
      | Some Absent      -> raise (Package_not_found name)
-      | None             -> assert false
+      | None             ->
+        code_errorf
+          "Package %S not in the package table after loading the appropriate META files"
+          name

 let available t name =
  match find_exn t name with