Commit 78bad98a authored by Brent Yorgey's avatar Brent Yorgey Committed by tibbe

cabal init: fix behavior of --no-comments flag

parent a5f69e24
......@@ -245,7 +245,7 @@ getLibOrExec flags = do
-- | Ask whether to generate explanitory comments.
getGenComments :: InitFlags -> IO InitFlags
getGenComments flags = do
genComments <- return (flagToMaybe $ noComments flags)
genComments <- return (not <$> (flagToMaybe $ noComments flags))
?>> maybePrompt flags (promptYesNo promptMsg (Just False))
?>> return (Just False)
return $ flags { noComments = maybeToFlag (fmap not genComments) }
......
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