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 <[email protected]> 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) _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
