Fix overlooked substring bug in http parser.

diff --git a/libs/http/http.ml b/libs/http/http.ml
index 3f701226dc36291af8f662dfe462bc644284a811..e50e7a696e22a1ba8ae122d2f0c1148a2dfc9fcd 100644 (file)
--- a/libs/http/http.ml
+++ b/libs/http/http.ml
@@ -976,7 +976,7 @@ module Payload = struct
                | _    -> None
 
        let parse_substring state str ofs len =
-               let i = ref 0 in
+               let i = ref ofs in
                let iend = ofs + len in
                while get_parse_result state = None && !i < iend do
                        parse_char state str.[!i];