This commit is contained in:
Joey Hess 2011-06-02 02:33:31 -04:00
parent 76be8c34ac
commit f2cc87860c
2 changed files with 9 additions and 6 deletions

View file

@ -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