1 files changed, 5 insertions, 5 deletions
diff --git a/cokiki.hs b/cokiki.hs
index b6d94a0..a685977 100644
--- a/cokiki.hs
+++ b/cokiki.hs
@@ -63,11 +63,11 @@ main = do
    (cmd,args) <- splitAt 1 <$> getArgs
    uid <- getEffectiveUserID
    let msel = case cmd of
-                ["ssh-client"] -> Just $ sshClient  uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
+                ["ssh-client"] -> Just $ sshClient  uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
-                ["ssh-server"] -> Just $ sshServer  uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
+                ["ssh-server"] -> Just $ sshServer  uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
-                ["strongswan"] -> Just $ strongswan uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
+                ["strongswan"] -> Just $ strongswan uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
-                ["tor"]        -> Just $ configureTor uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
+                ["tor"]        -> Just $ configureTor uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
-                ["hosts"]      -> Just $ configureHosts uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
+                ["hosts"]      -> Just $ configureHosts uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
                _ -> Nothing
        spec = uncurry fancy Kiki.kikiOptions ""
        errorQuit msg = do

diff --git a/cokiki.hs b/cokiki.hs index b6d94a0..a685977 100644 --- a/cokiki.hs +++ b/cokiki.hs
@@ -63,11 +63,11 @@ main = do
63	(cmd,args) <- splitAt 1 <$> getArgs	63	(cmd,args) <- splitAt 1 <$> getArgs
64	uid <- getEffectiveUserID	64	uid <- getEffectiveUserID
65	let msel = case cmd of	65	let msel = case cmd of
66	["ssh-client"] -> Just $ sshClient uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir	66	["ssh-client"] -> Just $ sshClient uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
67	["ssh-server"] -> Just $ sshServer uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir	67	["ssh-server"] -> Just $ sshServer uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
68	["strongswan"] -> Just $ strongswan uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir	68	["strongswan"] -> Just $ strongswan uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
69	["tor"] -> Just $ configureTor uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir	69	["tor"] -> Just $ configureTor uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
70	["hosts"] -> Just $ configureHosts uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir	70	["hosts"] -> Just $ configureHosts uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
71	_ -> Nothing	71	_ -> Nothing
72	spec = uncurry fancy Kiki.kikiOptions ""	72	spec = uncurry fancy Kiki.kikiOptions ""
73	errorQuit msg = do	73	errorQuit msg = do