From dfd0a32e0708410a34a3c71ac77d7c319ad53776 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Wed, 2 Oct 2024 11:34:27 +0200
Subject: fix(id1000): make system reconfiguration work

---
 systems/akashi.scm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'systems/akashi.scm')

diff --git a/systems/akashi.scm b/systems/akashi.scm
index efc2893..ae4f96a 100644
--- a/systems/akashi.scm
+++ b/systems/akashi.scm
@@ -1,15 +1,20 @@
 (define-module (systems akashi))
 
+(define root-partition
+  ((@ (gnu system file-systems) file-system)
+   (mount-point "/")
+   (device ((@ (gnu system file-systems) file-system-label) "akashi-root"))
+   (type "ext4")))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (define host-name*
   "akashi")
 
 (define (file-systems)
   (use-modules (suweren system))
   (append %suweren-file-systems
-	  (list ((@ (gnu system file-systems) file-system)
-		 (type "ext4")
-		 (mount-point "/")
-		 (device (file-system-label "akashi-root"))))))
+	  (list root-partition)))
 
 (define keyboard-layout*
   ((@ (gnu system keyboard) keyboard-layout)
-- 
cgit v1.2.3