From 05436988950d271f8a55ee48b4d7794da9b40172 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Mon, 7 Dec 2009 23:34:54 +0000
Subject: Don't print raw HTML in man output.

Resolves Issue #183.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1657 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Writers/Man.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs
index 3270337d7..f6f656c4e 100644
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@@ -149,7 +149,7 @@ blockToMan opts (Para inlines) = do
   contents <- liftM vcat $ mapM (wrapIfNeeded opts (inlineListToMan opts)) $
     splitSentences inlines
   return $ text ".PP" $$ contents 
-blockToMan _ (RawHtml str) = return $ text str
+blockToMan _ (RawHtml _) = return empty
 blockToMan _ HorizontalRule = return $ text $ ".PP\n   *   *   *   *   *"
 blockToMan opts (Header level inlines) = do
   contents <- inlineListToMan opts inlines
@@ -312,7 +312,7 @@ inlineToMan opts (Math DisplayMath str) = do
   contents <- inlineToMan opts (Code str)
   return $ text ".RS" $$ contents $$ text ".RE"
 inlineToMan _ (TeX _) = return empty
-inlineToMan _ (HtmlInline str) = return $ text $ escapeCode str 
+inlineToMan _ (HtmlInline _) = return empty
 inlineToMan _ (LineBreak) = return $ text "\n.PD 0\n.P\n.PD\n"
 inlineToMan _ Space = return $ char ' '
 inlineToMan opts (Link txt (src, _)) = do
-- 
cgit v1.2.3