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

Fix some lint issues.

Browse source
This commit is contained in:
John MacFarlane 2021-08-11 17:53:39 -07:00
parent dd1a956a8a
commit 073895c340
2 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Readers/LaTeX/Macro.hs
View file

@ -79,10 +79,9 @@ letmacro = do
checkGlobal :: PandocMonad m => LP m [(Text, Macro)] -> LP m [(Text, Macro)]
checkGlobal p =
(do controlSeq "global"
ms <- p
return $ map (\(n, Macro _ expand arg optarg contents) ->
(n, Macro GlobalScope expand arg optarg contents)) ms)
(controlSeq "global" *>
(map (\(n, Macro _ expand arg optarg contents) ->
(n, Macro GlobalScope expand arg optarg contents)) <$> p))
<|> p
edefmacro :: PandocMonad m => LP m [(Text, Macro)]

4
src/Text/Pandoc/Readers/LaTeX/Parsing.hs
View file

@ -224,8 +224,8 @@ instance HasIncludeFiles LaTeXState where
instance HasMacros LaTeXState where
extractMacros st = NonEmpty.head $ sMacros st
updateMacros f st = st{ sMacros = f (NonEmpty.head $ sMacros st)
:| (NonEmpty.tail $ sMacros st) }
updateMacros f st = st{ sMacros = f (NonEmpty.head (sMacros st))
:| NonEmpty.tail (sMacros st) }
instance HasReaderOptions LaTeXState where
extractReaderOptions = sOptions