refactor
This commit is contained in:
parent
d75da353b9
commit
4bf1a5ef59
9 changed files with 39 additions and 28 deletions
|
@ -26,6 +26,7 @@ import Locations
|
|||
import Trust
|
||||
import Utility.DataUnits
|
||||
import Utility.Path
|
||||
import Utility.FileMode
|
||||
import Config
|
||||
|
||||
command :: [Command]
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -19,6 +19,7 @@ import Content
|
|||
import Utility.Conditional
|
||||
import Utility.CopyFile
|
||||
import Utility.Path
|
||||
import Utility.FileMode
|
||||
|
||||
command :: [Command]
|
||||
command =
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue