diff options
Diffstat (limited to 'deployment')
| -rw-r--r-- | deployment/machine/ssh.scm | 2 | ||||
| -rw-r--r-- | deployment/system/akashi.scm | 9 |
2 files changed, 6 insertions, 5 deletions
diff --git a/deployment/machine/ssh.scm b/deployment/machine/ssh.scm index f0dd2bc..23dcbd7 100644 --- a/deployment/machine/ssh.scm +++ b/deployment/machine/ssh.scm @@ -49,7 +49,7 @@ (define-public akashi-configuration (gnu:machine:ssh:machine-ssh-configuration - (host-name deployment:system:akashi:system-name) + (host-name deployment:system:akashi:host-name) (system sovereign:machine:system-x86-linux) (build-locally? #t) (authorize? #t) diff --git a/deployment/system/akashi.scm b/deployment/system/akashi.scm index 7276a03..8a3602f 100644 --- a/deployment/system/akashi.scm +++ b/deployment/system/akashi.scm @@ -19,6 +19,7 @@ ;;; If not, see <https://www.gnu.org/licenses/>. (define-module (deployment system akashi) + #:export (host-name) #:use-module (guix gexp) #:use-module (users id1000) #:use-module ((deployment gexp) @@ -54,7 +55,7 @@ #:use-module ((sovereign systems) #:prefix sovereign:systems:)) -(define-public system-name "akashi") +(define host-name "akashi") (define root-partition ((@ (gnu system file-systems) file-system) @@ -103,18 +104,18 @@ gnu:system:%default-kernel-arguments)) (hurd #f) (bootloader (machines:thinkpad-x200:bootloader-configuration* system-keyboard-layout)) - (label (sovereign:systems:operating-system-label* system-name + (label (sovereign:systems:operating-system-label* host-name gnu:system:this-operating-system)) (keyboard-layout system-keyboard-layout) (initrd gnu:system:linux-initrd:base-initrd) (initrd-modules gnu:system:linux-initrd:%base-initrd-modules) (firmware (list)) - (host-name system-name) + (host-name host-name) (hosts-file #f) (mapped-devices (list)) (file-systems (cons* root-partition gnu:system:file-systems:%base-file-systems)) - (swap-devices (machines:thinkpad-x200:swap-devices* system-name)) + (swap-devices (machines:thinkpad-x200:swap-devices* host-name)) (users (list uid1000-account)) (groups gnu:system:shadow:%base-groups) (skeletons (gnu:system:shadow:default-skeletons)) |