From 62d62420b7aff3d41a43961b912bb855e7a3e3b9 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Thu, 14 Nov 2024 19:39:38 +0100
Subject: [PATCH] remove some logs

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

diff --git a/mirage/unikernel.ml b/mirage/unikernel.ml
index bfbce24..28f0b24 100644
--- a/mirage/unikernel.ml
+++ b/mirage/unikernel.ml
@@ -173,7 +173,7 @@ module Make
                   | None -> Hashtbl.add sha256s hash url; url
                   | Some url' ->
                     if not (String.equal url url') then
-                      Logs.warn (fun m -> m "same hash for url %s and %s" url url');
+                      Logs.debug (fun m -> m "same hash for url %s and %s" url url');
                     url'
               in
               let mirrors = SSet.of_list mirrors in
@@ -297,7 +297,6 @@ module Make
       { md5s = SM.empty ; sha512s = SM.empty ; checked = Some KS.empty ; dev; dev_md5s; dev_sha512s ; dev_swap }
 
     let add_checked t path =
-      Logs.info (fun m -> m "add checked %a" Mirage_kv.Key.pp path);
       match t.checked with
       | None -> ()
       | Some s -> t.checked <- Some (KS.add path s)
@@ -972,7 +971,6 @@ stamp: %S
           Lwt.return_unit
         | false ->
           let rec download url mirrors =
-            Logs.info (fun m -> m "downloading %s (%u mirrors)" url (SSet.cardinal mirrors));
             let retry () =
               if SSet.is_empty mirrors then begin
                 decr remaining_downloads;