From 3219b5d9ba7baa5806e1308d587da36c48c9d539 Mon Sep 17 00:00:00 2001
From: Packit Service <user-cont-team+packit-service@redhat.com>
Date: Dec 09 2020 23:51:13 +0000
Subject: Prepare for a new update


Reverting patches so we can apply the latest update
and changes can be seen in the spec file and sources.

---

diff --git a/src/FileUtilCP.ml b/src/FileUtilCP.ml
index 270efeb..787ae15 100644
--- a/src/FileUtilCP.ml
+++ b/src/FileUtilCP.ml
@@ -138,7 +138,7 @@ let cp
     end
   in
 
-  let buffer = Bytes.make 1024 ' ' in
+  let buffer = String.make 1024 ' ' in
 
   let cp_file st_src dst_exists fn_src fn_dst =
     let mode = int_of_permission st_src.permission in
@@ -176,7 +176,7 @@ let cp
           try
             while (read :=
                    handle_exception
-                     (Unix.read fd_src buffer 0) (Bytes.length buffer)
+                     (Unix.read fd_src buffer 0) (String.length buffer)
                      (fun e -> `ErrorRead(fn_src, e));
                    !read <> 0) do
               let written =