Skip raw HTML blocks in asciidoc.

This commit is contained in:
John MacFarlane 2011-11-18 19:44:15 -08:00
parent 457571e0c8
commit c1710f9bde

View file

@ -123,8 +123,6 @@ blockToAsciidoc opts (Para inlines) = do
then text "\\"
else empty
return $ esc <> contents <> blankline
blockToAsciidoc _ (RawBlock f str) | f == "html" || f == "docbook" = do
return $ blankline $$ "+++" $$ text str $$ "+++" <> blankline
blockToAsciidoc _ (RawBlock _ _) = return empty
blockToAsciidoc _ HorizontalRule =
return $ blankline <> text "'''''" <> blankline