diff options
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index b9f9381c3..627358839 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -348,9 +348,9 @@ conditionalEscapeString :: PandocMonad m -> Muse m String conditionalEscapeString s = do shouldEscape <- shouldEscapeString s - if shouldEscape - then return $ escapeString s - else return $ s + return $ if shouldEscape + then escapeString s + else s -- Expand Math and Cite before normalizing inline list preprocessInlineList :: PandocMonad m @@ -489,7 +489,7 @@ inlineListToMuse :: PandocMonad m => [Inline] -> Muse m Doc inlineListToMuse lst = do - lst' <- (normalizeInlineList . fixNotes) <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst) + lst' <- normalizeInlineList . fixNotes <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst) insideAsterisks <- asks envInsideAsterisks modify $ \st -> st { stUseTags = False } -- Previous character is likely a '>' or some other markup local (\env -> env { envNearAsterisks = insideAsterisks }) $ renderInlineList lst' |