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

trust setting improvements

Browse source
This commit is contained in:
Joey Hess 2011-01-26 16:20:28 -04:00
parent 7b2da21ab7
commit 7f6af79232
8 changed files with 47 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Untrust.hs
View file

@ -21,11 +21,11 @@ command = [Command "untrust" (paramRepeating paramRemote) seek
seek :: [CommandSeek]
seek = [withString start]
{- Marks a remote as not trusted. -}
start :: CommandStartString
start name = do
r <- Remotes.byName name
showStart "untrust" name
Remotes.readConfigs
r <- Remotes.byName name
return $ Just $ perform r
perform :: Git.Repo -> CommandPerform