implement annex.tune.objecthashlower

Split out Annex.DirHashes which never really belonged in Locations.

1 files changed, 2 insertions, 1 deletions

diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs
index 04bbb19a7..da258551b 100644
--- a/Remote/Rsync.hs
+++ b/Remote/Rsync.hs
@@ -37,6 +37,7 @@ import Annex.Perms
 import Logs.Transfer
 import Types.Creds
 import Types.Key (isChunkKey)
+import Annex.DirHashes
 
 import qualified Data.Map as M
 
@@ -212,7 +213,7 @@ 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 (annexHashes def)
+	includes = concatMap (use .def) dirHashes
 	use h = let dir = h k in
 		[ parentDir dir
 		, dir