diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-14 15:56:11 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-14 15:56:11 -0400 |
| commit | ef28b3fef7e236d8c27ce35308c0e37ece58d20c (patch) | |
| tree | 346b40aaffcdb2ad5220741d9b9546821d07c4c9 /Command/Unused.hs | |
| parent | 02f1bd2bf47d3ff49a222e9428ec27708ef55f64 (diff) | |
split out Git/Command.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 cd1cd1602..8a70ff335 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.Command import qualified Git.Ref import qualified Git.LsFiles as LsFiles import qualified Git.LsTree as LsTree @@ -148,7 +149,7 @@ unusedKeys = do excludeReferenced :: [Key] -> Annex [Key] excludeReferenced [] = return [] -- optimisation excludeReferenced l = do - c <- inRepo $ Git.pipeRead [Param "show-ref"] + c <- inRepo $ Git.Command.pipeRead [Param "show-ref"] removewith (getKeysReferenced : map getKeysReferencedInGit (refs c)) (S.fromList l) where |