Print backgrace when exception raised in Web_server.generate

ushitora-anqou · Oct 19, 2023 · f1c6fb8 · f1c6fb8
1 parent e834fbe
commit f1c6fb8
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/web_server.ml b/lib/web_server.ml
@@ -551,6 +551,7 @@ let generate in_filename thn err =
         Lwt.finalize (fun () -> thn pool) (fun () -> Datastore.close_db pool)
   with e ->
     let message = match e with Failure s -> s | _ -> Printexc.to_string e in
+    let message = message ^ "\n" ^ (Printexc.get_backtrace ()) in
     err message
 
 let generate_json in_filename =