diff options
author | joe <joe@jerkface.net> | 2016-04-26 02:15:04 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2016-04-26 02:15:04 -0400 |
commit | 7ddcc4b2c56e51a2718b62614d2624f25629b5bb (patch) | |
tree | 86453a828a51a86c27bbfbafd6c52d52e66c2d12 /cokiki.hs | |
parent | c45ab3a217e90217690d19df260bbb1ed12080af (diff) |
body of kiki init is now library call: importAndRefresh.
Diffstat (limited to 'cokiki.hs')
-rw-r--r-- | cokiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -40,7 +40,7 @@ main = do | |||
40 | ["ssh-server"] -> pure (whenRoot sshServer) | 40 | ["ssh-server"] -> pure (whenRoot sshServer) |
41 | ["strongswan"] -> pure (whenRoot strongswan) | 41 | ["strongswan"] -> pure (whenRoot strongswan) |
42 | _ -> pure $ hPutStr stderr usage | 42 | _ -> pure $ hPutStr stderr usage |
43 | spec = fancy [("--chroot",1),("--passphrase-fd",1),("--homedir",1)] [] "" | 43 | spec = uncurry fancy Kiki.kikiOptions "" |
44 | case runArgs (parseInvocation spec args) sel of | 44 | case runArgs (parseInvocation spec args) sel of |
45 | Left e -> hPutStrLn stderr $ usageErrorMessage e | 45 | Left e -> hPutStrLn stderr $ usageErrorMessage e |
46 | Right io -> io | 46 | Right io -> io |