me/guix
Archived
1
0
Fork 0
Code Activity

gnu: gptfdisk: Update to 1.0.5.

Browse source 
* gnu/packages/disk.scm (gptfdisk): Update to 1.0.5.
[source]: Hard-code NAME.
[arguments]: Add ‘fix-include-directory’ phase.
This commit is contained in:
Tobias Geerinckx-Rice 2020-03-03 04:03:47 +01:00
parent 0e08ca1454
commit 848be51c88
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/disk.scm
View file

@ -161,29 +161,32 @@ tables, and it understands a variety of different formats.")
(define-public gptfdisk (define-public gptfdisk
(package (package
(name "gptfdisk") (name "gptfdisk")
(version "1.0.4") (version "1.0.5")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/gptfdisk/gptfdisk/" (uri (string-append "mirror://sourceforge/gptfdisk/gptfdisk/"
version "/" name "-" version ".tar.gz")) version "/gptfdisk-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32 "0bybgp30pqxb6x5krxazkq4drca0gz4inxj89fpyr204rn3kjz8f"))))
"13d7gff4prl1nsdknjigmb7bbqhn79165n01v4y9mwbnd0d3jqxn"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("gettext" ,gettext-minimal) `(("gettext" ,gettext-minimal)
("ncurses" ,ncurses) ("ncurses" ,ncurses)
("popt" ,popt) ("popt" ,popt)
("util-linux" ,util-linux))) ; libuuid ("util-linux" ,util-linux))) ; libuuid
(arguments (arguments
`(#:test-target "test" `(#:test-target "test"
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
;; no configure script (add-after 'unpack 'fix-include-directory
(delete 'configure) (lambda _
;; no install target (substitute* "gptcurses.cc"
(("ncursesw/ncurses.h") "ncurses.h"))
#t))
(delete 'configure) ; no configure script
(replace 'install (replace 'install
;; There's no ‘make install’ target.
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")) (bin (string-append out "/bin"))