summaryrefslogtreecommitdiff
path: root/cokiki.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2016-04-26 02:15:04 -0400
committerjoe <joe@jerkface.net>2016-04-26 02:15:04 -0400
commit7ddcc4b2c56e51a2718b62614d2624f25629b5bb (patch)
tree86453a828a51a86c27bbfbafd6c52d52e66c2d12 /cokiki.hs
parentc45ab3a217e90217690d19df260bbb1ed12080af (diff)
body of kiki init is now library call: importAndRefresh.
Diffstat (limited to 'cokiki.hs')
-rw-r--r--cokiki.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/cokiki.hs b/cokiki.hs
index 055be9b..8e013d6 100644
--- a/cokiki.hs
+++ b/cokiki.hs
@@ -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