From 3f0e427bbf15ee2d8e1e82c0c95f56d02baf34b1 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 4 Dec 2019 11:21:55 -0600
Subject: [PATCH] chore: add a debug endpoint to echo

---
 src/examples/echo.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/examples/echo.ml b/src/examples/echo.ml
index a9365b92..50ab8356 100644
--- a/src/examples/echo.ml
+++ b/src/examples/echo.ml
@@ -17,6 +17,8 @@ let () =
   (* echo request *)
   S.add_path_handler server
     "/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
     "/upload/%s" (fun path req ->
         S._debug (fun k->k "start upload %S\n%!" path);