aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tprint/src/Options.hs4
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
83 83
84supportedInputs, supportedOutputs :: [Format] 84supportedInputs, supportedOutputs :: [Format]
85supportedInputs = [BBCode, JSON] 85supportedInputs = [BBCode, JSON]
86supportedOutputs = [Human, Internal, JSON] 86supportedOutputs = [Human, BBCode, Internal, JSON]
87 87
88cmdPrinters, cmdJobs, cmdJobCreate, cmdJob, cmdJobStatus, cmdJobDelete, cmdDrafts, cmdDraftCreate, cmdDraftReplace, cmdDraft, cmdDraftDelete, cmdDraftPrint :: ParserInfo Operation 88cmdPrinters, cmdJobs, cmdJobCreate, cmdJob, cmdJobStatus, cmdJobDelete, cmdDrafts, cmdDraftCreate, cmdDraftReplace, cmdDraft, cmdDraftDelete, cmdDraftPrint :: ParserInfo Operation
89cmdPrinters = info cmdPrinters' $ progDesc "List all available printers" 89cmdPrinters = info cmdPrinters' $ progDesc "List all available printers"
@@ -157,7 +157,7 @@ pTPrint = TPrint <$> option (eitherReader parseBaseUrl) (metavar "URL" <> long "
157pOutput :: Parser Output 157pOutput :: Parser Output
158pOutput = (,) <$> pOutputFormat <*> pSink 158pOutput = (,) <$> pOutputFormat <*> pSink
159 where 159 where
160 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 160 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
161 pSink = option rSink $ metavar "PATH" <> long "output" <> short 'o' <> help "Send output to PATH (`-' means stdout)" <> value Stdout <> showDefault 161 pSink = option rSink $ metavar "PATH" <> long "output" <> short 'o' <> help "Send output to PATH (`-' means stdout)" <> value Stdout <> showDefault
162 rSink = rSink' <$> str 162 rSink = rSink' <$> str
163 where 163 where