Tweak order in Map.of_list error (#645)
We should show the key that came earlier in the list first
This commit is contained in:
parent
d2c85e3329
commit
994fb12651
|
@ -78,8 +78,8 @@ module Make(Key : Comparable.S) : S with type key = Key.t = struct
|
||||||
| [] -> Result.Ok acc
|
| [] -> Result.Ok acc
|
||||||
| (k, v) :: l ->
|
| (k, v) :: l ->
|
||||||
match find acc k with
|
match find acc k with
|
||||||
| None -> loop (add acc k v) l
|
| None -> loop (add acc k v) l
|
||||||
| Some v' -> Error (k, v, v')
|
| Some v_old -> Error (k, v_old, v)
|
||||||
in
|
in
|
||||||
fun l -> loop empty l
|
fun l -> loop empty l
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue