fix repo description setting bugs

* init: When the repository already has a description, don't change it.
* describe: When run with no description parameter it used to set
  the description to "", now it will error out.
This commit is contained in:
Joey Hess 2019-05-23 12:51:01 -04:00
parent b646a85c4a
commit a14f6ce758
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
5 changed files with 29 additions and 3 deletions

View file

@ -21,7 +21,7 @@ seek :: CmdParams -> CommandSeek
seek = withWords (commandAction . start)
start :: [String] -> CommandStart
start (name:description) = do
start (name:description) | not (null description) = do
showStart' "describe" (Just name)
u <- Remote.nameToUUID name
next $ perform u $ unwords description