[commit: Cabal] master: Adjust the cabal init interactive prompt string (74d0d2e)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/74d0d2eaa61e29b9a03149bcdcabc609281f8c26

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

commit 74d0d2eaa61e29b9a03149bcdcabc609281f8c26
Author: Duncan Coutts <duncan at community.haskell.org>
Date:   Tue May 17 00:23:02 2011 +0000

    Adjust the cabal init interactive prompt string

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

 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 be31724..b6545a5 100644
--- a/cabal-install/Distribution/Client/Init.hs
+++ b/cabal-install/Distribution/Client/Init.hs
@@ -301,9 +301,9 @@ promptDefault' parser pretty pr def = do
 -- | Create a prompt from a prompt string and a String representation
 --   of an optional default value.
 mkDefPrompt :: String -> Maybe String -> String
-mkDefPrompt pr def = pr ++ defStr def ++ "? "
-  where defStr Nothing  = ""
-        defStr (Just s) = " [default \"" ++ s ++ "\"]"
+mkDefPrompt pr def = pr ++ "?" ++ defStr def
+  where defStr Nothing  = " "
+        defStr (Just s) = " [default \"" ++ s ++ "\"] "
 
 -- | Create a prompt from a list of items.
 promptList :: (Text t, Eq t)