mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

enable short-circuiting optimisatons

Browse source
This commit is contained in:
Joey Hess 2011-09-28 17:38:41 -04:00
parent b4d5c10fb7
commit 8e4bd621b9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Command/Unused.hs
View file

@ -161,7 +161,7 @@ unusedKeys = do
{- Finds keys in the list that are not referenced in the git repository. -} {- Finds keys in the list that are not referenced in the git repository. -}
excludeReferenced :: [Key] -> Annex [Key] excludeReferenced :: [Key] -> Annex [Key]
-- excludeReferenced [] = return [] -- optimisation excludeReferenced [] = return [] -- optimisation
excludeReferenced l = do excludeReferenced l = do
g <- Annex.gitRepo g <- Annex.gitRepo
c <- liftIO $ Git.pipeRead g [Param "show-ref"] c <- liftIO $ Git.pipeRead g [Param "show-ref"]
@ -180,7 +180,7 @@ excludeReferenced l = do
excludeReferenced' :: ([Annex [Key]]) -> S.Set Key -> Annex [Key] excludeReferenced' :: ([Annex [Key]]) -> S.Set Key -> Annex [Key]
excludeReferenced' [] s = return $ S.toList s excludeReferenced' [] s = return $ S.toList s
excludeReferenced' (a:as) s excludeReferenced' (a:as) s
-- | s == S.empty = return [] -- optimisation | s == S.empty = return [] -- optimisation
| otherwise = do | otherwise = do
referenced <- a referenced <- a
let !s' = remove referenced let !s' = remove referenced