aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-09-22 21:26:54 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-09-22 21:26:54 +0000
commitd1d614b8ef6a239eff24dd152397028920a53e33 (patch)
tree4934d8cb6fd884f1ffc06087aa81aad3f44a4922
parentcaadac70cd533b9295f6cbf1ec1556b5116bae13 (diff)
downloadpandoc-d1d614b8ef6a239eff24dd152397028920a53e33.tar.gz
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
-rw-r--r--Setup.hs3
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