From 0da3526d583b56a9560369ec4d426b45126457d2 Mon Sep 17 00:00:00 2001 From: Vagrant Cascadian Date: Mon, 19 Nov 2018 21:04:48 -0800 Subject: 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 --- 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 3e4c8bb0bc..328e834bc2 100644 --- a/gnu/packages/bootloaders.scm +++ b/gnu/packages/bootloaders.scm @@ -554,8 +554,8 @@ (define-public u-boot-malta (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 @@ (define-public u-boot-pine64-plus `(("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")) -- cgit v1.2.3