diff options
author | Christopher Baines <mail@cbaines.net> | 2021-12-15 09:25:04 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-12-15 09:25:04 +0000 |
commit | 2c29227cf888ce59518a4a8109a5be5895083756 (patch) | |
tree | 4b28d2531d30dc96b2551686014cd5ca1e16350b /nar-herder/storage.scm | |
parent | 74d63e7205b993f9fbf034a33a980b906e314ba2 (diff) | |
download | nar-herder-2c29227cf888ce59518a4a8109a5be5895083756.tar nar-herder-2c29227cf888ce59518a4a8109a5be5895083756.tar.gz |
Double check the nar removal criteria before removing nars
Diffstat (limited to 'nar-herder/storage.scm')
-rw-r--r-- | nar-herder/storage.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index f1b9ac4..47dbb26 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -200,6 +200,9 @@ (loop storage-size (cdr stored-nar-files)))))))) + (when (null? nar-removal-criteria) + (error "must be some removal criteria")) + (call-with-new-thread (lambda () (while #t |