TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

installer: Fix run-input-page calls.

Browse source 
This fixes 55c43108 commit that renamed input-hide-checkbox? into
input-visibility-checkbox?.

* gnu/installer/newt/partition.scm (prompt-luks-passwords): Rename
input-hide-checkbox? into input-visibility-checkbox?.
This commit is contained in:
Mathieu Othacehe 2019-09-23 13:06:36 +02:00
parent 48c97c27db
commit 3dd3ac4d83
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/installer/newt/partition.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2018, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -159,14 +159,14 @@ (define (prompt-luks-passwords user-partitions)
(format #f (G_ "Please enter the password for the \ (format #f (G_ "Please enter the password for the \
encryption of partition ~a (label: ~a).") file-name crypt-label) encryption of partition ~a (label: ~a).") file-name crypt-label)
(G_ "Password required") (G_ "Password required")
#:input-hide-checkbox? #t))) #:input-visibility-checkbox? #t)))
(password-confirm-page (password-confirm-page
(lambda () (lambda ()
(run-input-page (run-input-page
(format #f (G_ "Please confirm the password for the \ (format #f (G_ "Please confirm the password for the \
encryption of partition ~a (label: ~a).") file-name crypt-label) encryption of partition ~a (label: ~a).") file-name crypt-label)
(G_ "Password confirmation required") (G_ "Password confirmation required")
#:input-hide-checkbox? #t)))) #:input-visibility-checkbox? #t))))
(if crypt-label (if crypt-label
(let loop () (let loop ()
(let ((password (password-page)) (let ((password (password-page))