summaryrefslogtreecommitdiff
path: root/cokiki.hs
diff options
context:
space:
mode:
Diffstat (limited to 'cokiki.hs')
-rw-r--r--cokiki.hs10
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
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