summaryrefslogtreecommitdiff
path: root/cokiki.hs
diff options
context:
space:
mode:
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