summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-03-03 09:45:09 +0100
committerLudovic Courtès <ludo@gnu.org>2016-03-03 09:46:17 +0100
commit937690f90937c19b6708d60342efcd4b81044795 (patch)
tree9c5838647bac7adee5c2255b3a341ab209f01443 /guix/scripts
parente90819c40af5ffd84dcfd24e3c478edbe7e89c75 (diff)
lint: derivation: Disable grafts, but check replacements.
* guix/scripts/lint.scm (check-derivation): Pass #:graft? #f. When 'package-replacement' exists, compute its derivation.
Diffstat (limited to 'guix/scripts')
-rw-r--r--guix/scripts/lint.scm10
1 files changed, 9 insertions, 1 deletions
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index e729398742..8876704d4d 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -551,7 +551,15 @@ descriptions maintained upstream."
(format #f (_ "failed to create derivation: ~a")
(condition-message c)))))
(with-store store
- (package-derivation store package))))
+ ;; Disable grafts since it can entail rebuilds.
+ (package-derivation store package #:graft? #f)
+
+ ;; If there's a replacement, make sure we can compute its
+ ;; derivation.
+ (match (package-replacement package)
+ (#f #t)
+ (replacement
+ (package-derivation store replacement #:graft? #f))))))
(lambda args
(emit-warning package
(format #f (_ "failed to create derivation: ~s~%")