summaryrefslogtreecommitdiff
path: root/Command/Untrust.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-05-16 12:25:54 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-05-16 12:25:54 -0400
commitceff04ff3e7fff4b0ea6e8ad4334cca80d291880 (patch)
treee0e7296c82dc30b8e6dab1024a645d29a5c69b36 /Command/Untrust.hs
parent8fa17eaba08b99250d6290915379f048844d83d7 (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.hs7
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