Commit 5bd96351 authored by Edward Z. Yang's avatar Edward Z. Yang Committed by Edward Z. Yang
Browse files

Don't mark Haddock warnings, which depend on installation.


Signed-off-by: default avatarEdward Z. Yang <ezyang@cs.stanford.edu>
parent 6a652a87
......@@ -414,7 +414,7 @@ getInterfaces :: Verbosity
-> IO HaddockArgs
getInterfaces verbosity lbi clbi htmlTemplate = do
(packageFlags, warnings) <- haddockPackageFlags verbosity lbi clbi htmlTemplate
traverse_ (warn verbosity) warnings
traverse_ (warn (verboseUnmarkOutput verbosity)) warnings
return $ mempty {
argInterfaces = packageFlags
}
......
......@@ -38,6 +38,7 @@ module Distribution.Verbosity (
-- * Output markets
verboseMarkOutput, isVerboseMarkOutput,
verboseUnmarkOutput,
-- * line-wrapping
verboseNoWrap, isVerboseNoWrap,
......@@ -206,6 +207,10 @@ verboseCallStack = verboseFlag VCallStack
verboseMarkOutput :: Verbosity -> Verbosity
verboseMarkOutput = verboseFlag VMarkOutput
-- | Turn off marking; useful for suppressing nondeterministic output.
verboseUnmarkOutput :: Verbosity -> Verbosity
verboseUnmarkOutput v = v { vFlags = Set.delete VMarkOutput (vFlags v) }
-- | Disable line-wrapping for log messages.
verboseNoWrap :: Verbosity -> Verbosity
verboseNoWrap = verboseFlag VNoWrap
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment