tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-28 03:51:53 +02:00
Code Activity

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
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/installer/newt/page.scm
+4 -3
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)
gnu/installer/utils.scm
+4 -3
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,11 +284,11 @@ 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
(let ((port #f)) (let ((port #f))