diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-01-14 18:20:01 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-01-14 18:20:01 +0100 |
| commit | 619c9522b2d6d7c451f90524c3a041c5fb12c28e (patch) | |
| tree | 2fe297724194a6cc001e92a6a4eb9be470054c57 | |
| parent | 58caebf0327aafe6240612f28c339f5a00cd2c92 (diff) | |
| download | gnu-guix-619c9522b2d6d7c451f90524c3a041c5fb12c28e.tar gnu-guix-619c9522b2d6d7c451f90524c3a041c5fb12c28e.tar.gz | |
check-available-binaries: Use 'with-store'.
* build-aux/check-available-binaries.scm: Use 'with-store' instead of an
explicit 'open-connection'.
| -rw-r--r-- | build-aux/check-available-binaries.scm | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/build-aux/check-available-binaries.scm b/build-aux/check-available-binaries.scm index 74a43ff1d8..ebe94d2f7f 100644 --- a/build-aux/check-available-binaries.scm +++ b/build-aux/check-available-binaries.scm @@ -28,28 +28,28 @@ (srfi srfi-1) (srfi srfi-26)) -(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)))) +(with-store store + (let* ((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))) + (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)))) |