Compare commits
No commits in common. "ddb0f610e4db3acf6eec08a07265e87511259322" and "6447339f64291df742e3e73798e0cb9f687f4be0" have entirely different histories.
ddb0f610e4
...
6447339f64
1 changed files with 16 additions and 26 deletions
|
@ -640,13 +640,6 @@ module Make
|
|||
let entries_of_git ~mtime store repo urls =
|
||||
let entries = Git.contents store in
|
||||
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
|
||||
| Ok data ->
|
||||
let data =
|
||||
|
@ -662,10 +655,7 @@ module Make
|
|||
(Mirage_kv.Key.to_string path) (Int64.of_int size) in
|
||||
urls := Git.find_urls !urls path data;
|
||||
Some (Some Tar.Header.Ustar, hdr, once data)
|
||||
| Error _ -> None
|
||||
end
|
||||
| _ -> Lwt.return None
|
||||
in
|
||||
| Error _ -> None 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
|
||||
|
||||
|
|
Loading…
Reference in a new issue