git.iko.soy/ghcide
on master help sign in
Indicate failures with exit code in command-line mode. (#233)
fa2c295Jinwoo Lee
exe/Main.hs+2
compare with master
unifiedsplit
@@ -125,6 +125,8 @@ main = do
125 let files xs = let n = length xs in if n == 1 then "1 file" else show n ++ " files"
125 let files xs = let n = length xs in if n == 1 then "1 file" else show n ++ " files"
126 putStrLn $ "\nCompleted (" ++ files worked ++ " worked, " ++ files failed ++ " failed)"
126 putStrLn $ "\nCompleted (" ++ files worked ++ " worked, " ++ files failed ++ " failed)"
127
127
128+ unless (null failed) exitFailure
129+
128
130
129expandFiles :: [FilePath] -> IO [FilePath]
131expandFiles :: [FilePath] -> IO [FilePath]
130expandFiles = concatMapM $ \x -> do
132expandFiles = concatMapM $ \x -> do