diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-26 15:37:16 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-26 15:37:16 -0400 |
| commit | 268cb35e644754093db003aee08d050a1f3f9466 (patch) | |
| tree | c00319c584a9ad020027eebc1af2e1a525a55473 /Command/Untrust.hs | |
| parent | f7e3d6eea2f71efe14c3ccb29ef4e88840384d02 (diff) | |
implement 3 level trust storage in trust.log
Diffstat (limited to 'Command/Untrust.hs')
| -rw-r--r-- | Command/Untrust.hs | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/Command/Untrust.hs b/Command/Untrust.hs index 01b97b1c1..9e884e812 100644 --- a/Command/Untrust.hs +++ b/Command/Untrust.hs @@ -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 |