diff options
author | 2015-01-28 15:55:17 -0400 | |
---|---|---|
committer | 2015-01-28 15:55:17 -0400 | |
commit | 7ca8ec00a7fcda71a08d22f06838424765a1b215 (patch) | |
tree | aa377fccb40797a734372127c19177524fa8af2b /Remote/Rsync/RsyncUrl.hs | |
parent | 3327618e5b48afb10a8f98afe15c750d8ed4c416 (diff) |
groundwork for parameterizing hash depth
Diffstat (limited to 'Remote/Rsync/RsyncUrl.hs')
-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 7ebd2f68d..5493e4e90 100644 --- a/Remote/Rsync/RsyncUrl.hs +++ b/Remote/Rsync/RsyncUrl.hs @@ -14,6 +14,7 @@ import Locations import Utility.Rsync import Utility.SafeCommand +import Data.Default import System.FilePath.Posix #ifdef mingw32_HOST_OS import Data.String.Utils @@ -35,7 +36,7 @@ rsyncEscape o u | otherwise = u rsyncUrls :: RsyncOpts -> Key -> [RsyncUrl] -rsyncUrls o k = map use annexHashes +rsyncUrls o k = map use (annexHashes def) where use h = rsyncUrl o </> hash h </> rsyncEscape o (f </> f) f = keyFile k |