This commit is contained in:
Joey Hess 2014-10-15 14:29:53 -04:00
parent cdcb4548b3
commit 807f8553c3
2 changed files with 4 additions and 4 deletions

View file

@ -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