diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-12-15 15:34:28 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-12-15 15:34:28 -0400 |
commit | 59654d08a2335bf716f38b76095121c6e4c62535 (patch) | |
tree | f4d450caa09cfc4e373ee946b2cef956f9429757 /Command/Unused.hs | |
parent | 271fe1ce457447b0aee8d825b9186a0b579b56d0 (diff) |
reorg
Diffstat (limited to 'Command/Unused.hs')
-rw-r--r-- | Command/Unused.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index 4756cda5d..4353bd075 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -24,7 +24,6 @@ import qualified Git.Branch import qualified Git.RefLog import qualified Git.LsFiles as LsFiles import qualified Git.DiffTree as DiffTree -import qualified Backend import qualified Remote import qualified Annex.Branch import Annex.CatFile @@ -215,7 +214,7 @@ withKeysReferenced' mdir initial a = do Just dir -> inRepo $ LsFiles.inRepo [dir] go v [] = return v go v (f:fs) = do - x <- Backend.lookupFile f + x <- lookupFile f case x of Nothing -> go v fs Just k -> do @@ -266,7 +265,7 @@ withKeysReferencedInGitRef a ref = do forM_ ts $ tKey lookAtWorkingTree >=> maybe noop a liftIO $ void clean where - tKey True = Backend.lookupFile . getTopFilePath . DiffTree.file + tKey True = lookupFile . getTopFilePath . DiffTree.file tKey False = fileKey . takeFileName . decodeBS <$$> catFile ref . getTopFilePath . DiffTree.file |