Split the monolithic Init.hs module into 5 sub-modules.

Init.Command - Main cabal init logic that ties everything together.
Init.Defaults - Default values for items not specified in config or arguments
Init.FileCreators - All the createXyz functions which write files (LICENSE, Main.hs, etc.)
Init.Prompt - Utilities for prompting the user for selections
Init.Utils - Misc utilities shared across the above modules

Author: m-renaud

cabal-install/Distribution/Client/Init.hs

@@ -0,0 +1,31 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Distribution.Client.Init.Defaults
+-- Copyright   :  (c) Brent Yorgey 2009
+-- License     :  BSD-like
+--
+-- Maintainer  :  [email protected]
+-- Stability   :  provisional
+-- Portability :  portable
+--
+-- Default values to use in cabal init (if not specified in config/flags).
+--
+-----------------------------------------------------------------------------
+
+module Distribution.Client.Init.Defaults (
+    defaultCabalVersion
+  , myLibModule
+  ) where
+
+import Distribution.ModuleName
+  ( ModuleName )  -- And for the Text instance
+import qualified Distribution.ModuleName as ModuleName
+  ( fromString )
+import Distribution.Version
+  ( Version, mkVersion )
+
+defaultCabalVersion :: Version
+defaultCabalVersion = mkVersion [1,10]
+
+myLibModule :: ModuleName
+myLibModule = ModuleName.fromString "MyLib"