diff options
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Directory.hs | 4 |
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 |