warnings
This commit is contained in:
parent
cdcb4548b3
commit
807f8553c3
2 changed files with 4 additions and 4 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue