refactor
This commit is contained in:
parent
97f809c006
commit
0815cc2fc1
2 changed files with 33 additions and 23 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue