Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Muse writer: hlint

Browse source
This commit is contained in:
Alexander Krotov 2018-09-02 03:29:47 +03:00
parent 6ea6011ca6
commit afd3f21218
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Writers/Muse.hs
View file

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