15 lines
417 B
Plaintext
15 lines
417 B
Plaintext
Index: recon.ml
|
|
--- recon.ml.orig
|
|
+++ recon.ml
|
|
@@ -651,9 +651,7 @@ let rec reconcile
|
|
|
|
(* Sorts the paths so that they will be displayed in order *)
|
|
let sortPaths pathUpdatesList =
|
|
- Sort.list
|
|
- (fun (p1, _) (p2, _) -> Path.compare p1 p2 <= 0)
|
|
- pathUpdatesList
|
|
+ List.sort Path.compare pathUpdatesList
|
|
|
|
let rec enterPath p1 p2 t =
|
|
match Path.deconstruct p1, Path.deconstruct p2 with
|