diff options
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 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 |