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

comment out non-working code for now

Browse source
This commit is contained in:
Hannes Mehnert 2022-09-21 11:21:06 +02:00
parent b6218b979b
commit 7ec50fe588
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
mirage/unikernel.ml
View file

@ -497,8 +497,9 @@ stamp: %S
Logs.err (fun m -> m "error %s while updating git" msg); Logs.err (fun m -> m "error %s while updating git" msg);
Lwt.return None Lwt.return None
| Ok (commit, msg) -> | Ok (commit, msg) ->
let l = Encore.to_lavoisier Git_commit.format in (* let l = Encore.to_lavoisier Git_commit.format in
let bytes = Encore.Lavoisier.emit_string commit l in let bytes = Encore.Lavoisier.emit_string commit l in *)
let bytes = "foo" in
Logs.info (fun m -> m "git: %s (%d bytes)" msg (String.length bytes)); Logs.info (fun m -> m "git: %s (%d bytes)" msg (String.length bytes));
let commit_id = commit_id commit let commit_id = commit_id commit
and modified = modified commit and modified = modified commit