diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-01-28 15:55:17 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-28 15:55:17 -0400 |
| commit | 7ca8ec00a7fcda71a08d22f06838424765a1b215 (patch) | |
| tree | aa377fccb40797a734372127c19177524fa8af2b /Remote/Rsync.hs | |
| parent | 3327618e5b48afb10a8f98afe15c750d8ed4c416 (diff) | |
groundwork for parameterizing hash depth
Diffstat (limited to 'Remote/Rsync.hs')
| -rw-r--r-- | Remote/Rsync.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs index ae6f5450e..527bfb80a 100644 --- a/Remote/Rsync.hs +++ b/Remote/Rsync.hs @@ -38,6 +38,7 @@ import Logs.Transfer import Types.Creds import Types.Key (isChunkKey) +import Data.Default import qualified Data.Map as M remote :: RemoteType @@ -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 + includes = concatMap use (annexHashes def) use h = let dir = h k in [ parentDir dir , dir |