summaryrefslogtreecommitdiff
path: root/Remote/Directory.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Remote/Directory.hs')
-rw-r--r--Remote/Directory.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/Remote/Directory.hs b/Remote/Directory.hs
index 83302b65a..5f294f0be 100644
--- a/Remote/Directory.hs
+++ b/Remote/Directory.hs
@@ -64,9 +64,7 @@ directorySetup u c = do
{- Locations to try to access a given Key in the Directory. -}
locations :: FilePath -> Key -> [FilePath]
-locations d k = map (\h -> d </> h k </> f </> f) annexHashes
- where
- f = keyFile k
+locations d k = map (d </>) (keyLocations k)
withCheckedFile :: (FilePath -> IO Bool) -> FilePath -> Key -> (FilePath -> IO Bool) -> IO Bool
withCheckedFile _ [] _ _ = return False