Fix compilation with latest lwt

andrenth · Jan 21, 2015 · 040be03 · 040be03
1 parent 687173c
commit 040be03
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/buffer/release_buffer.ml b/lib/buffer/release_buffer.ml
@@ -33,8 +33,9 @@ let add_char buf c =
   set buf buf.len c
 
 let add_string buf s =
+  let b = Bytes.of_string s in
   let len = String.length s in
-  Lwt_bytes.blit_string_bytes s 0 buf.bytes buf.len len;
+  Lwt_bytes.blit_from_bytes b 0 buf.bytes buf.len len;
   buf.len <- buf.len + len
 
 let sub buf off len =