add post request handler
This commit is contained in:
parent
2a70699243
commit
1cce509397
@ -26,4 +26,9 @@ let () =
|
|||||||
!successful !failed));
|
!successful !failed));
|
||||||
Dream.get "/echo/:word" (fun request ->
|
Dream.get "/echo/:word" (fun request ->
|
||||||
Dream.html (Dream.param request "word"));
|
Dream.html (Dream.param request "word"));
|
||||||
|
Dream.post "/echo" (fun request ->
|
||||||
|
let* body = Dream.body request in
|
||||||
|
Dream.respond
|
||||||
|
~headers:[ ("Content-Type", "application/octet-stream") ]
|
||||||
|
body);
|
||||||
]
|
]
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user