diff options
| author | Rutherther <rutherther@ditigal.xyz> | 2025-10-18 18:54:08 +0200 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2025-10-19 12:31:43 +0300 |
| commit | 344bf876f69ef5f79e77ad0aa1684d9327123e74 (patch) | |
| tree | ea52e04fdf3ceef116dec7db1bc6ac365a65341d /gnu | |
| parent | 11e0594e63207ef270621627b7c5068e3f863efe (diff) | |
installer: Respect /tmp/installer-assume-online in check-substitute-availability.
Follow up of #2518, where check-substitute-availability has been introduced.
This is mostly for system tests that run without internet access.
* gnu/installer/newt/network.scm (check-substitute-availability): Skip the
check if /tmp/installer-assume-online exists.
Change-Id: I0110390e8c5ce6756f3c22cb770011ea735fe79b
Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/installer/newt/network.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm index 459c6d58d8c..c78a7c54612 100644 --- a/gnu/installer/newt/network.scm +++ b/gnu/installer/newt/network.scm @@ -168,10 +168,12 @@ Do you want to continue anyway?")) (define (check-substitute-availability) "Check that at least one of the Guix substitute servers is available." (define (substitutes-available?) - (common-urls-alive? - (list - "https://bordeaux.guix.gnu.org/nix-cache-info" - "https://ci.guix.gnu.org/nix-cache-info"))) + (or + (file-exists? "/tmp/installer-assume-online") + (common-urls-alive? + (list + "https://bordeaux.guix.gnu.org/nix-cache-info" + "https://ci.guix.gnu.org/nix-cache-info")))) (let* ((full-value 5)) (run-scale-page |