robur/opam-mirror
4
0
Fork 0
Code Issues 6 Pull requests 2 Projects Releases Packages Wiki Activity Actions

further fixes (commit_id not in Lwt monad anymore)

Browse source
This commit is contained in:
Hannes Mehnert 2024-12-09 11:15:04 +01:00
parent df53182114
commit ccf1871604
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mirage/unikernel.ml
View file

@ -756,7 +756,7 @@ stamp: %S
Lwt.return (Some ([], SM.empty)) Lwt.return (Some ([], SM.empty))
| Ok changes -> | Ok changes ->
last_git_status := Ok (List.length 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 -> modified git_kv >>= fun modified ->
Logs.info (fun m -> m "git: %s" commit_id); Logs.info (fun m -> m "git: %s" commit_id);
let repo = repo remote commit_id in let repo = repo remote commit_id in
@ -1101,7 +1101,7 @@ stamp: %S
Lwt.return (true, git_kv) Lwt.return (true, git_kv)
end >>= fun (need_dump, git_kv) -> end >>= fun (need_dump, git_kv) ->
Logs.info (fun m -> m "Done initializing git state!"); 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); Logs.info (fun m -> m "git: %s" commit_id);
Serve.create remote git_kv >>= fun (serve, urls) -> Serve.create remote git_kv >>= fun (serve, urls) ->
Paf.init ~port:(K.port ()) (Stack.tcp stack) >>= fun t -> Paf.init ~port:(K.port ()) (Stack.tcp stack) >>= fun t ->