1 files changed, 7 insertions, 6 deletions

diff --git a/cokiki.hs b/cokiki.hs
index 8e6ec35..b6d94a0 100644
--- a/cokiki.hs
+++ b/cokiki.hs
@@ -19,6 +19,7 @@ import System.Exit
 import System.IO
 import System.Posix.User
 import CommandLine
+import Data.OpenPGP (SymmetricAlgorithm(Unencrypted))
 import qualified Hosts
 
 usage = unlines
@@ -66,7 +67,7 @@ main = do
                 ["ssh-server"] -> Just $ sshServer  uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
                 ["strongswan"] -> Just $ strongswan uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
                 ["tor"]        -> Just $ configureTor uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
-                ["hosts"]      -> Just $ configureHosts uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
+                ["hosts"]      -> Just $ configureHosts uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
                 _ -> Nothing
         spec = uncurry fancy Kiki.kikiOptions ""
         errorQuit msg = do
@@ -122,7 +123,7 @@ sshClient uid root cmn = whenRoot uid root cmn $ do
     maybe (return ()) (myWriteFile (root "/etc/ssh/ssh_config") . unparseSshConfig) sshconfig'
 
     -- /var/cache/kiki/config/ssh_known_hosts        <--  contains known hosts from /root/.gnupg/...
-    Kiki.importAndRefresh root cmn
+    Kiki.importAndRefresh root cmn Unencrypted
 
 sshServer uid root cmn = whenRoot uid root cmn $ do
     sshconfig <- parseSshConfig . fromMaybe "" <$> maybeReadFile (root "/etc/ssh/sshd_config")
@@ -135,7 +136,7 @@ sshServer uid root cmn = whenRoot uid root cmn $ do
                  hPutStrLn stderr "adding HostKey directive"
                  myWriteFile (root "/etc/ssh/sshd_config") $ unparseSshConfig sshconfig'
     -- /etc/ssh/sshd_config <-- 'HostKey /var/cache/kiki/config/ssh_host_ecdsa_key' etc.
-    Kiki.importAndRefresh root cmn
+    Kiki.importAndRefresh root cmn Unencrypted
 
 strongswan uid root cmn = whenRoot uid root cmn $ do
     -- (1) /etc/ipsec.conf    <--  'include /var/cache/kiki/config/ipsec.conf'
@@ -161,7 +162,7 @@ strongswan uid root cmn = whenRoot uid root cmn $ do
                      stmt = ["include", " ", "/var/cache/kiki/config/ipsec.secrets"]
                  hPutStrLn stderr "adding include directive"
                  myWriteFile (root "/etc/ipsec.secrets") $ unparseSshConfig ipsecconf'
-    Kiki.importAndRefresh root cmn
+    Kiki.importAndRefresh root cmn Unencrypted
 
 configureTor uid root cmn = whenRoot uid root cmn $ do
     -- Parsing as if ssh config, that's not right, but good enough for now.
@@ -215,11 +216,11 @@ configureTor uid root cmn = whenRoot uid root cmn $ do
                                    , ["HiddenServicePort"," ","22"," ","127.0.0.1:22"]
                                    , ["HiddenServicePort"," ","25"," ","127.0.0.1:25"] ]
                  myWriteFile (root "/etc/tor/torrc") $ unparseSshConfig torrc'
-    Kiki.importAndRefresh root cmn
+    Kiki.importAndRefresh root cmn Unencrypted
     return ()
 
 configureHosts uid root cmn = whenRoot uid root cmn $ do
-    Kiki.importAndRefresh root cmn
+    Kiki.importAndRefresh root cmn Unencrypted
     hosts <- Hosts.decode . fromMaybe "" <$> maybeReadFile (root "/etc/hosts")
     kikihosts <- Hosts.decode . fromMaybe "" <$> maybeReadFile (root "/var/cache/kiki/config/hosts")
     let hosts' = hosts `Hosts.plus` kikihosts