add a HEAD endpoint to echo

c-cube · Dec 25, 2024 · a86eac8 · a86eac8
1 parent 1318d46
commit a86eac8
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/examples/echo.ml b/examples/echo.ml
@@ -244,6 +244,11 @@ let () =
     Route.(exact "alice" @/ return)
     (fun _req -> Response.make_string (Ok alice_text));
 
+  Server.add_route_handler ~meth:`HEAD server
+    Route.(exact "head" @/ return)
+    (fun _req ->
+      Response.make_void ~code:200 ~headers:[ "x-hello", "world" ] ());
+
   (* VFS *)
   Tiny_httpd.Dir.add_vfs server
     ~config: