summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/packages/compression.scm17
-rw-r--r--guix/scripts/pack.scm4
-rw-r--r--tests/pack.scm4
3 files changed, 4 insertions, 21 deletions
diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm
index 02e4e324b91..cf23e88547b 100644
--- a/gnu/packages/compression.scm
+++ b/gnu/packages/compression.scm
@@ -819,23 +819,6 @@ systems where low overhead is needed. This package allows you to create and
819extract such file systems.") 819extract such file systems.")
820 (license license:gpl2+))) 820 (license license:gpl2+)))
821 821
822;; We need this for building squashfs images with symlinks.
823(define-public squashfs-tools-next
824 (let ((commit "fb33dfc32b131a1162dcf0e35bd88254ae10e265")
825 (revision "1"))
826 (package (inherit squashfs-tools)
827 (name "squashfs-tools-next")
828 (version (string-append "4.3-" revision (string-take commit 7)))
829 (source (origin
830 (method git-fetch)
831 (uri (git-reference
832 (url "https://github.com/plougher/squashfs-tools.git")
833 (commit commit)))
834 (file-name (git-file-name name version))
835 (sha256
836 (base32
837 "1x2skf8hxzfch978nzx5mh46d4hhi6gl22270hiarjszsjk3bnsx")))))))
838
839(define-public pigz 822(define-public pigz
840 (package 823 (package
841 (name "pigz") 824 (name "pigz")
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index bbacc93bc0d..9676d285656 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -319,7 +319,7 @@ to the search paths of PROFILE."
319 entry-point 319 entry-point
320 localstatedir? 320 localstatedir?
321 (symlinks '()) 321 (symlinks '())
322 (archiver squashfs-tools-next)) 322 (archiver squashfs-tools))
323 "Return a squashfs image containing a store initialized with the closure of 323 "Return a squashfs image containing a store initialized with the closure of
324PROFILE, a derivation. The image contains a subset of /gnu/store, empty mount 324PROFILE, a derivation. The image contains a subset of /gnu/store, empty mount
325points for virtual file systems (like procfs), and optional symlinks. 325points for virtual file systems (like procfs), and optional symlinks.
@@ -1045,7 +1045,7 @@ Create a bundle of PACKAGE.\n"))
1045 bootstrap-xz 1045 bootstrap-xz
1046 (assoc-ref opts 'compressor))) 1046 (assoc-ref opts 'compressor)))
1047 (archiver (if (equal? pack-format 'squashfs) 1047 (archiver (if (equal? pack-format 'squashfs)
1048 squashfs-tools-next 1048 squashfs-tools
1049 (if bootstrap? 1049 (if bootstrap?
1050 %bootstrap-coreutils&co 1050 %bootstrap-coreutils&co
1051 tar))) 1051 tar)))
diff --git a/tests/pack.scm b/tests/pack.scm
index 71ff5aec181..0c1406e6874 100644
--- a/tests/pack.scm
+++ b/tests/pack.scm
@@ -28,7 +28,7 @@
28 #:use-module (guix tests) 28 #:use-module (guix tests)
29 #:use-module (guix gexp) 29 #:use-module (guix gexp)
30 #:use-module (gnu packages bootstrap) 30 #:use-module (gnu packages bootstrap)
31 #:use-module ((gnu packages compression) #:select (squashfs-tools-next)) 31 #:use-module ((gnu packages compression) #:select (squashfs-tools))
32 #:use-module (srfi srfi-64)) 32 #:use-module (srfi srfi-64))
33 33
34(define %store 34(define %store
@@ -199,7 +199,7 @@
199 (string-append "." #$profile "/bin")) 199 (string-append "." #$profile "/bin"))
200 200
201 (setenv "PATH" 201 (setenv "PATH"
202 (string-append #$squashfs-tools-next "/bin")) 202 (string-append #$squashfs-tools "/bin"))
203 (invoke "unsquashfs" #$image) 203 (invoke "unsquashfs" #$image)
204 (with-directory-excursion "squashfs-root" 204 (with-directory-excursion "squashfs-root"
205 (when (and (file-exists? (string-append bin 205 (when (and (file-exists? (string-append bin