summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'net-misc/unison/files/unison-2.51.2-ocaml-4.08.patch')
-rw-r--r--net-misc/unison/files/unison-2.51.2-ocaml-4.08.patch50
1 files changed, 0 insertions, 50 deletions
diff --git a/net-misc/unison/files/unison-2.51.2-ocaml-4.08.patch b/net-misc/unison/files/unison-2.51.2-ocaml-4.08.patch
deleted file mode 100644
index e3353e77e62e..000000000000
--- a/net-misc/unison/files/unison-2.51.2-ocaml-4.08.patch
+++ /dev/null
@@ -1,50 +0,0 @@
-diff -ur src.orig/files.ml src/files.ml
---- src.orig/files.ml 2018-01-27 21:53:44.000000000 +0100
-+++ src/files.ml 2019-12-11 16:12:40.005712137 +0100
-@@ -734,7 +734,7 @@
- with End_of_file ->
- dirh.System.closedir ()
- end;
-- Sort.list (<) !files
-+ List.sort compare !files
-
- let ls dir pattern =
- Util.convertUnixErrorsToTransient
-diff -ur src.orig/recon.ml src/recon.ml
---- src.orig/recon.ml 2018-01-27 21:53:44.000000000 +0100
-+++ src/recon.ml 2019-12-11 16:12:40.005712137 +0100
-@@ -661,8 +661,8 @@
-
- (* Sorts the paths so that they will be displayed in order *)
- let sortPaths pathUpdatesList =
-- Sort.list
-- (fun (p1, _) (p2, _) -> Path.compare p1 p2 <= 0)
-+ List.sort
-+ (fun (p1, _) (p2, _) -> Path.compare p1 p2)
- pathUpdatesList
-
- let rec enterPath p1 p2 t =
-diff -ur src.orig/system/system_generic.ml src/system/system_generic.ml
---- src.orig/system/system_generic.ml 2018-01-27 21:53:44.000000000 +0100
-+++ src/system/system_generic.ml 2019-12-11 16:12:40.005712137 +0100
-@@ -47,7 +47,7 @@
- let chmod = Unix.chmod
- let chown = Unix.chown
- let utimes = Unix.utimes
--let link = Unix.link
-+let link s1 s2 = Unix.link s1 s2
- let openfile = Unix.openfile
- let opendir f =
- let h = Unix.opendir f in
-diff -ur src.orig/uigtk2.ml src/uigtk2.ml
---- src.orig/uigtk2.ml 2018-01-27 21:53:44.000000000 +0100
-+++ src/uigtk2.ml 2019-12-11 16:12:40.005712137 +0100
-@@ -94,7 +94,7 @@
- let icon =
- let p = GdkPixbuf.create ~width:48 ~height:48 ~has_alpha:true () in
- Gpointer.blit
-- (Gpointer.region_of_string Pixmaps.icon_data) (GdkPixbuf.get_pixels p);
-+ (Gpointer.region_of_bytes Pixmaps.icon_data) (GdkPixbuf.get_pixels p);
- p
-
- let leftPtrWatch =