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

details

Browse source
This commit is contained in:
Simon Cruanes 2022-03-15 23:53:12 -04:00
parent d5f9eacc81
commit 533a42a661
2 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
examples/echo.ml
View file

@ -123,7 +123,7 @@ let () =
<li><pre>/upload/'path' (PUT) to upload a file</pre></li>\n\ <li><pre>/upload/'path' (PUT) to upload a file</pre></li>\n\
<li><pre>/zcat/'path' (GET) to download a file (compressed)</pre></li>\n\ <li><pre>/zcat/'path' (GET) to download a file (compressed)</pre></li>\n\
<li><pre>/stats/ (GET) to access statistics</pre></li>\n\ <li><pre>/stats/ (GET) to access statistics</pre></li>\n\
<li><pre><a href=\"/vfs/\">/vfs/</a> (GET) to access statistics</pre></li>\n\ <li><pre><a href=\"/vfs/\">/vfs/</a> (GET) to access a VFS embedded in the binary</pre></li>\n\
</ul></body>" </ul></body>"
in in
S.Response.make_string ~headers:["content-type", "text/html"] @@ Ok s); S.Response.make_string ~headers:["content-type", "text/html"] @@ Ok s);

4
src/camlzip/Tiny_httpd_camlzip.ml
View file

@ -47,8 +47,6 @@ let decode_deflate_stream_ ~buf_size (is:S.byte_stream) : S.byte_stream =
) )
() ()
;;
let encode_deflate_stream_ ~buf_size (is:S.byte_stream) : S.byte_stream = let encode_deflate_stream_ ~buf_size (is:S.byte_stream) : S.byte_stream =
S._debug (fun k->k "wrap stream with deflate.encode"); S._debug (fun k->k "wrap stream with deflate.encode");
let refill = ref true in let refill = ref true in
@ -117,9 +115,7 @@ let encode_deflate_stream_ ~buf_size (is:S.byte_stream) : S.byte_stream =
S.Response.fail_raise ~code:400 S.Response.fail_raise ~code:400
"deflate: error during compression:\n%s %s" e1 e2 "deflate: error during compression:\n%s %s" e1 e2
) )
() ()
;;
let split_on_char ?(f=fun x->x) c s : string list = let split_on_char ?(f=fun x->x) c s : string list =
let rec loop acc i = let rec loop acc i =