cat src/org/euandre/services.scm >> src/org/euandre/packages.scm

1 files changed, 12 insertions, 12 deletions

diff --git a/tests/internet/system.scm b/tests/internet/system.scm
index c0e5986..84471d2 100644
--- a/tests/internet/system.scm
+++ b/tests/internet/system.scm
@@ -1,6 +1,6 @@
 (use-modules
   ((org euandre queue) #:prefix q:)
-  ((org euandre services) #:prefix serv:)
+  ((org euandre packages) #:prefix pkg:)
   (gnu))
 (use-package-modules)
 (use-service-modules
@@ -12,7 +12,7 @@
   ssh)
 
 (define (path s)
-  (serv:str (dirname (dirname (dirname (current-filename)))) "/" s))
+  (pkg:str (dirname (dirname (dirname (current-filename)))) "/" s))
 
 (define +users+
   `(("user1"   "I'm a user"  ())
@@ -20,30 +20,30 @@
 
 (operating-system
   (host-name "a-internet-test-host")
-  (skeletons serv:skeletons)
-  (users (append (serv:user-accounts +users+) %base-user-accounts))
+  (skeletons pkg:skeletons)
+  (users (append (pkg:user-accounts +users+) %base-user-accounts))
   (services
     (append
      (list
       (service ntp-service-type)
       (service dhcp-client-service-type)
       (service fail2ban-service-type)
-      (service serv:binder-service-type)
-      (service serv:glaze-service-type)
-      (service serv:untls-service-type)
-      (service serv:wscat-service-type)
-      (service serv:papod-service-type)
-      (service openssh-service-type (q:openssh-default-configuration (serv:users->keys +users+)))
+      (service pkg:binder-service-type)
+      (service pkg:glaze-service-type)
+      (service pkg:untls-service-type)
+      (service pkg:wscat-service-type)
+      (service pkg:papod-service-type)
+      (service openssh-service-type (q:openssh-default-configuration (pkg:users->keys +users+)))
       (service certbot-service-type (q:tld-certbot-configuration "tld.local"))
       (service cgit-service-type q:cgit-pre-configuration)
-      (service serv:syskeep-service-type)
+      (service pkg:syskeep-service-type)
       (service q:shadow-group-service-type)
       (service q:dkimproxyout-service-type)
       (service q:cyrus-sasl-service-type)
       (service q:dovecot-service-type)
       (service q:internet-postfix-service-type)
       (service mail-aliases-service-type '()))
-     serv:base-services))
+     pkg:base-services))
   (bootloader
     (bootloader-configuration
       (bootloader grub-bootloader)))