Merge pull request 'Rename partition devices so they are shadowed' (#19) from refactor-partition-naming into main

Reviewed-on: https://git.robur.io/robur/opam-mirror/pulls/19
This commit is contained in:
Reynir Björnsson 2022-09-28 13:00:41 +00:00
commit 32812be82b

View file

@ -785,12 +785,12 @@ stamp: %S
let cache_size = Int64.(mul 2L sectors_cache) in let cache_size = Int64.(mul 2L sectors_cache) in
Int64.(sub info.size_sectors (add cache_size sectors_git)) Int64.(sub info.size_sectors (add cache_size sectors_git))
in in
Part.connect git_start block >>= fun (b1, rest) -> Part.connect git_start block >>= fun (kv, rest) ->
let git_dump, rest = Part.subpartition sectors_git rest in let git_dump, rest = Part.subpartition sectors_git rest in
let b2, b3 = Part.subpartition sectors_cache rest in let md5s, sha512s = Part.subpartition sectors_cache rest in
KV.connect b1 >>= fun kv -> KV.connect kv >>= fun kv ->
Cache.connect b2 >>= fun md5s -> Cache.connect md5s >>= fun md5s ->
Cache.connect b3 >>= fun sha512s -> Cache.connect sha512s >>= fun sha512s ->
Cache.connect git_dump >>= fun git_dump -> Cache.connect git_dump >>= fun git_dump ->
Logs.info (fun m -> m "Available bytes in tar storage: %Ld" (KV.free kv)); Logs.info (fun m -> m "Available bytes in tar storage: %Ld" (KV.free kv));
Disk.init ~verify:(Key_gen.verify ()) kv md5s sha512s >>= fun disk -> Disk.init ~verify:(Key_gen.verify ()) kv md5s sha512s >>= fun disk ->