From 289afbc22f3ac0f08b9c785ef4c8b996a404203f Mon Sep 17 00:00:00 2001 From: Daniel Brooks Date: Tue, 27 Dec 2016 01:12:03 -0500 Subject: use fewer tabs --- src/Propellor/CmdLine.hs | 46 ++++++++++++++++++++++++++++++---------------- 1 file changed, 30 insertions(+), 16 deletions(-) (limited to 'src/Propellor/CmdLine.hs') 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 -- cgit v1.2.3