From acc0861c5ed01b68f3b5ca3f04c03731f958fea3 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Fri, 18 Oct 2024 05:42:00 +0200
Subject: refactor(deployment): delocalize import of (users id1000)

---
 systems/akashi.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'systems/akashi.scm')

diff --git a/systems/akashi.scm b/systems/akashi.scm
index 0a4ebe3..0084d7f 100644
--- a/systems/akashi.scm
+++ b/systems/akashi.scm
@@ -1,4 +1,5 @@
-(define-module (systems akashi))
+(define-module (systems akashi)
+  #:use-module (users id1000))
 
 (define root-partition
   ((@ (gnu system file-systems) file-system)
@@ -33,8 +34,7 @@
 		   'adb-udev
 		   (@ (gnu packages android) android-udev-rules))))))
 
-(define (users)
-  (use-modules (users id1000))
+(define users
   (list uid1000-account))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -45,8 +45,7 @@
 	       (machines thinkpad-x200)
 	       (nongnu packages linux)
 	       (suweren commons sudoers)
-	       (suweren system)
-	       (users id1000))
+	       (suweren system))
   (let* ((patter-placeholder #f)
 	 (timezone* "Europe/Warsaw"))
     ((@ (gnu system) operating-system)
@@ -56,7 +55,7 @@
      (host-name host-name*)
      (file-systems (file-systems))
      (swap-devices (swap-devices* host-name*))
-     (users (users))
+     (users users)
      (timezone timezone*)
      (locale polish-locale-string)
      (locale-definitions %suweren-locale-definitions)
-- 
cgit v1.2.3