diff options
author | Christopher Baines <mail@cbaines.net> | 2024-04-27 19:26:12 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-04-27 19:26:12 +0100 |
commit | c539ffd89c24a8346253d1cf9769ef991ffebd24 (patch) | |
tree | d2647f0220b490759439c677c8bdf2850f9f7810 | |
parent | 820697c47cdc7500b0e1e5e49b8e425123b289cb (diff) | |
download | nar-herder-c539ffd89c24a8346253d1cf9769ef991ffebd24.tar nar-herder-c539ffd89c24a8346253d1cf9769ef991ffebd24.tar.gz |
Make get-storage-size friendly to other fibers
-rw-r--r-- | nar-herder/storage.scm | 2 |
1 files changed, 2 insertions, 0 deletions
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) |