diff options
| author |  Matej Kosik <matej.kosik@inria.fr> | 2017-02-02 11:18:26 +0100 |
|---|---|---|
| committer | Matej Košík <matej.kosik@inria.fr> | 2017-04-20 13:11:50 +0200 |
| commit | 2198b0b28a396377ed8f885eddf6bc752af9c580 (patch) | |
| tree | 8386a32ef0665ce94e11dcd0da98510a6a7a7fb7 /kernel/names.ml | |
| parent | 7678cf243d054b620ba78926f2effb4dd97f0bdc (diff) | |
refactoring "Names.DirPath.compare" function
Diffstat (limited to 'kernel/names.ml')
| -rw-r--r-- | kernel/names.ml | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index da02a32a2..b91fa758f 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -162,17 +162,7 @@ module DirPath = struct type t = module_ident list - let rec compare (p1 : t) (p2 : t) = - if p1 == p2 then 0 - else begin match p1, p2 with - | [], [] -> 0 - | [], _ -> -1 - | _, [] -> 1 - | id1 :: p1, id2 :: p2 -> - let c = Id.compare id1 id2 in - if Int.equal c 0 then compare p1 p2 else c - end - + let compare = List.compare Id.compare let equal = List.equal Id.equal let rec hash accu = function |