This commit is contained in:
Joey Hess 2011-12-02 14:39:47 -04:00
parent 97f809c006
commit 0815cc2fc1
2 changed files with 33 additions and 23 deletions

View file

@ -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