me
/
guix
Archived
1
0
Fork 0
Code

gnu: make-u-boot-package: Sort printed configurations. 

* gnu/packages/bootloaders.scm (make-u-boot-package): Sort printed
configurations.
master
Danny Milosavljevic 2018-05-12 10:54:19 +02:00
parent 53e290df57
commit 30ef146c99
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/packages/bootloaders.scm
View File

@ -393,14 +393,15 @@ also initializes the boards (RAM etc).")
(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:")
(let ((suffix-len (string-length "_defconfig"))) (let ((suffix-len (string-length "_defconfig"))
(scandir "configs" (entries (scandir "configs")))
(lambda (file-name) (for-each (lambda (file-name)
(when (string-suffix? "_defconfig" file-name) (when (string-suffix? "_defconfig" file-name)
(format #t (format #t
"- ~A\n" "- ~A\n"
(string-drop-right file-name (string-drop-right file-name
suffix-len)))))) suffix-len))))
(sort entries string<)))
#f))))) #f)))))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)