Indicate failures with exit code in command-line mode. (#233)
It'd be useful for scripting or integration tests.
commitfa2c295f74f236efaa144f37cc229d87e15e15dc
authorJinwoo Lee <jinwoo@google.com>
dateThu 12 Dec 2019, 00:00 (7 years ago)
parent9d1f2ba
exe/Main.hs+2
@@ -125,6 +125,8 @@ main = do
125125 let files xs = let n = length xs in if n == 1 then "1 file" else show n ++ " files"
126126 putStrLn $ "\nCompleted (" ++ files worked ++ " worked, " ++ files failed ++ " failed)"
127127
128+ unless (null failed) exitFailure
129+
128130
129131expandFiles :: [FilePath] -> IO [FilePath]
130132expandFiles = concatMapM $ \x -> do