summaryrefslogtreecommitdiff
path: root/Logs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2014-12-16 23:22:46 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2014-12-16 23:22:46 -0400
commit7dcad535f2db4b1e5f89ae2d59496fd86bba977c (patch)
tree7bc91205119c531fe29d1352cdf52719ebed11a7 /Logs
parent4556a7ce6c079f27f8f02b945829ad8d41dc5881 (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.hs7
-rw-r--r--Logs/Trust/Basic.hs6
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