haskell/ghcide
1
1
Fork 0
mirror of https://github.com/haskell/ghcide.git synced 2025-01-05 17:33:05 +03:00
Code Issues Projects Releases Wiki Activity

#137, make the status message clearer about what worked and what didn't (#138)

Browse Source
This commit is contained in:
Neil Mitchell 2019-09-27 14:18:24 +01:00 committed by Andreas Herrmann
parent 83978c3984
commit 9d45eee21c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
exe/Main.hs
View File

@ -117,11 +117,11 @@ main = do
setFilesOfInterest ide $ Set.fromList $ map toNormalizedFilePath files
results <- runActionSync ide $ uses TypeCheck $ map toNormalizedFilePath files
let (worked, failed) = partition fst $ zip (map isJust results) files
putStrLn $ "Files that worked: " ++ show (length worked)
putStrLn $ "Files that failed: " ++ show (length failed)
putStr $ unlines $ map ((++) " * " . snd) failed
when (failed /= []) $
putStr $ unlines $ "Files that failed:" : map ((++) " * " . snd) failed
putStrLn "Done"
let files xs = let n = length xs in if n == 1 then "1 file" else show n ++ " files"
putStrLn $ "\nCompleted (" ++ files worked ++ " worked, " ++ files failed ++ " failed)"
expandFiles :: [FilePath] -> IO [FilePath]