@@ -476,8 +476,8 @@ pBlank = try $ do
477pTagContents :: Parser [Char] ParserState Inline
477pTagContents :: Parser [Char] ParserState Inline
478pTagContents =
478pTagContents =
479+ Math DisplayMath `fmap` mathDisplay
479− Math InlineMath `fmap` mathInline
480+ <|> Math InlineMath `fmap` mathInline
480− <|> Math DisplayMath `fmap` mathDisplay
482 <|> pSpace
482 <|> pSpace
483 <|> smartPunctuation pTagContents
483 <|> smartPunctuation pTagContents