me
/
guix
Archived
1
0
Fork 0

gnu: parted: Support building for the Hurd.

* gnu/packages/disk.scm (parted)[inputs]: Remove lvm2, add hurd-minimal
when building for the Hurd.
[arguments]: Add configure-flag '--disable-device-mapper' when building for
the Hurd.

Signed-off-by: Josselin Poiret <dev@jpoiret.xyz>
Janneke Nieuwenhuizen 2023-05-23 14:29:21 +02:00 committed by Josselin Poiret
parent c8799fafa4
commit 451b2db3df
No known key found for this signature in database
GPG Key ID: 505E40B916171A8A
1 changed files with 19 additions and 11 deletions

View File

@ -4,7 +4,7 @@
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 20182022 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016, 20182022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016 Roel Janssen <roel@gnu.org> ;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
;;; Copyright © 2016, 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2016, 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
@ -69,6 +69,7 @@
#:use-module (gnu packages graphics) #:use-module (gnu packages graphics)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages hurd)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
@ -254,17 +255,24 @@ tmpfs/ramfs filesystems.")
"18h51i3x5cbqhlj5rm23m9sfw63gaaby5czln5w6qpqj3ifdsf29")))) "18h51i3x5cbqhlj5rm23m9sfw63gaaby5czln5w6qpqj3ifdsf29"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list #:phases (list
#~(modify-phases %standard-phases #:configure-flags (if (target-hurd?)
(add-after 'unpack 'fix-locales-and-python #~'("--disable-device-mapper")
(lambda _ #~'())
(substitute* "tests/t0251-gpt-unicode.sh" #:phases
(("C.UTF-8") "en_US.utf8")) ;not in Glibc locales #~(modify-phases %standard-phases
(substitute* "tests/msdos-overlap" (add-after 'unpack 'fix-locales-and-python
(("/usr/bin/python") (which "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 (inputs
(list lvm2 readline `(,@(if (target-hurd?)
`(,util-linux "lib"))) (list hurd-minimal)
(list lvm2))
,readline
(,util-linux "lib")))
(native-inputs (native-inputs
(list gettext-minimal (list gettext-minimal