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

Rename partition devices so they are shadowed

Browse source
This commit is contained in:
Reynir Björnsson 2022-09-28 11:18:17 +02:00
parent 9b02dfdd88
commit 3e946395aa
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mirage/unikernel.ml
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 ->