mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor

Browse source
This commit is contained in:
Joey Hess 2011-09-23 18:13:24 -04:00
parent d75da353b9
commit 4bf1a5ef59
9 changed files with 39 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Unused.hs
View file

@ -184,7 +184,7 @@ getKeysReferenced = do
staleKeysPrune :: (Git.Repo -> FilePath) -> [Key] -> Annex [Key]
staleKeysPrune dirspec present = do
contents <- staleKeys dirspec
let stale = contents `exclude` present
let dup = contents `exclude` stale