aboutsummaryrefslogtreecommitdiff
path: root/nar-herder
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-12-14 12:59:38 +0000
committerChristopher Baines <mail@cbaines.net>2021-12-14 12:59:38 +0000
commit36958a58bb61faf54375b92d54a521cdb5c98e66 (patch)
tree934ac68f3a8806c08db7620ba5499f6c21ec34f1 /nar-herder
parent86184ca24d8465315ac05d84e69fabb693017a6d (diff)
downloadnar-herder-36958a58bb61faf54375b92d54a521cdb5c98e66.tar
nar-herder-36958a58bb61faf54375b92d54a521cdb5c98e66.tar.gz
Fix store-item-in-local-storage?
Diffstat (limited to 'nar-herder')
-rw-r--r--nar-herder/storage.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm
index 1fbe718..a07efc7 100644
--- a/nar-herder/storage.scm
+++ b/nar-herder/storage.scm
@@ -41,7 +41,8 @@
(error "no narinfo files"))
(every (lambda (file)
(file-exists?
- (string-append storage-root "/" file)))
+ (string-append storage-root
+ (assq-ref file 'url))))
narinfo-files)))
(define (get-storage-size storage-root)