From e22047249f3647680f35d6f3ec1442dcddf37615 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Mon, 26 Sep 2022 18:33:29 +0200
Subject: [PATCH] log git interaction

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

diff --git a/mirage/unikernel.ml b/mirage/unikernel.ml
index 7d60c80..bb9d194 100644
--- a/mirage/unikernel.ml
+++ b/mirage/unikernel.ml
@@ -445,11 +445,13 @@ stamp: %S
 
     let update_git t git_kv =
       Lwt_mutex.with_lock update_lock (fun () ->
+          Logs.info (fun m -> m "pulling the git repository");
           Git_kv.pull git_kv >>= function
           | Error `Msg msg ->
             Logs.err (fun m -> m "error %s while updating git" msg);
             Lwt.return None
           | Ok [] ->
+            Logs.info (fun m -> m "git changes are empty");
             Lwt.return (Some [])
           | Ok changes ->
             commit_id git_kv >>= fun commit_id ->
@@ -645,8 +647,7 @@ stamp: %S
       Paf.init ~port:(Key_gen.port ()) (Stack.tcp stack) >>= fun t ->
       let update () =
         Serve.update_git serve git_kv >>= function
-        | None -> Lwt.return_unit
-        | Some [] -> Lwt.return_unit
+        | None | Some [] -> Lwt.return_unit
         | Some _changes -> download_archives disk http_ctx git_kv
       in
       let service =