diff options
Diffstat (limited to 'Command/Describe.hs')
-rw-r--r-- | Command/Describe.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/Describe.hs b/Command/Describe.hs index dcabef7fb..57f884e03 100644 --- a/Command/Describe.hs +++ b/Command/Describe.hs @@ -18,12 +18,12 @@ command = [repoCommand "describe" (paramPair paramRemote paramDesc) seek "change description of a repository"] seek :: [CommandSeek] -seek = [withString start] +seek = [withWords start] -start :: CommandStartString -start params = notBareRepo $ do +start :: CommandStartWords +start ws = notBareRepo $ do let (name, description) = - case (words params) of + case ws of (n:d) -> (n,unwords d) _ -> error "Specify a repository and a description." |