More consistent formats & accurate documentation

1 files changed, 2 insertions, 2 deletions

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