This commit is contained in:
Joey Hess 2011-10-31 16:46:51 -04:00
parent 00988bcf36
commit 3d2a9f8405
11 changed files with 48 additions and 54 deletions

View file

@ -20,15 +20,11 @@ seek :: [CommandSeek]
seek = [withWords start]
start :: [String] -> CommandStart
start ws = do
let (name, description) =
case ws of
(n:d) -> (n,unwords d)
_ -> error "Specify a repository and a description."
start (name:description) = do
showStart "describe" name
u <- Remote.nameToUUID name
next $ perform u description
next $ perform u $ unwords description
start _ = do error "Specify a repository and a description."
perform :: UUID -> String -> CommandPerform
perform u description = do