Use polymorhic equality
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
d4e8e6dbd4
commit
2350bb1161
|
@ -511,7 +511,7 @@ end = struct
|
|||
| _ , In_source_tree _ -> Gt
|
||||
| In_build_dir x , In_build_dir y -> Local.compare x y
|
||||
|
||||
let equal x y = compare x y = Ordering.Eq
|
||||
let equal = (=)
|
||||
let hash = Hashtbl.hash
|
||||
|
||||
let in_build_dir s = In_build_dir s
|
||||
|
|
Loading…
Reference in New Issue