me/guix
Archived
1
0
Fork 0
Code Activity

gnu: grub: Use modify-phases and other minor cleanups.

Browse source 
* gnu/packages/grub.scm (grub)[arguments]: Use modify-phases.  Return #t from
  'patch-stuff' phase.  Add 'patch-stuff' phase after 'unpack' instead of
  before 'patch-source-shebangs'.
  [inputs]: Add comment noting that 'fuse' would be a desirable input.
This commit is contained in:
Mark H Weaver 2015-08-15 01:22:06 -04:00 • committed by Ludovic Courtès
parent 0431ed00e4
commit 04e0eac1ed
1 changed files with 16 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/grub.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -84,8 +85,9 @@
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:configure-flags '("--disable-werror") '(#:configure-flags '("--disable-werror")
#:phases (alist-cons-before #:phases (modify-phases %standard-phases
'patch-source-shebangs 'patch-stuff (add-after
'unpack 'patch-stuff
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "grub-core/Makefile.in" (substitute* "grub-core/Makefile.in"
(("/bin/sh") (which "sh"))) (("/bin/sh") (which "sh")))
@ -96,13 +98,15 @@
;; TODO: Re-enable this test when we have Parted. ;; TODO: Re-enable this test when we have Parted.
(substitute* "tests/partmap_test.in" (substitute* "tests/partmap_test.in"
(("set -e") "exit 77"))) (("set -e") "exit 77"))
%standard-phases)))
#t)))))
(inputs (inputs
`(;; ("lvm2" ,lvm2) `(;; ("lvm2" ,lvm2)
("gettext" ,gnu-gettext) ("gettext" ,gnu-gettext)
("freetype" ,freetype) ("freetype" ,freetype)
;; ("libusb" ,libusb) ;; ("libusb" ,libusb)
;; ("fuse" ,fuse)
("ncurses" ,ncurses))) ("ncurses" ,ncurses)))
(native-inputs (native-inputs
`(("unifont" ,unifont) `(("unifont" ,unifont)