~ruther/guix-local

0b35df4c8b9f1cc80eaadff0e0444e16cfa5375f — Rutherther 5 months ago 5558478
installer: wait-service-online: Allow user to proceed if offline.

The user may choose to proceed with installation
even if they seem to be offline. This is mostly for cases
where the user if actually online, but the gnu and guix
infrastructure is down. On top of that, if the installer
has all the necessary dependencies the user might not need
internet at all.

* gnu/installer/newt/network.scm (wait-oservice-online): Add choice window for
user to continue if offline.

Change-Id: Id8868ad42a6874d31b64765457f8a3d3b08ebd6c
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
1 files changed, 9 insertions(+), 5 deletions(-)

M gnu/installer/newt/network.scm
M gnu/installer/newt/network.scm => gnu/installer/newt/network.scm +9 -5
@@ 155,11 155,15 @@ FULL-VALUE tentatives, spaced by 1 second."
           full-value
           (+ value 1))))
    (unless (online?)
      (run-error-page
       (G_ "The selected network does not provide access to the \
Internet and the Guix substitute server, please try again.")
       (G_ "Connection error"))
      (abort-to-prompt 'installer-step 'abort))))
      (case (choice-window
             (G_ "Internet access")
             (G_ "Continue")
             (G_ "Try again?")
             (G_ "
The selected network does not seem to provide access to the \
Internet. The install process requires Internet access. \
Do you want to continue anyway?"))
        ((2) (abort-to-prompt 'installer-step 'abort))))))

(define (run-network-page)
  "Run a page to allow the user to configure connman so that it can access the