Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

OMath parser: don't group expressions if there's only one.

Browse source
This commit is contained in:
Jesse Rosenthal 2014-08-07 22:55:03 -04:00
parent 40602c3df6
commit cf849443cb
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Readers/Docx/OMath.hs
View file

@ -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]