diff options
author | joe <joe@jerkface.net> | 2016-09-05 17:23:24 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2016-09-05 17:23:24 -0400 |
commit | 705fdf0fa6121bc511497a69021c000e06638c6c (patch) | |
tree | d5eabedfdab35c5f71a3c4ad0d18ed4689dd7f09 /cokiki.hs | |
parent | 0214686d1beaf10bd0b03b36105f59311111b3df (diff) |
i386 haddock doesn't like my unicode.
amd64 liked it fine. Go figure.
Diffstat (limited to 'cokiki.hs')
-rw-r--r-- | cokiki.hs | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -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 |