diff options
| -rw-r--r-- | library/library.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/library.ml b/library/library.ml index b35f7bbeef..970c2f6bf2 100644 --- a/library/library.ml +++ b/library/library.ml @@ -122,7 +122,9 @@ type module_t = { module CompUnitOrdered = struct type t = dir_path - let compare = Pervasives.compare + let compare d1 d2 = + Pervasives.compare + (List.rev (repr_dirpath d1)) (List.rev (repr_dirpath d2)) end module CompUnitmap = Map.Make(CompUnitOrdered) |