nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: parted: Update to 3.2. 

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