From 1af81282d7946e218762522efb555f3df6b1b7a8 Mon Sep 17 00:00:00 2001 From: Emily Pillmore Date: Wed, 14 Jul 2021 16:01:27 -0400 Subject: [PATCH] remove unnecessary init message for hackage dir name --- .../src/Distribution/Client/Init/Interactive/Command.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/cabal-install/src/Distribution/Client/Init/Interactive/Command.hs b/cabal-install/src/Distribution/Client/Init/Interactive/Command.hs index 4ea450f538a..09cd1b946b0 100644 --- a/cabal-install/src/Distribution/Client/Init/Interactive/Command.hs +++ b/cabal-install/src/Distribution/Client/Init/Interactive/Command.hs @@ -137,7 +137,7 @@ 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 @@ -145,7 +145,7 @@ createProject v pkgIx srcDb initFlags = do -- 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