File tree 1 file changed +4
-4
lines changed
1 file changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -117,11 +117,11 @@ main = do
117
117
setFilesOfInterest ide $ Set. fromList $ map toNormalizedFilePath files
118
118
results <- runActionSync ide $ uses TypeCheck $ map toNormalizedFilePath files
119
119
let (worked, failed) = partition fst $ zip (map isJust results) files
120
- putStrLn $ " Files that worked: " ++ show (length worked)
121
- putStrLn $ " Files that failed: " ++ show (length failed)
122
- putStr $ unlines $ map ((++) " * " . snd ) failed
120
+ when (failed /= [] ) $
121
+ putStr $ unlines $ " Files that failed:" : map ((++) " * " . snd ) failed
123
122
124
- putStrLn " Done"
123
+ let files xs = let n = length xs in if n == 1 then " 1 file" else show n ++ " files"
124
+ putStrLn $ " \n Completed (" ++ files worked ++ " worked, " ++ files failed ++ " failed)"
125
125
126
126
127
127
expandFiles :: [FilePath ] -> IO [FilePath ]
You can’t perform that action at this time.
0 commit comments