Permalink
Browse files

Replace a 'notice' with a debug message.

  • Loading branch information...
1 parent 11e2cf6 commit c3cb22bbb14dd4fc8eb69cdc68f81a69fcd2d164 @23Skidoo committed Aug 24, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 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)

0 comments on commit c3cb22b

Please sign in to comment.