From 7ca8ec00a7fcda71a08d22f06838424765a1b215 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Jan 2015 15:55:17 -0400 Subject: groundwork for parameterizing hash depth --- Remote/Rsync/RsyncUrl.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Remote/Rsync') 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 -- cgit v1.2.3