diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/error.ml | 2 | ||||
| -rw-r--r-- | lib/input_foreman.ml | 18 |
2 files changed, 7 insertions, 13 deletions
diff --git a/lib/error.ml b/lib/error.ml index da5e579..d98c1ee 100644 --- a/lib/error.ml +++ b/lib/error.ml @@ -44,7 +44,7 @@ type input_foreman_error = [ | `Latest_cmd_empty of Name.t | `Latest_cmd_fail of Name.t * exn * string | `Prefetch of Name.t * prefetch_error - | `Pool_exception of string + | `Pool_exception of exn (* FIXME: string list *) | `Many_errors of string list ] diff --git a/lib/input_foreman.ml b/lib/input_foreman.ml index 895a506..7e2aa4b 100644 --- a/lib/input_foreman.ml +++ b/lib/input_foreman.ml @@ -551,12 +551,9 @@ let lock_many ~env ~sw ~proc_mgr ~domain_count ~force ~(names : Name.t list) : ( |> List.fold_left (fun (suc, errs) -> function - | Ok (Ok()) -> - true, errs - | Ok (Error err) -> - suc, err :: errs - | Error exn -> - suc, (`Pool_exception (Printexc.to_string exn)) :: errs + | Ok (Ok()) -> true, errs + | Ok (Error err) -> suc, err :: errs + | Error exn -> suc, (`Pool_exception exn) :: errs ) (false, []) in @@ -633,12 +630,9 @@ let refresh_many ~env ~sw ~proc_mgr ~domain_count ~(names : Name.t list) : (unit |> List.fold_left (fun (suc, errs) -> function - | Ok (Ok()) -> - true, errs - | Ok (Error err) -> - suc, err :: errs - | Error exn -> - suc, (`Pool_exception (Printexc.to_string exn)) :: errs + | Ok (Ok()) -> true, errs + | Ok (Error err) -> suc, err :: errs + | Error exn -> suc, (`Pool_exception exn) :: errs ) (false, []) in |