04/06: pack: Make bit-reproducible squashfs images.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit b829864d747b3b24ef37cafe36e889527b060d4d
Author: Ludovic Courtès <address@hidden>
AuthorDate: Fri Mar 13 13:02:01 2020 +0100

    pack: Make bit-reproducible squashfs images.
    
    Reported by Josh Marshall <address@hidden>.
    
    * 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(-)

diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 70239b6..414e2d4 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"))