From cb491fdcba77f4dea457cd0bcda209f1e5642988 Mon Sep 17 00:00:00 2001 From: Felix Lechner Date: Sat, 21 Sep 2024 12:23:16 +0200 Subject: [PATCH] Rename seconds->string procedure to epoch->date-string. * guix/scripts/system.scm (seconds->string): Rename to epoch->date-string. (profile-boot-parameters)[boot-parameters]: Update as above. Change-Id: I2b9aaa816b3ca84c32f7d6fa690245b149228310 --- guix/scripts/system.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 7000c470ed..cb70d36219 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -328,9 +328,9 @@ (define-syntax-rule (unless-file-not-found exp) #f (apply throw args))))) -(define (seconds->string seconds) - "Return a string representing the date for SECONDS." - (let ((time (make-time time-utc 0 seconds))) +(define (epoch->date-string epoch) + "Return a string representing the date for EPOCH seconds." + (let ((time (make-time time-utc 0 epoch))) (date->string (time-utc->date time) "~Y-~m-~d ~H:~M"))) @@ -348,7 +348,7 @@ (define (system->boot-parameters system number time) (inherit params) (label (string-append label " (#" (number->string number) ", " - (seconds->string time) ")")))))) + (epoch->date-string time) ")")))))) (let* ((systems (map (cut generation-file-name profile <>) numbers)) (times (map (lambda (system)