From b829864d747b3b24ef37cafe36e889527b060d4d Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 13 Mar 2020 13:02:01 +0100 Subject: pack: Make bit-reproducible squashfs images. Reported by Josh Marshall . * guix/scripts/pack.scm (squashfs-image)[build](mksquashfs): Always pass "-all-time", "-mkfs-time", "-force-uid", and "-force-gid" to 'mksquashfs'. --- guix/scripts/pack.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'guix/scripts/pack.scm') diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm index 70239b64de..414e2d45f3 100644 --- a/guix/scripts/pack.scm +++ b/guix/scripts/pack.scm @@ -366,7 +366,15 @@ added to the pack." (define entry-point #$entry-point) (define (mksquashfs args) - (apply invoke "mksquashfs" args)) + (apply invoke "mksquashfs" + `(,@args + + ;; Set file times and the file system creation time to + ;; one second after the Epoch. + "-all-time" "1" "-mkfs-time" "1" + + ;; Reset all UIDs and GIDs. + "-force-uid" "0" "-force-gid" "0"))) (setenv "PATH" (string-append #$archiver "/bin")) -- cgit v1.2.3