diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2017-04-21 14:37:10 +0200 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2017-05-05 15:03:47 +0200 |
| commit | 0315abe608007f1fed96cdcae21b6a83902b25e6 (patch) | |
| tree | 49e616cc9cc4488b48540da9f18ba29ed0c7efa2 | |
| parent | 9530e73b496fefe65dcb936825b6beda79f7fdf2 (diff) | |
| download | guix-0315abe608007f1fed96cdcae21b6a83902b25e6.tar.gz | |
scripts: Make boot-parameters label include generation number and time.
* guix/scripts/system.scm (system->boot-parameters): Make label include generation number and time.
| -rw-r--r-- | guix/scripts/system.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 9b77b03746..88368f8f9e 100644 --- a/guix/scripts/system.scm +++ b/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) |