From 7d4387807b60aa3cd1466cb2cbfa17428479b80c Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Sun, 4 Sep 2022 10:28:38 +0200
Subject: [PATCH] minor

---
 mirage/unikernel.ml | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/mirage/unikernel.ml b/mirage/unikernel.ml
index f757935..5b4e8c6 100644
--- a/mirage/unikernel.ml
+++ b/mirage/unikernel.ml
@@ -339,9 +339,7 @@ module Make
         | `SHA256 -> Some key
         | _ -> None
       with
-      | None ->
-        (* Logs.err (fun m -> m "couldn't find %s" v); *)
-        Error `Not_found
+      | None -> Error `Not_found
       | Some x -> Ok x
 
     let exists t h v =
@@ -634,7 +632,8 @@ stamp: %S
               Lwt.return_unit
             end
           | _ -> 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)