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

* guix/scripts/substitute-binary.scm (guix-substitute-binary)["--query"]:
  Emit blank lines only after the complete list of store paths has been
  returned.

1 files changed, 6 insertions, 6 deletions

diff --git a/guix/scripts/substitute-binary.scm b/guix/scripts/substitute-binary.scm
index 6e886b6c96..389acab094 100755
--- a/guix/scripts/substitute-binary.scm
+++ b/guix/scripts/substitute-binary.scm
@@ -191,9 +191,9 @@ failure."
                              '())))
                     (for-each (lambda (narinfo)
                                 (when narinfo
-                                  (display (narinfo-path narinfo))
-                                  (newline)))
-                              substitutable)))
+                                  (format #t "~a~%" (narinfo-path narinfo))))
+                              substitutable)
+                    (newline)))
                  (("info" paths ..1)
                   ;; Reply info about PATHS if it's in CACHE.
                   (let ((substitutable
@@ -215,9 +215,9 @@ failure."
                                           (narinfo-references narinfo))
                                 (format #t "~a\n~a\n"
                                         (or (narinfo-file-size narinfo) 0)
-                                        (or (narinfo-size narinfo) 0))
-                                (newline))
-                              substitutable)))
+                                        (or (narinfo-size narinfo) 0)))
+                              substitutable)
+                    (newline)))
                  (wtf
                   (error "unknown `--query' command" wtf)))
                (loop (read-line)))))))