Commits

Anonymous committed a29e0b9

logging process exceptions/errors

Comments (0)

Files changed (1)

               (disp msg : IO.m (process_result _)) >>= fun res ->
               IO.return res
            )
-           (fun e -> IO.return (Exit (PE_Error (`Exn e)))
+           (fun e ->
+              let () = L.debug "process raised exception: %s"
+                (Printexc.to_string e) in
+              IO.return (Exit (PE_Error (`Exn e)))
            )
     ;