Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit 66ccbb8a2368e73718955c988cf5f526c9b0cf99 1 parent 74ba434
@jgm authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Markdown.hs
View
2  Markdown.hs
@@ -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" []
Please sign in to comment.
Something went wrong with that request. Please try again.