nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: make-u-boot-package: Print errors to (current-error-port). 

* gnu/packages/bootloaders.scm (make-u-boot-package): Print errors to
(current-error-port).
This commit is contained in:
Danny Milosavljevic 2018-05-12 10:56:25 +02:00
parent 30ef146c99
commit ac30d18c0b
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/packages/bootloaders.scm
View File

@ -392,12 +392,13 @@ also initializes the boards (RAM etc).")
(if (file-exists? (string-append "configs/" config-name)) (if (file-exists? (string-append "configs/" config-name))
(zero? (apply system* "make" `(,@make-flags ,config-name))) (zero? (apply system* "make" `(,@make-flags ,config-name)))
(begin (begin
(display "Invalid board name. Valid board names are:") (display "Invalid board name. Valid board names are:"
(current-error-port))
(let ((suffix-len (string-length "_defconfig")) (let ((suffix-len (string-length "_defconfig"))
(entries (scandir "configs"))) (entries (scandir "configs")))
(for-each (lambda (file-name) (for-each (lambda (file-name)
(when (string-suffix? "_defconfig" file-name) (when (string-suffix? "_defconfig" file-name)
(format #t (format (current-error-port)
"- ~A\n" "- ~A\n"
(string-drop-right file-name (string-drop-right file-name
suffix-len)))) suffix-len))))
@ -473,6 +474,9 @@ also initializes the boards (RAM etc).")
(define-public u-boot-novena (define-public u-boot-novena
(make-u-boot-package "novena" "arm-linux-gnueabihf")) (make-u-boot-package "novena" "arm-linux-gnueabihf"))
(define-public u-boot-versatilepb
(make-u-boot-package "vesx" "arm-linux-gnueabihf"))
(define-public vboot-utils (define-public vboot-utils
(package (package
(name "vboot-utils") (name "vboot-utils")