diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Reducible.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Reducible.hs b/src/Text/Pandoc/Readers/Docx/Reducible.hs index 39a93d988..80a0cee17 100644 --- a/src/Text/Pandoc/Readers/Docx/Reducible.hs +++ b/src/Text/Pandoc/Readers/Docx/Reducible.hs @@ -138,6 +138,7 @@ instance Reducible Inline where container (Emph _) = Container Emph container (Strong _) = Container Strong + container (SmallCaps _) = Container SmallCaps container (Strikeout _) = Container Strikeout container (Subscript _) = Container Subscript container (Superscript _) = Container Superscript @@ -147,6 +148,7 @@ instance Reducible Inline where container _ = NullContainer innards (Emph ils) = ils + innards (SmallCaps ils) = ils innards (Strong ils) = ils innards (Strikeout ils) = ils innards (Subscript ils) = ils |