From af1ed4cbc76815b34a09f8be0758089d5548e415 Mon Sep 17 00:00:00 2001
From: User Builder <builder@shell.robur.coop>
Date: Thu, 27 May 2021 09:08:55 +0000
Subject: [PATCH] ignore sigpipe

---
 bin/builder_web_app.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/bin/builder_web_app.ml b/bin/builder_web_app.ml
index cc6ebe4..e4c81ab 100644
--- a/bin/builder_web_app.ml
+++ b/bin/builder_web_app.ml
@@ -168,6 +168,7 @@ let () =
   let info = Term.info "Builder web" ~doc:"Builder web" ~man:[] in
   match Term.eval (term, info) with
   | `Ok s ->
+    Sys.(set_signal sigpipe Signal_ignore);
     Printexc.record_backtrace true;
     let () = Lwt.async (fun () -> Lwt.bind s (fun _ -> Lwt.return_unit)) in
     let forever, _ = Lwt.wait () in