diff --git a/mirage/unikernel.ml b/mirage/unikernel.ml index 5bda300..0907ed1 100644 --- a/mirage/unikernel.ml +++ b/mirage/unikernel.ml @@ -750,7 +750,7 @@ stamp: %S in header ^ content ^ "" in - "Opam-mirror status page

Opam mirror status>

" + "Opam-mirror status page

Opam mirror status

" ^ String.concat "
" [ archive_stats ; active_downloads ; failed_downloads ] ^ "
" @@ -946,7 +946,10 @@ stamp: %S | Ok (digests, body) -> Disk.finalize_write disk quux ~url body csums digests end - | _ -> Lwt.return_unit) + | Error me -> + add_failed url (Ptime.v (Pclock.now_d_ps ())) + (Fmt.str "mimic error: %a" Mimic.pp_error me); + Lwt.return_unit) (SM.bindings urls) >>= fun () -> Disk.update_caches disk >|= fun () -> Logs.info (fun m -> m "downloading of %d urls done" (SM.cardinal urls))