Use parseParas instead of parseString

This commit is contained in:
Michael Snoyman 2014-12-05 09:26:15 +02:00
parent 685eaec533
commit 24cc7d8428

View File

@ -281,7 +281,7 @@ getMetadata name version hash' gpd = do
, metadataTestSuites = length $ PD.testSuites pd
, metadataBenchmarks = length $ PD.benchmarks pd
, metadataReadme = collapseHtml $ fromMaybe
(hToHtml . Haddock.toRegular . Haddock.parseString $ PD.description pd)
(hToHtml . Haddock.toRegular . Haddock.parseParas $ PD.description pd)
mreadme
, metadataChangelog = collapseHtml <$> mchangelog
, metadataLicenseContent = collapseHtml <$> mlicenseContent