$OpenBSD: patch-recon_ml,v 1.1 2019/09/18 17:49:36 chrisz Exp $

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
