ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-27 13:09:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* guix/scripts/system.scm (system->boot-parameters): Make label include
generation number and time.
This commit is contained in:
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 @@ (define* (profile-boot-parameters #:optional (profile %system-profile)
NUMBERS, which is a list of generation numbers." NUMBERS, which is a list of generation numbers."
(define (system->boot-parameters system number time) (define (system->boot-parameters system number time)
(unless-file-not-found (unless-file-not-found
(let* ((params (read-boot-parameters-file system))) (let* ((params (read-boot-parameters-file system))
params))) (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 <>) (let* ((systems (map (cut generation-file-name profile <>)
numbers)) numbers))
(times (map (lambda (system) (times (map (lambda (system)