02/02: hydra: Don't use the deprecated agetty-service procedure.

[Christopher Baines]

cbaines pushed a commit to branch master
in repository maintenance.

commit d34b93b64c87ed3046eda1baf5f256351196c550
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon Apr 10 08:12:24 2023 +0100

    hydra: Don't use the deprecated agetty-service procedure.
    
    * hydra/berlin.scm <services>: Replace agetty-service with
    agetty-service-type.
    * hydra/modules/sysadmin/build-machines.scm <services>: ditto.
---
 hydra/berlin.scm                          | 7 ++++---
 hydra/modules/sysadmin/build-machines.scm | 7 ++++---
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/hydra/berlin.scm b/hydra/berlin.scm
index c175780..0e0a76d 100644
--- a/hydra/berlin.scm
+++ b/hydra/berlin.scm
@@ -365,9 +365,10 @@ at MOUNT-POINT."
                                      (gateway "141.80.181.1")))))))
 
              ;; Allow login over serial console.
-             (agetty-service (agetty-configuration
-                              (tty "ttyS0")
-                              (baud-rate "115200")))
+             (service agetty-service-type
+                      (agetty-configuration
+                       (tty "ttyS0")
+                       (baud-rate "115200")))
 
              ;; Discover substitute servers.
              (service avahi-service-type
diff --git a/hydra/modules/sysadmin/build-machines.scm 
b/hydra/modules/sysadmin/build-machines.scm
index 4af97c9..a8f52e1 100644
--- a/hydra/modules/sysadmin/build-machines.scm
+++ b/hydra/modules/sysadmin/build-machines.scm
@@ -237,9 +237,10 @@ are 10022 and 15900.  Keep secret-service port local."
                               ("GUILE_LOAD_COMPILED_PATH"
                                . ,(string-append 
"/run/current-system/profile/lib/guile/3.0/site-ccache:"
                                                  
"/run/current-system/profile/share/guile/site/3.0"))))
-            (agetty-service (agetty-configuration
-                             (tty "ttyS0")
-                             (baud-rate "57600")))
+            (service agetty-service-type
+                     (agetty-configuration
+                      (tty "ttyS0")
+                      (baud-rate "57600")))
             (service dhcp-client-service-type)
             (service zabbix-agent-service-type
                      (zabbix-agent-configuration