summary refs log tree commit diff
path: root/build-aux
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
parent58caebf0327aafe6240612f28c339f5a00cd2c92 (diff)
downloadguix-619c9522b2d6d7c451f90524c3a041c5fb12c28e.tar.gz
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')
-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))))