diff options
author | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-05-08 02:00:03 +0200 |
---|---|---|
committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-05-08 02:00:01 +0200 |
commit | 9a867c26b0138dcdb5bf79bad4b8a342498db78a (patch) | |
tree | 38ee7ed338448ebd86da6cce69e1bf41b5b85d33 /gnu | |
parent | d798e5b6c1522336438134b1034bb66323ebb3f2 (diff) |
gnu: parted: Use G-expressions & new input style.
* gnu/packages/disk.scm (parted)
[arguments]: Rewrite as G-expressions.
[native-inputs]: Remove input labels.
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/packages/disk.scm | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm index d05737b6c3..2a583c64c1 100644 --- a/gnu/packages/disk.scm +++ b/gnu/packages/disk.scm @@ -246,26 +246,25 @@ tmpfs/ramfs filesystems.") "18h51i3x5cbqhlj5rm23m9sfw63gaaby5czln5w6qpqj3ifdsf29")))) (build-system gnu-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'fix-locales-and-python - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "tests/t0251-gpt-unicode.sh" - (("C.UTF-8") "en_US.utf8")) ;not in Glibc locales - (substitute* "tests/msdos-overlap" - (("/usr/bin/python") (which "python"))) - #t))))) + (list #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'fix-locales-and-python + (lambda _ + (substitute* "tests/t0251-gpt-unicode.sh" + (("C.UTF-8") "en_US.utf8")) ;not in Glibc locales + (substitute* "tests/msdos-overlap" + (("/usr/bin/python") (which "python")))))))) (inputs (list lvm2 readline `(,util-linux "lib"))) (native-inputs - `(("gettext" ,gettext-minimal) + (list gettext-minimal - ;; For the tests. - ("e2fsprogs" ,e2fsprogs) - ("perl" ,perl) - ("python-wrapper" ,python-wrapper) - ("util-linux" ,util-linux))) + ;; For the tests. + e2fsprogs + perl + python-wrapper + util-linux)) (home-page "https://www.gnu.org/software/parted/") (synopsis "Disk partition editor") (description |