diff options
Diffstat (limited to 'systems')
| -rw-r--r-- | systems/ayase.scm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/systems/ayase.scm b/systems/ayase.scm index e248242..7012445 100644 --- a/systems/ayase.scm +++ b/systems/ayase.scm @@ -4,6 +4,8 @@ (define-module (systems ayase) #:use-module ((gnu system) #:prefix gnu:system:) + #:use-module ((gnu system file-systems) + #:prefix gnu:system:file-systems:) #:use-module ((gnu system uuid) #:prefix gnu:system:uuid:) #:use-module ((nongnu packages linux) @@ -28,7 +30,7 @@ "ayase") (define (label number) - ((@ (gnu system file-systems) file-system-label) + (gnu:system:file-systems:file-system-label (string-append host-name "-swap" number))) @@ -40,7 +42,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define efi-partition - ((@ (gnu system file-systems) file-system) + (gnu:system:file-systems:file-system (mount-point "/boot/efi") (device efi-filesystem-uuid) (type "vfat"))) @@ -88,14 +90,14 @@ openssh-service-type)) (define root-partition - ((@ (gnu system file-systems) file-system) + (gnu:system:file-systems:file-system (mount-point "/") (device root-filesystem-uuid) (type "ext4"))) (define (swap-label number) (let ((target-label (label number))) - ((@ (gnu system file-systems) swap-space) + (gnu:system:file-systems:swap-space (target target-label)))) (define (system-packages-service) @@ -126,8 +128,7 @@ (keyboard-layout keyboard-layout))) (define (file-systems) - (use-modules (gnu system file-systems)) - (append %base-file-systems + (append gnu:system:file-systems:%base-file-systems (list root-partition efi-partition))) |