From 705fdf0fa6121bc511497a69021c000e06638c6c Mon Sep 17 00:00:00 2001 From: joe Date: Mon, 5 Sep 2016 17:23:24 -0400 Subject: i386 haddock doesn't like my unicode. amd64 liked it fine. Go figure. --- cokiki.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'cokiki.hs') 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-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 + ["ssh-client"] -> Just $ sshClient uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir + ["ssh-server"] -> Just $ sshServer uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir + ["strongswan"] -> Just $ strongswan uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir + ["tor"] -> Just $ configureTor uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir + ["hosts"] -> Just $ configureHosts uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir _ -> Nothing spec = uncurry fancy Kiki.kikiOptions "" errorQuit msg = do -- cgit v1.2.3