summaryrefslogtreecommitdiff
path: root/build-aux/check-available-binaries.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-01-14 18:20:01 +0100
committerLudovic Courtès <ludo@gnu.org>2015-01-14 18:20:01 +0100
commit619c9522b2d6d7c451f90524c3a041c5fb12c28e (patch)
tree2fe297724194a6cc001e92a6a4eb9be470054c57 /build-aux/check-available-binaries.scm
parent58caebf0327aafe6240612f28c339f5a00cd2c92 (diff)
check-available-binaries: Use 'with-store'.
* build-aux/check-available-binaries.scm: Use 'with-store' instead of an explicit 'open-connection'.
Diffstat (limited to 'build-aux/check-available-binaries.scm')
-rw-r--r--build-aux/check-available-binaries.scm48
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))))