diff options
| author | Merijn Verstraaten <merijn@inconsistent.nl> | 2017-10-04 16:03:13 +0200 |
|---|---|---|
| committer | Alexander Biehl <alexbiehl@gmail.com> | 2017-10-04 16:03:13 +0200 |
| commit | 406030f2782590799e44470da7ca80e85f3cf026 (patch) | |
| tree | 47f260c52b7289dbbd326b6f19cabcd23f1cf437 /haddock-api/src | |
| parent | e99aefb50ca63e2dbcc95841efbb53cea90151d8 (diff) | |
Inhibit output of coverage information for hidden modules. (#687)
* Inhibit output of coverage information for hidden modules.
* Add changelog entry.
Diffstat (limited to 'haddock-api/src')
| -rw-r--r-- | haddock-api/src/Haddock/Interface.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/haddock-api/src/Haddock/Interface.hs b/haddock-api/src/Haddock/Interface.hs index f2d099b3..25755cff 100644 --- a/haddock-api/src/Haddock/Interface.hs +++ b/haddock-api/src/Haddock/Interface.hs @@ -206,12 +206,13 @@ processModule verbosity modsum flags modMap instIfaceMap = do then drop (length ms) n else n - out verbosity normal coverageMsg - when (Flag_NoPrintMissingDocs `notElem` flags - && not (null undocumentedExports && header)) $ do - out verbosity normal " Missing documentation for:" - unless header $ out verbosity normal " Module header" - mapM_ (out verbosity normal . (" " ++)) undocumentedExports + when (OptHide `notElem` ifaceOptions interface) $ do + out verbosity normal coverageMsg + when (Flag_NoPrintMissingDocs `notElem` flags + && not (null undocumentedExports && header)) $ do + out verbosity normal " Missing documentation for:" + unless header $ out verbosity normal " Module header" + mapM_ (out verbosity normal . (" " ++)) undocumentedExports interface' <- liftIO $ evaluate interface return (Just interface') else |