cokiki replace ssh-server key.

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
                        return $ Just (sshconfig ++ parseSshConfig stmt)
     sshconfig' `deepseq` return () -- force lazy input
     maybe (return ()) (myWriteFile (root "/etc/ssh/ssh_config") . unparseSshConfig) sshconfig'
+
     -- /root/.gnupg/...       <--  contains known hosts from /etc/ssh/ssh_known_hosts
-    Kiki.refresh root cmn
     -- /var/cache/kiki/ssh_known_hosts        <--  contains known hosts from /root/.gnupg/...
+    Kiki.replaceSshServerKeys root cmn
 
 sshServer = do
     -- /etc/ssh/sshd_config <-- 'HostKey /var/cache/kiki/ssh_host_ecdsa_key' etc.