@@ -315,9 +315,9 @@ blockToHtml :: [([Inline],(String, String))] -- ^ list of link references -> Doc blockToHtml refs block = case block of - Para xs -> inTagsSimple "p" $ wrap refs xs - Plain xs -> wrap refs xs - Heading lev xs -> inTagsSimple ("h" ++ show lev) $ hcat $ map (inlineToHtml refs) xs + Para xs -> inTagsSimple "p" $ wrap refs $ lrstrip Space xs + Plain xs -> wrap refs $ lrstrip Space xs + Heading lev xs -> inTagsSimple ("h" ++ show lev) $ hcat $ map (inlineToHtml refs) $ lrstrip Space xs HorizontalRule -> selfClosingTag "hr" [] BlockQuote xs -> inTagsIndented "blockquote" $ vcat $ map (blockToHtml refs) xs Verbatim s -> inTagsSimple "pre" $ inTagsSimple "code" $ P.text $ escapeStringForXML s Markdown.hs 416ec6bbed37a147b39a29434aed2bfe761c361d John MacFarlane jgm@berkeley.edu http://github.com/jgm/markdown-peg/commit/4438c336444a714f15ed619c9897d91c3ab6b40e 4438c336444a714f15ed619c9897d91c3ab6b40e 2008-04-10T17:20:34-07:00 2008-04-10T17:20:34-07:00 Remove leading and trailing spaces in paragraph, plain, and headers. 53a0ce60ddb808acaaf2e8e78f34864ab60507c3 John MacFarlane jgm@berkeley.edu