@@ -931,12 +931,14 @@ inlineToMarkdown opts (Span attrs ils) = do
931931 isEnabled Ext_native_spans opts ->
932932 tagWithAttrs "span" attrs <> contents <> text "</span>"
933933 | otherwise -> contents
934+inlineToMarkdown _ (Emph []) = return empty
934935inlineToMarkdown opts (Emph lst) = do
935936 plain <- asks envPlain
936937 contents <- inlineListToMarkdown opts lst
937938 return $ if plain
938939 then "_" <> contents <> "_"
939940 else "*" <> contents <> "*"
941+inlineToMarkdown _ (Strong []) = return empty
940942inlineToMarkdown opts (Strong lst) = do
941943 plain <- asks envPlain
942944 if plain
@@ -944,6 +946,7 @@ inlineToMarkdown opts (Strong lst) = do
944946 else do
945947 contents <- inlineListToMarkdown opts lst
946948 return $ "**" <> contents <> "**"
949+inlineToMarkdown _ (Strikeout []) = return empty
947950inlineToMarkdown opts (Strikeout lst) = do
948951 contents <- inlineListToMarkdown opts lst
949952 return $ if isEnabled Ext_strikeout opts
@@ -951,6 +954,7 @@ inlineToMarkdown opts (Strikeout lst) = do
951954 else if isEnabled Ext_raw_html opts
952955 then "<s>" <> contents <> "</s>"
953956 else contents
957+inlineToMarkdown _ (Superscript []) = return empty
954958inlineToMarkdown opts (Superscript lst) =
955959 local (\env -> env {envEscapeSpaces = True}) $ do
956960 contents <- inlineListToMarkdown opts lst
@@ -963,6 +967,7 @@ inlineToMarkdown opts (Superscript lst) =
963967 in case mapM toSuperscript rendered of
964968 Just r -> text r
965969 Nothing -> text $ "^(" ++ rendered ++ ")"
970+inlineToMarkdown _ (Subscript []) = return empty
966971inlineToMarkdown opts (Subscript lst) =
967972 local (\env -> env {envEscapeSpaces = True}) $ do
968973 contents <- inlineListToMarkdown opts lst