aboutsummaryrefslogtreecommitdiff
path: root/gnu/installer/newt/partition.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2019-09-23 13:06:36 +0200
committerMathieu Othacehe <m.othacehe@gmail.com>2019-09-23 13:55:50 +0200
commit3dd3ac4d83db0609e10637e9d21d7abb2198398d (patch)
tree1b303cb4234c345e96deff6f9015209790bae91e /gnu/installer/newt/partition.scm
parent48c97c27dbd5523df7f62a4c235157b03648358d (diff)
downloadpatches-3dd3ac4d83db0609e10637e9d21d7abb2198398d.tar
patches-3dd3ac4d83db0609e10637e9d21d7abb2198398d.tar.gz
installer: Fix run-input-page calls.
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?.
Diffstat (limited to 'gnu/installer/newt/partition.scm')
-rw-r--r--gnu/installer/newt/partition.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index cd9d46316a..7a9f11a15e 100644
--- a/gnu/installer/newt/partition.scm
+++ b/gnu/installer/newt/partition.scm
@@ -1,5 +1,5 @@
;;; 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>
;;;
;;; This file is part of GNU Guix.
@@ -159,14 +159,14 @@ USER-PARTITIONS list. Return this list with password fields filled-in."
(format #f (G_ "Please enter the password for the \
encryption of partition ~a (label: ~a).") file-name crypt-label)
(G_ "Password required")
- #:input-hide-checkbox? #t)))
+ #:input-visibility-checkbox? #t)))
(password-confirm-page
(lambda ()
(run-input-page
(format #f (G_ "Please confirm the password for the \
encryption of partition ~a (label: ~a).") file-name crypt-label)
(G_ "Password confirmation required")
- #:input-hide-checkbox? #t))))
+ #:input-visibility-checkbox? #t))))
(if crypt-label
(let loop ()
(let ((password (password-page))