diff options
Diffstat (limited to 'Git/Repair.hs')
-rw-r--r-- | Git/Repair.hs | 6 |
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" |