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.hs | |
| 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.hs')
| -rw-r--r-- | Remote/Rsync.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs index da258551b..f5d4c85c4 100644 --- a/Remote/Rsync.hs +++ b/Remote/Rsync.hs @@ -213,8 +213,8 @@ remove o k = do - content could be. Note that the parent directories have - to also be explicitly included, due to how rsync - traverses directories. -} - includes = concatMap (use .def) dirHashes - use h = let dir = h k in + includes = concatMap use dirHashes + use h = let dir = h def k in [ parentDir dir , dir -- match content directory and anything in it |