Code formatting and comments

Author: ptkato

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

@@ -139,6 +139,10 @@ createProject v pkgIx srcDb initFlags = do
         (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
 

cabal-install/tests/UnitTests/Distribution/Client/Init/NonInteractive.hs

@@ -320,7 +320,10 @@ driverFunctionTest pkgIx srcDb comp = testGroup "createProject"
               , "[\"test/Main.hs\", \"test/Foo.hs\", \"test/bar.y\"]"
               ]
 
-        case (_runPrompt $ createProject comp silent pkgIx srcDb (emptyFlags {initializeTestSuite = Flag True, packageType = Flag LibraryAndExecutable })) inputs of
+        case (_runPrompt $ createProject comp silent pkgIx srcDb (emptyFlags 
+            { initializeTestSuite = Flag True
+            , packageType = Flag LibraryAndExecutable
+            })) inputs of
           Right (ProjectSettings opts desc (Just lib) (Just exe) (Just test), _) -> do
             _optOverwrite  opts @?= False
             _optMinimal    opts @?= False
@@ -456,7 +459,10 @@ driverFunctionTest pkgIx srcDb comp = testGroup "createProject"
               , "[\"test/Main.hs\", \"test/Foo.hs\", \"test/bar.y\"]"
               ]
 
-        case (_runPrompt $ createProject comp silent pkgIx srcDb (emptyFlags {initializeTestSuite = Flag True, packageType = Flag Library})) inputs of
+        case (_runPrompt $ createProject comp silent pkgIx srcDb (emptyFlags 
+            { initializeTestSuite = Flag True
+            , packageType = Flag Library
+            })) inputs of
           Right (ProjectSettings opts desc (Just lib) Nothing (Just test), _) -> do
             _optOverwrite  opts @?= False
             _optMinimal    opts @?= False