diff options
Diffstat (limited to 'Command/Trust.hs')
-rw-r--r-- | Command/Trust.hs | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/Command/Trust.hs b/Command/Trust.hs index c97d75ee4..a40c8dccc 100644 --- a/Command/Trust.hs +++ b/Command/Trust.hs @@ -7,13 +7,10 @@ module Command.Trust where -import Control.Monad.State (liftIO) -import Control.Monad (unless) - import Command -import qualified Annex import qualified GitRepo as Git import qualified Remotes +import Trust import UUID import Messages @@ -34,11 +31,5 @@ start name = do perform :: Git.Repo -> CommandPerform perform repo = do uuid <- getUUID repo - trusted <- getTrusted - unless (elem uuid trusted) $ do - setTrusted $ 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 Trusted return $ Just $ return True |