Skip to content
Snippets Groups Projects
Unverified Commit ac30d18c authored by Danny Milosavljevic's avatar Danny Milosavljevic
Browse files

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).
parent 30ef146c
No related branches found
No related tags found
No related merge requests found
......@@ -392,12 +392,13 @@ (define (make-u-boot-package board triplet)
(if (file-exists? (string-append "configs/" config-name))
(zero? (apply system* "make" `(,@make-flags ,config-name)))
(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"))
(entries (scandir "configs")))
(for-each (lambda (file-name)
(when (string-suffix? "_defconfig" file-name)
(format #t
(format (current-error-port)
"- ~A\n"
(string-drop-right file-name
suffix-len))))
......@@ -473,6 +474,9 @@ (define-public u-boot-mx6cuboxi
(define-public u-boot-novena
(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
(package
(name "vboot-utils")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment