Commit 8603af50 authored by Brent Yorgey's avatar Brent Yorgey

init: improve prompt: 'homepage' field is not for repos.

parent 14e748d9
...@@ -169,7 +169,7 @@ getHomepage :: InitFlags -> IO InitFlags ...@@ -169,7 +169,7 @@ getHomepage :: InitFlags -> IO InitFlags
getHomepage flags = do getHomepage flags = do
hp <- queryHomepage hp <- queryHomepage
hp' <- return (flagToMaybe $ homepage flags) hp' <- return (flagToMaybe $ homepage flags)
?>> maybePrompt flags (promptStr "Project homepage/repo URL" hp) ?>> maybePrompt flags (promptStr "Project homepage URL" hp)
?>> return hp ?>> return hp
return $ flags { homepage = maybeToFlag hp' } return $ flags { homepage = maybeToFlag hp' }
......
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