diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-01-14 20:18:53 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-01-14 20:18:53 -0800 |
| commit | 56aa257ddb60fb5cd48f8569f66e777454859738 (patch) | |
| tree | 4754fc378d2700970890a944454f8e163ba536b8 /src/Text/Pandoc/Readers | |
| parent | 51e0bd277a736fe7d11e456a17ff7995b71db60e (diff) | |
| download | pandoc-56aa257ddb60fb5cd48f8569f66e777454859738.tar.gz | |
Removed some cruft.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -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) |