This commit is contained in:
Joey Hess 2011-11-11 01:52:58 -04:00
parent b327227ba5
commit 637b5feb45
26 changed files with 71 additions and 102 deletions

View file

@ -24,7 +24,7 @@ start (name:description) = do
showStart "describe" name
u <- Remote.nameToUUID name
next $ perform u $ unwords description
start _ = do error "Specify a repository and a description."
start _ = error "Specify a repository and a description."
perform :: UUID -> String -> CommandPerform
perform u description = do