summaryrefslogtreecommitdiff
path: root/Command/Untrust.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-01-26 15:37:16 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-01-26 15:37:16 -0400
commit268cb35e644754093db003aee08d050a1f3f9466 (patch)
treec00319c584a9ad020027eebc1af2e1a525a55473 /Command/Untrust.hs
parentf7e3d6eea2f71efe14c3ccb29ef4e88840384d02 (diff)
implement 3 level trust storage in trust.log
Diffstat (limited to 'Command/Untrust.hs')
-rw-r--r--Command/Untrust.hs13
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