nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

challenge: Disable grafting. 

* guix/scripts/challenge.scm (guix-challenge): Set %GRAFT? to #f.
This commit is contained in:
Ludovic Courtès 2016-07-14 15:25:00 +02:00
parent a7a3b39060
commit db8f6b3412
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/scripts/challenge.scm
View File

@ -21,6 +21,7 @@
#:use-module (guix scripts) #:use-module (guix scripts)
#:use-module (guix store) #:use-module (guix store)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix grafts)
#:use-module (guix monads) #:use-module (guix monads)
#:use-module (guix base32) #:use-module (guix base32)
#:use-module (guix packages) #:use-module (guix packages)
@ -222,6 +223,9 @@ Challenge the substitutes for PACKAGE... provided by one or more servers.\n"))
(urls (assoc-ref opts 'substitute-urls))) (urls (assoc-ref opts 'substitute-urls)))
(leave-on-EPIPE (leave-on-EPIPE
(with-store store (with-store store
;; Disable grafts since substitute servers normally provide only
;; ungrafted stuff.
(parameterize ((%graft? #f))
(let ((files (match files (let ((files (match files
(() (()
(filter (cut locally-built? store <>) (filter (cut locally-built? store <>)
@ -239,6 +243,6 @@ Challenge the substitutes for PACKAGE... provided by one or more servers.\n"))
(unless (null? issues) (unless (null? issues)
(exit 2)) (exit 2))
(return (null? issues))) (return (null? issues)))
#:system system))))))) #:system system))))))))
;;; challenge.scm ends here ;;; challenge.scm ends here