summaryrefslogtreecommitdiff
path: root/Command/Unused.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-10-17 15:01:23 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-10-17 15:01:23 -0400
commitbf1d81bd3ec7b4128d13ca04d2a90c8165d5ee2f (patch)
tree896d01208e68deafae031adf52940c6ae7d93496 /Command/Unused.hs
parent7d5c56d93296976fbcd8d51726f786fefc72defa (diff)
update for DiffTree type change
Experimentally, using the raw TopFilePath was right here.
Diffstat (limited to 'Command/Unused.hs')
-rw-r--r--Command/Unused.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs
index 6210b2115..844cdb19b 100644
--- a/Command/Unused.hs
+++ b/Command/Unused.hs
@@ -36,6 +36,7 @@ import qualified Annex.Branch
import qualified Option
import Annex.CatFile
import Types.Key
+import Git.FilePath
def :: [Command]
def = [withOptions [fromOption] $ command "unused" paramNothing seek
@@ -293,9 +294,9 @@ withKeysReferencedInGitRef a ref = do
forM_ ts $ tKey lookAtWorkingTree >=> maybe noop a
liftIO $ void clean
where
- tKey True = fmap fst <$$> Backend.lookupFile . DiffTree.file
+ tKey True = fmap fst <$$> Backend.lookupFile . getTopFilePath . DiffTree.file
tKey False = fileKey . takeFileName . encodeW8 . L.unpack <$$>
- catFile ref . DiffTree.file
+ catFile ref . getTopFilePath . DiffTree.file
{- Looks in the specified directory for bad/tmp keys, and returns a list
- of those that might still have value, or might be stale and removable.