Let runtests.hs die when haddock has not been built

1 files changed, 4 insertions, 0 deletions

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