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

record free bytes in tar archive

Browse source
This commit is contained in:
Hannes Mehnert 2024-10-31 17:45:34 +01:00
parent f40083692a
commit 53af2665fa
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
mirage/unikernel.ml
View file

@ -729,8 +729,11 @@ stamp: %S
- list of current downloads - list of current downloads
- list of failed downloads - list of failed downloads
*) *)
let hashes = SM.cardinal disk.Disk.md5s in let archive_stats =
let archive_stats = Printf.sprintf "%u validated archives on disk" hashes in Fmt.str "<ul><li>%u validated archives on disk</li><li>%Lu bytes free</li></ul>"
(SM.cardinal disk.Disk.md5s)
(KV.free disk.Disk.dev)
in
let active_downloads = let active_downloads =
let header = "<h2>Active downloads</h2><ul>" in let header = "<h2>Active downloads</h2><ul>" in
let content = let content =