diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-05-16 12:25:54 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-05-16 12:25:54 -0400 |
| commit | ceff04ff3e7fff4b0ea6e8ad4334cca80d291880 (patch) | |
| tree | e0e7296c82dc30b8e6dab1024a645d29a5c69b36 /Command/Describe.hs | |
| parent | 8fa17eaba08b99250d6290915379f048844d83d7 (diff) | |
better multiword parameter handling
This way, individual words as entered on the command line are available
to commands.
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." |