02/03: vm: 'system-docker-image' calls 'sync' before rebooting.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 0dc7d298a33f83d5f02a962b5f1bd24ee0e8ef07
Author: Ludovic Courtès <address@hidden>
Date:   Fri Mar 22 22:03:38 2019 +0100

    vm: 'system-docker-image' calls 'sync' before rebooting.
    
    Previously we could end up silently building truncated tarballs.
    
    * gnu/system/vm.scm (system-docker-image)[build]: Add call to 'sync'.
---
 gnu/system/vm.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index b671c74..55cddb1 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -526,7 +526,10 @@ should set REGISTER-CLOSURES? to #f."
                  #$os-drv
                  #:compressor '(#+(file-append gzip "/bin/gzip") "-9n")
                  #:creation-time (make-time time-utc 0 1)
-                 #:transformations `((,root-directory -> ""))))))))
+                 #:transformations `((,root-directory -> "")))
+
+                ;; Make sure the tarball is fully written before rebooting.
+                (sync))))))
     (expression->derivation-in-linux-vm
      name build
      #:make-disk-image? #f