summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-09-28 17:38:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-09-28 17:38:41 -0400
commit8e4bd621b9e8ecafc65e029f015a4c460ec95abc (patch)
treea7a5edc12071ed3920578899d4a5e8ebb94574e6 /Command
parentb4d5c10fb71a0aa938c7dde0b9aaf57d9e793874 (diff)
enable short-circuiting optimisatons
Diffstat (limited to 'Command')
-rw-r--r--Command/Unused.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs
index b15aa001a..e65f0790b 100644
--- a/Command/Unused.hs
+++ b/Command/Unused.hs
@@ -161,7 +161,7 @@ unusedKeys = do
{- Finds keys in the list that are not referenced in the git repository. -}
excludeReferenced :: [Key] -> Annex [Key]
--- excludeReferenced [] = return [] -- optimisation
+excludeReferenced [] = return [] -- optimisation
excludeReferenced l = do
g <- Annex.gitRepo
c <- liftIO $ Git.pipeRead g [Param "show-ref"]
@@ -180,7 +180,7 @@ excludeReferenced l = do
excludeReferenced' :: ([Annex [Key]]) -> S.Set Key -> Annex [Key]
excludeReferenced' [] s = return $ S.toList s
excludeReferenced' (a:as) s
- -- | s == S.empty = return [] -- optimisation
+ | s == S.empty = return [] -- optimisation
| otherwise = do
referenced <- a
let !s' = remove referenced