diff options
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/OMath.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/OMath.hs b/src/Text/Pandoc/Readers/Docx/OMath.hs index 309aaefe8..8dd39c613 100644 --- a/src/Text/Pandoc/Readers/Docx/OMath.hs +++ b/src/Text/Pandoc/Readers/Docx/OMath.hs @@ -607,10 +607,10 @@ oMathRunStyleToTextType mrPr Just $ TM.TextBoldItalic | otherwise = Nothing - - baseToExp :: Base -> TM.Exp -baseToExp b = TM.EGrouped $ baseToExp' b +baseToExp b = case baseToExp' b of + (e : []) -> e + exps -> TM.EGrouped exps -- an ungrouped version of baseToExp baseToExp' :: Base -> [TM.Exp] |