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

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit 0315abe608007f1fed96cdcae21b6a83902b25e6
Author: Danny Milosavljevic <address@hidden>
Date:   Fri Apr 21 14:37:10 2017 +0200

    scripts: Make boot-parameters label include generation number and time.
    
    * guix/scripts/system.scm (system->boot-parameters): Make label include
    generation number and time.
---
 guix/scripts/system.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 9b77b03..88368f8 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)