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 <[email protected]>
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]



_______________________________________________
Cvs-libraries mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-libraries

Reply via email to