diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-12-14 12:54:13 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-12-14 12:54:13 +0000 |
| commit | 9f3ef8ffb28515443c84d17ff8507b72b6823bf9 (patch) | |
| tree | c46fa9940f3d875153f43137316ff7eab59c4c52 /nar-herder/storage.scm | |
| parent | 2521e82dad6342de29859cf910436218456133c6 (diff) | |
| download | nar-herder-9f3ef8ffb28515443c84d17ff8507b72b6823bf9.tar nar-herder-9f3ef8ffb28515443c84d17ff8507b72b6823bf9.tar.gz | |
Guard against checking for 0 narinfo files
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 32bb125..1fbe718 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -37,6 +37,8 @@ (define (store-item-in-local-storage? database storage-root hash) (let ((narinfo-files (database-select-narinfo-files database hash))) + (when (null? narinfo-files) + (error "no narinfo files")) (every (lambda (file) (file-exists? (string-append storage-root "/" file))) |