[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: gnu: u-boot-pine64-plus: Refactor package definition.
From: |
Danny Milosavljevic |
Subject: |
03/03: gnu: u-boot-pine64-plus: Refactor package definition. |
Date: |
Tue, 20 Nov 2018 17:54:35 -0500 (EST) |
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"))