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

update to git-kv 0.1.1 -- use val commit :) #31

Merged
reynir merged 1 commit from git-kv-011 into main 2024-12-03 12:26:53 +00:00
Conversation 0 Commits 1 Files changed 2 +10 -6
2 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 16dd833477 - Show all commits

2
mirage/config.ml
View file

@ -8,7 +8,7 @@ let mirror =
package "h2" ;
package "ohex" ;
package "httpaf" ;
package ~min:"0.0.5" "git-kv" ;
package ~min:"0.1.1" "git-kv" ;
package ~min:"3.10.0" "git-paf" ;
package "opam-file-format" ;
package ~min:"3.0.0" ~sublibs:[ "gz" ] "tar" ;

14
mirage/unikernel.ml
View file

@ -697,11 +697,15 @@ module Make
Printf.sprintf "%s, %02d %s %04d %02d:%02d:%02d GMT" weekday d m' y hh mm ss
let commit_id git_kv =
Store.digest git_kv Mirage_kv.Key.empty >|= fun r ->
Result.fold r ~ok:Ohex.encode
~error:(fun e ->
Logs.err (fun m -> m "%a" Store.pp_error e);
exit 2)
match Git_kv.commit git_kv with
| Some `Clean hash ->
Ohex.encode (Digestif.SHA1.to_raw_string hash)
| Some `Dirty _ ->
reynir commented 2024-12-03 12:26:00 +00:00
Review
Copy link

I guess these two cases "shouldn't happen"

I guess these two cases "shouldn't happen"
Logs.err (fun m -> m "commit is dirty");
exit 2
| None ->
Logs.err (fun m -> m "commit is none");
exit 2
let repo remote commit =
let upstream = List.hd (String.split_on_char '#' remote) in