summaryrefslogtreecommitdiff
path: root/Remote/Rsync.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Remote/Rsync.hs')
-rw-r--r--Remote/Rsync.hs4
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