Permalink
Browse files

Don't print <p>'s as indented blocks.

  • Loading branch information...
jgm committed Apr 10, 2008
1 parent 74ba434 commit 66ccbb8a2368e73718955c988cf5f526c9b0cf99
Showing with 1 addition and 1 deletion.
  1. +1 −1 Markdown.hs
View
@@ -305,7 +305,7 @@ blockToHtml :: [([Inline],(String, String))] -- ^ list of link references
-> Doc
blockToHtml refs block =
case block of
- Para xs -> inTagsIndented "p" $ wrap refs xs
+ Para xs -> inTagsSimple "p" $ wrap refs xs
Plain xs -> wrap refs xs
Heading lev xs -> inTagsSimple ("h" ++ show lev) $ hcat $ map (inlineToHtml refs) xs
HorizontalRule -> selfClosingTag "hr" []

0 comments on commit 66ccbb8

Please sign in to comment.