From f40083692a526cab92f87a77c3f76224a585964c Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Thu, 31 Oct 2024 17:17:34 +0100 Subject: [PATCH] tweaks --- mirage/unikernel.ml | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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))