summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/CmdLine.hs46
1 files changed, 30 insertions, 16 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index 9982372c..a36ec7f5 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -24,22 +24,36 @@ import Utility.FileSystemEncoding
usage :: Handle -> IO ()
usage h = hPutStrLn h $ unlines
[ "Usage:"
- , " --init\t\t initialize ~/.propellor"
- , " \t\t\t with no arguments, provision the current host"
- , " hostname\t\t provision the current host as if it had the specified hostname"
- , " --spin targethost [--via relayhost] "
- , " \t\t\t provision the specified host"
- , " --build\t\t recompile using your current config"
- , " --add-key keyid\t add an additional signing key to the private data"
- , " --rm-key keyid\t remove a signing key from the private data"
- , " --list-fields\t\t list private data fields"
- , " --set field context\t set a private data field"
- , " --unset field context\t clear a private data field"
- , " --unset-unused\t clear unused fields from the private data"
- , " --dump field context\t show the content of a private data field"
- , " --edit field context\t edit the content of a private data field"
- , " --merge\t\t combine multiple spins into a single git commit"
- , " --check\t\t double-check that propellor can actually run here"]
+ , " with no arguments, provision the current host"
+ , ""
+ , " --init"
+ , " initialize ~/.propellor"
+ , " hostname"
+ , " provision the current host as if it had the specified hostname"
+ , " --spin targethost [--via relayhost]"
+ , " provision the specified host"
+ , " --build"
+ , " recompile using your current config"
+ , " --add-key keyid"
+ , " add an additional signing key to the private data"
+ , " --rm-key keyid"
+ , " remove a signing key from the private data"
+ , " --list-fields"
+ , " list private data fields"
+ , " --set field context"
+ , " set a private data field"
+ , " --unset field context"
+ , " clear a private data field"
+ , " --unset-unused"
+ , " clear unused fields from the private data"
+ , " --dump field context"
+ , " show the content of a private data field"
+ , " --edit field context"
+ , " edit the content of a private data field"
+ , " --merge"
+ , " combine multiple spins into a single git commit"
+ , " --check"
+ , " double-check that propellor can actually run here"]
usageError :: [String] -> IO a
usageError ps = do