;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

;;;
;;; Check whether important binaries are available at hydra.gnu.org.
;;;

(use-modules (guix store)
             (guix packages)
             (guix derivations)
             (gnu packages emacs)
             (gnu packages make-bootstrap)
             (srfi srfi-1)
             (srfi srfi-26))

(define %supported-systems
  '("x86_64-linux" "i686-linux"))

(let* ((store  (open-connection))
       (native (append-map (lambda (system)
                             (map (cut package-derivation store <> system)
                                  (list %bootstrap-tarballs emacs)))
                           %supported-systems))
       (cross  (map (cut package-cross-derivation store
                         %bootstrap-tarballs <>)
                    '("mips64el-linux-gnuabi64")))
       (total  (append native cross)))
  (define (warn proc)
    (lambda (drv)
      (or (proc drv)
          (begin
            (format (current-error-port) "~a is not substitutable~%"
                    drv)
            #f))))

  (set-build-options store #:use-substitutes? #t)
  (let ((result (every (compose (warn (cut has-substitutes? store <>))
                                derivation->output-path)
                       total)))
    (when result
      (format (current-error-port) "~a packages found substitutable~%"
              (length total)))
    (exit result)))
9d0fc149605da5af9'>.guix-authorizations</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/.guix-authorizations?id=f85490869e141567eb2a0909d0fc149605da5af9&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-11-15 23:09:46 +0100'>2020-11-15</span></td><td><a href='/guix/commit/.guix-authorizations?id=f11c9a89193e72ee11df585cd08f1edffb9f6e48'>.guix-authorizations: Add jonsger.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-10-16 15:00:50 +0200'>2020-10-16</span></td><td><a href='/guix/commit/.guix-authorizations?id=b601aadaf59d25d4dea502f0aab16531038bff91'>.guix-authorizations: Add m1gu3l.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-09-04 11:29:51 +0200'>2020-09-04</span></td><td><a href='/guix/commit/.guix-authorizations?id=d60f63a83852685cf439bbb6af678fb2ad93efaa'>.guix-authorizations: Add planglois to the committers.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-07-18 21:12:38 +0200'>2020-07-18</span></td><td><a href='/guix/commit/.guix-authorizations?id=ba1d9680d61d3b06d9b81a81863448f494d654a7'>.guix-authorizations: Add brettgilio (back) to the committers.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-07-01 12:50:22 +0200'>2020-07-01</span></td><td><a href='/guix/commit/.guix-authorizations?id=9f5f3932debc72a57a830fc6ca5ab980f6db4941'>.guix-authorizations: Remove keys of two former contributors.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-07-01 12:50:22 +0200'>2020-07-01</span></td><td><a href='/guix/commit/.guix-authorizations?id=5402f3ed05e72f17509e3e732b67488b4643066d'>.guix-authorizations: Remove former keys that are no longer used.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-07-01 12:50:22 +0200'>2020-07-01</span></td><td><a href='/guix/commit/.guix-authorizations?id=eb8a79218d33a513d4673162fd752efb1152a084'>.guix-authorizations: Remove brettgilio's old key.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-04 10:43:52 +0200'>2020-05-04</span></td><td><a href='/guix/commit/.guix-authorizations?id=d074f73aacc5a39aed0202d6e45721f53f34a8c0'>.guix-authorizations: Add bricewge to the committers.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-04 09:56:13 +0200'>2020-05-04</span></td><td><a href='/guix/commit/.guix-authorizations?id=bee5b7a0f8547a40f05d0891a71fff1fed4b2b3e'>.guix-authorizations: Augment.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-04 09:56:12 +0200'>2020-05-04</span></td><td><a href='/guix/commit/.guix-authorizations?id=c91e27c60864faa229198f6f0caf620275c429a2'>Add '.guix-authorizations'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>