Eliminating deprecation warnings.

1 files changed, 4 insertions, 4 deletions

diff --git a/src/transfer.ml b/src/transfer.ml
index 4af0243..a0305bf 100644
--- a/src/transfer.ml
+++ b/src/transfer.ml
@@ -261,7 +261,7 @@ let send infd length showProgress transmit =
   let timer = Trace.startTimer "Sending file using generic transmission" in
   let bufSz = 8192 in
   let bufSzFS = Uutil.Filesize.ofInt 8192 in
-  let buf = String.create bufSz in
+  let buf = Bytes.create bufSz in
   let q = makeQueue 0 in
   let rec sendSlice length =
     if length > Uutil.Filesize.zero then begin
@@ -373,7 +373,7 @@ struct
      and eventually handles the buffer update. *)
   let blockIter infd f blockSize maxCount =
     let bufferSize = 8192 + blockSize in
-    let buffer = String.create bufferSize in
+    let buffer = Bytes.create bufferSize in
     let rec iter count offset length =
       if count = maxCount then
         count
@@ -454,7 +454,7 @@ struct
   (* For each transfer instruction, either output a string or copy one or
      several blocks from the old file. *)
   let rsyncDecompress blockSize infd outfd showProgress (data, pos, len) =
-    let decomprBuf = String.create decomprBufSize in
+    let decomprBuf = Bytes.create decomprBufSize in
     let progress = ref 0 in
     let rec copy length =
       if length > decomprBufSize then begin
@@ -712,7 +712,7 @@ struct
     in
 
     (* Create the compression buffer *)
-    let comprBuf = String.create comprBufSize in
+    let comprBuf = Bytes.create comprBufSize in
 
     (* If there is data waiting to be sent, transmit it as a STRING token *)
     let transmitString toBeSent offset =