ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rename seconds->string procedure to epoch->date-string.

Browse source 
* guix/scripts/system.scm (seconds->string): Rename to
  epoch->date-string.
  (profile-boot-parameters)[boot-parameters]: Update as above.

Change-Id: I2b9aaa816b3ca84c32f7d6fa690245b149228310
This commit is contained in:
Felix Lechner 2024-09-21 12:23:16 +02:00 committed by Ryan Schanzenbacher
parent b452d525d6
commit cb491fdcba
Signed by: ryan77627
GPG key ID: 81B0E222A3E2308E
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/scripts/system.scm
View file

@ -328,9 +328,9 @@ (define-syntax-rule (unless-file-not-found exp)
#f #f
(apply throw args))))) (apply throw args)))))
(define (seconds->string seconds) (define (epoch->date-string epoch)
"Return a string representing the date for SECONDS." "Return a string representing the date for EPOCH seconds."
(let ((time (make-time time-utc 0 seconds))) (let ((time (make-time time-utc 0 epoch)))
(date->string (time-utc->date time) (date->string (time-utc->date time)
"~Y-~m-~d ~H:~M"))) "~Y-~m-~d ~H:~M")))
@ -348,7 +348,7 @@ (define (system->boot-parameters system number time)
(inherit params) (inherit params)
(label (string-append label " (#" (label (string-append label " (#"
(number->string number) ", " (number->string number) ", "
(seconds->string time) ")")))))) (epoch->date-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)