refactor
This commit is contained in:
parent
76be8c34ac
commit
f2cc87860c
2 changed files with 9 additions and 6 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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue