ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-27 04:59:27 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

substitute-binary: Fix communication of several store paths to the daemon.

Browse source 
* guix/scripts/substitute-binary.scm (guix-substitute-binary)["--query"]:
  Emit blank lines only after the complete list of store paths has been
  returned.
This commit is contained in:
Ludovic Courtès 2013-04-04 21:47:55 +02:00
parent f65cf81a3c
commit 462f8e9f33
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
guix/scripts/substitute-binary.scm
View file

@ -191,9 +191,9 @@ (define (guix-substitute-binary . args)
'()))) '())))
(for-each (lambda (narinfo) (for-each (lambda (narinfo)
(when narinfo (when narinfo
(display (narinfo-path narinfo)) (format #t "~a~%" (narinfo-path narinfo))))
(newline))) substitutable)
substitutable))) (newline)))
(("info" paths ..1) (("info" paths ..1)
;; Reply info about PATHS if it's in CACHE. ;; Reply info about PATHS if it's in CACHE.
(let ((substitutable (let ((substitutable
@ -215,9 +215,9 @@ (define (guix-substitute-binary . args)
(narinfo-references narinfo)) (narinfo-references narinfo))
(format #t "~a\n~a\n" (format #t "~a\n~a\n"
(or (narinfo-file-size narinfo) 0) (or (narinfo-file-size narinfo) 0)
(or (narinfo-size narinfo) 0)) (or (narinfo-size narinfo) 0)))
(newline)) substitutable)
substitutable))) (newline)))
(wtf (wtf
(error "unknown `--query' command" wtf))) (error "unknown `--query' command" wtf)))
(loop (read-line))))))) (loop (read-line)))))))