diff options
author | Joey Hess <joey@kitenet.net> | 2011-06-02 02:33:31 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-06-02 02:33:31 -0400 |
commit | f2cc87860ccb4ccb4a51dd9d255717a0e749fe76 (patch) | |
tree | aae721cc4157e1ed566aa7f5b42fc30c4c2dd4cf /Remote.hs | |
parent | 76be8c34acfacfc884b3fdd086bcf60b28570237 (diff) |
refactor
Diffstat (limited to 'Remote.hs')
-rw-r--r-- | Remote.hs | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -15,6 +15,7 @@ module Remote ( hasKey, hasKeyCheap, keyPossibilities, + forceTrust, remoteTypes, genList, @@ -137,6 +138,11 @@ keyPossibilities key = do return (sort validremotes, validtrusteduuids) +forceTrust :: TrustLevel -> String -> Annex () +forceTrust level remotename = do + r <- Remote.nameToUUID remotename + Annex.changeState $ \s -> + s { Annex.forcetrust = (r, level):Annex.forcetrust s } {- Filename of remote.log. -} remoteLog :: Annex FilePath |