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

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