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

Compare commits

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

No commits in common. "ddb0f610e4db3acf6eec08a07265e87511259322" and "6447339f64291df742e3e73798e0cb9f687f4be0" have entirely different histories.
ddb0f610e4 ... 6447339f64

1 changed files with 16 additions and 26 deletions
Show stats Expand all files Collapse all files

12
mirage/unikernel.ml
View file

@ -640,13 +640,6 @@ module Make
let entries_of_git ~mtime store repo urls = let entries_of_git ~mtime store repo urls =
let entries = Git.contents store in let entries = Git.contents store in
let to_entry path = let to_entry path =
match Mirage_kv.Key.segments path with
(* from opam source code, src/repository/opamHTTP.ml:
include only three top-level dirs/files: packages, version, repo *)
| "packages" :: _
| "version" :: _
| "repo" :: _ ->
begin
Store.get store path >|= function Store.get store path >|= function
| Ok data -> | Ok data ->
let data = let data =
@ -662,10 +655,7 @@ module Make
(Mirage_kv.Key.to_string path) (Int64.of_int size) in (Mirage_kv.Key.to_string path) (Int64.of_int size) in
urls := Git.find_urls !urls path data; urls := Git.find_urls !urls path data;
Some (Some Tar.Header.Ustar, hdr, once data) Some (Some Tar.Header.Ustar, hdr, once data)
| Error _ -> None | Error _ -> None in
end
| _ -> Lwt.return None
in
let entries = Lwt_stream.filter_map_s to_entry entries in let entries = Lwt_stream.filter_map_s to_entry entries in
Lwt.return begin fun () -> Tar.High (High.inj (Lwt_stream.get entries >|= Result.ok)) end Lwt.return begin fun () -> Tar.High (High.inj (Lwt_stream.get entries >|= Result.ok)) end