diff options
Diffstat (limited to 'cokiki.hs')
-rw-r--r-- | cokiki.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 | ||
85 | sshServer = do | 86 | sshServer = 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. |