diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-12 18:23:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-12 18:30:33 -0400 |
| commit | 543d0d250104c1f5908e1b7b258d36d95488a029 (patch) | |
| tree | 7342d994ac8932ed92b1e14108fdc6bb8e84d84e /Command/Unused.hs | |
| parent | da95cbadca5b7ef3058b91a384d5f3a48cc39039 (diff) | |
split out Git/Ref.hs
Diffstat (limited to 'Command/Unused.hs')
| -rw-r--r-- | Command/Unused.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index be0107752..cd1cd1602 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -20,6 +20,7 @@ import Utility.TempFile import Logs.Location import qualified Annex import qualified Git +import qualified Git.Ref import qualified Git.LsFiles as LsFiles import qualified Git.LsTree as LsTree import qualified Backend @@ -190,7 +191,7 @@ getKeysReferenced = do {- List of keys referenced by symlinks in a git ref. -} getKeysReferencedInGit :: Git.Ref -> Annex [Key] getKeysReferencedInGit ref = do - showAction $ "checking " ++ Git.refDescribe ref + showAction $ "checking " ++ Git.Ref.describe ref findkeys [] =<< inRepo (LsTree.lsTree ref) where findkeys c [] = return c |