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

5
gnu/installer/utils.scm
View file

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