From 49175e044ba8062568ebe839467edc5f8c453164 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Wed, 21 Aug 2024 11:00:52 -0300
Subject: Recover known-hosts.txt specific to this server

---
 src/guix/system.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/guix/system.scm')

diff --git a/src/guix/system.scm b/src/guix/system.scm
index f9e5e98..ba74a99 100644
--- a/src/guix/system.scm
+++ b/src/guix/system.scm
@@ -34,6 +34,10 @@
             path)
    "src/tld.txt"))
 
+(define +known-hosts+
+  ((compose pkg:slurp path)
+   "src/config/known-hosts.txt"))
+
 
 
 (define package-symbols
@@ -130,6 +134,8 @@
       (service q:cyrus-sasl-service-type)
       (service q:dovecot-service-type)
       (service q:internet-postfix-service-type)
+      (simple-service 'known-hosts-etc-file etc-service-type
+        `(("known_hosts" ,(plain-file "known-hosts.txt" +known-hosts+))))
       (service mail-aliases-service-type
         '(("root"         "andreh")
           ("eu"           "andreh")
-- 
cgit v1.2.3