summaryrefslogtreecommitdiff
path: root/Trust.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Trust.hs')
-rw-r--r--Trust.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/Trust.hs b/Trust.hs
index d6d0516ab..aaca3b370 100644
--- a/Trust.hs
+++ b/Trust.hs
@@ -23,7 +23,6 @@ import Types
import UUID
import Locations
import qualified Annex
-import qualified Remote
import Utility
{- Filename of trust.log. -}
@@ -43,14 +42,11 @@ trustGet level = do
trustMap :: Annex (M.Map UUID TrustLevel)
trustMap = do
logfile <- trustLog
- overrides <- Annex.getState Annex.forcetrust >>= mapM findoverride
+ overrides <- Annex.getState Annex.forcetrust
s <- liftIO $ catch (readFile logfile) ignoreerror
return $ M.fromList $ trustMapParse s ++ overrides
where
ignoreerror _ = return ""
- findoverride (name, t) = do
- uuid <- Remote.nameToUUID name
- return (uuid, t)
{- Trust map parser. -}
trustMapParse :: String -> [(UUID, TrustLevel)]