aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--nar-herder/storage.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm
index fc49b2d..16f7025 100644
--- a/nar-herder/storage.scm
+++ b/nar-herder/storage.scm
@@ -181,8 +181,10 @@
(uri-decode
(assq-ref nar 'url)))
(nar-stored?
- (file-exists?
- (string-append storage-root url))))
+ (if storage-root
+ (file-exists?
+ (string-append storage-root url))
+ #f)))
(if nar-stored?
(set! stored-files-count (1+ stored-files-count))