summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess <joey@kitenet.net>2013-11-21 14:40:44 -0400
committerJoey Hess <joey@kitenet.net>2013-11-21 14:40:44 -0400
commita006978b687efd3c4a8d587a2d10c56e8d2d3e24 (patch)
tree233c7edebb4b1790d090aa152d274b6bbf58bb2a
parent7b682261d199f31f7b09c8e05bccb23a2410d768 (diff)
downloadgit-repair-a006978b687efd3c4a8d587a2d10c56e8d2d3e24.tar.gz
minor opt
-rw-r--r--Git/Repair.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Git/Repair.hs b/Git/Repair.hs
index 474184b..f281e71 100644
--- a/Git/Repair.hs
+++ b/Git/Repair.hs
@@ -94,9 +94,9 @@ cleanCorruptObjects mmissing r = check mmissing
removeLoose :: Repo -> MissingObjects -> IO Bool
removeLoose r s = do
- let fs = map (looseObjectFile r) (S.toList s)
- count <- length <$> filterM doesFileExist fs
- if (count > 0)
+ fs <- filterM doesFileExist (map (looseObjectFile r) (S.toList s))
+ let count = length fs
+ if count > 0
then do
putStrLn $ unwords
[ "Removing"