me
/
guix
Archived
1
0
Fork 0
Code

scripts: Make boot-parameters label include generation number and time. 

* guix/scripts/system.scm (system->boot-parameters): Make label include
generation number and time.
master
Danny Milosavljevic 2017-04-21 14:37:10 +02:00
parent 9530e73b49
commit 0315abe608
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/scripts/system.scm
View File

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