Check that haddock docs build completed before uploading (fixes #119).

haskell · Oct 12, 2013 · f807111 · f807111
1 parent 3855322
commit f807111
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/BuildClient.hs b/BuildClient.hs
@@ -586,8 +586,10 @@ buildPackage verbosity opts config docInfo = do
  </> "build-reports.log"
  handleDoesNotExist (return ()) $ removeFile simple_report_log
 
- docs_generated <- liftM2 (&&) (doesDirectoryExist doc_dir_html)
- (doesFileExist (doc_dir_html </> "doc-index.html"))
+ docs_generated <- fmap and $ sequence [
+ doesDirectoryExist doc_dir_html,
+ doesFileExist (doc_dir_html </> "doc-index.html"),
+ doesFileExist (doc_dir_html </> display (docInfoPackageName docInfo) <.> "haddock")]
  if docs_generated
  then do
  notice verbosity $ "Docs generated for " ++ display (docInfoPackage docInfo)