03/03: gnu: u-boot-pine64-plus: Refactor package definition.

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit 0da3526d583b56a9560369ec4d426b45126457d2
Author: Vagrant Cascadian <address@hidden>
Date:   Mon Nov 19 21:04:48 2018 -0800

    gnu: u-boot-pine64-plus: Refactor package definition.
    
    * gnu/packages/bootloaders.scm (make-u-boot-sunxi64-package): New procedure.
    (u-boot-pine64-plus): Use it.
    
    Signed-off-by: Danny Milosavljevic <address@hidden>
---
 gnu/packages/bootloaders.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index 3e4c8bb..328e834 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -554,8 +554,8 @@ board-independent tools.")))
 (define-public u-boot-beagle-bone-black
   (make-u-boot-package "am335x_boneblack" "arm-linux-gnueabihf"))
 
-(define-public u-boot-pine64-plus
-  (let ((base (make-u-boot-package "pine64_plus" "aarch64-linux-gnu")))
+(define-public (make-u-boot-sunxi64-package board triplet)
+  (let ((base (make-u-boot-package board triplet)))
     (package
       (inherit base)
       (arguments
@@ -576,6 +576,9 @@ board-independent tools.")))
        `(("firmware" ,arm-trusted-firmware-sun50i-a64)
          ,@(package-native-inputs base))))))
 
+(define-public u-boot-pine64-plus
+  (make-u-boot-sunxi64-package "pine64_plus" "aarch64-linux-gnu"))
+
 (define-public u-boot-bananapi-m2-ultra
   (make-u-boot-package "Bananapi_M2_Ultra" "arm-linux-gnueabihf"))