ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: parted: Update to 3.2.

Browse source 
* gnu/packages/disk.scm (parted): Update to 3.2.
[inputs]: Add lvm2 and remove check.  Replace readline-6.2 with its
latest version.
[native-inputs]: Add perl and python for the tests.
[arguments]: Use `modify-phases' and adapt to the new tests.
[home-page]: Use https.
This commit is contained in:
Mathieu Lirzin 2015-11-21 01:07:03 +01:00
parent 06da1a6b4f
commit 1b933e62dc
1 changed files with 28 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/packages/disk.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2015 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;;
;;; This file is part of GNU Guix.
@ -22,9 +23,10 @@ (define-module (gnu packages disk)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (gnu packages check)
#:use-module (gnu packages gettext)
#:use-module (gnu packages linux)
#:use-module (gnu packages perl)
#:use-module (gnu packages python)
#:use-module (gnu packages readline)
#:use-module (gnu packages guile)
#:use-module ((gnu packages compression)
@ -33,39 +35,35 @@ (define-module (gnu packages disk)
(define-public parted
(package
(name "parted")
(version "3.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnu/parted/parted-"
version ".tar.xz"))
(sha256
(base32
"05fa4m1bky9d13hqv91jlnngzlyn7y4rnnyq6d86w0dg3vww372y"))))
(version "3.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/parted/parted-"
version ".tar.xz"))
(sha256
(base32
"1r3qpg3bhz37mgvp9chsaa3k0csby3vayfvz8ggsqz194af5i2w5"))))
(build-system gnu-build-system)
(arguments `(#:configure-flags '("--disable-device-mapper")
#:phases (alist-cons-before
'configure 'fix-mkswap
(lambda* (#:key inputs #:allow-other-keys)
(let ((util-linux (assoc-ref inputs
"util-linux")))
(substitute*
"tests/t9050-partition-table-types.sh"
(("mkswap")
(string-append util-linux "/sbin/mkswap")))))
%standard-phases)))
(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"))))))))
(inputs
;; XXX: add 'lvm2'.
`(("check" ,check)
;; With Readline 6.3, parted/ui.c fails to build because it uses the
;; now undefined 'CPPFunction' type.
("readline" ,readline-6.2)
`(("lvm2" ,lvm2)
("readline" ,readline)
("util-linux" ,util-linux)))
(native-inputs
`(("gettext" ,gnu-gettext)))
(home-page "http://www.gnu.org/software/parted/")
`(("gettext" ,gnu-gettext)
;; For the tests.
("perl" ,perl)
("python" ,python-2)))
(home-page "https://www.gnu.org/software/parted/")
(synopsis "Disk partition editor")
(description
"GNU Parted is a package for creating and manipulating disk partition