implement 3 level trust storage in trust.log
This commit is contained in:
parent
f7e3d6eea2
commit
268cb35e64
9 changed files with 153 additions and 65 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue