test suite found a problem with today's work

". def" did not do what I thought it would, at all.
This commit is contained in:
Joey Hess 2015-01-28 18:01:54 -04:00
parent 10af77d657
commit e0187d5d12
3 changed files with 5 additions and 5 deletions

View file

@ -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