diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-02 14:39:47 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-02 14:47:59 -0400 |
| commit | 0815cc2fc1ffccd89bb942a9129a2c29e291b038 (patch) | |
| tree | 53f8a11609e41031ad5ba3f5e4919674aabc4bfe /Remote | |
| parent | 97f809c0069c7e7e107f10dab614e3f765255abe (diff) | |
refactor
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 |