@@ -348,9 +348,9 @@ conditionalEscapeString :: PandocMonad m
348348 -> Muse m String
349349conditionalEscapeString s = do
350350 shouldEscape <- shouldEscapeString s
351− if shouldEscape
352− then return $ escapeString s
353− else return $ s
351+ return $ if shouldEscape
352+ then escapeString s
353+ else s
354354
355355-- Expand Math and Cite before normalizing inline list
356356preprocessInlineList :: PandocMonad m
@@ -489,7 +489,7 @@ inlineListToMuse :: PandocMonad m
489489 => [Inline]
490490 -> Muse m Doc
491491inlineListToMuse lst = do
492− lst' <- (normalizeInlineList . fixNotes) <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst)
492+ lst' <- normalizeInlineList . fixNotes <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst)
493493 insideAsterisks <- asks envInsideAsterisks
494494 modify $ \st -> st { stUseTags = False } -- Previous character is likely a '>' or some other markup
495495 local (\env -> env { envNearAsterisks = insideAsterisks }) $ renderInlineList lst'