Merge pull request #7485 from haskell/emily/redundant-init-warning-pa…

…ckagename

Remove redundant init message for hackage dir name

cabal-install/src/Distribution/Client/Init/Interactive/Command.hs

@@ -137,15 +137,15 @@ createProject v pkgIx srcDb initFlags = do
       return $ ProjectSettings
         (mkOpts comments cabalSpec) pkgDesc (Just libTarget)
         (Just exeTarget) testTarget
-    
+
     TestSuite -> do
       -- the line below is necessary because if both package type and test flags
       -- are *not* passed, the user will be prompted for a package type (which
       -- includes TestSuite in the list). It prevents that the user end up with a
       -- TestSuite target with initializeTestSuite set to NoFlag, thus avoiding the prompt.
       let initFlags' = initFlags { initializeTestSuite = Flag True }
       testTarget <- genTestTarget initFlags' pkgIx
-      
+
       comments <- noCommentsPrompt initFlags'
 
       return $ ProjectSettings
@@ -308,9 +308,7 @@ packageNamePrompt srcDb flags = getPackageName flags $ do
       then do
         don'tUseName <- promptYesNo (promptOtherNameMsg n) (DefaultPrompt True)
         if don'tUseName
-        then do
-          putStrLn (inUseMsg n)
-          go defName
+        then go defName
         else return n
       else return n