[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: gnu: u-boot-pinebook: Fix LCD video output.
From: |
guix-commits |
Subject: |
01/02: gnu: u-boot-pinebook: Fix LCD video output. |
Date: |
Thu, 27 Feb 2020 01:25:07 -0500 (EST) |
vagrantc pushed a commit to branch master
in repository guix.
commit 760dfc67cd37fffea57803d2637468a19c345de6
Author: Vagrant Cascadian <address@hidden>
AuthorDate: Sat Feb 15 07:16:08 2020 +0000
gnu: u-boot-pinebook: Fix LCD video output.
* gnu/packages/bootloaders (u-boot-pinebook): Add phase applying patch
submitted upstream.
---
gnu/packages/bootloaders.scm | 15 ++++++++++++++-
1 file changed, 14 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index 63a88dd..7706479 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -670,7 +670,20 @@ it fits within common partitioning schemes.")
(make-u-boot-sunxi64-package "pine64-lts" "aarch64-linux-gnu"))
(define-public u-boot-pinebook
- (make-u-boot-sunxi64-package "pinebook" "aarch64-linux-gnu"))
+ (let ((base (make-u-boot-sunxi64-package "pinebook" "aarch64-linux-gnu")))
+ (package
+ (inherit base)
+ (arguments
+ (substitute-keyword-arguments (package-arguments base)
+ ((#:phases phases)
+ `(modify-phases ,phases
+ (add-after 'unpack 'patch-pinebook-config
+ ;; Fix regression with LCD video output introduced in 2020.01
+ ;; https://patchwork.ozlabs.org/patch/1225130/
+ (lambda _
+ (substitute* "configs/pinebook_defconfig"
+ (("CONFIG_VIDEO_BRIDGE_ANALOGIX_ANX6345=y")
"CONFIG_VIDEO_BRIDGE_ANALOGIX_ANX6345=y\nCONFIG_VIDEO_BPP32=y"))
+ #t)))))))))
(define-public u-boot-bananapi-m2-ultra
(make-u-boot-package "Bananapi_M2_Ultra" "arm-linux-gnueabihf"))