diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2018-05-12 10:56:25 +0200 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2018-05-12 10:56:25 +0200 |
| commit | ac30d18c0ba668a91547c97b3637dfd9caabbd37 (patch) | |
| tree | d3a22dec3606ebe2e920e011260b355da1e0cbd8 | |
| parent | 30ef146c996983cdcca7c0d17b2dee2fe31806d4 (diff) | |
| download | guix-ac30d18c0ba668a91547c97b3637dfd9caabbd37.tar guix-ac30d18c0ba668a91547c97b3637dfd9caabbd37.tar.gz | |
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).
| -rw-r--r-- | gnu/packages/bootloaders.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm index 22b88dd1b9..ff9078b9f7 100644 --- a/gnu/packages/bootloaders.scm +++ b/gnu/packages/bootloaders.scm @@ -392,12 +392,13 @@ also initializes the boards (RAM etc).") (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 @@ also initializes the boards (RAM etc).") (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") |