nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: vm: Clear timestamps on the imported files, like in the store. 

* gnu/system/vm.scm (qemu-image): Clear timestamps on the copied files.
This commit is contained in:
Ludovic Courtès 2013-09-08 22:45:30 +02:00
parent 6bf25b7b05
commit 8ab73e91d6
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/system/vm.scm
View File

@ -75,6 +75,9 @@ DISK-IMAGE-SIZE bytes and return it.
When REFERENCES-GRAPHS is true, it must be a list of file name/store path When REFERENCES-GRAPHS is true, it must be a list of file name/store path
pairs, as for `derivation'. The files containing the reference graphs are pairs, as for `derivation'. The files containing the reference graphs are
made available under the /xchg CIFS share." made available under the /xchg CIFS share."
;; FIXME: Allow use of macros from other modules, as done in
;; `build-expression->derivation'.
(define input-alist (define input-alist
(map (match-lambda (map (match-lambda
((input (? package? package)) ((input (? package? package))
@ -294,6 +297,19 @@ It can be used to provide additional files, such as /etc files."
(primitive-load populate) (primitive-load populate)
(chdir "/"))) (chdir "/")))
(display "clearing file timestamps...\n")
(for-each (lambda (file)
(let ((s (lstat file)))
;; XXX: Guile uses libc's 'utime' function
;; (not 'futime'), so the timestamp of
;; symlinks cannot be changed, and there
;; are symlinks here pointing to
;; /nix/store, which is the host,
;; read-only store.
(unless (eq? (stat:type s) 'symlink)
(utime file 0 0 0 0))))
(find-files "/fs" ".*"))
(and (zero? (and (zero?
(system* grub "--no-floppy" (system* grub "--no-floppy"
"--boot-directory" "/fs/boot" "--boot-directory" "/fs/boot"