nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

check-available-binaries: Use 'with-store'. 

* build-aux/check-available-binaries.scm: Use 'with-store' instead of an
  explicit 'open-connection'.
This commit is contained in:
Ludovic Courtès 2015-01-14 18:20:01 +01:00
parent 58caebf032
commit 619c9522b2
1 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
build-aux/check-available-binaries.scm
View File

@ -28,8 +28,8 @@
(srfi srfi-1) (srfi srfi-1)
(srfi srfi-26)) (srfi srfi-26))
(let* ((store (open-connection)) (with-store store
(native (append-map (lambda (system) (let* ((native (append-map (lambda (system)
(map (cut package-derivation store <> system) (map (cut package-derivation store <> system)
(list %bootstrap-tarballs emacs))) (list %bootstrap-tarballs emacs)))
%supported-systems)) %supported-systems))
@ -52,4 +52,4 @@
(when result (when result
(format (current-error-port) "~a packages found substitutable~%" (format (current-error-port) "~a packages found substitutable~%"
(length total))) (length total)))
(exit result))) (exit result))))