@@ -224,7 +224,7 @@ blockToOpenDocument o bs
224 | Header i b <- bs = inHeaderTags i <$> wrap o b
224 | Header i b <- bs = inHeaderTags i <$> wrap o b
225 | BlockQuote b <- bs = doBlockQuote b
225 | BlockQuote b <- bs = doBlockQuote b
226 | CodeBlock _ s <- bs = preformatted s
226 | CodeBlock _ s <- bs = preformatted s
227− | RawHtml s <- bs = preformatted s
227+ | RawHtml _ <- bs = return empty
228 | DefinitionList b <- bs = defList b
228 | DefinitionList b <- bs = defList b
229 | BulletList b <- bs = bulletListToOpenDocument o b
229 | BulletList b <- bs = bulletListToOpenDocument o b
230 | OrderedList a b <- bs = orderedList a b
230 | OrderedList a b <- bs = orderedList a b
@@ -310,7 +310,7 @@ inlineToOpenDocument o ils
310 | Code s <- ils = preformatted s
310 | Code s <- ils = preformatted s
311 | Math s <- ils = inlinesToOpenDocument o (readTeXMath s)
311 | Math s <- ils = inlinesToOpenDocument o (readTeXMath s)
312 | TeX s <- ils = preformatted s
312 | TeX s <- ils = preformatted s
313− | HtmlInline s <- ils = preformatted s
313+ | HtmlInline _ <- ils = return empty
314 | Link l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l
314 | Link l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l
315 | Image l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l
315 | Image l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l
316 | Note l <- ils = mkNote l
316 | Note l <- ils = mkNote l