01/01: lint: derivation: Disable grafts, but check replacements.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 937690f90937c19b6708d60342efcd4b81044795
Author: Ludovic Courtès <address@hidden>
Date:   Thu Mar 3 09:45:09 2016 +0100

    lint: derivation: Disable grafts, but check replacements.
    
    * guix/scripts/lint.scm (check-derivation): Pass #:graft? #f.  When
    'package-replacement' exists, compute its derivation.
---
 guix/scripts/lint.scm |   10 +++++++++-
 1 files changed, 9 insertions(+), 1 deletions(-)

diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index e729398..8876704 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~%")