From a006978b687efd3c4a8d587a2d10c56e8d2d3e24 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 21 Nov 2013 14:40:44 -0400 Subject: minor opt --- Git/Repair.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Git/Repair.hs') 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" -- cgit v1.2.3