This commit is contained in:
Hannes Mehnert 2022-09-04 10:28:38 +02:00
parent f62f2a09ce
commit 7d4387807b

View file

@ -339,9 +339,7 @@ module Make
| `SHA256 -> Some key | `SHA256 -> Some key
| _ -> None | _ -> None
with with
| None -> | None -> Error `Not_found
(* Logs.err (fun m -> m "couldn't find %s" v); *)
Error `Not_found
| Some x -> Ok x | Some x -> Ok x
let exists t h v = let exists t h v =
@ -634,7 +632,8 @@ stamp: %S
Lwt.return_unit Lwt.return_unit
end end
| _ -> Lwt.return_unit) | _ -> Lwt.return_unit)
(SM.bindings urls) (SM.bindings urls) >|= fun () ->
Logs.info (fun m -> m "downloading of %d urls done" (SM.cardinal urls))
module Paf = Paf_mirage.Make(Time)(Stack.TCP) module Paf = Paf_mirage.Make(Time)(Stack.TCP)