diff options
Diffstat (limited to 'nar-herder/storage.scm')
| -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) |