diff options
Diffstat (limited to 'gnu/installer/utils.scm')
| -rw-r--r-- | gnu/installer/utils.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/installer/utils.scm b/gnu/installer/utils.scm index 6838410166d..c722e9af8fe 100644 --- a/gnu/installer/utils.scm +++ b/gnu/installer/utils.scm | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; GNU Guix --- Functional package management for GNU | 1 | ;;; GNU Guix --- Functional package management for GNU |
| 2 | ;;; Copyright © 2018, 2020 Mathieu Othacehe <m.othacehe@gmail.com> | 2 | ;;; Copyright © 2018, 2020 Mathieu Othacehe <m.othacehe@gmail.com> |
| 3 | ;;; Copyright © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org> | 3 | ;;; Copyright © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org> |
| 4 | ;;; Copyright © 2024 Janneke Nieuwenhuizen <janneke@gnu.org> | ||
| 4 | ;;; | 5 | ;;; |
| 5 | ;;; This file is part of GNU Guix. | 6 | ;;; This file is part of GNU Guix. |
| 6 | ;;; | 7 | ;;; |
| @@ -283,11 +284,11 @@ values." | |||
| 283 | 284 | ||
| 284 | (define (open-new-log-port) | 285 | (define (open-new-log-port) |
| 285 | (define now (localtime (time-second (current-time)))) | 286 | (define now (localtime (time-second (current-time)))) |
| 286 | (define filename | 287 | (define file-name |
| 287 | (format #f "/tmp/installer.~a.log" | 288 | (format #f "/tmp/installer.~a.log" |
| 288 | (strftime "%F.%T" now))) | 289 | (strftime "%F.%T" now))) |
| 289 | (open filename (logior O_RDWR | 290 | (open file-name (logior O_RDWR |
| 290 | O_CREAT))) | 291 | O_CREAT))) |
| 291 | 292 | ||
| 292 | (define installer-log-port | 293 | (define installer-log-port |
| 293 | (let ((port #f)) | 294 | (let ((port #f)) |
