@@ -607,10 +607,10 @@ oMathRunStyleToTextType mrPr
607 Just $ TM.TextBoldItalic
607 Just $ TM.TextBoldItalic
608 | otherwise = Nothing
608 | otherwise = Nothing
612baseToExp :: Base -> TM.Exp
610baseToExp :: Base -> TM.Exp
611+baseToExp b = case baseToExp' b of
613−baseToExp b = TM.EGrouped $ baseToExp' b
613+ exps -> TM.EGrouped exps
615-- an ungrouped version of baseToExp
615-- an ungrouped version of baseToExp
616baseToExp' :: Base -> [TM.Exp]
616baseToExp' :: Base -> [TM.Exp]