diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-13 23:57:16 +0000 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-13 23:57:16 +0000 |
| commit | 50d1d18cc70cf6c8ffcf247743cd8af0ff9aae16 (patch) | |
| tree | 02898d7db4e8d7efe038c31c3de3ef2f4ed7eac0 | |
| parent | d86f68860c40d45d2cec94edd15d4bf4fc4292d8 (diff) | |
Only warn about missing docs when docs are missing
This fixes the ‘Missing documentation for…’ message for modules with
100% coverage.
| -rw-r--r-- | src/Haddock/Interface.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index 24d47914..60a20fe5 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -195,7 +195,8 @@ processModule verbosity modsum flags modMap instIfaceMap = do else n out verbosity normal coverageMsg - when (Flag_PrintMissingDocs `elem` flags && (header || not (null undocumentedExports))) $ do + when (Flag_PrintMissingDocs `elem` flags + && not (null undocumentedExports && header)) $ do out verbosity normal " Missing documentation for:" unless header $ out verbosity normal " Module header" mapM_ (out verbosity normal . (" " ++)) undocumentedExports |