diff options
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 |