From ccf1871604496d950b9d4c5b22ee034babd57103 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Mon, 9 Dec 2024 11:15:04 +0100 Subject: [PATCH] further fixes (commit_id not in Lwt monad anymore) --- mirage/unikernel.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mirage/unikernel.ml b/mirage/unikernel.ml index 808464d..7424a90 100644 --- a/mirage/unikernel.ml +++ b/mirage/unikernel.ml @@ -756,7 +756,7 @@ stamp: %S Lwt.return (Some ([], SM.empty)) | Ok changes -> last_git_status := Ok (List.length changes); - commit_id git_kv >>= fun commit_id -> + let commit_id = commit_id git_kv in modified git_kv >>= fun modified -> Logs.info (fun m -> m "git: %s" commit_id); let repo = repo remote commit_id in @@ -1101,7 +1101,7 @@ stamp: %S Lwt.return (true, git_kv) end >>= fun (need_dump, git_kv) -> Logs.info (fun m -> m "Done initializing git state!"); - Serve.commit_id git_kv >>= fun commit_id -> + let commit_id = Serve.commit_id git_kv in Logs.info (fun m -> m "git: %s" commit_id); Serve.create remote git_kv >>= fun (serve, urls) -> Paf.init ~port:(K.port ()) (Stack.tcp stack) >>= fun t ->