gnu: iproute: Use 'modify-phases'.

* gnu/packages/linux.scm (iproute)[arguments]: Use 'modify-phases'.
This commit is contained in:
Alex Kost 2016-02-11 13:49:16 +03:00
parent a42d99f284
commit b53e44fb4e

View file

@ -8,6 +8,7 @@
;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org> ;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
;;; Copyright © 2016 Tobias Geerinckx-Rice <tobias.geerinckx.rice@gmail.com> ;;; Copyright © 2016 Tobias Geerinckx-Rice <tobias.geerinckx.rice@gmail.com>
;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -888,13 +889,12 @@ (define-public iproute
(string-append "DOCDIR=" out "/share/doc/" (string-append "DOCDIR=" out "/share/doc/"
,name "-" ,version) ,name "-" ,version)
(string-append "MANDIR=" out "/share/man"))) (string-append "MANDIR=" out "/share/man")))
#:phases (alist-cons-before #:phases (modify-phases %standard-phases
'install 'pre-install (add-before 'install 'pre-install
(lambda _ (lambda _
;; Don't attempt to create /var/lib/arpd. ;; Don't attempt to create /var/lib/arpd.
(substitute* "Makefile" (substitute* "Makefile"
(("^.*ARPDDIR.*$") ""))) (("^.*ARPDDIR.*$") "")))))))
%standard-phases)))
(inputs (inputs
`(("iptables" ,iptables) `(("iptables" ,iptables)
("db4" ,bdb))) ("db4" ,bdb)))