From b0eb816a6805787bc0732c74f0a68b2f484777e4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= <reynir@reynir.dk>
Date: Thu, 17 Nov 2022 12:04:51 +0100
Subject: [PATCH] Log before and after restoring/fetching git state

This may take quite a while, and the application is unresponsive
meanwhile.
---
 mirage/unikernel.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/mirage/unikernel.ml b/mirage/unikernel.ml
index 57c3b30..febb628 100644
--- a/mirage/unikernel.ml
+++ b/mirage/unikernel.ml
@@ -777,6 +777,7 @@ stamp: %S
       Lwt.return_unit
     else
       begin
+        Logs.info (fun m -> m "Initializing git state. This may take a while...");
         (if Key_gen.ignore_local_git () then
            Lwt.return (Error ())
          else
@@ -787,6 +788,7 @@ stamp: %S
           dump_git git_dump git_kv >|= fun () ->
           git_kv
       end >>= fun git_kv ->
+      Logs.info (fun m -> m "Done initializing git state!");
       Serve.commit_id git_kv >>= fun commit_id ->
       Logs.info (fun m -> m "git: %s" commit_id);
       Serve.create git_kv >>= fun serve ->