cleanup
This commit is contained in:
parent
00988bcf36
commit
3d2a9f8405
11 changed files with 48 additions and 54 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue