branch master updated: gnu: grub-minimal: Fix cross-compilation.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

civodul pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 097b725  gnu: grub-minimal: Fix cross-compilation.
097b725 is described below

commit 097b7255329b9222efb29fe99d9bf71bfae7d1d8
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Nov 24 10:17:28 2020 +0100

    gnu: grub-minimal: Fix cross-compilation.
    
    Fixes a regression introduced in
    34a6f123514b5677d442ed7cd609ff01534904b8 that would break
    cross-compilation of 'grub-minimal' because it would enable Freetype
    support as a side effect but the 'set-freetype-variables' phase was not
    inherited in 'grub-minimal'.
    
    * gnu/packages/bootloaders.scm (grub-minimal)[arguments]: Use
    'substitute-keyword-arguments' so that the 'set-freetype-variables'
    phase is inherited.
---
 gnu/packages/bootloaders.scm | 30 +++++++++++++++++-------------
 1 file changed, 17 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index 2e97099..75ae8d9 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -258,21 +258,25 @@ menu to select one of the installed operating systems.")
      (fold alist-delete (package-native-inputs grub)
            '("help2man" "texinfo" "parted" "qemu" "xorriso")))
     (arguments
-     `(#:configure-flags (list "PYTHON=true")
-       #:phases (modify-phases %standard-phases
-                  (add-after 'unpack 'patch-stuff
-                   (lambda* (#:key native-inputs inputs #:allow-other-keys)
-                     (substitute* "grub-core/Makefile.in"
-                       (("/bin/sh") (which "sh")))
+     (substitute-keyword-arguments (package-arguments grub)
+       ((#:configure-flags _ ''())
+        '(list "PYTHON=true"))
+       ((#:tests? _ #t)
+        #f)
+       ((#:phases phases '%standard-phases)
+        `(modify-phases ,phases
+           (replace 'patch-stuff
+             (lambda* (#:key native-inputs inputs #:allow-other-keys)
+               (substitute* "grub-core/Makefile.in"
+                 (("/bin/sh") (which "sh")))
 
-                     ;; Make the font visible.
-                     (copy-file (assoc-ref (or native-inputs inputs)
-                                           "unifont")
-                                "unifont.bdf.gz")
-                     (system* "gunzip" "unifont.bdf.gz")
+               ;; Make the font visible.
+               (copy-file (assoc-ref (or native-inputs inputs)
+                                     "unifont")
+                          "unifont.bdf.gz")
+               (system* "gunzip" "unifont.bdf.gz")
 
-                     #t)))
-       #:tests? #f))))
+               #t))))))))
 
 (define-public grub-efi
   (package