aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rw-r--r--scripts/nar-herder.in28
1 files changed, 18 insertions, 10 deletions
diff --git a/scripts/nar-herder.in b/scripts/nar-herder.in
index 9e70b77..c8726b8 100644
--- a/scripts/nar-herder.in
+++ b/scripts/nar-herder.in
@@ -51,6 +51,7 @@
(fibers conditions)
(fibers web server)
((guix ui) #:select (read/eval string->duration))
+ (guix store)
(guix progress)
(guix narinfo)
(guix derivations)
@@ -321,16 +322,23 @@
"https://narherderdummyvalue")))))
(when (assq-ref opts 'ensure-references-exist)
- (for-each
- (lambda (reference)
- (unless (database-select-narinfo-by-hash
- database
- (string-take reference 32))
- (error
- (simple-format (current-error-port)
- "missing reference to ~A\n"
- reference))))
- (narinfo-references narinfo)))
+ (let ((self-reference
+ (store-path-base
+ (narinfo-path narinfo))))
+ (for-each
+ (lambda (reference)
+ (when (and
+ (not
+ (string=? reference self-reference))
+ (not
+ (database-select-narinfo-by-hash
+ database
+ (string-take reference 32))))
+ (error
+ (simple-format (current-error-port)
+ "missing reference to ~A\n"
+ reference))))
+ (narinfo-references narinfo))))
(database-insert-narinfo
database