type specialize (=)

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-06-06 22:15:53 +07:00
parent 2350bb1161
commit 6ada532b10
1 changed files with 1 additions and 1 deletions

View File

@ -511,7 +511,7 @@ end = struct
| _ , In_source_tree _ -> Gt
| In_build_dir x , In_build_dir y -> Local.compare x y
let equal = (=)
let equal (x : t) (y : t) = x = y
let hash = Hashtbl.hash
let in_build_dir s = In_build_dir s