Have "runhaskell Setup test" return an error status if tests fail.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1456 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 1 insertions, 2 deletions

diff --git a/Setup.hs b/Setup.hs
index 9be68f8ce..41ea29f7d 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -16,8 +16,7 @@ main = defaultMainWithHooks $
 
 -- | Run test suite.
 runTestSuite _ _ _ _ = do
-  inDirectory "tests" $ runCommand "runhaskell -i.. RunTests.hs" >>= waitForProcess
-  return ()
+  inDirectory "tests" $ runCommand "runhaskell -i.. RunTests.hs" >>= waitForProcess >>= exitWith
 
 -- | Build man pages from markdown sources in man/man1/.
 makeManPages _ _ _ _ = do