guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Mark H. Weaver
Subject: 08/17: gnu: grub: Use modify-phases and other minor cleanups.
Date: Fri, 28 Aug 2015 15:56:05 +0000

mhw pushed a commit to branch wip-loongson2f
in repository guix.

commit 6bdcc9ada1341635f3273c853510bb4ed364f8c1
Author: Mark H Weaver <address@hidden>
Date:   Sat Aug 15 01:22:06 2015 -0400

    gnu: grub: Use modify-phases and other minor cleanups.
    
    * 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.
---
 gnu/packages/grub.scm |   28 ++++++++++++++++------------
 1 files changed, 16 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/grub.scm b/gnu/packages/grub.scm
index b1da394..4a7dca8 100644
--- a/gnu/packages/grub.scm
+++ b/gnu/packages/grub.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2013, 2014 Ludovic Courtès <address@hidden>
+;;; Copyright © 2015 Mark H Weaver <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -84,25 +85,28 @@
     (build-system gnu-build-system)
     (arguments
      '(#:configure-flags '("--disable-werror")
-       #:phases (alist-cons-before
-                 'patch-source-shebangs 'patch-stuff
-                 (lambda* (#:key inputs #:allow-other-keys)
-                   (substitute* "grub-core/Makefile.in"
-                     (("/bin/sh") (which "sh")))
+       #:phases (modify-phases %standard-phases
+                  (add-after
+                   'unpack 'patch-stuff
+                   (lambda* (#:key inputs #:allow-other-keys)
+                     (substitute* "grub-core/Makefile.in"
+                       (("/bin/sh") (which "sh")))
 
-                   ;; Make the font visible.
-                   (copy-file (assoc-ref inputs "unifont") "unifont.bdf.gz")
-                   (system* "gunzip" "unifont.bdf.gz")
+                     ;; Make the font visible.
+                     (copy-file (assoc-ref inputs "unifont") "unifont.bdf.gz")
+                     (system* "gunzip" "unifont.bdf.gz")
 
-                   ;; TODO: Re-enable this test when we have Parted.
-                   (substitute* "tests/partmap_test.in"
-                     (("set -e") "exit 77")))
-                 %standard-phases)))
+                     ;; TODO: Re-enable this test when we have Parted.
+                     (substitute* "tests/partmap_test.in"
+                       (("set -e") "exit 77"))
+
+                     #t)))))
     (inputs
      `(;; ("lvm2" ,lvm2)
        ("gettext" ,gnu-gettext)
        ("freetype" ,freetype)
        ;; ("libusb" ,libusb)
+       ;; ("fuse" ,fuse)
        ("ncurses" ,ncurses)))
     (native-inputs
      `(("unifont" ,unifont)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]