diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-12-26 12:29:44 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-12-26 12:29:44 +0100 |
| commit | 3c45b53ec9025f4b95ec003ff99caa3e6fe506ab (patch) | |
| tree | 8ffbfcf6c5c6a1d55af9eea1f48564713eb48b16 | |
| parent | dedc66ef8ecc91fe753f1e6c23102bfa9d79a808 (diff) | |
gnu: Remove squashfs-tools-next.
* gnu/packages/compression.scm (squashfs-tools-next): Remove variable.
* guix/scripts/pack.scm (squashfs-image, guix-pack): Use squashfs-tools.
* tests/pack.scm: Use squashfs-tools.
| -rw-r--r-- | gnu/packages/compression.scm | 17 | ||||
| -rw-r--r-- | guix/scripts/pack.scm | 4 | ||||
| -rw-r--r-- | tests/pack.scm | 4 |
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 | |||
| 819 | extract such file systems.") | 819 | extract 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 |
| 324 | PROFILE, a derivation. The image contains a subset of /gnu/store, empty mount | 324 | PROFILE, a derivation. The image contains a subset of /gnu/store, empty mount |
| 325 | points for virtual file systems (like procfs), and optional symlinks. | 325 | points 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 |
