From 000bbe02e21353f30c915d5b88f2de316d3634a1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 18 Sep 2018 21:37:23 +0200
Subject: 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.
---
 guix/store.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'guix/store.scm')

diff --git a/guix/store.scm b/guix/store.scm
index cc5dcef247..f88cdefe87 100644
--- 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)))
-- 
cgit v1.2.3