[commit: Cabal] master: Add message when creating the package config files. (7da0fba)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/7da0fba29d475b1e13dd1ac7c187ac1be6436204

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

commit 7da0fba29d475b1e13dd1ac7c187ac1be6436204
Author: Duncan Coutts <duncan.coutts at worc.ox.ac.uk>
Date:   Thu May 3 19:36:00 2007 +0000

    Add message when creating the package config files.
    Enabled at -v2

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

 .../src/Network/Hackage/CabalInstall/Config.hs     |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/cabal-install/src/Network/Hackage/CabalInstall/Config.hs b/cabal-install/src/Network/Hackage/CabalInstall/Config.hs
index 6bbdc22..ca7a255 100644
--- a/cabal-install/src/Network/Hackage/CabalInstall/Config.hs
+++ b/cabal-install/src/Network/Hackage/CabalInstall/Config.hs
@@ -36,7 +36,7 @@ import Distribution.Version (Dependency)
 import System.FilePath ((</>))
 import System.Directory
 
-import Network.Hackage.CabalInstall.Types (ConfigFlags (..), PkgInfo (..))
+import Network.Hackage.CabalInstall.Types (ConfigFlags (..), OutputGen(..), PkgInfo (..))
 
 import Paths_cabal_install (getDataDir)
 
@@ -97,7 +97,9 @@ getKnownPackages cfg
 -- |Write the list of known packages to the pkg.list file.
 writeKnownPackages :: ConfigFlags -> [PkgInfo] -> IO ()
 writeKnownPackages cfg pkgs
-    = do createDirectoryIfMissing True (configPkgListDir cfg)
+    = do message (configOutputGen cfg) 2 $
+           "creating package file " ++ pkgList cfg
+         createDirectoryIfMissing True (configPkgListDir cfg)
          writeFile (pkgList cfg) (show pkgs)
 
 getKnownServers :: ConfigFlags -> IO [String]