diff options
| author | Maxim Cournoyer <maxim@guixotic.coop> | 2025-11-18 23:30:02 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim@guixotic.coop> | 2025-11-19 09:42:50 +0900 |
| commit | 40a339d7628a011ca138da5ad16e2d8c19d8bbca (patch) | |
| tree | 90c0f2ef01e5243f4849e4c409632ce6ea5ac6ce | |
| parent | 1b5f5b68769f206e14550b41ceb6d1509ecb77b6 (diff) | |
system/install: Adjust for the new Info Zstd extension.
* gnu/system/install.scm (log-to-info): Adjust to use the .zst file extension.
Change-Id: I2dfc0cc762da04ede7b9c6096edcd6b80989dc85
| -rw-r--r-- | gnu/system/install.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm index 5041dadf15d..a208f102ee9 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm | |||
| @@ -123,12 +123,12 @@ manual." | |||
| 123 | (infodir "/run/current-system/profile/share/info") | 123 | (infodir "/run/current-system/profile/share/info") |
| 124 | (per-lang (lambda (code) | 124 | (per-lang (lambda (code) |
| 125 | (string-append infodir "/guix." code | 125 | (string-append infodir "/guix." code |
| 126 | ".info.gz"))) | 126 | ".info.zst"))) |
| 127 | (file ((@ (srfi srfi-1) find) file-exists? | 127 | (file ((@ (srfi srfi-1) find) file-exists? |
| 128 | (list (per-lang with-region) | 128 | (list (per-lang with-region) |
| 129 | (per-lang language) | 129 | (per-lang language) |
| 130 | (string-append infodir | 130 | (string-append infodir |
| 131 | "/guix.info.gz")))) | 131 | "/guix.info.zst")))) |
| 132 | (node (or (assoc-ref '#$%installation-node-names | 132 | (node (or (assoc-ref '#$%installation-node-names |
| 133 | with-region) | 133 | with-region) |
| 134 | (assoc-ref '#$%installation-node-names | 134 | (assoc-ref '#$%installation-node-names |