diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-01-28 16:51:40 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-28 16:52:08 -0400 |
| commit | 6e765717650f0270cdc497d38245bcbc4180e60c (patch) | |
| tree | c989f13da5507d8f46fdfa1b36f1ce0aa77aca2f /Remote/Rsync | |
| parent | 82161654830b0dc4187e9928555c9321ef61bb89 (diff) | |
implement annex.tune.objecthashlower
Split out Annex.DirHashes which never really belonged in Locations.
Diffstat (limited to 'Remote/Rsync')
| -rw-r--r-- | Remote/Rsync/RsyncUrl.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/Rsync/RsyncUrl.hs b/Remote/Rsync/RsyncUrl.hs index 5493e4e90..0cb1733c6 100644 --- a/Remote/Rsync/RsyncUrl.hs +++ b/Remote/Rsync/RsyncUrl.hs @@ -19,6 +19,7 @@ import System.FilePath.Posix #ifdef mingw32_HOST_OS import Data.String.Utils #endif +import Annex.DirHashes type RsyncUrl = String @@ -36,7 +37,7 @@ rsyncEscape o u | otherwise = u rsyncUrls :: RsyncOpts -> Key -> [RsyncUrl] -rsyncUrls o k = map use (annexHashes def) +rsyncUrls o k = map (use . def) dirHashes where use h = rsyncUrl o </> hash h </> rsyncEscape o (f </> f) f = keyFile k |