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