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
parent
commit
0315abe608
No known key found for this signature in database GPG Key ID: E71A35542C30BAA5
  1. 9
      guix/scripts/system.scm

9
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)

Loading…
Cancel
Save