check-available-binaries: Make sure substitutes are enabled.

* build-aux/check-available-binaries.scm: Add call to
  'set-build-options'.
This commit is contained in:
Ludovic Courtès 2014-03-25 20:45:13 +01:00
parent 1971737f2b
commit eafee15b3c

View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -48,6 +48,7 @@ (define (warn proc)
drv) drv)
#f)))) #f))))
(set-build-options store #:use-substitutes? #t)
(let ((result (every (compose (warn (cut has-substitutes? store <>)) (let ((result (every (compose (warn (cut has-substitutes? store <>))
derivation->output-path) derivation->output-path)
total))) total)))