diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-01-10 13:11:16 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-01-10 13:32:38 -0400 |
| commit | 07cacbeee95b377e1bf4111e4d4b30190956c585 (patch) | |
| tree | 17249f177a6ffde3d2f524ee66a9a6b2530bd92e /Command/Fsck.hs | |
| parent | 0d5c4022105a393a4eac76b09940f8b22fa0a56c (diff) | |
break module dependancy loop
A PITA but worth it to clean up the trust configuration code.
Diffstat (limited to 'Command/Fsck.hs')
| -rw-r--r-- | Command/Fsck.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 723a2e740..61107ebe1 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -93,7 +93,7 @@ verifyLocationLog key desc = do preventWrite (parentDir f) u <- getUUID - uuids <- keyLocations key + uuids <- Remote.keyLocations key case (present, u `elem` uuids) of (True, False) -> do @@ -142,7 +142,7 @@ checkBackend = Types.Backend.fsckKey checkKeyNumCopies :: Key -> FilePath -> Maybe Int -> Annex Bool checkKeyNumCopies key file numcopies = do needed <- getNumCopies numcopies - (untrustedlocations, safelocations) <- trustPartition UnTrusted =<< keyLocations key + (untrustedlocations, safelocations) <- trustPartition UnTrusted =<< Remote.keyLocations key let present = length safelocations if present < needed then do |