From 53af2665fa6e7cb92ad70533ed52078f136a2fae Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Thu, 31 Oct 2024 17:45:34 +0100
Subject: [PATCH] record free bytes in tar archive

---
 mirage/unikernel.ml | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/mirage/unikernel.ml b/mirage/unikernel.ml
index 0907ed1..be5b29e 100644
--- a/mirage/unikernel.ml
+++ b/mirage/unikernel.ml
@@ -729,8 +729,11 @@ stamp: %S
          - list of current downloads
          - list of failed downloads
       *)
-      let hashes = SM.cardinal disk.Disk.md5s in
-      let archive_stats = Printf.sprintf "%u validated archives on disk" hashes in
+      let archive_stats =
+        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 header = "<h2>Active downloads</h2><ul>" in
         let content =