diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-28 17:38:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-28 17:38:41 -0400 |
| commit | 8e4bd621b9e8ecafc65e029f015a4c460ec95abc (patch) | |
| tree | a7a5edc12071ed3920578899d4a5e8ebb94574e6 | |
| parent | b4d5c10fb71a0aa938c7dde0b9aaf57d9e793874 (diff) | |
enable short-circuiting optimisatons
| -rw-r--r-- | Command/Unused.hs | 4 |
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 |