diff options
Diffstat (limited to 'bin/server.ml')
| -rw-r--r-- | bin/server.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/bin/server.ml b/bin/server.ml index f5a8830..21cd225 100644 --- a/bin/server.ml +++ b/bin/server.ml @@ -12,7 +12,9 @@ let request_handler ~db_pool Server.{ request; _ } = match Lib.Router.match_route request.meth request.target with | Some handler -> (match handler db_pool request with - | Ok response -> response + | Ok response -> + Logs.info (fun d -> d "apparently ok %S\n" request.target); + response | Error err -> Logs.err (fun m -> m "Handler error: %a" Caqti_error.pp err); Response.create `Internal_server_error) |