06/07: maint: 'check-available-binaries' forces use of the official servers.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 8872fc0e094c758a183fe95f45807727884ac15a
Author: Ludovic Courtès <address@hidden>
Date:   Mon May 8 15:36:01 2017 +0200

    maint: 'check-available-binaries' forces use of the official servers.
    
    * build-aux/check-available-binaries.scm: Pass #:substitute-urls to
    'set-build-options'.
---
 build-aux/check-available-binaries.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/build-aux/check-available-binaries.scm 
b/build-aux/check-available-binaries.scm
index 0060a86..c9bc5ca 100644
--- a/build-aux/check-available-binaries.scm
+++ b/build-aux/check-available-binaries.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <address@hidden>
+;;; Copyright © 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -41,7 +41,9 @@
                         '("mips64el-linux-gnuabi64")))
            (total  (append native cross)))
 
-      (set-build-options store #:use-substitutes? #t)
+      (set-build-options store
+                         #:use-substitutes? #t
+                         #:substitute-urls %default-substitute-urls)
       (let* ((total     (map derivation->output-path total))
              (available (substitutable-paths store total))
              (missing   (lset-difference string=? total available)))