aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2014-08-13 00:08:01 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2014-08-13 00:09:40 -0400
commita1320a76f9dad0e23118e67335206c87608e9f8f (patch)
treee2af6d06fbf6d8638058e7d16b768865159b164d /src/Text/Pandoc
parentdca55630e641905d5447b9468d0953227f9e704a (diff)
downloadpandoc-a1320a76f9dad0e23118e67335206c87608e9f8f.tar.gz
Docx: Reducible forgot about smallcaps
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Docx/Reducible.hs2
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