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

View file

@ -26,6 +26,7 @@ import Locations
import Trust
import Utility.DataUnits
import Utility.Path
import Utility.FileMode
import Config
command :: [Command]

View file

@ -18,6 +18,7 @@ import qualified Annex
import qualified AnnexQueue
import Utility.SafeCommand
import Utility.Path
import Utility.FileMode
import LocationLog
import Types
import Content

View file

@ -19,6 +19,7 @@ import Content
import Utility.Conditional
import Utility.CopyFile
import Utility.Path
import Utility.FileMode
command :: [Command]
command =

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