diff options
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 |