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/Untrust.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/Untrust.hs')
| -rw-r--r-- | Command/Untrust.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Command/Untrust.hs b/Command/Untrust.hs index ebe9c31b3..174c39506 100644 --- a/Command/Untrust.hs +++ b/Command/Untrust.hs @@ -18,10 +18,11 @@ command = [repoCommand "untrust" (paramRepeating paramRemote) seek "do not trust a repository"] seek :: [CommandSeek] -seek = [withString start] +seek = [withWords start] -start :: CommandStartString -start name = notBareRepo $ do +start :: CommandStartWords +start ws = notBareRepo $ do + let name = unwords ws showStart "untrust" name u <- Remote.nameToUUID name next $ perform u |