use code_errorf in Map.of_alist_exn

2017-04-26 13:41:10 +01:00 · 2017-04-26 13:41:10 +01:00 · 30ef4012e4
parent 47d62fec04
commit 30ef4012e4
1 changed files with 1 additions and 1 deletions
--- a/src/import.ml
+++ b/src/import.ml
@ -166,7 +166,7 @@ module Map = struct
    let of_alist_exn l =
      match of_alist l with
      | Ok x -> x
-      | Error _ -> invalid_arg "Map.of_alist_exn"
+      | Error _ -> code_errorf "Map.of_alist_exn got duplicated key"

    let of_alist_multi l =
      let l = List.rev l in