diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-01-28 18:01:54 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-28 18:05:08 -0400 |
| commit | ed3c22b16a0652b591165ab7575b06b356ca7f0a (patch) | |
| tree | 8cd063846b51f7f11130e1d2a953f0600c2bc6df /Remote/Rsync | |
| parent | ff8a0b0b73685283aedf6d49cdd9b27f22fe6e9f (diff) | |
test suite found a problem with today's work
". def" did not do what I thought it would, at all.
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 |