mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

warnings

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
Command/Trust.hs
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