store: Add another missing buffer flush.

This is a followup to 3809824199cdd52446176c9cd4761dd09f732542.

* guix/store.scm (add-file-tree-to-store): Add 'write-buffered-output'
call.

diff --git a/guix/store.scm b/guix/store.scm
index cc5dcef..f88cdef 100644 (file)
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -1044,6 +1044,7 @@ an arbitrary directory layout in the store without creating a derivation."
                            #:file-port file-port
                            #:symlink-target symlink-target
                            #:directory-entries directory-entries)
+          (write-buffered-output server)
           (let loop ((done? (process-stderr server)))
             (or done? (loop (process-stderr server))))
           (let ((result (read-store-path port)))