ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

build: Disable grafting in sanity checks.

Browse source 
* build-aux/check-available-binaries.scm: Wrap body in 'parameterize'
  form that clears '%graft?'.
* build-aux/check-final-inputs-self-contained.scm: Likewise.
This commit is contained in:
Ludovic Courtès 2015-02-24 23:00:29 +01:00
parent 9ffee4571c
commit 43da8f018d
2 changed files with 28 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
build-aux/check-available-binaries.scm
View file

@ -29,6 +29,7 @@
(srfi srfi-26))
(with-store store
(parameterize ((%graft? #f))
(let* ((native (append-map (lambda (system)
(map (cut package-derivation store <> system)
(list %bootstrap-tarballs emacs)))
@ -52,4 +53,4 @@ (define (warn item system)
(when result
(format (current-error-port) "~a packages found substitutable~%"
(length total)))
(exit result))))
(exit result)))))

3
build-aux/check-final-inputs-self-contained.scm
View file

@ -73,8 +73,9 @@ (define (test-final-inputs store system)
;; Entry point.
(with-store store
(parameterize ((%graft? #f))
(set-build-options store #:use-substitutes? #t)
(for-each (cut test-final-inputs store <>)
%supported-systems))
%supported-systems)))