diff options
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 |