@@ -348,9 +348,9 @@ conditionalEscapeString :: PandocMonad m
348 -> Muse m String
348 -> Muse m String
349conditionalEscapeString s = do
349conditionalEscapeString s = do
350 shouldEscape <- shouldEscapeString s
350 shouldEscape <- shouldEscapeString s
351− if shouldEscape
351+ return $ if shouldEscape
352− then return $ escapeString s
352+ then escapeString s
353− else return $ s
353+ else s
355-- Expand Math and Cite before normalizing inline list
355-- Expand Math and Cite before normalizing inline list
356preprocessInlineList :: PandocMonad m
356preprocessInlineList :: PandocMonad m
@@ -489,7 +489,7 @@ inlineListToMuse :: PandocMonad m
489 => [Inline]
489 => [Inline]
490 -> Muse m Doc
490 -> Muse m Doc
491inlineListToMuse lst = do
491inlineListToMuse lst = do
492− lst' <- (normalizeInlineList . fixNotes) <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst)
492+ lst' <- normalizeInlineList . fixNotes <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst)
493 insideAsterisks <- asks envInsideAsterisks
493 insideAsterisks <- asks envInsideAsterisks
494 modify $ \st -> st { stUseTags = False } -- Previous character is likely a '>' or some other markup
494 modify $ \st -> st { stUseTags = False } -- Previous character is likely a '>' or some other markup
495 local (\env -> env { envNearAsterisks = insideAsterisks }) $ renderInlineList lst'
495 local (\env -> env { envNearAsterisks = insideAsterisks }) $ renderInlineList lst'