diff options
Diffstat (limited to 'src/lwt/example/relay.ml')
| -rw-r--r-- | src/lwt/example/relay.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lwt/example/relay.ml b/src/lwt/example/relay.ml index 77be87c..9cdd337 100644 --- a/src/lwt/example/relay.ml +++ b/src/lwt/example/relay.ml @@ -18,7 +18,7 @@ let rec really_write out_ch buffer pos len = let relay in_ch out_ch = let rec relay_rec previous_write = - let buffer = String.create 8192 in + let buffer = Bytes.create 8192 in (* Read some data from the input socket *) Lwt_unix.read in_ch buffer 0 8192 >>= (fun len -> (* If we read nothing, this means that the connection has been |