Do not ask overwrite questions for empty dirs

See #9150, blank projects need not to ask permission to
overwrite files.

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

@@ -276,10 +276,16 @@ genTestTarget flags pkgs = initializeTestSuitePrompt flags >>= go
 
 overwritePrompt :: Interactive m => InitFlags -> m Bool
 overwritePrompt flags = do
-  isOverwrite <- getOverwrite flags
-  promptYesNo
-    "Do you wish to overwrite existing files (backups will be created) (y/n)"
-    (DefaultPrompt isOverwrite)
+  con <- getPackageDir flags >>= listDirectory
+
+  -- Do not ask useless overwrite question if directory is empty.
+  if null con
+    then return False
+    else do
+      isOverwrite <- getOverwrite flags
+      promptYesNo
+        "Do you wish to overwrite existing files (backups will be created) (y/n)"
+        (DefaultPrompt isOverwrite)
 
 cabalVersionPrompt :: Interactive m => InitFlags -> m CabalSpecVersion
 cabalVersionPrompt flags = getCabalVersion flags $ do

cabal-testsuite/PackageTests/Init/init-interactive-empty-folder.out

@@ -0,0 +1 @@
+# cabal init

cabal-testsuite/PackageTests/Init/init-interactive-empty-folder.test.hs

@@ -0,0 +1,10 @@
+import Test.Cabal.Prelude
+
+main = cabalTest $ do
+  tmpDir <- testTmpDir <$> getTestEnv
+  withDirectory tmpDir $ do
+    res <- cabalWithStdin "init"
+                          ["-i"]
+                          (replicate 20 '\n') -- Default all the way down.
+    assertOutputDoesNotContain "backups will be created" res
+

changelog.d/pr-9155

@@ -0,0 +1,4 @@
+synopsis: Do not ask overwrite permissions on blank project
+packages: cabal-install
+prs: #9155
+issues: #9150