Browse Source
scripts: Make boot-parameters label include generation number and time.
* guix/scripts/system.scm (system->boot-parameters): Make label include
generation number and time.
version-0.13.0
Danny Milosavljevic
5 years ago
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with
7 additions and
2 deletions
-
guix/scripts/system.scm
|
|
|
@ -369,8 +369,13 @@ it atomically, and then run OS's activation script." |
|
|
|
NUMBERS, which is a list of generation numbers." |
|
|
|
(define (system->boot-parameters system number time) |
|
|
|
(unless-file-not-found |
|
|
|
(let* ((params (read-boot-parameters-file system))) |
|
|
|
params))) |
|
|
|
(let* ((params (read-boot-parameters-file system)) |
|
|
|
(label (boot-parameters-label params))) |
|
|
|
(boot-parameters |
|
|
|
(inherit params) |
|
|
|
(label (string-append label " (#" |
|
|
|
(number->string number) ", " |
|
|
|
(seconds->string time) ")")))))) |
|
|
|
(let* ((systems (map (cut generation-file-name profile <>) |
|
|
|
numbers)) |
|
|
|
(times (map (lambda (system) |
|
|
|
|
