aboutsummaryrefslogtreecommitdiff
path: root/src/guix/system.scm
diff options
context:
space:
mode:
authorEuAndreh <eu@euandre.org>2024-08-21 11:00:52 -0300
committerEuAndreh <eu@euandre.org>2024-08-21 11:21:42 -0300
commit49175e044ba8062568ebe839467edc5f8c453164 (patch)
tree639bddab4ac831d014a5961822e7972bf9651cbb /src/guix/system.scm
parentsystem.scm: Explicitly enable git server (diff)
downloadtoph-49175e044ba8062568ebe839467edc5f8c453164.tar.gz
toph-49175e044ba8062568ebe839467edc5f8c453164.tar.xz
Recover known-hosts.txt specific to this server
Diffstat (limited to 'src/guix/system.scm')
-rw-r--r--src/guix/system.scm6
1 files changed, 6 insertions, 0 deletions
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")