diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index e454fd58d..6ca699d20 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -768,19 +768,9 @@ compactify'DL items = -- paragraph block -- -{- -isHtmlOrBlank :: Inline -> Bool -isHtmlOrBlank (RawInline "html" _) = True -isHtmlOrBlank (Space) = True -isHtmlOrBlank (LineBreak) = True -isHtmlOrBlank _ = False --} - para :: MarkdownParser (F Blocks) para = try $ do result <- trimInlinesF . mconcat <$> many1 inline - -- TODO remove this if not really needed? and remove isHtmlOrBlank - -- guard $ not $ F.all isHtmlOrBlank result option (B.plain <$> result) $ try $ do newline (blanklines >> return mempty) |