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

17
gnu/packages/bootloaders.scm
View File

@ -393,14 +393,15 @@ also initializes the boards (RAM etc).")
(zero? (apply system* "make" `(,@make-flags ,config-name)))
(begin
(display "Invalid board name. Valid board names are:")
(let ((suffix-len (string-length "_defconfig")))
(scandir "configs"
(lambda (file-name)
(when (string-suffix? "_defconfig" file-name)
(format #t
"- ~A\n"
(string-drop-right file-name
suffix-len))))))
(let ((suffix-len (string-length "_defconfig"))
(entries (scandir "configs")))
(for-each (lambda (file-name)
(when (string-suffix? "_defconfig" file-name)
(format #t
"- ~A\n"
(string-drop-right file-name
suffix-len))))
(sort entries string<)))
#f)))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)