simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: avoid spamming response

Browse source
This commit is contained in:
Simon Cruanes 2020-05-27 22:29:21 -04:00
parent 6d01b5347e
commit 6e54ee69b5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Tiny_httpd.ml
View file

@ -634,7 +634,8 @@ module Response = struct
) else self.headers ) else self.headers
in in
let self = {self with headers; body} in let self = {self with headers; body} in
_debug (fun k->k "output response: %s" (Format.asprintf "%a" pp self)); _debug (fun k->k "output response: %s"
(Format.asprintf "%a" pp {self with body=`String "<…>"}));
List.iter (fun (k,v) -> Printf.fprintf oc "%s: %s\r\n" k v) headers; List.iter (fun (k,v) -> Printf.fprintf oc "%s: %s\r\n" k v) headers;
output_string oc "\r\n"; output_string oc "\r\n";
begin match body with begin match body with