summaryrefslogtreecommitdiff
path: root/src/Propellor/CmdLine.hs
diff options
context:
space:
mode:
authorDaniel Brooks2016-12-27 01:12:03 -0500
committerDaniel Brooks2016-12-27 01:12:03 -0500
commit289afbc22f3ac0f08b9c785ef4c8b996a404203f (patch)
tree77d16d75c0687e2c7078867d10974cb01954f33c /src/Propellor/CmdLine.hs
parentfa0e8d8389074c2cc08ca4911080fac0252acbd1 (diff)
use fewer tabs
Diffstat (limited to 'src/Propellor/CmdLine.hs')
-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