Commit 0b2896ef authored by Benno Fünfstück's avatar Benno Fünfstück
Browse files

upload: default to upload-as-candidate

parent 551646a7
......@@ -1438,7 +1438,7 @@ data UploadFlags = UploadFlags {
defaultUploadFlags :: UploadFlags
defaultUploadFlags = UploadFlags {
uploadCandidate = toFlag False,
uploadCandidate = toFlag True,
uploadCheck = toFlag False,
uploadDoc = toFlag False,
uploadUsername = mempty,
......@@ -1461,10 +1461,10 @@ uploadCommand = CommandUI {
commandOptions = \_ ->
[optionVerbosity uploadVerbosity (\v flags -> flags { uploadVerbosity = v })
,option ['C'] ["candidate"]
"Upload the package as candidate."
,option [] ["publish"]
"Publish the package instead of uploading it as a candidate."
uploadCandidate (\v flags -> flags { uploadCandidate = v })
trueArg
falseArg
,option ['c'] ["check"]
"Do not upload, just do QA checks."
......@@ -1473,7 +1473,8 @@ uploadCommand = CommandUI {
,option ['d'] ["documentation"]
"Upload documentation instead of a source package. Cannot be used together with --check. \
\\nWhen combined with --candidate, uploads docuementation for a package candidate."
\By default, this uploads documentation for a package candidate. To upload documentation for \
\a published package, combine with --publish."
uploadDoc (\v flags -> flags { uploadDoc = v })
trueArg
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment