01/03: build: 'make assert-binaries-available' shows the list of systems.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit f1ebeee131d7b73c26689741fa48f55a5dd5b1de
Author: Ludovic Courtès <address@hidden>
Date:   Wed Apr 27 15:00:49 2016 +0200

    build: 'make assert-binaries-available' shows the list of systems.
    
    * build-aux/check-available-binaries.scm: Display %HYDRA-SUPPORTED-SYSTEMS.
---
 build-aux/check-available-binaries.scm |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/build-aux/check-available-binaries.scm 
b/build-aux/check-available-binaries.scm
index e7db70b..0060a86 100644
--- a/build-aux/check-available-binaries.scm
+++ b/build-aux/check-available-binaries.scm
@@ -46,8 +46,9 @@
              (available (substitutable-paths store total))
              (missing   (lset-difference string=? total available)))
         (if (null? missing)
-            (format (current-error-port) "~a packages found substitutable~%"
-                    (length total))
+            (format (current-error-port)
+                    "~a packages found substitutable on~{ ~a~}~%"
+                    (length total) %hydra-supported-systems)
             (format (current-error-port)
                     "~a packages are not substitutable:~%~{  ~a~%~}~%"
                     (length missing) missing))