reorganize log modules

no code changes
This commit is contained in:
Joey Hess 2011-10-15 16:21:08 -04:00
parent 279150ccd5
commit 1a29b5b52e
44 changed files with 92 additions and 92 deletions

View file

@ -34,12 +34,12 @@ import Text.JSON.Generic
import Common.Annex
import Types.Remote
import UUID
import qualified Annex
import Config
import Trust
import LocationLog
import RemoteLog
import Logs.UUID
import Logs.Trust
import Logs.Location
import Logs.Remote
import qualified Remote.Git
import qualified Remote.S3
@ -163,12 +163,12 @@ remotesWithUUID rs us = filter (\r -> uuid r `elem` us) rs
remotesWithoutUUID :: [Remote Annex] -> [UUID] -> [Remote Annex]
remotesWithoutUUID rs us = filter (\r -> uuid r `notElem` us) rs
{- Cost ordered lists of remotes that the LocationLog indicate may have a key.
{- Cost ordered lists of remotes that the Logs.Location indicate may have a key.
-}
keyPossibilities :: Key -> Annex [Remote Annex]
keyPossibilities key = fst <$> keyPossibilities' False key
{- Cost ordered lists of remotes that the LocationLog indicate may have a key.
{- Cost ordered lists of remotes that the Logs.Location indicate may have a key.
-
- Also returns a list of UUIDs that are trusted to have the key
- (some may not have configured remotes).