diff options
author | Joey Hess <joey@kitenet.net> | 2013-11-21 14:40:44 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-11-21 14:40:44 -0400 |
commit | a006978b687efd3c4a8d587a2d10c56e8d2d3e24 (patch) | |
tree | 233c7edebb4b1790d090aa152d274b6bbf58bb2a /Git/Repair.hs | |
parent | 7b682261d199f31f7b09c8e05bccb23a2410d768 (diff) | |
download | git-repair-a006978b687efd3c4a8d587a2d10c56e8d2d3e24.tar.gz |
minor opt
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" |