diff options
Diffstat (limited to 'Remote/Rsync')
-rw-r--r-- | Remote/Rsync/RsyncUrl.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Rsync/RsyncUrl.hs b/Remote/Rsync/RsyncUrl.hs index 0cb1733c6..9a7319246 100644 --- a/Remote/Rsync/RsyncUrl.hs +++ b/Remote/Rsync/RsyncUrl.hs @@ -37,12 +37,12 @@ rsyncEscape o u | otherwise = u rsyncUrls :: RsyncOpts -> Key -> [RsyncUrl] -rsyncUrls o k = map (use . def) dirHashes +rsyncUrls o k = map use dirHashes where use h = rsyncUrl o </> hash h </> rsyncEscape o (f </> f) f = keyFile k #ifndef mingw32_HOST_OS - hash h = h k + hash h = h def k #else hash h = replace "\\" "/" (h k) #endif |