1 files changed, 3 insertions, 3 deletions
diff --git a/src/lwt/win/lwt_unix_impl.ml b/src/lwt/win/lwt_unix_impl.ml
index 63f9b3c..7ee9082 100644
--- a/src/lwt/win/lwt_unix_impl.ml
+++ b/src/lwt/win/lwt_unix_impl.ml
@@ -500,11 +500,11 @@ let really_input ic s ofs len =
   else unsafe_really_input ic s ofs len
 
 let input_line ic =
-  let buf = ref (String.create 128) in
+  let buf = ref (Bytes.create 128) in
   let pos = ref 0 in
   let rec loop () =
     if !pos = String.length !buf then begin
-      let newbuf = String.create (2 * !pos) in
+      let newbuf = Bytes.create (2 * !pos) in
       String.blit !buf 0 newbuf 0 !pos;
       buf := newbuf
     end;
@@ -526,7 +526,7 @@ let input_line ic =
           | _ ->
               Lwt.fail e))
     (fun () ->
-       let res = String.create !pos in
+       let res = Bytes.create !pos in
        String.blit !buf 0 res 0 !pos;
        Lwt.return res)
 *)