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

chore: add a debug endpoint to echo

Browse source
This commit is contained in:
Simon Cruanes 2019-12-04 11:21:55 -06:00
parent 842a5d6895
commit 3f0e427bbf
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/examples/echo.ml
View file

@ -17,6 +17,8 @@ let () =
(* echo request *) (* echo request *)
S.add_path_handler server S.add_path_handler server
"/echo" (fun req -> S.Response.make_string (Ok (Format.asprintf "echo:@ %a@." S.Request.pp req))); "/echo" (fun req -> S.Response.make_string (Ok (Format.asprintf "echo:@ %a@." S.Request.pp req)));
S.add_path_handler ~meth:`POST server
"/debug/%B" (fun b _req -> S._enable_debug b; S.Response.make_string (Ok "ok"));
S.add_path_handler ~meth:`PUT server S.add_path_handler ~meth:`PUT server
"/upload/%s" (fun path req -> "/upload/%s" (fun path req ->
S._debug (fun k->k "start upload %S\n%!" path); S._debug (fun k->k "start upload %S\n%!" path);