Builder_web: Added timeout to visualization_cmd Lwt_process.pread

2022-01-28 10:45:00 +01:00 · 2022-01-28 10:45:00 +01:00 · 5a9c1237a1
commit 5a9c1237a1
parent 2a1b75ba2b
1 changed files with 3 additions and 1 deletions
--- a/lib/builder_web.ml
+++ b/lib/builder_web.ml
@ -188,7 +188,9 @@ let add_routes datadir =
    let bin = "_build/default/bin/visualizations/builder_viz.exe" in
    let cmd = bin, Array.of_list (bin :: args)
    in
-    Lwt_process.pread ~stderr:`Dev_null cmd
+    Lwt_process.pread cmd
+      ~stderr:`Dev_null
+      ~timeout:15.
    |> Lwt_result.catch
    |> Lwt_result.map_err (fun exn ->
      Printexc.to_string exn, `Internal_Server_Error