summaryrefslogtreecommitdiff
path: root/cokiki.hs
diff options
context:
space:
mode:
Diffstat (limited to 'cokiki.hs')
-rw-r--r--cokiki.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/cokiki.hs b/cokiki.hs
index 899608b..18fdd9f 100644
--- a/cokiki.hs
+++ b/cokiki.hs
@@ -78,9 +78,10 @@ sshClient uid root cmn = do
78 return $ Just (sshconfig ++ parseSshConfig stmt) 78 return $ Just (sshconfig ++ parseSshConfig stmt)
79 sshconfig' `deepseq` return () -- force lazy input 79 sshconfig' `deepseq` return () -- force lazy input
80 maybe (return ()) (myWriteFile (root "/etc/ssh/ssh_config") . unparseSshConfig) sshconfig' 80 maybe (return ()) (myWriteFile (root "/etc/ssh/ssh_config") . unparseSshConfig) sshconfig'
81
81 -- /root/.gnupg/... <-- contains known hosts from /etc/ssh/ssh_known_hosts 82 -- /root/.gnupg/... <-- contains known hosts from /etc/ssh/ssh_known_hosts
82 Kiki.refresh root cmn
83 -- /var/cache/kiki/ssh_known_hosts <-- contains known hosts from /root/.gnupg/... 83 -- /var/cache/kiki/ssh_known_hosts <-- contains known hosts from /root/.gnupg/...
84 Kiki.replaceSshServerKeys root cmn
84 85
85sshServer = do 86sshServer = do
86 -- /etc/ssh/sshd_config <-- 'HostKey /var/cache/kiki/ssh_host_ecdsa_key' etc. 87 -- /etc/ssh/sshd_config <-- 'HostKey /var/cache/kiki/ssh_host_ecdsa_key' etc.