Replace a 'notice' with a debug message.

gentoo-haskell · Aug 24, 2012 · c3cb22b · c3cb22b
1 parent 11e2cf6
commit c3cb22b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cabal-install/Distribution/Client/Index.hs b/cabal-install/Distribution/Client/Index.hs
@@ -29,7 +29,7 @@ import Distribution.Client.Utils ( byteStringToFilePath, filePathToByteString
                                  , makeAbsoluteToCwd )
 
 import Distribution.Simple.Setup ( fromFlagOrDefault )
-import Distribution.Simple.Utils ( die, debug, notice, warn, findPackageDesc )
+import Distribution.Simple.Utils ( die, debug, notice, findPackageDesc )
 import Distribution.Verbosity    ( Verbosity )
 
 import qualified Data.ByteString.Lazy as BS
@@ -144,7 +144,7 @@ createEmpty :: Verbosity -> FilePath -> IO ()
 createEmpty verbosity path = do
   indexExists <- doesFileExist path
   if indexExists
-    then warn verbosity $ "package index already exists: '" ++ path ++ "'"
+    then debug verbosity $ "Package index already exists: " ++ path
     else do
     debug verbosity $ "Creating the index file '" ++ path ++ "'"
     createDirectoryIfMissing True (takeDirectory path)