[commit: Cabal] master: Use a PVP-style version as the default for cabal init (4afed2c)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/4afed2c9448fcca788260dcc184b8a2fbd78e111

>---------------------------------------------------------------

commit 4afed2c9448fcca788260dcc184b8a2fbd78e111
Author: Duncan Coutts <duncan at community.haskell.org>
Date:   Sun Sep 25 02:17:22 2011 +0000

    Use a PVP-style version as the default for cabal init

>---------------------------------------------------------------

 cabal-install/Distribution/Client/Init.hs |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/cabal-install/Distribution/Client/Init.hs b/cabal-install/Distribution/Client/Init.hs
index 97dfad4..b0ea6e5 100644
--- a/cabal-install/Distribution/Client/Init.hs
+++ b/cabal-install/Distribution/Client/Init.hs
@@ -125,11 +125,11 @@ getPackageName flags = do
 
   return $ flags { packageName = maybeToFlag pkgName' }
 
--- | Package version: use 0.1 as a last resort, but try prompting the user if
---   possible.
+-- | Package version: use 0.1.0.0 as a last resort, but try prompting the user
+--  if possible.
 getVersion :: InitFlags -> IO InitFlags
 getVersion flags = do
-  let v = Just $ Version { versionBranch = [0,1], versionTags = [] }
+  let v = Just $ Version { versionBranch = [0,1,0,0], versionTags = [] }
   v' <-     return (flagToMaybe $ version flags)
         ?>> maybePrompt flags (prompt "Package version" v)
         ?>> return v