implement 3 level trust storage in trust.log

This commit is contained in:
Joey Hess 2011-01-26 15:37:16 -04:00
parent f7e3d6eea2
commit 268cb35e64
9 changed files with 153 additions and 65 deletions

View file

@ -7,14 +7,11 @@
module Command.Untrust where
import Control.Monad.State (liftIO)
import Control.Monad (when)
import Command
import qualified Annex
import qualified GitRepo as Git
import qualified Remotes
import UUID
import Trust
import Messages
command :: [Command]
@ -34,11 +31,5 @@ start name = do
perform :: Git.Repo -> CommandPerform
perform repo = do
uuid <- getUUID repo
trusted <- getTrusted
when (elem uuid trusted) $ do
setTrusted $ filter (\u -> u /= uuid) trusted
g <- Annex.gitRepo
logfile <- trustLog
liftIO $ Git.run g ["add", logfile]
liftIO $ Git.run g ["commit", "-q", "-m", "git annex untrust", logfile]
trustSet uuid UnTrusted
return $ Just $ return True