From a8a978b6d52851f36f6dd10cd9a03abf5ddfc438 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Mon, 31 Oct 2022 23:49:26 +0100 Subject: System configuration: break out file-systems --- system-configuration.scm | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/system-configuration.scm b/system-configuration.scm index 1ec0613..dc8f560 100644 --- a/system-configuration.scm +++ b/system-configuration.scm @@ -133,6 +133,17 @@ (define mapped-devices `(,mapped-sda2-record)) +(define file-systems + (cons* (file-system (mount-point "/") + (device "/dev/mapper/aisaka-root") + (type "btrfs") + (dependencies mapped-devices)) + (file-system (mount-point "/boot") + (device (uuid "4f77b5fc-56ad-43ae-b6ec-e5adc8c48587" + 'ext4)) + (type "ext4")) + %base-file-systems)) + (operating-system (locale locale) (timezone timezone) (keyboard-layout keyboard-layout) @@ -143,12 +154,4 @@ (bootloader bootloader-record) (swap-devices swap-devices) (mapped-devices mapped-devices) - (file-systems (cons* (file-system (mount-point "/") - (device "/dev/mapper/aisaka-root") - (type "btrfs") - (dependencies mapped-devices)) - (file-system (mount-point "/boot") - (device (uuid "4f77b5fc-56ad-43ae-b6ec-e5adc8c48587" - 'ext4)) - (type "ext4")) - %base-file-systems))) + (file-systems file-systems)) -- cgit v1.2.3