diff options
author | Joey Hess <joeyh@joeyh.name> | 2014-12-16 23:22:46 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2014-12-16 23:22:46 -0400 |
commit | 7dcad535f2db4b1e5f89ae2d59496fd86bba977c (patch) | |
tree | 7bc91205119c531fe29d1352cdf52719ebed11a7 /Logs | |
parent | 4556a7ce6c079f27f8f02b945829ad8d41dc5881 (diff) |
Added bittorrent special remote
addurl behavior change: When downloading an url ending in .torrent,
it will download files from bittorrent, instead of the old behavior
of adding the torrent file to the repository.
Added Recommends on aria2 and bittornado | bittorrent.
This commit was sponsored by Asbjørn Sloth Tønnesen.
Diffstat (limited to 'Logs')
-rw-r--r-- | Logs/Trust.hs | 7 | ||||
-rw-r--r-- | Logs/Trust/Basic.hs | 6 |
2 files changed, 6 insertions, 7 deletions
diff --git a/Logs/Trust.hs b/Logs/Trust.hs index b880f44de..41ce5a551 100644 --- a/Logs/Trust.hs +++ b/Logs/Trust.hs @@ -15,7 +15,6 @@ module Logs.Trust ( trustExclude, lookupTrust, trustMapLoad, - trustMapRaw, ) where import qualified Data.Map as M @@ -23,7 +22,6 @@ import Data.Default import Common.Annex import Types.TrustLevel -import qualified Annex.Branch import qualified Annex import Logs import Remote.List @@ -77,8 +75,3 @@ trustMapLoad = do configuredtrust r = (\l -> Just (Types.Remote.uuid r, l)) =<< readTrustLevel =<< remoteAnnexTrustLevel (Types.Remote.gitconfig r) - -{- Does not include forcetrust or git config values, just those from the - - log file. -} -trustMapRaw :: Annex TrustMap -trustMapRaw = calcTrustMap <$> Annex.Branch.get trustLog diff --git a/Logs/Trust/Basic.hs b/Logs/Trust/Basic.hs index 646e2e037..c356be28f 100644 --- a/Logs/Trust/Basic.hs +++ b/Logs/Trust/Basic.hs @@ -8,6 +8,7 @@ module Logs.Trust.Basic ( module X, trustSet, + trustMapRaw, ) where import Data.Time.Clock.POSIX @@ -30,3 +31,8 @@ trustSet uuid@(UUID _) level = do parseLog (Just . parseTrustLog) Annex.changeState $ \s -> s { Annex.trustmap = Nothing } trustSet NoUUID _ = error "unknown UUID; cannot modify" + +{- Does not include forcetrust or git config values, just those from the + - log file. -} +trustMapRaw :: Annex TrustMap +trustMapRaw = calcTrustMap <$> Annex.Branch.get trustLog |