From c539ffd89c24a8346253d1cf9769ef991ffebd24 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 27 Apr 2024 19:26:12 +0100
Subject: Make get-storage-size friendly to other fibers

---
 nar-herder/storage.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'nar-herder')

diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm
index 7d3ee8a..f5047b5 100644
--- a/nar-herder/storage.scm
+++ b/nar-herder/storage.scm
@@ -92,6 +92,8 @@
 (define (get-storage-size storage-root)
   (define enter? (const #t))
   (define (leaf name stat result)
+    ;; Allow other fibers to run
+    (sleep 0)
     (+ result
        (or (and=> (stat:blocks stat)
                   (lambda (blocks)
-- 
cgit v1.2.3