amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Fix file-name typos.

Browse source 
* gnu/installer/newt/page.scm (run-dump-page): Typo file-name.
* gnu/installer/utils.scm (open-new-log-port): Likewise.

Change-Id: I837991a0ee5054b3afa8328205e23ac6f9fbae8d
This commit is contained in:
Janneke Nieuwenhuizen 2024-10-17 11:16:26 +02:00 • committed by Jan (janneke) Nieuwenhuizen
parent 31f687f258
commit e57bc3bcde
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
gnu/installer/newt/page.scm
View file

@ -2,6 +2,7 @@
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -950,10 +951,10 @@ the dump."
('exit-component
(let ((result
(map (match-lambda
((edit checkbox filename)
((edit checkbox file-name)
(if (components=? edit argument)
(abort-to-prompt prompt-tag filename)
(cons filename (eq? #\x
(abort-to-prompt prompt-tag file-name)
(cons file-name (eq? #\x
(checkbox-value checkbox))))))
components)))
(destroy-form-and-pop form)

7
gnu/installer/utils.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -283,11 +284,11 @@ values."
(define (open-new-log-port)
(define now (localtime (time-second (current-time))))
(define filename
(define file-name
(format #f "/tmp/installer.~a.log"
(strftime "%F.%T" now)))
(open filename (logior O_RDWR
O_CREAT)))
(open file-name (logior O_RDWR
O_CREAT)))
(define installer-log-port
(let ((port #f))