diff options
Diffstat (limited to 'nar-herder/storage.scm')
| -rw-r--r-- | nar-herder/storage.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index 7e72910..c017685 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -209,13 +209,15 @@ (database-select-narinfo-for-file database (assq-ref nar 'url))) (match criteria - (('and and-criteria ...) + (('and and-criteria) (every (lambda (c) (check-removal-criteria nar c)) and-criteria)) (('stored-on url) (let ((uri (string->uri - (string-append url + (string-append (if (symbol? url) + (symbol->string url) + url) "/" (store-path-hash-part (assq-ref narinfo 'store-path)) |