From 8406b8469533f7a3ca188afd11b8b38987a3133c Mon Sep 17 00:00:00 2001 From: David Waern Date: Wed, 7 Apr 2010 21:48:57 +0000 Subject: Let runtests.hs die when haddock has not been built --- tests/runtests.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'tests') diff --git a/tests/runtests.hs b/tests/runtests.hs index 9ec3e2c5..72492307 100644 --- a/tests/runtests.hs +++ b/tests/runtests.hs @@ -59,6 +59,10 @@ check modules strict = do test = do + + x <- doesFileExist (".." "dist" "build" "haddock" "haddock") + when (not x) $ die "you need to run 'cabal build' successfully first" + contents <- getDirectoryContents "tests" args <- getArgs let (opts, spec) = span ("-" `isPrefixOf`) args -- cgit v1.2.3