diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-10-15 14:29:53 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-10-15 14:29:53 -0400 |
| commit | 5484d9e18ae820f4d1840524f9a265f93864f5b7 (patch) | |
| tree | 18ea0207747dce01485c5d5a980dc15488beb76a /Command/Trust.hs | |
| parent | 5f127608b8616e19b7e86bd550e714da118ee42e (diff) | |
warnings
Diffstat (limited to 'Command/Trust.hs')
| -rw-r--r-- | Command/Trust.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Trust.hs b/Command/Trust.hs index 638fc50e4..f02fcf617 100644 --- a/Command/Trust.hs +++ b/Command/Trust.hs @@ -24,11 +24,11 @@ seek :: CommandSeek seek = trustCommand "trust" Trusted trustCommand :: String -> TrustLevel -> CommandSeek -trustCommand cmd level = withWords start +trustCommand c level = withWords start where start ws = do let name = unwords ws - showStart cmd name + showStart c name u <- Remote.nameToUUID name next $ perform u perform uuid = do |