From 56aa257ddb60fb5cd48f8569f66e777454859738 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 14 Jan 2013 20:18:53 -0800
Subject: Removed some cruft.

---
 src/Text/Pandoc/Readers/Markdown.hs | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'src/Text/Pandoc/Readers')

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)
-- 
cgit v1.2.3