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

Compare commits

base: robur:bbd09258d0152573765b52f7483807545143b467
Branches Tags
robur:main
robur:index-startup
robur:gptar
robur:cache
..
compare: robur:ddb0f610e4db3acf6eec08a07265e87511259322
Branches Tags
robur:main
robur:index-startup
robur:gptar
robur:cache

No commits in common. "bbd09258d0152573765b52f7483807545143b467" and "ddb0f610e4db3acf6eec08a07265e87511259322" have entirely different histories.
bbd09258d0 ... ddb0f610e4

2 changed files with 6 additions and 10 deletions
Show stats Expand all files Collapse all files

2
mirage/config.ml
View file

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

14
mirage/unikernel.ml
View file

@ -697,15 +697,11 @@ module Make
Printf.sprintf "%s, %02d %s %04d %02d:%02d:%02d GMT" weekday d m' y hh mm ss Printf.sprintf "%s, %02d %s %04d %02d:%02d:%02d GMT" weekday d m' y hh mm ss
let commit_id git_kv = let commit_id git_kv =
match Git_kv.commit git_kv with Store.digest git_kv Mirage_kv.Key.empty >|= fun r ->
| Some `Clean hash -> Result.fold r ~ok:Ohex.encode
Ohex.encode (Digestif.SHA1.to_raw_string hash) ~error:(fun e ->
| Some `Dirty _ -> Logs.err (fun m -> m "%a" Store.pp_error e);
Logs.err (fun m -> m "commit is dirty"); exit 2)
exit 2
| None ->
Logs.err (fun m -> m "commit is none");
exit 2
let repo remote commit = let repo remote commit =
let upstream = List.hd (String.split_on_char '#' remote) in let upstream = List.hd (String.split_on_char '#' remote) in