diff options
author | Andrew Cady <d@jerkface.net> | 2019-06-24 21:18:22 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-06-30 22:57:30 -0400 |
commit | 7c2ee942309df7a484f3ab50b1b090ca5e606c03 (patch) | |
tree | 85fe2a2373e46b821774f6b95df5eff8da39a730 /cokiki.hs | |
parent | 26af6c505812c9749f5e972d38fc8b771fab5de6 (diff) |
move functions around between files. nothing should be different
merge-note: I'm having trouble with the merge, so I'm leaving a lot of
functions duplicated in lib/Keyring.hs that were originally moved-out
to lib/KeyRing/BuildKeyDB.hs in this commit. I'll clean-up later.
Hopefully.
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.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 |