Commit 600ab058 authored by Brent Yorgey's avatar Brent Yorgey

init: improve prompt: enclose y/n in parens

parent 8603af50
...@@ -217,7 +217,7 @@ getGenComments flags = do ...@@ -217,7 +217,7 @@ getGenComments flags = do
?>> return (Just False) ?>> return (Just False)
return $ flags { noComments = maybeToFlag (fmap not genComments) } return $ flags { noComments = maybeToFlag (fmap not genComments) }
where where
promptMsg = "Include documentation on what each field means y/n" promptMsg = "Include documentation on what each field means (y/n)"
-- | Try to guess the source root directory (don't prompt the user). -- | Try to guess the source root directory (don't prompt the user).
getSrcDir :: InitFlags -> IO InitFlags getSrcDir :: InitFlags -> IO InitFlags
......
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