diff options
| -rw-r--r-- | deployment/systems/rakan.scm | 24 |
1 files changed, 1 insertions, 23 deletions
diff --git a/deployment/systems/rakan.scm b/deployment/systems/rakan.scm index 86187d9..93100c2 100644 --- a/deployment/systems/rakan.scm +++ b/deployment/systems/rakan.scm @@ -2,8 +2,6 @@ ;;; SPDX-FileCopyrightText: 2024-2025 Marek Paśnikowski <marek@marekpasnikowski.pl> (define-module (deployment systems rakan) - #:use-module ( (gnu packages package-management) - #:prefix gnu:packages:package-management:) #:use-module ( (gnu services) #:prefix gnu:services:) #:use-module ( (gnu services base) @@ -24,8 +22,6 @@ #:prefix nongnu:packages:linux:) #:use-module ( (nongnu system linux-initrd) #:prefix nongnu:system:linux-initrd:) - #:use-module ( (sovereign channels) - #:prefix sovereign:channels:) #:use-module ( (sovereign devices) #:prefix sovereign:devices:) #:use-module ( (sovereign devices amd64) @@ -64,18 +60,6 @@ (inherit sovereign:devices:swap/no-trim) (target l-target)))) -(define (guix-configuration record) - (let - ( (l-channels (list sovereign:channels:default-guix-channel - sovereign:channels:deployment-channel-staging - sovereign:channels:guix-rust-past-crates-channel - sovereign:channels:nonguix-channel - sovereign:channels:sovereign-channel-staging))) - (gnu:services:base:guix-configuration - (inherit record) - (guix (gnu:packages:package-management:guix-for-channels l-channels)) - (channels l-channels)))) - (define guix-publish-configuration (gnu:services:base:guix-publish-configuration (host "0.0.0.0") @@ -86,12 +70,6 @@ (gnu:services:service gnu:services:base:guix-publish-service-type guix-publish-configuration)) -(define %sovereign-services* - (gnu:services:modify-services - sovereign:systems:%sovereign-services - (gnu:services:base:guix-service-type - record => (guix-configuration record)))) - (define system (let* ( (l-guix-homes (list users:id1000:name/home-environment)) @@ -107,7 +85,7 @@ guix-publish-service (gnu:services:service gnu:services:ssh:openssh-service-type) sovereign:packages:protonmail:nogui-profile - %sovereign-services*)) + sovereign:systems:%sovereign-services)) (l-swap-devices (list swap)) (l-users (cons* users:id1000:uid1000-account gnu:system:shadow:%base-user-accounts))) |