Commit f00b35f4 authored by Moritz Angermann's avatar Moritz Angermann Committed by Ben Gamari

make ghc-pkg shut up

parent c85d708c
......@@ -1822,7 +1822,7 @@ liftIO k = V (k >>= \a -> return (a,[],[]))
reportValidateErrors :: Verbosity -> [ValidateError] -> [ValidateWarning]
-> String -> Maybe Force -> IO Bool
reportValidateErrors verbosity es ws prefix mb_force = do
mapM_ (warn . (prefix++)) ws
when (verbosity >= Normal) $ mapM_ (warn . (prefix++)) ws
oks <- mapM report es
return (and oks)
where
......
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