[commit: Cabal] master: Be less noisy about warning about packages with missing docs (3dfdd5f)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/3dfdd5f51094ec4ee8426c0c07732a4e08190b86

>---------------------------------------------------------------

commit 3dfdd5f51094ec4ee8426c0c07732a4e08190b86
Author: Duncan Coutts <duncan at haskell.org>
Date:   Tue Jul 7 00:51:49 2009 +0000

    Be less noisy about warning about packages with missing docs

>---------------------------------------------------------------

 cabal-install/Distribution/Client/Haddock.hs |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/cabal-install/Distribution/Client/Haddock.hs b/cabal-install/Distribution/Client/Haddock.hs
index 339f7cd..636209f 100644
--- a/cabal-install/Distribution/Client/Haddock.hs
+++ b/cabal-install/Distribution/Client/Haddock.hs
@@ -30,8 +30,9 @@ import Distribution.Verbosity (Verbosity)
 import Distribution.Text (display)
 import Distribution.Simple.PackageIndex(PackageIndex, allPackages,
                                         allPackagesByName, fromList)
-import Distribution.Simple.Utils (comparing, installDirectoryContents
-                                 , intercalate, warn, withTempDirectory)
+import Distribution.Simple.Utils
+         ( comparing, intercalate, debug
+         , installDirectoryContents, withTempDirectory )
 import Distribution.InstalledPackageInfo as InstalledPackageInfo 
     (InstalledPackageInfo,InstalledPackageInfo_(haddockHTMLs, haddockInterfaces, exposed, package))
 
@@ -40,7 +41,7 @@ regenerateHaddockIndex verbosity pkgs conf index = do
       (paths,warns) <- haddockPackagePaths pkgs'
       case warns of
         Nothing -> return ()
-        Just m  -> warn verbosity m
+        Just m  -> debug verbosity m
       
       (confHaddock, _, _) <-
           requireProgramVersion verbosity haddockProgram