summaryrefslogtreecommitdiff
path: root/src/guix/system.scm
diff options
context:
space:
mode:
authorEuAndreh <eu@euandre.org>2024-08-21 11:14:23 -0300
committerEuAndreh <eu@euandre.org>2024-08-21 11:15:53 -0300
commite229b2e57c8770598ef9107a6598255961bb32b4 (patch)
tree8730ea4643756bb469dffb0a8aac42d439b7ad31 /src/guix/system.scm
parentReapply "system.scm: Comment services that depend on go-full" (diff)
downloadasami-e229b2e57c8770598ef9107a6598255961bb32b4.tar.gz
asami-e229b2e57c8770598ef9107a6598255961bb32b4.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 0aa0b5d..9d317bd 100644
--- a/src/guix/system.scm
+++ b/src/guix/system.scm
@@ -41,6 +41,10 @@
path)
"src/tld.txt"))
+(define +known-hosts+
+ ((compose pkg:slurp path)
+ "src/config/known-hosts.txt"))
+
(define +cert.pem+ (pkg:str "/etc/letsencrypt/live/" +tld+ "/cert.pem"))
(define +privkey.pem+ (pkg:str "/etc/letsencrypt/live/" +tld+ "/privkey.pem"))
@@ -112,6 +116,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" "andre")
("support" ,@(map s1:first +users+)))))