From 7678cf243d054b620ba78926f2effb4dd97f0bdc Mon Sep 17 00:00:00 2001 From: Matej Kosik Date: Thu, 2 Feb 2017 11:17:02 +0100 Subject: refactoring "Names.DirPath.equal" function --- kernel/names.ml | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'kernel/names.ml') diff --git a/kernel/names.ml b/kernel/names.ml index ee8d838da..da02a32a2 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -173,10 +173,7 @@ struct if Int.equal c 0 then compare p1 p2 else c end - let rec equal p1 p2 = p1 == p2 || match p1, p2 with - | [], [] -> true - | id1 :: p1, id2 :: p2 -> Id.equal id1 id2 && equal p1 p2 - | _ -> false + let equal = List.equal Id.equal let rec hash accu = function | [] -> accu -- cgit v1.2.3