1 files changed, 5 insertions, 5 deletions
diff --git a/cokiki.hs b/cokiki.hs
index a685977..d145045 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.opt_chroot <*> Kiki.opt_homedir
+                ["ssh-client"] -> Just $ sshClient  uid <$> Kiki.dashdashChroot <*> Kiki.dashdashHomedir
-                ["ssh-server"] -> Just $ sshServer  uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
+                ["ssh-server"] -> Just $ sshServer  uid <$> Kiki.dashdashChroot <*> Kiki.dashdashHomedir
-                ["strongswan"] -> Just $ strongswan uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
+                ["strongswan"] -> Just $ strongswan uid <$> Kiki.dashdashChroot <*> Kiki.dashdashHomedir
-                ["tor"]        -> Just $ configureTor uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
+                ["tor"]        -> Just $ configureTor uid <$> Kiki.dashdashChroot <*> Kiki.dashdashHomedir
-                ["hosts"]      -> Just $ configureHosts uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
+                ["hosts"]      -> Just $ configureHosts uid <$> Kiki.dashdashChroot <*> Kiki.dashdashHomedir
                _ -> Nothing
        spec = uncurry fancy Kiki.kikiOptions ""
        errorQuit msg = do

diff --git a/cokiki.hs b/cokiki.hs index a685977..d145045 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.opt_chroot <*> Kiki.opt_homedir	66	["ssh-client"] -> Just $ sshClient uid <$> Kiki.dashdashChroot <*> Kiki.dashdashHomedir
67	["ssh-server"] -> Just $ sshServer uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir	67	["ssh-server"] -> Just $ sshServer uid <$> Kiki.dashdashChroot <*> Kiki.dashdashHomedir
68	["strongswan"] -> Just $ strongswan uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir	68	["strongswan"] -> Just $ strongswan uid <$> Kiki.dashdashChroot <*> Kiki.dashdashHomedir
69	["tor"] -> Just $ configureTor uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir	69	["tor"] -> Just $ configureTor uid <$> Kiki.dashdashChroot <*> Kiki.dashdashHomedir
70	["hosts"] -> Just $ configureHosts uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir	70	["hosts"] -> Just $ configureHosts uid <$> Kiki.dashdashChroot <*> Kiki.dashdashHomedir
71	_ -> Nothing	71	_ -> Nothing
72	spec = uncurry fancy Kiki.kikiOptions ""	72	spec = uncurry fancy Kiki.kikiOptions ""
73	errorQuit msg = do	73	errorQuit msg = do