diff options
| author | ยท๐๐ด๐๐๐ฉ๐ค | 2025-12-12 18:04:01 +0000 |
|---|---|---|
| committer | ยท๐๐ด๐๐๐ฉ๐ค | 2025-12-12 18:04:01 +0000 |
| commit | 4fb3460e56c73053065940653bd7d205f5018854 (patch) | |
| tree | 26b2c975a9d382d3fd356cb5cc1539620c44bd61 /lib | |
| parent | 3ba1df86703ea60e0b53a67905fc62a52b61e804 (diff) | |
| download | nixtaml-4fb3460e56c73053065940653bd7d205f5018854.tar nixtaml-4fb3460e56c73053065940653bd7d205f5018854.tar.gz nixtaml-4fb3460e56c73053065940653bd7d205f5018854.tar.bz2 nixtaml-4fb3460e56c73053065940653bd7d205f5018854.tar.lz nixtaml-4fb3460e56c73053065940653bd7d205f5018854.tar.xz nixtaml-4fb3460e56c73053065940653bd7d205f5018854.tar.zst nixtaml-4fb3460e56c73053065940653bd7d205f5018854.zip | |
keep pool exception
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 |