summary refs log tree commit diff
diff options
context:
space:
mode:
authorVagrant Cascadian <vagrant@debian.org>2018-11-19 21:04:48 -0800
committerDanny Milosavljevic <dannym@scratchpost.org>2018-11-20 23:39:41 +0100
commit0da3526d583b56a9560369ec4d426b45126457d2 (patch)
tree2f6781a45bece5522ac5ea6a6c225f9dc130a38a
parent95d91986064ef2b03d8c55286e47d2a2280db152 (diff)
downloadguix-0da3526d583b56a9560369ec4d426b45126457d2.tar.gz
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 <dannym@scratchpost.org>
-rw-r--r--gnu/packages/bootloaders.scm7
1 files 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 @@ 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"))