From d1d614b8ef6a239eff24dd152397028920a53e33 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Mon, 22 Sep 2008 21:26:54 +0000
Subject: [PATCH] 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
---
 Setup.hs | 3 +--
 1 file changed, 1 insertion(+), 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