diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2026-05-27 12:45:54 +0200 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2026-05-27 12:45:54 +0200 |
| commit | aa6ac4e74a441873d30613a640d130ad93bb40ff (patch) | |
| tree | 19fddafc7484f8034b977bf54b886a6eefe4b68d /deployment | |
| parent | 5d709ec1afe787a1feaeee15319b3c3e349fdd8d (diff) | |
upstream: adapt to renaming of file-system-label
Diffstat (limited to 'deployment')
| -rw-r--r-- | deployment/system/aisaka.scm | 4 | ||||
| -rw-r--r-- | deployment/system/cokolwiek.scm | 6 | ||||
| -rw-r--r-- | deployment/system/mcdowell.scm | 6 | ||||
| -rw-r--r-- | deployment/system/rakan.scm | 6 |
4 files changed, 11 insertions, 11 deletions
diff --git a/deployment/system/aisaka.scm b/deployment/system/aisaka.scm index 8934c16..4c7ce7f 100644 --- a/deployment/system/aisaka.scm +++ b/deployment/system/aisaka.scm @@ -296,11 +296,11 @@ (define file-system-boot-aisaka (gnu:system:file-systems:file-system (inherit file-system/efi) - (device (file-system-label host-name-aisaka)))) + (device (file-system-label* host-name-aisaka)))) (define file-system-root-aisaka (gnu:system:file-systems:file-system (inherit file-system/root) - (device (file-system-label host-name-aisaka)))) + (device (file-system-label* host-name-aisaka)))) ;;; EOF diff --git a/deployment/system/cokolwiek.scm b/deployment/system/cokolwiek.scm index 073f43a..f6fc542 100644 --- a/deployment/system/cokolwiek.scm +++ b/deployment/system/cokolwiek.scm @@ -59,14 +59,14 @@ (define file-system-efi (let* ( (l-system-name (string-upcase system-name)) - (l-device (sovereign:system:file-systems:file-system-label "BOOT"))) + (l-device (sovereign:system:file-systems:file-system-label* "BOOT"))) (gnu:system:file-systems:file-system (inherit sovereign:system:file-systems:file-system/efi) (device l-device)))) (define file-system-root (let - ( (l-device (sovereign:system:file-systems:file-system-label system-name + ( (l-device (sovereign:system:file-systems:file-system-label* system-name "root"))) (gnu:system:file-systems:file-system (inherit sovereign:system:file-systems:file-system/root) @@ -74,7 +74,7 @@ (define swap (let - ( (l-target (sovereign:system:file-systems:file-system-label system-name + ( (l-target (sovereign:system:file-systems:file-system-label* system-name "swap"))) (gnu:system:file-systems:swap-space (inherit sovereign:system:file-systems:swap/no-trim) diff --git a/deployment/system/mcdowell.scm b/deployment/system/mcdowell.scm index 9291b81..859c1b6 100644 --- a/deployment/system/mcdowell.scm +++ b/deployment/system/mcdowell.scm @@ -60,14 +60,14 @@ (define file-system-efi (let* ( (l-system-name (string-upcase system-name)) - (l-device (sovereign:system:file-systems:file-system-label "BOOT"))) + (l-device (sovereign:system:file-systems:file-system-label* "BOOT"))) (gnu:system:file-systems:file-system (inherit sovereign:system:file-systems:file-system/efi) (device l-device)))) (define file-system-root (let - ( (l-device (sovereign:system:file-systems:file-system-label system-name + ( (l-device (sovereign:system:file-systems:file-system-label* system-name "root"))) (gnu:system:file-systems:file-system (inherit sovereign:system:file-systems:file-system/root) @@ -75,7 +75,7 @@ (define swap (let - ( (l-target (sovereign:system:file-systems:file-system-label system-name + ( (l-target (sovereign:system:file-systems:file-system-label* system-name "swap"))) (gnu:system:file-systems:swap-space (inherit sovereign:system:file-systems:swap/no-trim) diff --git a/deployment/system/rakan.scm b/deployment/system/rakan.scm index 0cdade7..7c4a8ec 100644 --- a/deployment/system/rakan.scm +++ b/deployment/system/rakan.scm @@ -79,14 +79,14 @@ (define file-system-efi (let* ( (l-system-name (string-upcase system-name)) - (l-device (sovereign:system:file-systems:file-system-label "BOOT"))) + (l-device (sovereign:system:file-systems:file-system-label* "BOOT"))) (gnu:system:file-systems:file-system (inherit sovereign:system:file-systems:file-system/efi) (device l-device)))) (define file-system-root (let - ( (l-device (sovereign:system:file-systems:file-system-label system-name + ( (l-device (sovereign:system:file-systems:file-system-label* system-name "root"))) (gnu:system:file-systems:file-system (inherit sovereign:system:file-systems:file-system/root) @@ -110,7 +110,7 @@ (define swap (let - ( (l-target (sovereign:system:file-systems:file-system-label system-name + ( (l-target (sovereign:system:file-systems:file-system-label* system-name "swap"))) (gnu:system:file-systems:swap-space (inherit sovereign:system:file-systems:swap/no-trim) |