diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2018-05-12 10:54:19 +0200 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2018-05-12 10:54:19 +0200 |
| commit | 30ef146c996983cdcca7c0d17b2dee2fe31806d4 (patch) | |
| tree | a1a41cf2cfb91da9e2558c84552dd90be1c2ea15 | |
| parent | 53e290df57d284b5d3d4f40d5f0260283ac4cbee (diff) | |
| download | guix-30ef146c996983cdcca7c0d17b2dee2fe31806d4.tar.gz | |
gnu: make-u-boot-package: Sort printed configurations.
* gnu/packages/bootloaders.scm (make-u-boot-package): Sort printed configurations.
| -rw-r--r-- | gnu/packages/bootloaders.scm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm index 3de70e2c66..22b88dd1b9 100644 --- a/gnu/packages/bootloaders.scm +++ b/gnu/packages/bootloaders.scm @@ -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) |