summaryrefslogtreecommitdiff
path: root/Git/Repair.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Git/Repair.hs')
-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"