Commit dc186a88 authored by Duncan Coutts's avatar Duncan Coutts

Adjust the cabal init interactive prompt string

parent 897c9698
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment