Merge pull request #27 from hcarty/serialize-to-string-offset

Fix serialization to string in some cases
inhabitedtype · Sep 1, 2017 · 42944d3 · 42944d3
2 parents cf5a7f9 + 49f03a0
commit 42944d3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/faraday.ml b/lib/faraday.ml
@@ -467,8 +467,8 @@ let serialize_to_string t =
     let pos = ref 0 in
     List.iter (function
       | { buffer; off; len } ->
-        for i = off to len - 1 do
-          Bytes.unsafe_set bytes (!pos + i) (Bigstring.unsafe_get buffer i)
+        for i = 0 to len - 1 do
+          Bytes.unsafe_set bytes (!pos + i) (Bigstring.unsafe_get buffer (off + i))
         done;
         pos := !pos + len)
     iovecs;