From 50d1d18cc70cf6c8ffcf247743cd8af0ff9aae16 Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Thu, 13 Feb 2014 23:57:16 +0000 Subject: Only warn about missing docs when docs are missing MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This fixes the ‘Missing documentation for…’ message for modules with 100% coverage. --- src/Haddock/Interface.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Haddock') 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 -- cgit v1.2.3