[http]: check for final in payload callback.

diff --git a/libs/http/http.ml b/libs/http/http.ml
index e50e7a696e22a1ba8ae122d2f0c1148a2dfc9fcd..b87c8480ea7dbafc1a8bb53c1a24328349b2c115 100644 (file)
--- a/libs/http/http.ml
+++ b/libs/http/http.ml
@@ -877,7 +877,7 @@ module Payload = struct
        let check_payload_callback s final =
                match s.payload_callback with
                | None -> ()
-               | Some f when Buffer.length s.body >= max_buffered_size ->
+               | Some f when final || Buffer.length s.body >= max_buffered_size ->
                        let content = Buffer.contents s.body in
                        Buffer.clear s.body;
                        f content 0 (String.length content) final