mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

filter out ExitSuccess

Browse source 
This avoids displaying the unexpected exit codes message when
the list is eg [ExitSuccess, ExitFailure 1].

Sponsored-by: Dartmouth College's Datalad project
This commit is contained in:
Joey Hess 2022-05-02 14:09:37 -04:00
parent 642703c7e4
commit 217798f3f1
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 26 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Test/Framework.hs
View file

@ -744,8 +744,8 @@ parallelTestRunner' numjobs opts mkts
exitcodes <- forConcurrently [1..numjobs] $ \_ ->
worker [] nvar runone
unless (keepFailuresOption opts) finalCleanup
case nub (concat exitcodes) of
[ExitSuccess] -> exitSuccess
case nub (filter (/= ExitSuccess) (concat exitcodes)) of
[] -> exitSuccess
[ExitFailure 1] -> do
putStrLn " (Failures above could be due to a bug in git-annex, or an incompatibility"
putStrLn " with utilities, such as git, installed on this system.)"