mirror of
git://git.savannah.gnu.org/guix.git
synced 2023-12-14 03:33:07 +01:00
installer: network: Adjust wording.
* gnu/installer/newt/network.scm (wait-service-online): Adjust wording of the messages.
This commit is contained in:
parent
4cd386afae
commit
82f29e5b4f
1 changed files with 3 additions and 3 deletions
|
@ -113,7 +113,7 @@ FULL-VALUE tentatives, spaced by 1 second."
|
||||||
(let* ((full-value 5))
|
(let* ((full-value 5))
|
||||||
(run-scale-page
|
(run-scale-page
|
||||||
#:title (G_ "Checking connectivity")
|
#:title (G_ "Checking connectivity")
|
||||||
#:info-text (G_ "Waiting internet access is established.")
|
#:info-text (G_ "Waiting for Internet access establishment...")
|
||||||
#:scale-full-value full-value
|
#:scale-full-value full-value
|
||||||
#:scale-update-proc
|
#:scale-update-proc
|
||||||
(lambda (value)
|
(lambda (value)
|
||||||
|
@ -123,8 +123,8 @@ FULL-VALUE tentatives, spaced by 1 second."
|
||||||
(+ value 1))))
|
(+ value 1))))
|
||||||
(unless (connman-online?)
|
(unless (connman-online?)
|
||||||
(run-error-page
|
(run-error-page
|
||||||
(G_ "The selected network does not provide an Internet \
|
(G_ "The selected network does not provide access to the \
|
||||||
access, please try again.")
|
Internet, please try again.")
|
||||||
(G_ "Connection error"))
|
(G_ "Connection error"))
|
||||||
(raise
|
(raise
|
||||||
(condition
|
(condition
|
||||||
|
|
Loading…
Reference in a new issue