From 5f433ad64700907de155ed1e5155193f28f93576 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 1 Mar 2016 15:03:23 +0100 Subject: More consistent formats & accurate documentation --- tprint/src/Options.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tprint/src/Options.hs') diff --git a/tprint/src/Options.hs b/tprint/src/Options.hs index ca5ee2b..1ad6c47 100644 --- a/tprint/src/Options.hs +++ b/tprint/src/Options.hs @@ -83,7 +83,7 @@ data Sink = Stdout | WriteFile FilePath supportedInputs, supportedOutputs :: [Format] supportedInputs = [BBCode, JSON] -supportedOutputs = [Human, Internal, JSON] +supportedOutputs = [Human, BBCode, Internal, JSON] cmdPrinters, cmdJobs, cmdJobCreate, cmdJob, cmdJobStatus, cmdJobDelete, cmdDrafts, cmdDraftCreate, cmdDraftReplace, cmdDraft, cmdDraftDelete, cmdDraftPrint :: ParserInfo Operation cmdPrinters = info cmdPrinters' $ progDesc "List all available printers" @@ -157,7 +157,7 @@ pTPrint = TPrint <$> option (eitherReader parseBaseUrl) (metavar "URL" <> long " pOutput :: Parser Output pOutput = (,) <$> pOutputFormat <*> pSink where - pOutputFormat = option rCI $ metavar "FORMAT" <> long "output-format" <> short 'O' <> help ("Format to use for all output (possible values: " ++ show supportedOutputs ++ ")") <> value (head supportedOutputs) <> showDefault + pOutputFormat = option rCI $ metavar "FORMAT" <> long "output-format" <> short 'O' <> help ("Format to use for all output (possible values: " ++ show supportedOutputs ++ ")\nNo guarantees are made whether a format works for any given subcommand, unsupported formats are silently replaced with variations on the theme of `Human'") <> value (head supportedOutputs) <> showDefault pSink = option rSink $ metavar "PATH" <> long "output" <> short 'o' <> help "Send output to PATH (`-' means stdout)" <> value Stdout <> showDefault rSink = rSink' <$> str where -- cgit v1.2.3